Interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, jpeg;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

Image1: tImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

Implementation

uses Unit6;

{$R *.dfm}

Кнопка «Поиск»:

procedure TForm3.Button1Click(Sender: TObject);

begin

if trim(Edit1.Text)='' then

begin

DataModule6.ADOTable2.Filtered:=false;

end

else begin

DataModule6.ADOTable2.Filter:='Фамилия='+chr(39)+trim(Edit1.Text)+chr(39);

DataModule6.ADOTable2.Filtered:=true;

end;

end;

Кнопка «Закрыть»:

procedure TForm3.Button2Click(Sender: TObject);

begin

close;

end;

end.

Таблица «Отчеты»:

unit Unit3;

Interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, jpeg;

type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

DBNavigator1: TDBNavigator;

Image1: tImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

Implementation

uses Unit6;

{$R *.dfm}

Кнопка «Поиск»:

procedure TForm4.Button1Click(Sender: TObject);

begin

if trim(Edit1.Text)='' then

begin

DataModule6.ADOTable3.Filtered:=false;

end

else begin

DataModule6.ADOTable3.Filter:='Наименование='+chr(39)+trim(Edit1.Text)+chr(39);

DataModule6.ADOTable3.Filtered:=true;

end;

end;

Кнопка «Закрыть»:

procedure TForm4.Button2Click(Sender: TObject);

begin

close;

end;

end.

Таблица «Планы на 2015 год»:

unit Unit4;

Interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, jpeg;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Image1: tImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

Implementation

uses Unit6;

{$R *.dfm}

Кнопка «Поиск»:

procedure TForm5.Button1Click(Sender: TObject);

begin

if trim(Edit1.Text)='' then

begin

DataModule6.ADOTable4.Filtered:=false;

end

else begin

DataModule6.ADOTable4.Filter:='Название_мероприятия='+chr(39)+trim(Edit1.Text)+chr(39);

DataModule6.ADOTable4.Filtered:=true;

end;

end;

Кнопка «Закрыть»:

procedure TForm5.Button2Click(Sender: TObject);

begin

close;

end;

end.

Таблица «Планы на 2015 год»:

unit Unit5;

Interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, jpeg;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

DBNavigator1: TDBNavigator;

Edit1: TEdit;