Форма „бд Банк”

unit FRMBank;

interface

uses

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

Dialogs, DBCtrls, Grids, DBGrids, Menus, ExtCtrls, MainMDL, StdCtrls;

type

TForm6 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

LabeledEdit1: TLabeledEdit;

Button1: TButton;

LabeledEdit2: TLabeledEdit;

CheckBox1: TCheckBox;

procedure N2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked then

DataModule1.Table5.Locate('KB',LabeledEdit1.Text,[]);

if RadioButton2.Checked then

DataModule1.Table5.Locate('NB',LabeledEdit1.Text,[]);

if RadioButton3.Checked then

DataModule1.Table5.Locate('TB',LabeledEdit1.Text,[]);

if RadioButton4.Checked then

DataModule1.Table5.Locate('AB',LabeledEdit1.Text,[]);

end;

procedure TForm6.CheckBox1Click(Sender: TObject);

begin

if RadioButton1.Checked then

if CheckBox1.Checked then begin

DataModule1.Table5.Filter:=('KB='+LabeledEdit2.Text);

DataModule1.Table5.Filtered:=true;end

else

DataModule1.Table5.Filtered:=false;

if RadioButton3.Checked then

if CheckBox1.Checked then begin

DataModule1.Table5.Filter:=('TB='+LabeledEdit2.Text);

DataModule1.Table5.Filtered:=true;end

else

DataModule1.Table5.Filtered:=false;

end;

end.

Форма у модальному режимі, яка викликається при формуванні запиту

unit ModalnaFRM;

interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, FRMRayer, FRMObject, FRMPost, FRMOrder,

MainMDL, FRMBank;

type

TForm7 = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

end.

Форма, яка реалізує зв’язок багато до багатьох

unit NM;

interface

uses

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

Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids, ExtCtrls, FRMPost, MainMDL,

DBCtrls;

type

TForm8 = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Button1: TButton;

Button2: TButton;

Table1: TTable;

DataSource1: TDataSource;

Query1: TQuery;

Table2: TTable;

DataSource2: TDataSource;

Panel2: TPanel;

DBNavigator1: TDBNavigator;

Panel3: TPanel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

Form8.Query1.Close;

Form8.Query1.SQL.Clear;

Form8.Query1.SQL.Add('INSERT INTO BankPost VALUES("'+Form8.Table1.fieldbyname('NB').AsString+'","'+DataModule1.Table3.fieldbyname('ID').AsString+'")');

Form8.Query1.ExecSQl;

Form8.Table2.Refresh;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

dbnavigator1.BtnClick(nbdelete);

end;

end.