Приложение а Листинг программы

Главная форма:

unit Unit1;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Menus, ExtCtrls, DBCtrls, jpeg;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N20151: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

Button3: TButton;

Image1: TImage;

N10: TMenuItem;

N11: TMenuItem;

N20152: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N20151Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N20152Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit6, Unit5, Unit2, Unit4, Unit3, Unit7, Unit10, Unit8, Unit9, Unit11;

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

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

procedure TForm1.Button2Click(Sender: TObject);

begin

if trim(Edit1.Text)='' then

begin

DataModule6.ADOTable1.Filtered:=false;

end

else begin

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

DataModule6.ADOTable1.Filtered:=true;

end;

end;

Кнопка «Поиск по времени проведения»:

procedure TForm1.Button3Click(Sender: TObject);

begin

if trim(Edit1.Text)='' then

begin

DataModule6.ADOTable1.Filtered:=false;

end

else begin

DataModule6.ADOTable1.Filter:='Время_проведения ='+chr(39)+trim(Edit1.Text)+chr(39);

DataModule6.ADOTable1.Filtered:=true;

end;

end;

Кнопка в Main Menu «Запросы/ По должности»:

procedure TForm1.N10Click(Sender: TObject);

begin

Form7 := TForm7.Create(self);

Form1.Hide;

Form7.ShowModal;

Form1.Show;

end;

Кнопка в Main Menu «Запросы/ По кружкам»:

procedure TForm1.N11Click(Sender: TObject);

begin

Form8 := TForm8.Create(self);

Form1.Hide;

Form8.ShowModal;

Form1.Show;

end;

Кнопка в Main Menu «Запросы/ По планам на 2015 год»:

procedure TForm1.N12Click(Sender: TObject);

begin

Form10 := TForm10.Create(self);

Form1.Hide;

Form10.ShowModal;

Form1.Show;

end;

Кнопка в Main Menu «Запросы/ По отчетам»:

procedure TForm1.N13Click(Sender: TObject);

begin

Form11 := TForm11.Create(self);

Form1.Hide;

Form11.ShowModal;

Form1.Show;

end;

Кнопка в Main Menu «Таблицы/ По планы на 2015 год»:

procedure TForm1.N20151Click(Sender: TObject);

begin

Form5 := TForm5.Create(self);

Form1.Hide;

Form5.ShowModal;

Form1.Show;

end;

Кнопка в Main Menu «Запросы/ По кружкам»:

procedure TForm1.N20152Click(Sender: TObject);

begin

Form9 := TForm9.Create(self);

Form1.Hide;

Form9.ShowModal;

Form1.Show;

end;

Кнопка в Main Menu «Файл/ Выход»:

procedure TForm1.N2Click(Sender: TObject);

begin

close;

end;

Кнопка в Main Menu «Таблицы/ Личная карточка»:

procedure TForm1.N5Click(Sender: TObject);

begin

Form3 := TForm3.Create(self);

Form1.Hide;

Form3.ShowModal;

Form1.Show;

end;

Кнопка в Main Menu «Таблицы/ Отчеты»:

procedure TForm1.N6Click(Sender: TObject);

begin

Form4 := TForm4.Create(self);

Form1.Hide;

Form4.ShowModal;

Form1.Show;

end;

Кнопка в Main Menu «Таблицы/ Приказы»:

procedure TForm1.N7Click(Sender: TObject);

begin

Form6 := TForm6.Create(self);

Form1.Hide;

Form6.ShowModal;

Form1.Show;

end;

end.

Таблица «Личная карточка»:

unit Unit2;