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]:='Цвет';
Sheet.Cells[2,6]:='Размер';
Sheet.Cells[2,7]:='Цена';
Sheet.Cells[2,8]:='Производитель';
Sheet.Cells[2,9]:='Количество';
index:=3;
ADOTable3.First;
for i:=0 to ADOTable4.RecordCount-1 do
begin
Sheet.Cells[index,1]:=ADOTable4.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=ADOTable4.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADOTable4.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=ADOTable4.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=ADOTable4.Fields.Fields[4].AsString;
Sheet.Cells[index,6]:=ADOTable4.Fields.Fields[5].AsString;
Sheet.Cells[index,7]:=ADOTable4.Fields.Fields[6].AsString;
Sheet.Cells[index,8]:=ADOTable4.Fields.Fields[7].AsString;
Sheet.Cells[index,9]:=ADOTable4.Fields.Fields[8].AsString;
Inc(index);
ADOTable4.Next;
end;
end;
end.
Листинг 2 - Модуль Unit2.pas
{===========================================================================}
{ Модуль Unit2.раs}
{ гр. П-10 };
{ Разработчик: Уроднич-Якимович И.Ю.}
{ Модифицирован: 07 июня 2017}
{------------------------------------------------------------------------------------}
{ в данном модуле содержится краткая информация о программе: тема курсового проекта и данные об разработчике }
{***********************************************************************************************}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
close;
end;
end.
ПРИЛОЖЕНИЕ Б
СОДЕРЖАНИЕ ЭЛЕКТРОННОГО НОСИТЕЛЯ
На прилагаемом электронном носителе информации расположены следующие файлы и папки:
1. Файл «Пояснительная записка.doc».
Представляет собой текстовый документ с пояснительной запиской.
2. Папка «Курсовой проект».
В папке содержится: сама программа, справка, файл «База данных мебельного магазина», установщик программы (Setup.exe).