Код модуля unit DataModuleUnit

3.2 Код модуля unit DataModuleUnit

unit DataModuleUnit;

interface

uses

 SysUtils, Classes, DB, ADODB;

type

 TDataModule2 = class(TDataModule)

 ADOConnection1: TADOConnection;

 BookTable: TADOTable;

 DataSource1: TDataSource;

 BookTableDSDesigner: TAutoIncField;

 BookTableDSDesigner2: TWideStringField;

 BookTableDSDesigner3: TWideStringField;

 BookTableDSDesigner4: TWideStringField;

 BookTableDSDesigner5: TWideStringField;

 BookTableDSDesigner6: TWideStringField;

 BookTableDSDesigner7: TWideStringField;

 BookTableDSDesigner8: TWideStringField;

 BookTableDSDesigner9: TWideStringField;

 BookTableDSDesigner10: TDateTimeField;

 BookTableDSDesigner11: TBooleanField;

 TownSourse: TDataSource;

 TownTable: TADOTable;

 TownTableKey1: TAutoIncField;

 TownTableDSDesigner: TWideStringField;

 BookTableDSDesigner12: TWideStringField;

 FindQuery: TADOQuery;

 FindSource: TDataSource;

 FindQueryDSDesigner: TAutoIncField;

 FindQueryDSDesigner2: TWideStringField;

 FindQueryDSDesigner3: TWideStringField;

 FindQueryDSDesigner4: TWideStringField;

 FindQueryDSDesigner5: TWideStringField;

 FindQueryDSDesigner6: TWideStringField;

 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

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, Grids, DBGrids, StdCtrls;

type

 TTownBookForm = class(TForm)

 DBGrid1: TDBGrid;

 OK: TButton;

 Button1: TButton;

 Button2: TButton;

 Button3: TButton;

 procedure Button1Click(Sender: TObject);

 procedure Button2Click(Sender: TObject);

 procedure Button3Click(Sender: TObject);

 procedure OKClick(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var

 TownBookForm: TTownBookForm;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TTownBookForm.Button1Click(Sender: TObject);

begin

DataModule2.TownTable.Insert;

DBGrid1.SetFocus;

end;

procedure TTownBookForm.Button2Click(Sender: TObject);

begin

if DataModule2.TownTable.Modified then

DataModule2.TownTable.Post;

end;

procedure TTownBookForm.Button3Click(Sender: TObject);

begin

DataModule2.TownTable.Delete;

end;

procedure TTownBookForm.OKClick(Sender: TObject);

begin

 TownBookForm.Close;

end;

end.

3.4 код модуля EditFormunit

unit EditFormunit; форма «редактирование данных»

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, DBCtrls, Mask;

type

 TEditRecordForm = class(TForm)

 Label1: TLabel;

 Label2: TLabel;

 Label3: TLabel;

 Label4: TLabel;

 Label5: TLabel;

 DBEdit1: TDBEdit;

 DBEdit2: TDBEdit;

 DBEdit3: TDBEdit;

 DBEdit4: TDBEdit;

 DBEdit5: TDBEdit;

 DBCheckBox1: TDBCheckBox;

 DBLookupComboBox1: TDBLookupComboBox;

 Label6: TLabel;

 Button1: TButton;

 Button2: TButton;

 Label7: TLabel;

 Label8: TLabel;

 DBEdit6: TDBEdit;

 DBEdit7: TDBEdit;

 DBEdit8: TDBEdit;

 Label9: TLabel;

 Label10: TLabel;

 DBEdit9: TDBEdit;

 procedure Button1Click(Sender: TObject);

 procedure Button2Click(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var

 EditRecordForm: TEditRecordForm;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TEditRecordForm.Button1Click(Sender: TObject);

begin

if DataModule2.BookTable.Modified then

DataModule2.BookTable.Post;

Close;

end;

procedure TEditRecordForm.Button2Click(Sender: TObject);

begin

DataModule2.BookTable.Cancel;

Close;

end;

end.