c declarations};: integer;: TForm11; Unit9, Unit12, Unit13, Unit2, Unit14, Unit7, Unit10, ComObj, Unit15;
{$ R *. dfm} TForm11. Button2Click (Sender: TObject);. Hide;. show;; TForm11. Button1Click (Sender: TObject);. Hide;. show;; TForm11. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;; TForm11. Button4Click (Sender: TObject); id: string;; TForm11. Button3Click (Sender: TObject); OptSet: TLocateOptions;. DataSource: = DataSource1;; TForm11. Button5Click (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;. Columns [3]. ColumnWidth: = 10;. Columns [4]. ColumnWidth: = 20;. Columns [5]. ColumnWidth: = 10;. Columns [6]. ColumnWidth: = 40;: = 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,3]: = 'Звіт за викликами';. Cells [2,1]: = 'ПІБ диспетчера';. Cells [2,2]: = 'ПІБ потерпілого';. Cells [2,3]: = 'Телефон';
Sheet. 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;;;. Unit12;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids, DBCtrls; = class (TForm): TDBGrid;: TButton;: TADOConnection ;: TDataSource;: TButton;: TADOTable; Id: TAutoIncField; Kriminalist: TWideStringField; Komandir: TWideStringField; Pozarniy: TWideStringField; Id_car: TWideStringField; Date_viezda: TWideStringField;: TADOTable; Id: TAutoIncField; FIO: TWideStringField; Vodditel: TWideStringField; Field : TStringField;: TADOTable;
ADOTable4: TADOTable;: TADOTable;: TADOTable;
ADOTable3Id: TAutoIncField; FIO: TWideStringField; Field2: TStringField; Id: TAutoIncField; FIO: TWideStringField; Field3: TStringField; Id: TAutoIncField; FIO: TWideStringField; Field4: TStringField; Id: TAutoIncField; Tip_mashini: TWideStringField; Nom_mashini: TWideStringField ; Field5: TStringField...
