Ход работы

Упражнение 14

1. создайте новый проект.

2. Измените свойство Caption формы на «Генератор отчёта по базе данных», а свойство Name на RepGen.

3. Добавьте в проект новую форму, измените её свойство Caption на «Форма отчёта, невидимая пользователю», а её имя на RepForm. Убедитесь, что её свойство Visible установлено в False (как по умолчанию), поскольку эта форма не должна быть видима пользователю. Она будет служить контейнером для компонентов QuickReport.

4. Со страницы Data Access перенесите на эту форму RepForm компонент TTable.

5. Используйте одну из демонстрационных баз данных, поставляемых с Delphi, установив свойство DatabaseName у компонента TTable равным DBDEMOS.

6. Установите свойство TableName у компонента TTable равным ANIMALS.DBF.

7. Установите свойство Active компонента TTable в True.

8. Перенесите со страницы QReport на форму RepForm компо­нент QuickRep.

9. Установите свойство DataSet этого компонента равным Table1.

10. Д

    - 47 -

    важды щёлкните на свойстве Bands компонента QuickRep, чтобы уви­деть соответствующие подсвойства, и установите свойство HasDetail в True. В этот момент вы увидите полосу деталей отчёта.

11. Перенесите компонент QRLabel на полосу деталей компонента QuickRep и задайте свойство Caption равным «Имя животного:».

12. Перенесите на полосу компонент QRDBText, расположив его непосред­ственно справа от QRLabel, задав его свойство DataSet равным Table1, a свойство DataField равным Name.

13. Щёлкните на полосе деталей, чтобы выделить её, и переместите её ниж­нюю границу, чтобы освободить место для изображения.

14. Перенесите на полосу деталей компонент QRDBImage и установите его справа, подобрав размеры полосы и QRDBImage такими, как вам нра­вится.

15. Установите в QRDBImage свойство DataSet в Table1, a DataField в BMP.

Если всё сделано правильно, то можно предварительно просмотреть отчёт, щёлкнув правой кнопкой мыши на QuickRep и выбрав во всплывающем меню раздел Preview (Предварительный просмотр). На экране появится окно предварительного просмотра печати, в котором можно видеть, как выглядят страницы созданного отчёта. можно напечатать этот пример отчёта непосредственно из окна предварительного просмотра, нажав кнопку печати на инструментальной панели.

добавим сейчас в отчёт окно предварительного просмотра.

16. Перенесите на форму RepGen кнопку Button.

17. Измените её свойство Caption на «Просмотр».

18. Дважды щёлкнув на этой кнопке «Просмотр», впишите в обработчик её события OnClick оператор:

RepForm.QuickRep1.Preview;

19. З

    - 48 -

    апустите программу. При компиляции Delphi определит, что вам нужно включить второй модуль в предложение uses первого модуля, и спросит, хотите ли вы сделать добавление в uses. Ответьте утвердительно, и изменение оператора uses будет проведено автоматически. Теперь, когда вы запустите своё приложение и нажмёте кнопку «Просмотр», на экране появится окно предварительного просмотра.

20. Чтобы обеспечить печать отчёта во время выполнения приложения, добавьте на форму RepGen ещё одну кнопку «Печать» и введите в обработчик её события OnClick оператор:

21. RepForm.QuickRep1.Print;

22. Запустите программу и протестируйте её.

Кнопка «Просмотр» показывает окно предварительного просмот­ра, а кнопка «Печать» осуществляет печать отчёта. использованная в этом примере база данных имеет мало записей, так что отчёт при печати будет содержать примерно две страницы. Окно предварительного про­смотра не только показывает вид отчёта, но и даёт номера страниц.

Для включения диаграмм в отчёт используются компоненты TeeChart, расположенные на разных страницах.

КОНТРОЛЬНЫЕ ВОПРОСЫ:

1. Какие компоненты есть на странице QuickReport и для чего они нужны?

2. Для чего нужны полосы?

3. Для чего нужен компонент TQuickRep и какие у него основные свойства и события?

4. Как можно предварительно просмотреть отчёт?

CОДЕРЖАНИЕ ОТЧЕТА

Выполненная работа включает работающие программы, описанные выше и запускаемые с ПК на рабочем месте. Отчет должен содержать наименование работы, цель, ответы на контрольные вопросы, и выводы по выполненной работе.

- 49 -

ПРАКТИЧЕСКАЯ РАБОТА №10

ТЕМА: Подготовка отчётов с диаграммами

ЦЕЛЬ: Изучить основные свойства компонента TeeChart

КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ

TeeChart имеет Мастера (TeeChart Wizard), который облегчает работу по созданию про­екта с использованием TeeChart, проводя через все этапы этого процесса. Выполните в Delphi команду FileNew, в появившемся диалоговом окне New Items щёлкните на закладке Business и вы увидите пиктограмму TeeChart Wizard. Сделайте двойной щелчок на этой пиктограмме, и Мастер для начала попросит выбрать стиль диаграммы. Есть два стиля диаграмм — связанные с базой данных и не связанные. Мастер проведёт вас через серию вопросов о типе диаграммы, подсоединённой базе данных и т. п. В заключение диаграмма появится на форме. И тогда потребуется только добавить код или сделать необходимые изменения в прило­жении.

можно использовать такие компоненты типа TChart, как TDBChart и QRChart, для работы с базами данных и QuickReport (в частности, с помощью компонента QRChart можно добавлять диаграммы или графики в отчёт QuickReport).