Программирование - это просто
Advertisement
Главная arrow Уроки программирования arrow Delphi - это просто! arrow Урок 8.10. Delphi:  Учимся строить отчет (FreeReport, TfrCompositeReport).
29.05.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Урок 8.10. Delphi:  Учимся строить отчет (FreeReport, TfrCompositeReport). Печать E-mail
Автор megabax   
17.02.2010 г.
Базы данных

Программирование баз данных в 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"*.

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

В итоге мы должны увидеть новую палитру компонентов*:
Программирование баз данных в Delphi: Дизайнер отчетов

Кто-то наверняка использует бесплатную версию 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

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


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

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


Последнее обновление ( 06.11.2011 г. )
 
« След.   Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги