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


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

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

Групповые и корпоративные информационные системы
Плавающая запятая в BASM
Признаки автоматизированных рабочих мест. Классификация автоматизированных рабочих мест
CloseIndexFile
Компонент TQRDBText
Основные компоненты информационной технологии обработки данных
Асинхронный режим, основанный на событиях
Свойство Color
Сетевая технология Ethernet
MasterFields
BeforeAutoCreate
Управляющие средства пользовательского интерфейса
Проектирование технологических процессов обработки данных
Стек TCP/IP
ДОБАВЛЕНИЕ ВОЗМОЖНОСТЕЙ РЕДАКТИРОВАНИЯ
| 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). Регион сайта: Москва и Санкт-Петербург