Курсовая работа: База данных предприятия

FindQueryDSDesigner7: TWideStringField;

FindQueryDSDesigner8: TWideStringField;

FindQueryDSDesigner9: TWideStringField;

FindQueryDSDesigner10: TWideStringField;

FindQueryDSDesigner11: TDateTimeField;

FindQueryDSDesigner12: TBooleanField;

procedure BookTableFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

uses Unit1;

{$R *.dfm}

procedure TDataModule2.BookTableFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept:=false;

If copy(BookTableDSDesigner.AsString,1,Length(Form1.FindEdit.Text))=

Form1.FindEdit.Text then

Accept:=true;

end;

end.

3.3. Код модуля TownBookUnit

unit TownBookUnit;форма «города»

interface