procedure
TfMain
.
Button9Click(Sender: TObject);
Var
XLApp,Sheet,Colum:Variant;
index,i:
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[
2
].ColumnWidth:=
30
;
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:=clRed;
Colum
.
Rows[
1
].Font
.
Size:=
14
;
Sheet:=XLApp
.
Workbooks[
1
].WorkSheets[
'Отчёт'
];
Sheet
.
Cells[
1
,
2
]:=
'Заказы'
;
Sheet
.
Cells[
2
,
1
]:=
'ИдКлиента'
;
Sheet
.
Cells[
2
,
2
]:=
'ИдТовара'
;
Sheet
.
Cells[
2
,
3
]:=
'ДатаЗаказа'
;
Sheet
.
Cells[
2
,
4
]:=
'Срочность'
;
Sheet
.
Cells[
2
,
5
]:=
'Колличество'
;
fDM
.
TZakaziData
.
First;
index:=
3
;
for
i:=
0
to
fDM
.
TZakaziData
.
RecordCount
do
begin
sheet
.
Cells[index,
1
]:=fDM
.
TZakaziData
.
Fields
.
Fields[
1
].AsString;
sheet
.
Cells[index,
2
]:=fDM
.
TZakaziData
.
Fields
.
Fields[
2
].AsString;
sheet
.
Cells[index,
3
]:=fDM
.
TZakaziData
.
Fields
.
Fields[
3
].AsString;
sheet
.
Cells[index,
4
]:=fDM
.
TZakaziData
.
Fields
.
Fields[
4
].AsString;
sheet
.
Cells[index,
5
]:=fDM
.
TZakaziData
.
Fields
.
Fields[
5
].AsString;
Inc(index);
fDM
.
TZakaziData
.
Next;
end
;
end
;