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

;: TDBNavigator;: TADOTable; Id: TAutoIncField; Vodditel: TWideStringField; Kriminalist: TWideStringField; Komandir: TWideStringField; Pozarniy: TWideStringField; Id_car: TWideStringField; Date_viezda: TWideStringField; Button2Click (Sender: TObject); FormShow (Sender: TObject); Button4Click (Sender: TObject);

{Private declarations}

{Public declarations};: integer;: TForm12; Unit11, Unit9, Unit14, Unit7, Unit13, ComObj;

{$ R *. dfm}

// ****************************************** TForm12. Button2Click (Sender: TObject);. Hide;. Show;; TForm12. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;; TForm12. 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: = 20;. Columns [2]. ColumnWidth: = 20;. Columns [3]. ColumnWidth: = 20;. Columns [4]. ColumnWidth: = 20;. Columns [5]. ColumnWidth: = 20;. Columns [6]. ColumnWidth: = 20;: = 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 ['Звіт по бригадах'];. Cells [1,1]: = 'Звіт';. Cells [2,1]: = 'Водій';. Cells [2,2]: = 'Командир';. Cells [2,3]: = 'Кріменаліст';. Cells [2,4]: = 'Номер машини';. Cells [2,5]: = 'Дата виїзду';. Cells [2,6]: = 'Пожежні';. 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;. Cells [index, 3]: = ADOTable1. Fields. Fields [3]. AsString;. Cells [index, 4]: = ADOTable1. Fields. Fields [4]. AsString;. Cells [index, 5]: = ADOTable1. Fields. Fields [5]. AsString;. Cells [index, 6]: = ADOTable1. Fields. Fields [6]. AsString; (index);. Next;. Open;;;. Unit13;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls, ExtCtrls, ComCtrls, Mask, DBCtrls; = class (TForm): TADOConnection;: TButton;: TLabel ;: TLabel;: TLabel;: TGroupBox;: TADOTable;: TDataSource;: TDBComboBox;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TDataSource;: TADOTable;: TDBEdit;: TDataSource;: TADOTable;: TDBMemo;: TButton;: TButton; Button1Click (Sender: TObject); FormShow (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm13; Unit11;

{$ R *. dfm} TForm13. Button1Click (Sender: TObject);. Hide;. show;; TForm13. FormShow (Sender: TObject);: = (s...