В начало

Отчет таблицы Sotrudniki

 

            Есть XML-таблица «Sotridniki.xml». Нужно в среде «Дельфи-7» создать Rave-отчет для этой таблицы в формате PDF.

            Запускаем среду разработки «Дельфи-7», создаем новое приложение, на главную форму приложения перетаскиваем компоненты: Button, ClientDataSet, RvSystem, RvProject, RvDataSetConnection, RvRenderPDF. И настраиваем их.

Компонент

Настройка, значение

ClientDataSet1

FileName = «C:\XML\Sotrudniki.xml»

Active = True

RvSystem1

DefaltDest = rdFile

RvProject1

Engine = RvSystem1

ProjectFile = «C:\RAVE\Sotrudniki.rav»

RvDataSetConnection1

DataSet = ClientDataSet1

            Для того, чтобы создать сформировать отчет, нужно в главном меню программы «Дельфи-7» выбрать в главном меню «Tools – Rave Designer». Откроется собственно сам «Rave Reports 5.0».

            В редакторе отчетов нужно в главном меню выбрать раздел «FileNew Data Object», в окне которого выбрать «Direct Data View». После чего в правом «стакане» редактора отчетов появятся источники данных.

Рис. 1. Правый «стакан»

 

            Размещение всех компонентов происходит на компоненте «Region», на который нужно разместить компоненты «Band» и «DataBand». На компонентах типа «Band» нужно разместить текст заголовка отчета и заголовки столбцов, а на компоненте «DataBand» данные таблицы. Чтобы данные были доступны, у компонента «DataBand1» нужно выставить свойству «DataView» значение «DataView1». Затем на элемент «Band1» нужно перетащить элемент «Text» для заголовка отчета, на элемент «Band2» – три элемента «Text» для заголовков таблицы и элемент «HLine», а на поле «DataBand» три элемента типа «DataText», у которых выставить свойства: DataView, DataField. Сохраняем отчет в rav-файл и возвращаемся в «Delphi-7».

 

            В обработчик событий кнопки нужно поместить код.

Procedure TForm1.Button1Click(Sender: TObject);

Begin

   With RvSystem1 Do

      Begin

      DoNativeOutput:= False;

      RenderObject:= RvRenderPDF1;

      OutputFileName:= 'Sotrudniki.pdf';

      End;

 

   RvProject1.Execute;

   ShellExecute(Handle, 'open', 'Sotrudniki.pdf', nil,

   nil, SW_SHOWNORMAL);

End;

 

            Если будут вылезать кракозябры, то нужно подобрать другой шрифт, например: «Mangal», «MS Sans Serif», «System».

Рис. 2. Отчет «Сотрудники»

Рис. 2. Отчет «Сотрудники»