Unit Unit2;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TDataModule2 = class(TDataModule)

Database1: TDatabase;

Table1: TTable;

Table2: TTable;

Table3: TTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

Query1: TQuery;

DataSource4: TDataSource;

DataSource5: TDataSource;

Query2: TQuery;

Query3: TQuery;

DataSource6: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

Unit Unit3;

interface

uses

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

Dialogs,unit2, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

type

TForm3 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

DataModule2.Table1.Append;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

DataModule2.Table1.Edit;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

If MessageDlg ('Вы действительно хотите удалить?', mtConfirmation, [mbYes, mbNo, mbCancel], 0)=mrYes

Then

DataModule2.Table1.Delete;

end;

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

DataModule2.Table1.Post;

end;

end.

Unit Unit4;

interface

uses

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

Dialogs,unit2, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

type

TForm4 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

DataModule2.Table2.Append;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

DataModule2.Table2.Edit;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

If MessageDlg ('Вы действительно хотите удалить?', mtConfirmation, [mbYes, mbNo, mbCancel], 0)=mrYes

Then

DataModule2.Table2.Delete;

end;

procedure TForm4.BitBtn4Click(Sender: TObject);

begin

DataModule2.Table2.Post;

end;