Приложение ж Листинг файла FormDopol_infor

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormDopol_infor = class(TForm)

DBE_Code_Nomer: TDBEdit;

DBE_Forma_obych: TDBEdit;

DBE_Sakrit_sessii: TDBEdit;

DBE_Nalich_sadolg: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBL_Code_nomer: TDBLookupComboBox;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormDopol_infor: TFormDopol_infor;

implementation

uses Unit2, Unit1, Unit3;

{$R *.dfm}

procedure TFormDopol_infor.Button1Click(Sender: TObject);

begin

dm.ADODopol_infor.Filter:='[Форма обучения]='+QuotedStr(formDopol_infor.DBGrid1.Columns.Items[1].Field.Text);

dm.ADODopol_infor.Filtered:= true;

end;

procedure TFormDopol_infor.Button2Click(Sender: TObject);

begin

dm.ADODopol_infor.Filter:='[Наличие задолжностей]= '+QuotedStr(formDopol_infor.DBGrid1.Columns.Items[3].Field.Text);

dm.ADODopol_infor.Filtered:= true;

end;

procedure TFormDopol_infor.Button3Click(Sender: TObject);

begin

dm.ADODopol_infor.Filter:= '';

dm.ADODopol_infor.Filtered:= false;

end;

procedure TFormDopol_infor.Button4Click(Sender: TObject);

begin

FormDopol_infor.Close;

end;

end.

Приложение з Листинг файла FormPrepodavatel

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormPrepodavatel = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBE_Code_nomer: TDBEdit;

DBE_Family: TDBEdit;

DBE_Name: TDBEdit;

DBE_Otchestvo: TDBEdit;

DBE_Pol: TDBEdit;

DBE_Data_rogdenia: TDBEdit;

DBE_Kategoria: TDBEdit;

DBE_Stag: TDBEdit;

DBE_Data_trudoustroi: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormPrepodavatel: TFormPrepodavatel;

implementation

uses Unit2, Unit1, Unit3, Unit4;

{$R *.dfm}

procedure TFormPrepodavatel.Button1Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:='[Фамилия]='+QuotedStr(formPrepodavatel.DBGrid1.Columns.Items[1].Field.Text);

dm.ADOPrepodavatel.Filtered:= true;

end;

procedure TFormPrepodavatel.Button2Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:='[Пол]='+QuotedStr(formPrepodavatel.DBGrid1.Columns.Items[4].Field.Text);

dm.ADOPrepodavatel.Filtered:= true;

end;

procedure TFormPrepodavatel.Button3Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:='[Категория]='+QuotedStr(formPrepodavatel.DBGrid1.Columns.Items[7].Field.Text);

dm.ADOPrepodavatel.Filtered:= true;

end;

procedure TFormPrepodavatel.Button4Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:='[Стаж]='+QuotedStr(formPrepodavatel.DBGrid1.Columns.Items[8].Field.Text);

dm.ADOPrepodavatel.Filtered:= true;

end;

procedure TFormPrepodavatel.Button5Click(Sender: TObject);

begin

FormPrepodavatel.Close;

end;

procedure TFormPrepodavatel.Button6Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:= '';

dm.ADOPrepodavatel.Filtered:= false;

end;

end.