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


* При перепечатке материалов ссылка на 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

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

Пример создания задания на печать
Свойство CurrentColumn
Свойство DataSet
Свойство PageNumber
Многоадресная рассылка
Базовые технологии обработки запросов в архитектурах файл —сервер и клиент — сервер
Панель Position
Свойство Center
Интеллектуальный анализ данных (ИАД)
TableLevel
Свойство Expression для TQRExpr
Локальная сеть Token Ring
Свойство ResetAfterPrint
MasterSource
Варианты технологии клиент — сервер
| 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


     



Rambler's Top100

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

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