Создание отчетов

18. Создайте новую форму. Поместите на нее компонент QuickRep, который расположен на вкладке QReport.

19. Поместите на форму компонент Query. Выберите в свойстве DatabaseName свой Alias. Щелкните по свойству SQL и напишем в Редакторе списка строк следующее:

select * from MainTable where goden=true

20. Установите свойству DataSet компонента QuickRep1 значение Query1.

21. . Поместим на созданный отчет два компонента QRBand (все находится на вкладке QReport).

Первый из них будет заголовком отчета. Поместите на него компонент QRLabel – статический текст, который будет помешен на отчет. В его свойстве Caption напишите Список юношей, пригодных к службе. Отформатируйте заголовок, воспользовавшись свойством компонента Font, по своему усмотрению.

22. Для второго компонента QRBand2 измените его свойство BandType на rbDetal.

Поместите на полосу отчета QRBand2 четыре компонента QRDBText. В свойстве DataSet каждого из них выберите Query1. В свойстве DataField выберите название полей. Для выравнивания компонентов QRDBText выберите их все, удерживая нажатой клавишу Shift, затем щелкните по ним правой клавишей и выберите в меню пункт Позиция – Выровнять.

В окне Выравнивание задайте параметры:

Щелкнув правой клавишей по отчету, можно выбрать пункт Preview и посмотреть, что получилось.

23. 5. Для того чтобы, в конце отчета выводилось общее число пригодных либо не пригодных к службе юношей необходимо поместить на отчет еще один компонент – QRBand3. Измените его свойство BandType на rbSummary.

24. .Поместите на итоговую полосу отчета QRExpr.

25. Щелкнем по свойству компонента Expression и выберем в появившемся окне функцию Count

26. Добавьте самостоятельно на итоговую полосу надпись Общее число. Для этого на нижнюю полосу отчета необходимо поместить компонент QRLabel и изменить соответствующим образом свойство Caption.

27. Вернитесь на Form1. Добавьте в меню следующие пункты:

28. Для обработчика события OnClick пункта меню Годные напишите код:

form2.Query1.Close;

form2.Query1.SQL.Clear;

form2.Query1.SQL.add('select * from MainTable where goden=true');

form2.Query1.Active:=true;

form2.QuickRep1.Preview

29. Для обработчика события OnClick пункта меню Не годные напишите код:

form2.Query1.Close;

form2.Query1.SQL.Clear;

form2.Query1.SQL.add('select * from MainTable where goden=false');

form2.Query1.Active:=true;

form2.QuickRep1.Preview

30. . Добавьте самостоятельно заголовки столбцов таблицы. Для этого на верхнюю полосу отчета необходимо поместить компоненты QRLabel и изменить соответствующим образом свойство Caption.

31. Запусите программу и поработайте в ней.

32. Сохраните проект в папке Военкомат, дав соответствующее название проекту и формам.

Вариант контрольного задания:

№ вар.

Задание

1

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

14