Форма „бд Передплатник”

unit FRMRayer;

interface

uses

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

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

StdCtrls, Buttons;

type

TForm2 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Memo1: TMemo;

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

CheckBox1: TCheckBox;

procedure N2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses ModalnaFRM;

{$R *.dfm}

procedure TForm2.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

DataModule1.Query1.Close;

DataModule1.Query1.SQL.Clear;

DataModule1.Query1.SQL.Add(Memo1.Text);

DataModule1.Query1.Open;

form7.Show;

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked then begin

DataModule1.Table1.Filter:=('IK='+Edit1.Text);

DataModule1.Table1.Filtered:=true;end

else

DataModule1.Table1.Filtered:=false;

end;

end.

Форма „бд Об’єкт передплати”

unit FRMObject;

interface

uses

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

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

Buttons;

type

TForm3 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

RadioGroup1: TRadioGroup;

LabeledEdit1: TLabeledEdit;

Button1: TButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

LabeledEdit2: TLabeledEdit;

CheckBox1: TCheckBox;

procedure N2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses ModalnaFRM;

{$R *.dfm}

procedure TForm3.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked then

DataModule1.Table2.Locate('SH',LabeledEdit1.Text,[]);

if RadioButton2.Checked then

DataModule1.Table2.Locate('KS',LabeledEdit1.Text,[]);

if RadioButton3.Checked then

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

if RadioButton4.Checked then

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

end;

procedure TForm3.CheckBox1Click(Sender: TObject);

begin

if RadioButton1.Checked then

if CheckBox1.Checked then begin

DataModule1.Table2.Filter:=('SH='+LabeledEdit2.Text);

DataModule1.Table2.Filtered:=true;end

else

DataModule1.Table2.Filtered:=false;

if RadioButton2.Checked then

if CheckBox1.Checked then begin

DataModule1.Table2.Filter:=('KS='+LabeledEdit2.Text);

DataModule1.Table2.Filtered:=true;end

else

DataModule1.Table2.Filtered:=false;

end;

end.