IBXDatabase

Комментарии

• aseroff

  December 2006 отредактировано 04:12

  Вы можете передать в отчет конкретный датасет непосредственно из программы.
• Абис

  December 2006 отредактировано 04:12

  А не подскажите как именно? Я в этом не очень силен!
• aseroff

  December 2006 отредактировано 04:12

  Рассмотрим пример на ADO (лень IB устанавливать).
  Считаем, что у нас есть коннект к базе.
  Действия на форме:
  - Ставим запрос (ADOQuery), который выдает нужные нам данные.
  - Кладем на форму frxDBDataset и ставим его свойству DataSet наш запрос (ADOQuery).
  - Кладем на форму frxReport.
  - Запускаем дизайнер отчета.
  
  Действия в дизайнере отчета:
  - Меню Report -> Data, выделяем галочкой наш датасет.
  - Используем наш датасет в отчете как обычно.
  
  
• Абис

  December 2006 отредактировано 04:12

  Дело в том что у меня в самом отчете FastReport имеется диалоговое окно и в зависимости от результата формируется SQL запрос. Необходимо чтобы в отчете всё это происходило. Для этого я там и поставил IBXQuery. Но для того чтобы подсоединиться к базе в frxQuery.Database необходимо чтото прописать. Поэтому мне и пришлось установить ещё и компонент IBXDatabase. Вот у меня и получаются два коннекта к базе из одной программы что мне не очень нравится. А как обойтись без него если в программе уже есть IBDatabase.
• Абис

  December 2006 отредактировано December 2006

  Решил выйти из положения след. образом
  
  procedure TMainForm.frxReport1BeforePrint(c: TfrxReportComponent);
  var
  IBQ: TfrxIBXQuery;
  begin
  if c is TIBXfrxQuery then
  begin
  IBQ := TfrxIBXQuery( c );
  IBQ.Database.Database:=IBDataBase1;
  end;
  end;
  
  и получаю ошибку
  
  Declaration of 'frxReport1BeforePrint' differs from previous declaration
• gpi

  December 2006 отредактировано 04:12

  Попробуйте

  frxIBXComponents1.DefaultDatabase:=IBDataBase1;
  
• Абис

  December 2006 отредактировано December 2006

  Всё вроде нормально но не получается присвоить IBQ.DefaultDatabase:=IBDataBase1
• gpi

  December 2006 отредактировано 04:12

  А зачем?
  Достаточно в программе сделать
  frxIBXComponents1.DefaultDatabase:=IBDataBase1;
  а в самом отчёте добавить запрос. У запроса БД автоматом проставится IBDataBase1
• Абис

  December 2006 отредактировано 04:12

  Огромное спасибо. Всё получилось.