ИСХОДНЫЙ КОД ПРИЛОЖЕНИЯ

unit Unit2; \\ Главное окно программы

interface

uses

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

Dialogs, Menus, StdCtrls, jpeg, ExtCtrls, XPMan, Sockets, ScktComp;

type

TForm2 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N631: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

N29: TMenuItem;

XPManifest1: TXPManifest;

log: TMemo;

ss: TServerSocket;

cs: TClientSocket;

te: TTimer;

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N631Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N27Click(Sender: TObject);

procedure N28Click(Sender: TObject);

procedure N29Click(Sender: TObject);

procedure N34Click(Sender: TObject);

procedure N30Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure ssClientConnect(Sender: TObject; Socket: TCustomWinSocket);

procedure ssClientRead(Sender: TObject; Socket: TCustomWinSocket);

procedure ssClientDisconnect(Sender: TObject;

Socket: TCustomWinSocket);

procedure csError(Sender: TObject; Socket: TCustomWinSocket;

ErrorEvent: TErrorEvent; var ErrorCode: Integer);

procedure csConnect(Sender: TObject; Socket: TCustomWinSocket);

procedure csDisconnect(Sender: TObject; Socket: TCustomWinSocket);

procedure teTimer(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

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

Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Unit20,

Unit21, Unit22, Unit23, Unit24, Unit25, Unit34, Unit36;

{$R *.dfm}

procedure TForm2.N9Click(Sender: TObject);

begin

Form3.Show;

Form2.Hide;

end;

procedure TForm2.N10Click(Sender: TObject);

begin

Form4.Show;

Form2.Hide;

end;

procedure TForm2.N11Click(Sender: TObject);

begin

Form5.Show;

Form2.Hide;

end;

procedure TForm2.N631Click(Sender: TObject);

begin

Form6.Show;

Form2.Hide;

end;

procedure TForm2.N12Click(Sender: TObject);

begin

Form8.Show;

Form2.Hide;

end;

procedure TForm2.N13Click(Sender: TObject);

begin

Form9.Show;

Form2.Hide;

end;

procedure TForm2.N14Click(Sender: TObject);

begin

Form7.Show;

Form2.Hide;

end;

procedure TForm2.N15Click(Sender: TObject);

begin

Form10.Show;

Form2.Hide;

end;

procedure TForm2.N17Click(Sender: TObject);

begin

Form11.Show;

Form2.Hide;

end;

procedure TForm2.N8Click(Sender: TObject);

begin

Close;

end;

procedure TForm2.N18Click(Sender: TObject);

begin

Form12.Show;

Form2.Hide;

end;

procedure TForm2.N19Click(Sender: TObject);

begin

Form13.Show;

Form2.Hide;

end;

procedure TForm2.N20Click(Sender: TObject);

begin

Form14.Show;

Form2.Hide;

end;

procedure TForm2.N21Click(Sender: TObject);

begin

Form15.Show;

Form2.Hide;

end;

procedure TForm2.N22Click(Sender: TObject);

begin

Form16.Show;

Form2.Hide;

end;

procedure TForm2.N23Click(Sender: TObject);

begin

Form17.Show;

Form2.Hide;

end;

procedure TForm2.N24Click(Sender: TObject);

begin

Form18.Show;

Form2.Hide;

end;

procedure TForm2.N25Click(Sender: TObject);

begin

Form19.Show;

Form2.Hide;

end;

procedure TForm2.N26Click(Sender: TObject);

begin

Form20.Show;

Form2.Hide;

end;

procedure TForm2.N27Click(Sender: TObject);

begin

Form21.Show;

Form2.Hide;

end;

procedure TForm2.N28Click(Sender: TObject);

begin

Form22.Show;

Form2.Hide;

end;

procedure TForm2.N29Click(Sender: TObject);

begin

Form23.Show;

Form2.Hide;

end;

procedure TForm2.N34Click(Sender: TObject);

begin

Form24.Show;

Form2.Hide;

end;

procedure TForm2.N30Click(Sender: TObject);

begin

Form25.Show;

Form2.Hide;

end;

procedure TForm2.N7Click(Sender: TObject);

begin

Form24.Show;

Form2.Hide;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

Form34.Show;

Form2.Hide;

end;

unit Unit3; // Окно сотрудники Автотранспортного цеха

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, DB, ADODB, Buttons,

XPMan;

type

TForm3 = class(TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Label1: TLabel;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

BitBtn2: TBitBtn;

BitBtn4: TBitBtn;

BitBtn3: TBitBtn;

GroupBox1: TGroupBox;

DBGrid2: TDBGrid;

BitBtn5: TBitBtn;

Memo1: TMemo;

ADOQuery1: TADOQuery;

DataSource2: TDataSource;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure DataSource2DataChange(Sender: TObject; Field: TField);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2, Unit25, Unit13;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form3.Hide;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Добавить новую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form3.ADOTable1.Insert();

Form25.ShowModal;

end;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form3.ADOTable1.Edit();

Form3.ADOTable1.Post();

end;

end;

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form3.ADOTable1.Delete;

end;

procedure TForm3.BitBtn5Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('SELECT * FROM Автотранспортный_цех WHERE Табельный_номер > 5000');

end;

procedure TForm3.DataSource2DataChange(Sender: TObject; Field: TField);

begin

end;

end.

unit Unit4; // Окно сотрудники отдела БТД

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons,

XPMan;

type

TForm4 = class(TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Label1: TLabel;

Label2: TLabel;

XPManifest1: TXPManifest;

GroupBox1: TGroupBox;

Memo1: TMemo;

BitBtn5: TBitBtn;

DBGrid2: TDBGrid;

ADOQuery1: TADOQuery;

DataSource2: TDataSource;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1_: TIntegerField;

ADOTable1_2: TIntegerField;

ADOTable1DSDesigner2: TWideStringField;

ADOTable1DSDesigner3: TWideStringField;

ADOTable1_3: TDateTimeField;

ADOTable1DSDesigner4: TWideStringField;

ADOTable1DSDesigner5: TWideStringField;

ADOTable1DSDesigner6: TWideStringField;

ADOTable1DSDesigner7: TWideStringField;

ADOTable1DSDesigner8: TBooleanField;

BitBtn6: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2, Unit27, Unit35;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form4.Hide;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Добавить новую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form4.ADOTable1.Insert();

Form27.ShowModal;

end;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form4.ADOTable1.Edit();

Form4.ADOTable1.Post();

end;

end;

procedure TForm4.BitBtn4Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form4.ADOTable1.Delete;

end;

procedure TForm4.BitBtn5Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('SELECT * FROM БТД WHERE Табельный_номер <2500');

end;

procedure TForm4.BitBtn6Click(Sender: TObject);

begin

Form35.QuickRep1.Preview;

end;

end.

unit Unit5; // Окно сотрудники Бухгалтерии

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

XPMan;

type

TForm5 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Label1: TLabel;

Label2: TLabel;

XPManifest1: TXPManifest;

DataSource2: TDataSource;

ADOQuery1: TADOQuery;

GroupBox1: TGroupBox;

Memo1: TMemo;

BitBtn5: TBitBtn;

DBGrid2: TDBGrid;

BitBtn6: TBitBtn;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1_: TIntegerField;

ADOTable1_2: TIntegerField;

ADOTable1DSDesigner2: TWideStringField;

ADOTable1DSDesigner3: TWideStringField;

ADOTable1_3: TDateTimeField;

ADOTable1DSDesigner4: TWideStringField;

ADOTable1DSDesigner5: TWideStringField;

ADOTable1DSDesigner6: TWideStringField;

ADOTable1DSDesigner7: TWideStringField;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit2, Unit28, Unit34;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form5.Hide;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Добавить новую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form5.ADOTable1.Insert();

Form28.ShowModal;

end;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form5.ADOTable1.Edit();

Form5.ADOTable1.Post();

end;

end;

procedure TForm5.BitBtn4Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form5.ADOTable1.Delete;

end;

procedure TForm5.BitBtn5Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('SELECT * FROM Бухгалтерия WHERE Табельный_номер <2500');

end;

procedure TForm5.BitBtn6Click(Sender: TObject);

begin

Form34.QuickRep1.Preview;

end;

end.

unit Unit6; // Окно сотрудники Детский сад (ясли) №63

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

XPMan;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

GroupBox1: TGroupBox;

Memo1: TMemo;

BitBtn5: TBitBtn;

DBGrid2: TDBGrid;

ADOQuery1: TADOQuery;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

DataSource2: TDataSource;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2, Unit29;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form6.Hide;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Добавить новую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form6.ADOTable1.Insert();

Form29.ShowModal;

end;

end;

procedure TForm6.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form6.ADOTable1.Edit();

Form6.ADOTable1.Post();

end;

end;

procedure TForm6.BitBtn4Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form6.ADOTable1.Delete;

end;

procedure TForm6.BitBtn5Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('SELECT*FROM Дет_сад_ясли_№63 WHERE Код>=7');

end;

end.

unit Unit7; // Окно сотрудники Кузнечносварочного цеха

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons,

XPMan;

type

TForm7 = class(TForm)

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

GroupBox1: TGroupBox;

Memo1: TMemo;

BitBtn2: TBitBtn;

DBGrid2: TDBGrid;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

XPManifest1: TXPManifest;

DataSource2: TDataSource;

ADOQuery1: TADOQuery;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit2, Unit33;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form7.Hide;

end;

procedure TForm7.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Добавить новую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form7.ADOTable1.Insert();

Form33.ShowModal;

end;

end;

procedure TForm7.BitBtn4Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form7.ADOTable1.Edit();

Form7.ADOTable1.Post();

end;

end;

procedure TForm7.BitBtn5Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form7.ADOTable1.Delete;

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('SELECT*FROM Кузнечносварочный WHERE код BETWEEN 5 AND 10');

end;

end.

unit Unit8; // Окно сотрудники ИВЦ

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

XPMan;

type

TForm8 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Label1: TLabel;

Label2: TLabel;

GroupBox1: TGroupBox;

Memo1: TMemo;

BitBtn5: TBitBtn;

DBGrid2: TDBGrid;

ADOQuery1: TADOQuery;

XPManifest1: TXPManifest;

DataSource2: TDataSource;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure DataSource1DataChange(Sender: TObject; Field: TField);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit2, Unit29, Unit30;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form8.Hide;

end;

procedure TForm8.BitBtn5Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('SELECT*FROM ИВЦ WHERE Код NOT IN (2,4)');

end;

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Добавить новую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form8.ADOTable1.Insert();

Form30.ShowModal;

end;

end;

procedure TForm8.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form8.ADOTable1.Edit();

Form8.ADOTable1.Post();

end;

end;

procedure TForm8.BitBtn4Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form8.ADOTable1.Delete;

end;

end.

unit Unit9; // Окно сотрудники инструментального цеха

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

XPMan;

type

TForm9 = class(TForm)

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

GroupBox1: TGroupBox;

Memo1: TMemo;

BitBtn5: TBitBtn;

DBGrid2: TDBGrid;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1: TADOTable;

DataSource2: TDataSource;

ADOQuery1: TADOQuery;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit2, Unit31;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form9.Hide;

end;

procedure TForm9.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Добавить новую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form9.ADOTable1.Insert();

Form31.ShowModal;

end;

end;

procedure TForm9.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form9.ADOTable1.Edit();

Form9.ADOTable1.Post();

end;

end;

procedure TForm9.BitBtn4Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form9.ADOTable1.Delete;

end;

procedure TForm9.BitBtn5Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('SELECT*FROM Модельный_участок WHERE код BETWEEN 5 AND 10');

end;

end.

unit Unit10; // Окно сотрудники модельного участка

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

XPMan;

type

TForm10 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

XPManifest1: TXPManifest;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form10.Hide;

end;

procedure TForm10.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form10.ADOTable1.Edit();

Form10.ADOTable1.Post();

end;

end;

procedure TForm10.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form10.ADOTable1.Delete;

end;

procedure TForm10.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit11; // Окно сотрудники механотокарного цеха

interface

uses

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

Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, StdCtrls, Buttons,

XPMan;

type

TForm11 = class(TForm)

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form11.Hide;

end;

procedure TForm11.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form11.ADOTable1.Edit();

Form11.ADOTable1.Post();

end;

end;

procedure TForm11.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form11.ADOTable1.Delete;

end;

end.

unit Unit12; // Окно сотрудники общего отдела

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;

type

TForm12 = class(TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label2: TLabel;

Label1: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form12.Hide;

end;

procedure TForm12.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form12.ADOTable1.Edit();

Form12.ADOTable1.Post();

end;

end;

procedure TForm12.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form12.ADOTable1.Delete;

end;

end.

unit Unit13; // Окно сотрудники ОТК

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

XPMan;

type

TForm13 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

BitBtn1: TBitBtn;

ADOQuery1: TADOQuery;

Label1: TLabel;

Label2: TLabel;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

XPManifest1: TXPManifest;

GroupBox1: TGroupBox;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

Button2: TButton;

Memo1: TMemo;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1_: TIntegerField;

ADOTable1_2: TIntegerField;

ADOTable1DSDesigner2: TWideStringField;

ADOTable1DSDesigner3: TWideStringField;

ADOTable1_3: TDateTimeField;

ADOTable1DSDesigner4: TWideStringField;

ADOTable1DSDesigner5: TWideStringField;

ADOTable1DSDesigner6: TWideStringField;

ADOTable1DSDesigner7: TWideStringField;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

uses Unit2, Unit26;

{$R *.dfm}

procedure TForm13.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form13.Hide;

end;

procedure TForm13.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Добавить новую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form13.ADOTable1.Insert();

Form26.ShowModal;

end;

end;

procedure TForm13.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form13.ADOTable1.Edit();

Form13.ADOTable1.Post();

end;

end;

procedure TForm13.BitBtn4Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form13.ADOTable1.Delete;

end;

procedure TForm13.Button2Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('SELECT * FROM ОТК WHERE Табельный_номер = 5490');

end;

end.

unit Unit14; // Окно сотрудники ремонтно-механического участка

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

XPMan;

type

TForm14 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm14.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form14.Hide;

end;

procedure TForm14.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form14.ADOTable1.Edit();

Form14.ADOTable1.Post();

end;

end;

procedure TForm14.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form14.ADOTable1.Delete;

end;

end.

unit Unit15; // Окно сотрудники ремонтно-сборочного цеха

interface

uses

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

Dialogs, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ADODB, StdCtrls, Buttons,

XPMan;

type

TForm15 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm15.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form15.Hide;

end;

procedure TForm15.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form15.ADOTable1.Edit();

Form15.ADOTable1.Post();

end;

end;

procedure TForm15.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form15.ADOTable1.Delete;

end;

end.

unit Unit16; // Окно Руководство

interface

uses

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

Dialogs, XPMan, StdCtrls, Buttons, ComCtrls, jpeg, ExtCtrls;

type

TForm16 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Label1: TLabel;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

TabSheet2: TTabSheet;

Image1: TImage;

Label2: TLabel;

Label3: TLabel;

Image2: TImage;

Label4: TLabel;

Label5: TLabel;

TabSheet3: TTabSheet;

Image3: TImage;

Label6: TLabel;

Label7: TLabel;

TabSheet4: TTabSheet;

Image4: TImage;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

TabSheet5: TTabSheet;

Image5: TImage;

Label11: TLabel;

Label12: TLabel;

TabSheet6: TTabSheet;

Image6: TImage;

Label13: TLabel;

Label14: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form16: TForm16;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm16.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form16.Hide;

end;

end.

unit Unit17; // Окно сотрудники складского хозяйства

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons,

XPMan;

type

TForm17 = class(TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form17: TForm17;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm17.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form17.Hide;

end;

procedure TForm17.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form17.ADOTable1.Edit();

Form17.ADOTable1.Post();

end;

end;

procedure TForm17.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form17.ADOTable1.Delete;

end;

end.

unit Unit18; // Окно сотрудники службы механики

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

XPMan;

type

TForm18 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form18: TForm18;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm18.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form18.Hide;

end;

procedure TForm18.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form18.ADOTable1.Edit();

Form18.ADOTable1.Post();

end;

end;

procedure TForm18.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form18.ADOTable1.Delete;

end;

end.

unit Unit19; // Окно сотрудники сталелитейного участка

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons,

XPMan;

type

TForm19 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form19: TForm19;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm19.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form19.Hide;

end;

procedure TForm19.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form19.ADOTable1.Edit();

Form19.ADOTable1.Post();

end;

end;

procedure TForm19.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form19.ADOTable1.Delete;

end;

end.

unit Unit20; // Окно сотрудники столовой

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,

XPMan;

type

TForm20 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label1: TLabel;

Label2: TLabel;

XPManifest1: TXPManifest;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form20: TForm20;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm20.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form20.Hide;

end;

procedure TForm20.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form20.ADOTable1.Delete;

end;

procedure TForm20.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form20.ADOTable1.Edit();

Form20.ADOTable1.Post();

end;

end;

end.

unit Unit21; // Окно сотрудники участка ТНП

interface

uses

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

Dialogs, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ADODB, StdCtrls, Buttons,

XPMan;

type

TForm21 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form21: TForm21;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm21.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form21.Hide;

end;

procedure TForm21.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form21.ADOTable1.Edit();

Form21.ADOTable1.Post();

end;

end;

procedure TForm21.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form21.ADOTable1.Delete;

end;

end.

unit Unit22; // Окно сотрудники чугунолитейного участка

interface

uses

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

Dialogs, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ADODB, StdCtrls, Buttons,

XPMan;

type

TForm22 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form22: TForm22;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm22.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form22.Hide;

end;

procedure TForm22.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form22.ADOTable1.Edit();

Form22.ADOTable1.Post();

end;

end;

procedure TForm22.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form22.ADOTable1.Delete;

end;

end.

unit Unit23; // Окно сотрудники энергосилового цеха

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons,

XPMan;

type

TForm23 = class(TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form23: TForm23;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm23.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form23.Hide;

end;

procedure TForm23.BitBtn2Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form23.ADOTable1.Edit();

Form23.ADOTable1.Post();

end;

end;

procedure TForm23.BitBtn3Click(Sender: TObject);

begin

if MessageDlg('Удалить текущую запись?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

Form23.ADOTable1.Delete;

end;

end.

unit Unit24; // Окно об авторе

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, XPMan;

type

TForm24 = class(TForm)

Image1: TImage;

Image2: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

XPManifest1: TXPManifest;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form24: TForm24;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm24.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form24.Hide;

end;

end.

unit Unit25; // Окно добавление записи

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, XPMan, Buttons;

type

TForm25 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

XPManifest1: TXPManifest;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form25: TForm25;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm25.BitBtn1Click(Sender: TObject);

begin

if MessageDlg('Сохранить измененя?'

,mtConfirmation,[mbYes, mbNo],0) = idYes

then

begin

Form3.ADOTable1.Edit();

Form3.ADOTable1.Post();

end;

end;

procedure TForm25.BitBtn2Click(Sender: TObject);

begin

Close;

end;

end.

unit Unit34; // Окно отчета

interface

uses

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

Dialogs, DB, ADODB, QuickRpt, ExtCtrls, StdCtrls, Buttons, QRCtrls;

type

TForm34 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

ADOTable1: TADOTable;

BitBtn1: TBitBtn;

QRLabel1: TQRLabel;

QRBand2: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

QRDBText8: TQRDBText;

QRDBText9: TQRDBText;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form34: TForm34;

implementation

uses Unit5;

{$R *.dfm}

procedure TForm34.BitBtn1Click(Sender: TObject);

begin

Form5.Show;

Form34.Hide;

end;

end.

unit Unit35; // Окно отчета

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, ADODB, ExtCtrls, QuickRpt, QRCtrls, XPMan;

type

TForm35 = class(TForm)

QuickRep1: TQuickRep;

ADOTable1: TADOTable;

BitBtn1: TBitBtn;

QRBand1: TQRBand;

QRLabel1: TQRLabel;

QRBand2: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form35: TForm35;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm35.BitBtn1Click(Sender: TObject);

begin

Form4.Show;

Form35.Hide;

end;

end.

unit Unit36; // Окно диаграммы

interface

uses

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

Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Buttons, DbChart,

XPMan, ComCtrls, DB, ADODB, Series, Grids, DBGrids;

type

TForm36 = class(TForm)

BitBtn1: TBitBtn;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

XPManifest1: TXPManifest;

Label1: TLabel;

TabSheet2: TTabSheet;

DBChart2: TDBChart;

Series1: TBarSeries;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

DBGrid2: TDBGrid;

DBChart1: TDBChart;

Series2: TPieSeries;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form36: TForm36;

implementation

uses Unit2, Unit13;

{$R *.dfm}

procedure TForm36.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

Form36.Hide;

end;

procedure TForm36.BitBtn2Click(Sender: TObject);

begin

Form13.Show;

Form36.Hide;

end;

end.

Поиск по сайту: