5. Приложение

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

img1: TImage;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit7, Unit8;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form7.show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form8.show;

end;

end.

unit Unit2;

Interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ComCtrls, TabNotBk, DBCtrls,

ExtCtrls, Menus;

type

TForm2 = class(TForm)

TabbedNotebook1: TTabbedNotebook;

DBGrid1: TDBGrid;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOConnection1: TADOConnection;

ADOTable1Nam: TWideStringField;

ADOTable1Oklad: TFloatField;

ADOTable3ID: TAutoIncField;

ADOTable3FIO: TWideStringField;

ADOTable3Org: TWideStringField;

ADOTable3INN: TWideStringField;

ADOTable3Addr_S: TWideStringField;

ADOTable3Addr_D: TIntegerField;

ADOTable3Addr_K: TIntegerField;

ADOTable3Tel: TWideStringField;

ADOTable3date_zakl: TDateTimeField;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

ADOTable3sotrud: TWideStringField;

ADOTable1ID: TAutoIncField;

ADOTable2ID: TAutoIncField;

ADOTable2FIO: TWideStringField;

ADOTable2Post_id: TIntegerField;

ADOTable2Acept_Dt: TDateTimeField;

ADOTable2Addr_S: TWideStringField;

ADOTable2Addr_D: TIntegerField;

ADOTable2Addr_K: TIntegerField;

ADOTable2Tel: TWideStringField;

ADOTable2Child: TIntegerField;

ADOTable2Post: TWideStringField;

ListBox1: TListBox;

Timer1: TTimer;

ListBox2: TListBox;

Timer2: TTimer;

ListBox3: TListBox;

ListBox4: TListBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button11: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button12: TButton;

Button13: TButton;

DataSource4: TDataSource;

ADOQuery1: TADOQuery;

Button14: TButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

ADOTable3Sotrud_id: TIntegerField;

btn2: TButton;

rb3: TRadioButton;

rb4: TRadioButton;

btn3: TButton;

edt1: TEdit;

btn4: TButton;

Button15: TButton;

Edit4: TEdit;

Button16: TButton;

ADOTable3Dog: TWideStringField;

Label5: TLabel;

Button1: TButton;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

procedure FormClick(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure ListBox3Click(Sender: TObject);

procedure DBGrid2CellClick(Column: TColumn);

procedure TabbedNotebook1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure DBGrid2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure DBGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure DBGrid3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure DBGrid3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure DBGrid1CellClick(Column: TColumn);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure rb1Click(Sender: TObject);

procedure rb2Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure rb3Click(Sender: TObject);

procedure rb4Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure DBGrid2DblClick(Sender: TObject);

procedure DBGrid3DblClick(Sender: TObject);

procedure DBGrid3ColEnter(Sender: TObject);

procedure edt1Change(Sender: TObject);

procedure Edit4Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;