Кросс-таблица через pivot-таблицу

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: John Crowley

Мне нужна помощь по реализации запроса кросс-таблицы в Delphi. У кого-нибудь имеется соответствующий опыт?

Использовать pivot-таблицу должен все тот-же общий механизм (относительно к любой базе данных SQL).

Предположим, что у нас есть данные продаж в таблице с полями Store, Product, Month, Sales, и вам необходимо отображать данные по продуктам за каждый месяц. (Примем, что поле ‘month’ для простоты имеет значения 1..12.)

Оригинальные данные примера:

Store Product Month Sales

#1 Toys 1 100

#2 Toys 1 68

#1 Toys 2 150

#1 Books 1 75

…

Желаемый отчет должен выглядеть похожим на этот:

Product January February March …..

Toys 168 150

Books 75 …..

Установите pivot-таблицу с именем tblPivot и 12 строками:

pvtMonth pvtJan pvtFeb pvtMar pvtApr ….

1 1 0 0 0 ….

2 0 1 0 0

3 0 0 1 0

4 0 0 0 1

…..

Теперь запрос, выполненный в виде:

select Product, January=sum(Sales*pvtJan),

February=sum(Sales*pvtFeb),

March=sum(Sales*pvtMar),

April=sum(Sales*pvtApr),…

where Month = pvtMonth

group by Product

даст вам информацию, опубликованную выше.

Поскольку pivot-таблица имеет только 12 строк, большинство SQL-движков сохранят результат в кэшовой памяти, так что скорость выполнения запроса весьма велика.

{/codecitation}