Проектирование баз данных в среде Delphi: Компьтерный методический материал к лабораторным работам. Блюдина Л.С. - 33 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

8.2.
Выберем компоненту QRShape из палитры компонент и поместим
ее так, чтобы внутри нее оказались компоненты QRSySData1 и
QRSysData2 (поместить эту компоненту необходимо позади, для чего
воспользуемся командой главного меню Edit|Send to back).
8.3.
Определим вывод номера страницы на каждой странице отчета. Из
страницы QReport перенесем на форму Form2 еще одну компоненту
QRBand. В тексте модуля она будет иметь имя QRBand3. Зададим ее
свойству BandType значение rbPageFooter. Из страницы QReport
примерно на середину компоненты QRBand3 поместим компоненту
QRSysData. В модуле появится компонента с именем QRSysData3. Для
этой компоненты выберем для свойства Data значение qrsPageNumber,
а свойству Text зададим значение Страница.
9.
Установим взаимосвязь между главной формой проекта Form1 и формой с
отчетом Form2. Для этого в тексте модуля формы Form1, в секции
implementation
, сразу же после ее заголовка добавим строку:
USES
MyUnitReport;
10.
Поместим в форму Form1 кнопки, которые будут использоваться для
вывода отчета и закрытия формы. Для этого выполним следующие действия:
10.1.
Со страницы Standart палитры компонент поместим в правый
нижний угол формы Form1 две кнопки Button, предварительно
освободив этот угол от компонент. Выберем кнопку Button2 и
установим свойству Caption значение Выход.
10.2.
Активизируем эту кнопку мышью и в появившейся заготовке
обработчика события OnClick поместим следующий текст:
procedure
TForm1.Button2Click (Sender: TObject);
begin
Close;
end;
10.3.
Выберем кнопку Button1 и установим ее свойству Caption
значение «Отчет».
10.4.
Активизируем эту кнопку и в появившейся заготовке
обработчика события OnClick поместим следующий текст:
procedure
TForm1.Button1Click (Sender: TObject);
begin
Form2.QuickRep1.Preview;
end;
11.
Сохраним внесенные изменения в проекте.
12.
Запустим программу. Нажмем кнопку Отчет. В результате будет вызвана
утилита QuickReport 2.0, которая отобразит отчет по всем записям в БД
«Телефонная книжка». Завершим работу утилиты QuickReport 2.0
нажатием кнопки Close. Завершим работу программы, нажав кнопку
Выход.
Обработка задания на печать. Класс TQRPrinter

Страницы