Форма „бд Поштове відділення”

unit FRMPost;

interface

uses

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

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

type

TForm4 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

Button1: TButton;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

CheckBox1: TCheckBox;

procedure N2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure DBGrid1EditButtonClick(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses NM;

{$R *.dfm}

procedure TForm4.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked then

DataModule1.Table3.Locate('NV',LabeledEdit1.Text,[]);

if RadioButton2.Checked then

DataModule1.Table3.Locate('TV',LabeledEdit1.Text,[]);

if RadioButton3.Checked then

DataModule1.Table3.Locate('ID',LabeledEdit1.Text,[]);

if RadioButton4.Checked then

DataModule1.Table3.Locate('ND',LabeledEdit1.Text,[]);

if RadioButton5.Checked then

DataModule1.Table3.Locate('AV',LabeledEdit1.Text,[]);

end;

procedure TForm4.DBGrid1EditButtonClick(Sender: TObject);

begin

form8.Show;

end;

procedure TForm4.CheckBox1Click(Sender: TObject);

begin

if RadioButton1.Checked then

if CheckBox1.Checked then begin

DataModule1.Table3.Filter:=('NV='+LabeledEdit2.Text);

DataModule1.Table3.Filtered:=true;end

else

DataModule1.Table3.Filtered:=false;

if RadioButton2.Checked then

if CheckBox1.Checked then begin

DataModule1.Table3.Filter:=('TV='+LabeledEdit2.Text);

DataModule1.Table3.Filtered:=true;end

else

DataModule1.Table3.Filtered:=false;

if RadioButton3.Checked then

if CheckBox1.Checked then begin

DataModule1.Table3.Filter:=('ID='+LabeledEdit2.Text);

DataModule1.Table3.Filtered:=true;end

else

DataModule1.Table3.Filtered:=false;

end;

end.

Форма „бд Замовлення”

unit FRMOrder;

interface

uses

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

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

type

TForm5 = 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;

RadioButton5: TRadioButton;

LabeledEdit1: TLabeledEdit;

Button1: TButton;

CheckBox1: TCheckBox;

LabeledEdit2: TLabeledEdit;

procedure N2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked then

DataModule1.Table4.Locate('NZ',LabeledEdit1.Text,[]);

if RadioButton2.Checked then

DataModule1.Table4.Locate('DZ',LabeledEdit1.Text,[]);

if RadioButton3.Checked then

DataModule1.Table4.Locate('KN',LabeledEdit1.Text,[]);

if RadioButton4.Checked then

DataModule1.Table4.Locate('VR1',LabeledEdit1.Text,[]);

if RadioButton5.Checked then

DataModule1.Table4.Locate('SUMM',LabeledEdit1.Text,[]);

end;

procedure TForm5.CheckBox1Click(Sender: TObject);

begin

if RadioButton1.Checked then

if CheckBox1.Checked then begin

DataModule1.Table4.Filter:=('NZ='+LabeledEdit2.Text);

DataModule1.Table4.Filtered:=true;end

else

DataModule1.Table4.Filtered:=false;

if RadioButton3.Checked then

if CheckBox1.Checked then begin

DataModule1.Table4.Filter:=('KN='+LabeledEdit2.Text);

DataModule1.Table4.Filtered:=true;end

else

DataModule1.Table4.Filtered:=false;

if RadioButton4.Checked then

if CheckBox1.Checked then begin

DataModule1.Table4.Filter:=('VR1='+LabeledEdit2.Text);

DataModule1.Table4.Filtered:=true;end

else

DataModule1.Table4.Filtered:=false;

end;

end.