Отчет из бд в excel генерация сводной таблицы

[reihtmonbern]

Здравствуйте хочу вам презентовать скаченную из интернета супер мега шпегу программу суть вопроса такова проект реализован под delphi 7 а как его переделать в delphi 2010 не знаю точнее в 7 ой версиии просто использован компонент TExcelApplication а как вы знаете этого компонента нет в 10 версии там с офисом приходиться работать через олесервер так вот заговстка в том что мне не хватает ума (знаний) как код переделать правильно ?? помогите пожалуйста ?!

[Скандербег]

Нет ничего проще.
При загрузке проекта в Д2010 на недоумения среды: "класс TExcelApplication не найден. Игнорировать ошибку и продолжать?". Сказать "Игнорировать".
Затем в тексте проделать несложные изменения:

type
  TForm1 = class(TForm)
    btnReport: TButton;
    procedure btnReportClick(Sender: TObject);
  private
    XLS: TExcelApplication;
  public
  end;

...
procedure TForm1.btnReportClick(Sender: TObject);
var
     WB:_WorkBook;
     WS:_WorkSheet;
     PC:PivotCache;
     PT:PivotTable;
     i:byte;
begin
  XLS := TExcelApplication.Create(nil);
     try
...
     finally
          XLS.EnableEvents:=True;
          PT.ManualUpdate:=True;
          btnReport.Enabled:=True;
          XLS.Interactive[LCID]:=True;
          XLS.Disconnect;
       XLS.Free;
     end;
end;

Создание экземпляра класса и его уничтожение лучше, конечно, делать в отдельных процедурах. Например, в обработчиках событий OnCreat (создание) и OnClose (освобождение памяти). Потому как метод Free не только освободит память от экземпляра класса но и закроет ексель. Но если это не противоречит логике проекта, то можно оставить и здесь.

[reihtmonbern]

Здравствуйте ещё раз у меня проблемка короче я переделал проект как сказали вот начинаю теперь его адаптировать под свою базу и ни получается ничего точнее получается просто пустой шаблон сводной таблицы без данных и ещё + кака е то ошибка из за экселя

[Скандербег]

Ни чего у тебя паря не получится из за не понимания что за pivot table в примере совсем другая структура а pivot это когда данные назначаются заголовками но не все а частично брось это дохлое дело и экспортируй нормально без этой pivot фигни.

[reihtmonbern]

Сообщение от Скандербег

Ни чего у тебя паря не получится из за не понимания что за pivot table в примере совсем другая структура а pivot это когда данные назначаются заголовками но не все а частично брось это дохлое дело и экспортируй нормально без этой pivot фигни.

Но мне очень нужна сводная таблица такая форма отчета !?
Короче как ты наверное понял из sql запроса у меня там слово договор дублируется многократно вот ... я бы хотел как в сводной таблице что бы те наименования которые соответствуют договору под него выстроились.
Я конечно эту задачу решил двумя способами через генератор отчетов FastReport и просто экспортом через адоквери в эксель с дублирующими строками договор а потом в эксель я макрос намутил который из этих данных делает сводную таблицу но одно но этот способ весьма не надежен работает глючно . Хотелось бы культурно высокопрофессионально решить эту задачу как в данном примере ... ! ) что бы все работало наверняка..