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


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

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

Нижний уровень
RepageIndexFile
LanguageID
Методы передачи данных в сетях ЭВМ
Расширение интерпретатора выражений
GetIndexNames
OpenIndexFile
ПРОСТЕЙШИЙ DATASET
Окна рабочего стола
ExactRecordCount
Свойство CurrentColumn
Свойство Size для Bands
Свойство DataSet для TQRDBText
Сабклассинг
IndexName
| 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). Регион сайта: Москва и Санкт-Петербург