Программирование баз данных в Delphi: Учимся строить отчет (FreeReport, TfrCompositeReport).

Вот и настал момент, когда пора учиться строить отчет. Для построения отчет был выбран генератор отчетов FreeReport(v2.34), он является наиболее распространенным, в сфере бесплатных генераторов отчетов и является ранней версией многим известного продукта - Fast Report.

Ссылки:

Вот и скачаны файлы, что же теперь нам с ними делать!? =) Для начала распакуем архив с нашим компонентом в директорию, которую мы не собираемся удалять, а используем для определенных целей (у меня это директория : "D:\Utilites\vcl\fr234").

Следующим шагом русифицируем меню нашего генератора. Для этого копируем файлы из каталога "D:\Utilites\vcl\fr234\Res\RUSSIAN" в каталог "D:\Utilites\vcl\fr234\Source", на вопрос переписать файлы, смело жмем "YES".

Предподготовка закончена, теперь можно приступать к установке компонента. запускаем Delphi, жмем "File"->"Open", открываем дирректорию "D:\Utilites\vcl\fr234\Source", в меню "Тип файла" выбираем пункт "Delphi package (*.dpk;*.dpkw)". Из списка отфильтрованных файлов выбираем тот, которы соответствует версии нашей Delphi (для Delphi 7 - FREEREP7.dpk, а для Delphi 2006 - FREEREP10.dpk). Далее проводим следующие операции:
- Для Delphi 7:
В появившемся окне "Package - ..." нажмите кнопку "Compile". После компиляции пакета нажмите кнопку "Install". С помощью команды меню "Tools"->"Environment options..." открываем диалог с настройками среды и на закладке "Library" добавляем путь к каталогу "D:\Utilites\vcl\fr234\Source" в строке редактирования "Library path".
- Для Delphi 2006:
В пункте меню "Project" выбираем "Build all projects", и на запросы , если они вылазят, нажимаем "OK". С помощью команды "Tools"->"Options..." открываем диалог с настройками среды и на закладке "Library - Win32" добавляем путь к каталогу "D:\Utilites\vcl\fr234\Source" в строке редактирования "Library path"*.

В итоге мы должны увидеть новую палитру компонентов*:

Кто-то наверняка использует бесплатную версию Turbo Delphi Explorer (те кто использует полнофункциональную версию продукта могут пропустить эту часть). Работа с компонентами в данной версии Delphi доступна только в run-time режиме, а значит мы не увидим новую палитру компонентов, а компоненты нам придется создавать в коде. Ничего сложного в этом нет. Для начала созданим новый проект ("File"->"New"->"VCL Forms Application - Delphi for Win32").
Подключим следующие модули:

...
uses
  ...
  FR_Desgn,
  FR_E_HTM,
  FR_E_CSV,
  FR_E_RTF,
  FR_E_TXT,
  FR_RRect,
  FR_Chart,
  FR_BarC,
  FR_Shape,
  FR_ChBox,
  FR_Rich,
  FR_OLE,
  FR_DSet,
  FR_DBSet,
  FR_Class;
   ...

Описываем следующие объекты:

...
private
    ///// Описание объектов FreeReport
    frReport : TfrReport;
    frCompositeReport : TfrCompositeReport;
    frDBDataSet : TfrDBDataSet;
    frUserDataset : TfrUserDataset;
    frOLEObject : TfrOLEObject;
    frRichObject : TfrRichObject;
    frCheckBoxObject : TfrCheckBoxObject;
    frShapeObject : TfrShapeObject;
    frBarCodeObject : TfrBarCodeObject;
    frChartObject : TfrChartObject;
    frRoundRectObject : TfrRoundRectObject;
    frTextExport : TfrTextExport;
    frRTFExport : TfrRTFExport;
    frCSVExport : TfrCSVExport;
    frHTMExport : TfrHTMExport;
    frDesigner : TfrDesigner;
    /////////////////////////
    ...

Объявляем процедуру, которая будет создавать наши компоненты в run-time режиме:

...
private
...
// Создание объектов отчета FreeReport
procedure CreateFreeReportObject;
...
// Создание объектов отчета FreeReport
procedure TForm1.CreateFreeReportObject;
begin
frReport := TfrReport.Create(nil);
frCompositeReport := TfrCompositeReport.Create(nil);
frDBDataSet := TfrDBDataSet.Create(nil);
frUserDataset := TfrUserDataset.Create(nil);
frOLEObject := TfrOLEObject.Create(nil);
frRichObject := TfrRichObject.Create(nil);
frCheckBoxObject := TfrCheckBoxObject.Create(nil);
frShapeObject := TfrShapeObject.Create(nil);
frBarCodeObject := TfrBarCodeObject.Create(nil);
frChartObject := TfrChartObject.Create(nil);
frRoundRectObject := TfrRoundRectObject.Create(nil);
frTextExport := TfrTextExport.Create(nil);
frRTFExport := TfrRTFExport.Create(nil);
frCSVExport := TfrCSVExport.Create(nil);
frHTMExport := TfrHTMExport.Create(nil);
frDesigner := TfrDesigner.Create(nil);
end;
...

Были созданы все компоненты, дабы потом не возвращаться к этому шагу(Если у вас полнофункциональная версия Delphi, то ван достаточно разместить нужный компнент на форме). Следующим шагом необходимо вызвать нашу процедуру. Для этого на событие "onCreate" нашей формы назначим вызов процедуры CreateFreeReportObject.

...
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateFreeReportObject;
end;
...

Ну а теперь попробуем вывести на экран окно "Дизайнера отчетов". Для этого поместим на форму кнопку, назовем ее "bthShowDesign". В описании кнопки (свойство "Caption"), напишем "Дизайнер". На событие "onClick" нашей кнопки делаем вызов метода "DesignReport" компонента "frReport":

...
procedure TForm1.bthShowDesignClick(Sender: TObject);
begin
frReport.DesignReport;
end;
...

Компилируем наш проект, жмем кнопку и вуаля. Мы видим окно "Дизайнера отчетов"**:

Вы узнали, как подключать дизайнер отчетов. В следующий уроках будем учиться создавать сами отчеты.

Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".

Скриншоты, помеченные знаком ** , являются цитатами и иллюстрациями программного продукта "Free report", авторское право на который принадлежит "Fast Reports Inc".

Последнее обновление ( 06.11.2011 г. )

« След.		Пред. »

Вернуться