Имя Пароль
Зарегистрироваться


* При перепечатке материалов ссылка на www.SeoLiga.ru обязательна! RSS



Классы построителя отчетов (Report Builder)
19 февраля 2009

QuickReport 2 имеет базовый класс TQRBuilder. Это просто абстрактный класс, который может использоваться для основной работы по созданию отчета. Это включает в себя компонент TQuickRep с секцией title и секциями заголовок и подвал страницы.
Следующий код демонстрирует создание основы для пустого отчета. Не забудьте включить модуль QREXTRA в модуль, в котором это будет использоваться:
procedure MyForm.CreateReport;
begin
with TQRBuilder.Create(Self) do
try
Title := ‘Blank Report’;
Active := True;
try
FetchReport.Preview;
finally
Free;
end;
finally
Free;
end;
end;

TQRListBuilder является субклассом TQRBuilder. Он добавляет возможность создания отчетов для баз данных:
procedure MyForm.CreateDataReport;
var
aReport : TQuickRep;
begin
with TQRListBuilder.Create(Self) do
try
DataSet := CustomerTable;
Title := ‘Customer Listing’;
Active := True;
try
aReport := FetchReport;
aReport.Preview;
finally
aReport.Free;
end;
finally
Free;
end;
end;
Использование функции QRCreateList делает создание более простым, всего одна строка кода.
procedure MyForm.CreateDataReport;
var
aReport : TQuickRep;
begin
QRCreateList(aReport,
Self,
CustomerTable,
‘Customer Listing’,
nil);
aReport.Preview;
aReport.Free;
end;
Параметр nil в действительности список полей (string list), которые мы желаем включить в отчет. Посылка значения nil означает включение всех полей, которые смогут поместиться на странице.

Следующий пример создает отчет только с тремя полями из таблицы Customer:
procedure MyForm.CreateDataReport;
var
aReport : TQuickRep;
SomeFields : Tlist;
begin
SomeFields := TList.Create;
SomeField.Add(‘Company’);
SomeFields.Add(‘Contact’);
SomeFields.Add(‘Phone’);
QRCreateList(aReport,
Self,
CustomerTable,
‘Customer Listing’,
SomeFields);
aReport.Preview;
aReport.Free;
end;


Теги: Borland Delphi

Статьи по теме:

Статические изображения
Аудиоконференции
ППП общего назначения
Undelete
ClearCalcFields
DbfFieldDefs
Редактор кода
Панель HTML Table
Свойство AlignToBand
Программное обеспечение электронного офиса
Сабклассинг окон на VCL
Свойство AutoStretch
Exclusive
Панель Desktop
Устройства обработки данных
| Borland Delphi | ext |
 


Пн Вт Ср Чт Пт Сб Вс
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31


     



Rambler's Top100

Данный сайт или домен продается ICQ: 403-353-727

© 2009 Seoliga.ru | Borland Delphi | Классы построителя отчетов (Report Builder). Регион сайта: Москва и Санкт-Петербург