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

ВОПРОС:

Мне нужна помощь по реализации запроса кросс-таблицы в 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-движков сохранят результат в кэшовой памяти, так что скорость выполнения запроса весьма велика.