Реферат Автоматизоване робоче місце співробітника пожежного контролю

creen. Width-Width) div 2;: = (Screen. Height-Height) div 2;; TForm13. Button2Click (Sender: TObject);, id2: string;. Edit;. Post;. Edit;. Post;. Edit;. Post;. show;. Hide;. ADOTable1. Active: = false;. ADOTable1. Active: = true;; TForm13. Button3Click (Sender: TObject); ADOTable2. State = dsBrowse then// якщо табличка не в змозі редагування. Append;// додаємо нову порожню запис

ADOTable2. FieldByName ('Phone'). AsString: = Trim (DBEdit4. Text);. FieldByName ('FIO_postradavshego'). AsString: = Trim (DBEdit2. Text);. FieldByName ('Adres'). AsString: = Trim (DBEdit3. Text);// вносимо значення в полі MyField (чи як там у тебе). Post;// зберігаємо зміни таблички; ADOTable3. State = dsBrowse then// якщо табличка не в змозі редагування. Append;// додаємо нову порожню запис

ADOTable3. FieldByName ('Data'). AsString: = Trim (DBEdit1. Text);. FieldByName ('Posledstvie'). AsString: = Trim (DBMemo1. Text);. Post;// зберігаємо зміни таблички; ADOTable1. State = dsBrowse then// якщо табличка не в змозі редагування. FieldByName ('FIO_dispetcher'). AsString: = Trim (DBComboBox1. Text);. Post;// зберігаємо зміни таблички;

end;. Unit14;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls; = class (TForm): TEdit;: TEdit;: TLabel;: TLabel;: TButton;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm14; Unit9;

{$ R *. dfm} TForm14. Button1Click (Sender: TObject); (edit1. text = 'admin') AND (edit2. Text = '123 ') then begin. Show;. Hide;;; TForm14. Button2Click (Sender: TObject);. Terminate;;. Unit15;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, Grids, DBGrids, StdCtrls; = class (TForm): TDataSource;: TADOConnection;: TADOTable; Id: TAutoIncField; Id_Informaciy_o_vizovax: TWideStringField; Id_brigadi: TWideStringField;: TADOTable;: TADOTable; Field: TStringField; Field2: TStringField;: TDBGrid;: TButton; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm15; Unit9;

{$ R *. dfm} TForm15. Button1Click (Sender: TObject);. Hide;. Show;;. Unit18;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ADODB, StdCtrls; = class (TForm): TButton;: TADOTable; Tip_mashini: TWideStringField ; Id: TAutoIncField; Nom_mashini2: TWideStringField; Field: TStringField;: TADOConnection;: TDBGrid;: TDBNavigator;: TDataSource;: TADOTable; Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm18; Unit7;

{$ R *. dfm} TForm18. Button2Click (Sender: TObject);. Hide;. show;

end;.