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

Приложение А

Листинг программы

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

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;

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;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit6;

{$R *.dfm}

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

procedure TForm6.Button1Click(Sender: TObject);

begin

if trim(Edit1.Text)='' then

begin

DataModule6.ADOTable5.Filtered:=false;

end

else begin

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

DataModule6.ADOTable5.Filtered:=true;

end;

end;

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

procedure TForm6.Button2Click(Sender: TObject);

begin

close;

end;

end.

В 6 форме показан Data Module6:

unit Unit6;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule6 = class(TDataModule)

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

DataSource2: TDataSource;

DataSource3: TDataSource;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

DataSource4: TDataSource;

ADOTable5: TADOTable;

DataSource5: TDataSource;

ADOTable1AutoIncField: TAutoIncField;

ADOTable1WideStringField: TWideStringField;

ADOTable1_: TIntegerField;

ADOTable1_2: TIntegerField;

ADOTable1_3: TWideStringField;

ADOTable1Rukovoditel: TStringField;

ADOTable3AutoIncField: TAutoIncField;

ADOTable3WideStringField: TWideStringField;

ADOTable3_: TWideStringField;

ADOTable3IntegerField: TIntegerField;

ADOTable3_2: TWideStringField;

ADOTable3Otvet: TStringField;

ADOTable4AutoIncField: TAutoIncField;

ADOTable4_: TWideStringField;

ADOTable4_2: TWideStringField;

ADOTable4_3: TDateTimeField;

ADOTable4IntegerField: TIntegerField;

ADOTable4Otvet: TStringField;

ADOTable5AutoIncField: TAutoIncField;

ADOTable5WideStringField: TWideStringField;

ADOTable5_: TIntegerField;

ADOTable5Mesto: TStringField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule6: TDataModule6;

implementation

uses Unit1;

{$R *.dfm}

end.

Запрос «По должности»:

unit Unit7;

interface

uses

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

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

type

TForm7 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

Edit1: TEdit;

Button1: TButton;

Image1: TImage;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit1;

{$R *.dfm}

Кнопка «Выполнить»:

procedure TForm7.Button1Click(Sender: TObject);

begin

// Закрыть запрос

ADOQuery1.Close;

// Считать из поля ввода значение параметра

// под названием param

ADOQuery1.Parameters.ParamByName('name').Value:=

Edit1.Text;

try

// Выполнить запрос

ADOQuery1.Open;

// Обработать возможные ошибки

// при выполнении запроса

except

application.MessageBox('Не могу выполнить запрос','Ошибка',MB_OK);

end;

end;

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

procedure TForm7.Button2Click(Sender: TObject);

begin

close;

end;

end.

Запрос «По кружкам»:

unit Unit8;

interface

uses

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

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

type

TForm8 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Edit1: TEdit;

Button1: TButton;

Image1: TImage;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1;

{$R *.dfm}

Кнопка «Выполнить»:

procedure TForm8.Button1Click(Sender: TObject);

begin

// Закрыть запрос

ADOQuery1.Close;

// Считать из поля ввода значение параметра

// под названием param

ADOQuery1.Parameters.ParamByName('name').Value:=

Edit1.Text;

try

// Выполнить запрос

ADOQuery1.Open;

// Обработать возможные ошибки

// при выполнении запроса

except

application.MessageBox('Не могу выполнить запрос','Ошибка',MB_OK);

end;

end;

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

procedure TForm8.Button2Click(Sender: TObject);

begin

close;

end;

end.

Запрос «По планам на 2015 год»:

unit Unit9;

interface

uses

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

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

type

TForm9 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Edit1: TEdit;

Button1: TButton;

Image1: TImage;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit1;

{$R *.dfm}

Кнопка «Выполнить»:

procedure TForm9.Button1Click(Sender: TObject);

begin

// Закрыть запрос

ADOQuery1.Close;

// Считать из поля ввода значение параметра

// под названием param

ADOQuery1.Parameters.ParamByName('name').Value:=

Edit1.Text;

try

// Выполнить запрос

ADOQuery1.Open;

// Обработать возможные ошибки

// при выполнении запроса

except

application.MessageBox('Не могу выполнить запрос','Ошибка',MB_OK);

end;

end;

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

procedure TForm9.Button2Click(Sender: TObject);

begin

close;

end;

end.

Запрос «По отчетам»:

unit Unit10;

interface

uses

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

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

type

TForm10 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Edit1: TEdit;

Button1: TButton;

Image1: TImage;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit1;

{$R *.dfm}

Кнопка «Выполнить»:

procedure TForm10.Button1Click(Sender: TObject);

begin

// Закрыть запрос

ADOQuery1.Close;

// Считать из поля ввода значение параметра

// под названием param

ADOQuery1.Parameters.ParamByName('name').Value:=

Edit1.Text;

try

// Выполнить запрос

ADOQuery1.Open;

// Обработать возможные ошибки

// при выполнении запроса

except

application.MessageBox('Не могу выполнить запрос','Ошибка',MB_OK);

end;

end;

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

procedure TForm10.Button2Click(Sender: TObject);

begin

close;

end;

end.

Запрос «По фамилиям сотрудников»:

unit Unit11;

interface

uses

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

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

type

TForm11 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Edit1: TEdit;

Button1: TButton;

Image1: TImage;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit1;

{$R *.dfm}

Кнопка «Выполнить»:

procedure TForm11.Button1Click(Sender: TObject);

begin

// Закрыть запрос

ADOQuery1.Close;

// Считать из поля ввода значение параметра

// под названием param

ADOQuery1.Parameters.ParamByName('name').Value:=

Edit1.Text;

try

// Выполнить запрос

ADOQuery1.Open;

// Обработать возможные ошибки

// при выполнении запроса

except

application.MessageBox('Не могу выполнить запрос','Ошибка',MB_OK);

end;

end;

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

procedure TForm11.Button2Click(Sender: TObject);

begin

close;

end;

end.

Дата добавления: 2015-09-29