3. Группировка, итоги

Отчет с группами

В предыдущем примере мы строили двухуровневый отчет на основе данных

из двух таблиц. FastReport позволяет построить аналогичный отчет на основе

одного набора данных, сформированного особым способом.

Для этого необходимо составить запрос на языке SQL, который вернет

данные из обеих таблиц, сгруппированные по определенному условию. В нашем

случае условие – соответствие полей CustNo в обеих таблицах. SQL-запрос может

выглядеть следующим образом:

select * from customer, orders

where orders.CustNo = customer.CustNo

order by customer.CustNo

Строка "order by" нужна для сортировки записей по полю CustNo. Запрос

вернет данные примерно следующего вида:

CustNo Company … OrderNo SaleDate

1221 Kauai Dive Shoppe 1023 01.07.1988

1221 Kauai Dive Shoppe 1123 24.08.1993

1231 Unisco 1060 28.02.1989

1351 Sight Diver 1003 12.04.1988

1351 Sight Diver 1052 06.01.1989

1351 Sight Diver 1055 04.02.1989

Как на основе этих данных построить многоуровневый отчет? В FastReport

для этого есть специальный бэнд – "Заголовок группы". У бэнда задается условие

(значение поля БД или выражение), при смене которого происходит вывод бэнда.

Продемонстрируем это на примере.

Создадим новый проект в Delphi, на форму положим компоненты TQuery,

TfrxReport, TfrxDBDataSet. Настроим их следующим образом:

Query1:

DatabaseName = 'DBDEMOS'

SQL =

select * from customer, orders

where orders.CustNo = customer.CustNo

order by customer.CustNo

frxDBDataSet1:

DataSet = Query1

UserName = 'Group'

Зайдем в дизайнер и подключим наш источник данных к отчету. Добавим в

отчет два бэнда: "Заголовок группы" и "Данные 1 уровня". В редакторе бэнда

"Заголовок группы" укажем условие – поле данных Group.CustNo:

Дата-бэнд привяжем к источнику данных Group и разместим объекты

следующим образом (обратите внимание, что заголовок группы должен

располагаться над дата-бэндом):

При запуске получится отчет следующего вида:

Как видно, бэнд "Заголовок группы" выводится только в том случае, когда

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

выводится связанный с группой дата-бэнд. Если сравнить этот отчет с отчетом

master-detail, который мы строили ранее, то видно, что номера заказов здесь не

отсортированы по возрастанию. Это легко исправить, изменив текст запроса SQL:

select * from customer, orders

where orders.CustNo = customer.CustNo

order by customer.CustNo, orders.OrderNo

Аналогичным образом можно строить отчеты с вложенными группами, при

этом количество вложений не ограничено. Таким образом, отчеты с группами

имеют ряд преимуществ над отчетами типа master-detail:

- требуется только одна таблица (запрос) для всего отчета;

- число уровней вложенности данных не ограничено;

- возможность дополнительной сортировки данных;

- более рациональное использование ресурсов СУБД – запрос возвращает только те

данные, которые должны быть напечатаны, отсутствует фильтрация данных.

Единственный минус – необходимость написания запросов на языке SQL.

Впрочем, знание основ SQL является обязательным для программиста,

работающего с базами данных.

На оценку 3

Законспектируй материал практической работы.

Создайте простой отчет по таблице клиентов, (Смотри флеш-ролик).

Для этого:

1. Создайте новую форму ot1 сохраните как UnitOt1

2. в главном меню отчеты создайте подменю «Отчёт по клиентам» из которого будет запускаться форма ot1

3. пропишите код, для того чтобы из меню запускалась форма ot1.

На оценку 4

Создай отчет в котором в заголовке использовались бы данные таблицы Predpr.( Можно использовать еще один компонент SQLQuery и соответственно еще один DataSet)

На оценку 5

Используйте линии для оформления отчета