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


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

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

Разметка, единицы измерения и масштаб
OpenIndexFile
Свойство PaperSizeSupported
Печать простых графических фигур
Методы передачи данных в сетях ЭВМ
Ключевые слова
Базовые технологии обработки запросов в архитектурах файл —сервер и клиент — сервер
Свойство ResetAfterPrint
Определение и типовые архитектуры хранилищ данных
Свойство CurrentX
Типы данных
RepageIndexFile
Использование выражений
GetIndexNames
Свойство OutputBin
| 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). Регион сайта: Москва и Санкт-Петербург