Автоматизированное рабочее место сотрудника пожарного контроля

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

GroupBox1: TGroupBox;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBComboBox1: TDBComboBox;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DataSource2: TDataSource;

ADOTable2: TADOTable;

DBEdit1: TDBEdit;

DataSource3: TDataSource;

ADOTable3: TADOTable;

DBMemo1: TDBMemo;

Button2: TButton;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

uses Unit11;

{$R *. dfm}

procedure TForm13. Button1Click (Sender: TObject);

begin

form13. Hide;

form11. show;

end;

procedure TForm13. FormShow (Sender: TObject);

begin

left: = (screen. Width-Width) div 2;

top: = (Screen. Height-Height) div 2;

end;

procedure TForm13. Button2Click (Sender: TObject);

var

id, id2: string;

begin

ADOTable1. Edit;

ADOTable1. Post;

ADOTable2. Edit;

ADOTable2. Post;

ADOTable3. Edit;

ADOTable3. Post;

form11. show;

form13. Hide;

form11. ADOTable1. Active: =false;

form11. ADOTable1. Active: =true;

end;

procedure TForm13. Button3Click (Sender: TObject);

begin

if ADOTable2. State = dsBrowse then // если табличка не в состоянии редактирования

begin

ADOTable2. Append; // добавляем новую пустую запись

ADOTable2. FieldByName ('Phone'). AsString: = Trim (DBEdit4. Text);

ADOTable2. FieldByName ('FIO_postradavshego'). AsString: = Trim (DBEdit2. Text);

ADOTable2. FieldByName ('Adres'). AsString: = Trim (DBEdit3. Text); // вносим значение в поле MyField (или как там у тебя)

ADOTable2. Post; // сохраняем изменения таблички

end;

if ADOTable3. State = dsBrowse then // если табличка не в состоянии редактирования

begin

ADOTable3. Append; // добавляем новую пустую запись

ADOTable3. FieldByName ('Data'). AsString: = Trim (DBEdit1. Text);

ADOTable3. FieldByName ('Posledstvie'). AsString: = Trim (DBMemo1. Text);

ADOTable3. Post; // сохраняем изменения таблички

end;

if ADOTable1. State = dsBrowse then // если табличка не в состоянии редактирования

begin

ADOTable1. FieldByName ('FIO_dispetcher'). AsString: = Trim (DBComboBox1. Text);

ADOTable1. Post; // сохраняем изменения таблички

end;

end;

end.

unit Unit14;

interface

uses

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

Dialogs, StdCtrls;

type

TForm14 = class (TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

uses Unit9;

{$R *. dfm}

procedure TForm14. Button1Click (Sender: TObject);

begin

if (edit1. text='admin') AND (edit2. Text='123') then begin

Form9. Show;

form14. Hide;

end;

end;

procedure TForm14. Button2Click (Sender: TObject);

begin

application. Terminate;

end;

end.

unit Unit15;

interface

uses

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

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

type

TForm15 = class (TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOTable1Id: TAutoIncField;

ADOTable1Id_Informaciy_o_vizovax: TWideStringField;

ADOTable1Id_brigadi: TWideStringField;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable1Field: TStringField;

ADOTable1Field2: TStringField;

DBGrid2: TDBGrid;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

uses Unit9;

{$R *. dfm}

procedure TForm15. Button1Click (Sender: TObject);

begin

form15. Hide;

form9. Show;

end;

end.

unit Unit18;

interface

uses

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

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

type

TForm18 = class (TForm)

Button2: TButton;

ADOTable1: TADOTable;

ADOTable1Tip_mashini: TWideStringField;

ADOTable1Id: TAutoIncField;

ADOTable1Nom_mashini2: TWideStringField;

ADOTable1Field: TStringField;

ADOConnection1: TADOConnection;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOTable3: TADOTable;

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form18: TForm18;

implementation

uses Unit7;

{$R *. dfm}

procedure TForm18. Button2Click (Sender: TObject);

begin

form18. Hide;

form7. show;

end;

end.

Размещено на Allbest.ru