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

; = class (TForm): TDBGrid;: TDBNavigator;: TButton;: TADOConnection;: TADOQuery;: TDataSource; Button2Click (Sender: TObject); FormShow (Sender: TObject );

{Private declarations}

{Public declarations};: TForm6; Unit1;

{$ R *. dfm} TForm6. Button2Click (Sender: TObject);. Hide;. show;. ADOQuery1. Active: = false;; TForm6. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;. Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , ExtCtrls, DBCtrls, DB, ADODB, StdCtrls, Grids, DBGrids; = class (TForm): TDBGrid;: TButton;: TADOConnection;: TDataSource;: TButton;: TButton;: TButton;: TADOTable;: TADOTable; Id: TAutoIncField ; Tip_mashini: TWideStringField; Nom_mashini: TWideStringField; Id: TAutoIncField; Tip_Mashini: TWideStringField; Field: TStringField; Button2Click (Sender: TObject); FormShow (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject);

{Private declarations}

{Public declarations};: integer;: TForm7; Unit1, Unit9, Unit10, Unit14, ComObj, Unit18;

{$ R *. dfm} TForm7. Button2Click (Sender: TObject);. Hide;. show;; TForm7. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;; TForm7. Button1Click (Sender: TObject);. show;. Hide;; TForm7. Button3Click (Sender: TObject); id: string;. show;. Hide;; TForm7. Button4Click (Sender: TObject);, Sheet, Colum: Variant;, a, j, ex: Integer;: = CreateOleObject ('Excel. Application');. Visible: = true;. Workbooks. Add (-4167);. Workbooks [1]. WorkSheets [1]. Name: = 'Звіт по машинах';: = XLApp. Workbooks [1]. WorkSheets ['Звіт по машинах']. Columns;. Columns [1]. ColumnWidth: = 35;. Columns [2]. ColumnWidth: = 35;: = XLApp. Workbooks [1]. WorkSheets ['Звіт по машинах']. Rows;. Rows [2]. Font. Bold: = true;. Rows [1]. Font. Bold: = true;. Rows [1]. Font. Color: = clBlue;. Rows [1]. Font. Size: = 14;: = XLApp. Workbooks [1]. WorkSheets ['Звіт по машинах'];

Sheet. Cells [1,1]: = 'Звіт по машинах';

Sheet. Cells [2,1]: = 'Тип машини';. Cells [2,2]: = 'Номер машини';. Active: = true;: = 3;. First; a: = 0 to ADOTable1. RecordCount-1 do. Cells [index, 1]: = ADOTable1. Fields. Fields [1]. AsString;. Cells [index, 2]: = ADOTable1. Fields. Fields [2]. AsString; (index);. Next;. Open;;;. Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids; = class (TForm): TDBGrid;: TDBNavigator;: TButton ;: TADOConnection;: TDataSource;: TADOTable; Button2Click (Sender: TObject); FormShow (Sender: TObject);

{Private declarations}

{Public declarations};: TForm8; Unit1, Unit9;

{$ R *. dfm} TForm8. Butto...