Форма для входа в систему, требующая ввода имени и пароля пользователя

Главная кнопочная форма

Форма "Сотрудники"

Добавление информации в справочник на примере формы "Информация о вызовах"

После нажатия на кнопку "добавить", появляется форма добавления

Приложение №3 - Исходный код

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ActnList;

type

TForm1 = class (TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit8, Unit9;

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

form2. ADOQuery1. SQL. Clear;

form2. ADOQuery1. SQL. Text: = ('select Id, FIO_dispetcher from Dispetcher');

form2. DataSource1. DataSet: =form2. ADOQuery1;

form2. ADOQuery1. Active: =true;

form2. DBGrid1. DataSource: =form2. DataSource1;

form2. show;

form1. Hide;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

form3. ADOQuery1. SQL. Clear;

form3. ADOQuery1. SQL. Text: = ('select Id, FIO from Komandiri');

form3. DataSource1. DataSet: =form3. ADOQuery1;

form3. ADOQuery1. Active: =true;

form3. DBGrid1. DataSource: =form3. DataSource1;

form3. show;

form1. Hide;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin

form4. ADOQuery1. SQL. Clear;

form4. ADOQuery1. SQL. Text: = ('select Id, FIO from Kriminalisti');

form4. DataSource1. DataSet: =form4. ADOQuery1;

form4. ADOQuery1. Active: =true;

form4. DBGrid1. DataSource: =form4. DataSource1;

form4. show;

form1. Hide;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin

form1. Hide;

form9. show;

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

form5. ADOQuery1. SQL. Clear;

form5. ADOQuery1. SQL. Text: = ('select Id, FIO from Voditeli');

form5. DataSource1. DataSet: =form5. ADOQuery1;

form5. ADOQuery1. Active: =true;

form5. DBGrid1. DataSource: =form5. DataSource1;

form5. show;

form1. Hide;

end;

procedure TForm1. Button5Click (Sender: TObject);

begin

form6. ADOQuery1. SQL. Clear;

form6. ADOQuery1. SQL. Text: = ('select Id, FIO from Pozarnie');

form6. DataSource1. DataSet: =form6. ADOQuery1;

form6. ADOQuery1. Active: =true;

form6. DBGrid1. DataSource: =form6. DataSource1;

form6. show;

form1. Hide;

end;

procedure TForm1. FormShow (Sender: TObject);

begin

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

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

end;

end.

unit Unit2;

interface

uses

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

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

type

TForm2 = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button2: TButton;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm2. Button2Click (Sender: TObject);

begin

Form2. Hide;

form1. show;

form2. ADOQuery1. Active: =false;

end;

procedure TForm2. FormShow (Sender: TObject);

begin

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

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

end;

end.

unit Unit3;

interface

uses

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

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

type

TForm3 = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button2: TButton;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm3. Button2Click (Sender: TObject);

begin

Form3. Hide;

form1. show;

form3. ADOQuery1. Active: =false;

end;

procedure TForm3. FormShow (Sender: TObject);

begin

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

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

end;

end.

unit Unit4;

interface

uses

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

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

type

TForm4 = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button2: TButton;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm4. Button2Click (Sender: TObject);

begin

Form4. Hide;

form1. show;

form4. ADOQuery1. Active: =false;

end;

procedure TForm4. FormShow (Sender: TObject);

begin

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

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

end;

end.

unit Unit5;

interface

uses

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

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

type

TForm5 = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button2: TButton;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm5. Button2Click (Sender: TObject);

begin

Form5. Hide;

form1. show;

form5. ADOQuery1. Active: =false;

end;

procedure TForm5. FormShow (Sender: TObject);

begin

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

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

end;

end.

unit Unit6;

interface

uses

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

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

type

TForm6 = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button2: TButton;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm6. Button2Click (Sender: TObject);

begin

Form6. Hide;

form1. show;

form6. ADOQuery1. Active: =false;

end;

procedure TForm6. FormShow (Sender: TObject);

begin

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

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

end;

end.

unit Unit7;

interface

uses

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

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

type

TForm7 = class (TForm)

DBGrid1: TDBGrid;

Button2: TButton;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

Button1: TButton;

Button3: TButton;

Button4: TButton;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

ADOTable1Id: TAutoIncField;

ADOTable1Tip_mashini: TWideStringField;

ADOTable1Nom_mashini: TWideStringField;

ADOTable2Id: TAutoIncField;

ADOTable2Tip_Mashini: TWideStringField;

ADOTable1Field: TStringField;

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

d: integer;

Form7: TForm7;

implementation

uses Unit1, Unit9, Unit10, Unit14, ComObj, Unit18;

{$R *. dfm}

procedure TForm7. Button2Click (Sender: TObject);

begin

form7. Hide;

form9. show;

end;

procedure TForm7. FormShow (Sender: TObject);

begin

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

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

end;

procedure TForm7. Button1Click (Sender: TObject);

begin

form10. show;

form7. Hide;

end;

procedure TForm7. Button3Click (Sender: TObject);

var id: string;

begin

form18. show;

form7. Hide;

end;

procedure TForm7. Button4Click (Sender: TObject);

var

XLApp,Sheet,Colum: Variant;

index,a,j,ex: Integer;

begin

XLApp: = CreateOleObject ('Excel. Application');

XLApp. Visible: =true;

XLApp. Workbooks. Add (-4167);

XLApp. Workbooks [1]. WorkSheets [1]. Name: ='Отчёт по машинам';

Colum: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по машинам']. Columns;

Colum. Columns [1]. ColumnWidth: =35;

Colum. Columns [2]. ColumnWidth: =35;

Colum: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по машинам']. Rows;

Colum. Rows [2]. Font. Bold: =true;

Colum. Rows [1]. Font. Bold: =true;

Colum. Rows [1]. Font. Color: =clBlue;

Colum. Rows [1]. Font. Size: =14;

Sheet: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по машинам'];

Sheet. Cells [1,1]: ='Отчет по машинам';

Sheet. Cells [2,1]: ='Тип машины';

Sheet. Cells [2,2]: ='Номер машины';

ADOTable1. Active: =true;

index: =3;

ADOTable1. First;

for a: =0 to ADOTable1. RecordCount-1 do

begin

Sheet. Cells [index,1]: =ADOTable1. Fields. Fields [1]. AsString;

Sheet. Cells [index,2]: =ADOTable1. Fields. Fields [2]. AsString;

Inc (index);

ADOTable1. Next;

ADOTable1. Open;

end;

end;

end.

unit Unit8;

interface

uses

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

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

type

TForm8 = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button2: TButton;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADOTable1: TADOTable;

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1, Unit9;

{$R *. dfm}

procedure TForm8. Button2Click (Sender: TObject);

begin

form8. Hide;

form9. show;

end;

procedure TForm8. FormShow (Sender: TObject);

begin

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

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

end;

end.

unit Unit9;

interface

uses

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

Dialogs, StdCtrls;

type

TForm9 = class (TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

procedure Button5Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit8, Unit1, Unit7, Unit11, Unit12, Unit15;

{$R *. dfm}

procedure TForm9. Button5Click (Sender: TObject);

begin

form8. show;

form9. Hide;

end;

procedure TForm9. Button3Click (Sender: TObject);

begin

application. Terminate;

end;

procedure TForm9. Button1Click (Sender: TObject);

begin

Form9. Hide;

form1. show;

end;

procedure TForm9. FormShow (Sender: TObject);

begin

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

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

end;

procedure TForm9. Button2Click (Sender: TObject);

begin

form7. show;

form9. Hide;

end;

procedure TForm9. Button4Click (Sender: TObject);

begin

Form9. hide;

form11. show;

end;

procedure TForm9. Button6Click (Sender: TObject);

begin

Form9. Hide;

form12. show;

end;

procedure TForm9. Button7Click (Sender: TObject);

begin

form15. show;

form9. Hide;

end;

end.

unit Unit10;

interface

uses

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

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

type

TForm10 = class (TForm)

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

ADOTable2: TADOTable;

ADOConnection2: TADOConnection;

DataSource2: TDataSource;

Button2: TButton;

ADOTable2Id: TAutoIncField;

ADOTable2Tip_Mashini: TWideStringField;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

// id: string;

Form10: TForm10;

implementation

uses Unit7;

{$R *. dfm}

procedure TForm10. Button2Click (Sender: TObject);

begin

form10. Hide;

form7. show;

end;

procedure TForm10. Button1Click (Sender: TObject);

var

id: string;

begin

end;

procedure TForm10. FormShow (Sender: TObject);

begin

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

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

end;

end.

unit Unit11;

interface

uses

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

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

type

TForm11 = class (TForm)

DBGrid1: TDBGrid;

Button2: TButton;

Button1: TButton;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

Button5: TButton;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

ADOTable2Id: TAutoIncField;

ADOTable2FIO_dispetcher: TWideStringField;

ADOTable3Id_postradavshego: TAutoIncField;

ADOTable3FIO_postradavshego: TWideStringField;

ADOTable3Phone: TWideStringField;

ADOTable3Adres: TWideStringField;

ADOTable4Id: TAutoIncField;

ADOTable4Id_Informaciy_o_vizovax: TWideStringField;

ADOTable4Id_brigadi: TWideStringField;

ADOTable5: TADOTable;

ADOTable6: TADOTable;

ADOTable1Id: TAutoIncField;

ADOTable1Dispetcher: TWideStringField;

ADOTable1Postradavshiy: TWideStringField;

ADOTable1Data: TWideStringField;

ADOTable1Posledstvie: TWideStringField;

ADOTable1Field: TStringField;

ADOTable1Field2: TStringField;

ADOTable1StringField1: TStringField;

ADOTable1Field3: TStringField;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

i: integer;

Form11: TForm11;

implementation

uses Unit9, Unit12, Unit13, Unit2, Unit14, Unit7, Unit10, ComObj, Unit15;

{$R *. dfm}

procedure TForm11. Button2Click (Sender: TObject);

begin

Form11. Hide;

form9. show;

end;

procedure TForm11. Button1Click (Sender: TObject);

begin

form11. Hide;

form13. show;

end;

procedure TForm11. FormShow (Sender: TObject);

begin

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

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

end;

procedure TForm11. Button4Click (Sender: TObject);

var id: string;

begin

end;

procedure TForm11. Button3Click (Sender: TObject);

var OptSet: TLocateOptions;

begin

DBGrid1. DataSource: =DataSource1;

end;

procedure TForm11. Button5Click (Sender: TObject);

var

XLApp,Sheet,Colum: Variant;

index,a,j,ex: Integer;

begin

XLApp: = CreateOleObject ('Excel. Application');

XLApp. Visible: =true;

XLApp. Workbooks. Add (-4167);

XLApp. Workbooks [1]. WorkSheets [1]. Name: ='Отчёт по вызовам';

Colum: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по вызовам']. Columns;

Colum. Columns [1]. ColumnWidth: =35;

Colum. Columns [2]. ColumnWidth: =35;

Colum. Columns [3]. ColumnWidth: =10;

Colum. Columns [4]. ColumnWidth: =20;

Colum. Columns [5]. ColumnWidth: =10;

Colum. Columns [6]. ColumnWidth: =40;

Colum: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по вызовам']. Rows;

Colum. Rows [2]. Font. Bold: =true;

Colum. Rows [1]. Font. Bold: =true;

Colum. Rows [1]. Font. Color: =clBlue;

Colum. Rows [1]. Font. Size: =14;

Sheet: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по вызовам'];

Sheet. Cells [1,3]: ='Отчет по вызовам';

Sheet. Cells [2,1]: ='ФИО диспетчера';

Sheet. Cells [2,2]: ='ФИО пострадавшего';

Sheet. Cells [2,3]: ='Телефон';

Sheet. Cells [2,4]: ='Адрес';

Sheet. Cells [2,5]: ='Дата';

Sheet. Cells [2,6]: ='Последствие';

ADOTable1. Active: =true;

index: =3;

ADOTable1. First;

for a: =0 to ADOTable1. RecordCount-1 do

begin

Sheet. Cells [index,1]: =ADOTable1. Fields. Fields [1]. AsString;

Sheet. Cells [index,2]: =ADOTable1. Fields. Fields [2]. AsString;

Sheet. Cells [index,3]: =ADOTable1. Fields. Fields [3]. AsString;

Sheet. Cells [index,4]: =ADOTable1. Fields. Fields [4]. AsString;

Sheet. Cells [index,5]: =ADOTable1. Fields. Fields [5]. AsString;

Sheet. Cells [index,6]: =ADOTable1. Fields. Fields [6]. AsString;

Inc (index);

ADOTable1. Next;

ADOTable1. Open;

end;

end;

end.

unit Unit12;

interface

uses

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

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

type

TForm12 = class (TForm)

DBGrid1: TDBGrid;

Button2: TButton;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

Button4: TButton;

ADOTable1: TADOTable;

ADOTable1Id: TAutoIncField;

ADOTable1Kriminalist: TWideStringField;

ADOTable1Komandir: TWideStringField;

ADOTable1Pozarniy: TWideStringField;

ADOTable1Id_car: TWideStringField;

ADOTable1Date_viezda: TWideStringField;

ADOTable2: TADOTable;

ADOTable2Id: TAutoIncField;

ADOTable2FIO: TWideStringField;

ADOTable1Vodditel: TWideStringField;

ADOTable1Field: TStringField;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

ADOTable5: TADOTable;

ADOTable6: TADOTable;

ADOTable3Id: TAutoIncField;

ADOTable3FIO: TWideStringField;

ADOTable1Field2: TStringField;

ADOTable4Id: TAutoIncField;

ADOTable4FIO: TWideStringField;

ADOTable1Field3: TStringField;

ADOTable5Id: TAutoIncField;

ADOTable5FIO: TWideStringField;

ADOTable1Field4: TStringField;

ADOTable6Id: TAutoIncField;

ADOTable6Tip_mashini: TWideStringField;

ADOTable6Nom_mashini: TWideStringField;

ADOTable1Field5: TStringField;

DBNavigator1: TDBNavigator;

ADOTable7: TADOTable;

ADOTable7Id: TAutoIncField;

ADOTable7Vodditel: TWideStringField;

ADOTable7Kriminalist: TWideStringField;

ADOTable7Komandir: TWideStringField;

ADOTable7Pozarniy: TWideStringField;

ADOTable7Id_car: TWideStringField;

ADOTable7Date_viezda: TWideStringField;

procedure Button2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure Button4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

i: integer;

Form12: TForm12;

implementation

uses Unit11, Unit9, Unit14, Unit7, Unit13, ComObj;

{$R *. dfm}

// ******************************************

procedure TForm12. Button2Click (Sender: TObject);

begin

form12. Hide;

form9. Show;

end;

procedure TForm12. FormShow (Sender: TObject);

begin

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

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

end;

procedure TForm12. Button4Click (Sender: TObject);

var

XLApp,Sheet,Colum: Variant;

index,a,j,ex: Integer;

begin

XLApp: = CreateOleObject ('Excel. Application');

XLApp. Visible: =true;

XLApp. Workbooks. Add (-4167);

XLApp. Workbooks [1]. WorkSheets [1]. Name: ='Отчёт по бригадам';

Colum: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по бригадам']. Columns;

Colum. Columns [1]. ColumnWidth: =20;

Colum. Columns [2]. ColumnWidth: =20;

Colum. Columns [3]. ColumnWidth: =20;

Colum. Columns [4]. ColumnWidth: =20;

Colum. Columns [5]. ColumnWidth: =20;

Colum. Columns [6]. ColumnWidth: =20;

Colum: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по бригадам']. Rows;

Colum. Rows [2]. Font. Bold: =true;

Colum. Rows [1]. Font. Bold: =true;

Colum. Rows [1]. Font. Color: =clBlue;

Colum. Rows [1]. Font. Size: =14;

Sheet: =XLApp. Workbooks [1]. WorkSheets ['Отчёт по бригадам'];

Sheet. Cells [1,1]: ='Отчет';

Sheet. Cells [2,1]: ='Водитель';

Sheet. Cells [2,2]: ='Командир';

Sheet. Cells [2,3]: ='Крименалист';

Sheet. Cells [2,4]: ='Номер машины';

Sheet. Cells [2,5]: ='Дата выезда';

Sheet. Cells [2,6]: ='Пожарные';

ADOTable1. Active: =true;

index: =3;

ADOTable1. First;

for a: =0 to ADOTable1. RecordCount-1 do

begin

Sheet. Cells [index,1]: =ADOTable1. Fields. Fields [1]. AsString;

Sheet. Cells [index,2]: =ADOTable1. Fields. Fields [2]. AsString;

Sheet. Cells [index,3]: =ADOTable1. Fields. Fields [3]. AsString;

Sheet. Cells [index,4]: =ADOTable1. Fields. Fields [4]. AsString;

Sheet. Cells [index,5]: =ADOTable1. Fields. Fields [5]. AsString;

Sheet. Cells [index,6]: =ADOTable1. Fields. Fields [6]. AsString;

Inc (index);

ADOTable1. Next;

ADOTable1. Open;

end;

end;

end.

unit Unit13;

interface

uses

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

Dialogs, DB, ADODB, StdCtrls, ExtCtrls, ComCtrls, Mask, DBCtrls;

type

TForm13 = class (TForm)

ADOConnection1: TADOConnection;