Witam. Mam w programie 6 form z czego 5 ostatnich to modalne. Na ostatniej formie umieściłem DBGrida, TTable, TDataSource, wszystko skojarzyłem z bazą i aliasem do bazy i bezskutecznie próbuję skompilować program. Zadanie jakie ma spełniac ta ostatnia forma to filtrowanie bazy.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables, StdCtrls, ExtCtrls, Mask, DBCtrls;
type
TForm6 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
RadioGroup1: TRadioGroup;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
Function FiltrDla:String;
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.DFM}
Function TForm6.FiltrDla:String;
begin
Case
Radiogroup1.ItemIndex Of
0='Aktor';
1='Gatunek';
2='Rok';
3='Produkcja';
End;
end;
procedure TForm6.Button1Click(Sender: TObject);
begin
With Table1 Do
begin
OnFilterRecord:=Nil;
Filter:=FiltrDla + '=' +#39 +Edit1.Text + #39;
Filtered:=True;
end;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
With Table1 Do
begin
Filter:='';
OnFilterRecord:=Table1FilterRecord;
Filtered:=True;
end;
end;
procedure TForm6.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=DataSet[FiltrDla]=Edit1.Text;
end;
procedure TForm6.FormCreate(Sender: TObject);
begin
end;
end.
Przy kompilowaniu mam taki komunikat:
"Project Forma1.exe raised exception class EDataBaseError with message 'Table1:Field"not found". Process stopped.Use step or run to continue."
A w listingu:
Accept:=DataSet[FiltrDla]=Edit1.Text; ta linia wyznaczona jest po lewej stronie taką zieloną strzałką.
A teraz najciekawsze to wszystko działa idealnie na jednej formie, którą zrobiłem tak dla próby.
Koledzy programiści bardzo proszę pomóżcie, ja już nie wiem co mam zrobić. Przepraszam za tak długi post moderatorów, ale inaczej nie umiałem.