Форум: "Базы";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];

Вниз

FastReport - как программно связать TfrQuery c базой приложения?   Найти похожие ветки 

← →
leonon ©   (2004-08-14 13:43) [0]

Добрый день! В FastReporte построен шаблон отчета, использующий элементы TfrFIBQuery. В основном приложении я создаю экземпляр TpFIBDatabase. Как мне программно эту базу назначить всем элементам TfrFIBQuery?

---

← →
Mim1 ©   (2004-08-14 14:47) [1]

К обьектам находящимся "внутри загруженного шаблона" обращаться можно так.

var
 Page: TfrPage;
 m : TfrView;
 i : Integer;
 order : string;
 gha : array[1..4] of TfrBandView;
 mfa : array[1..4] of TfrView;
 ma : array[1..4] of TfrView;
begin
 ms.Position := 0;
 frReport1.LoadFromStream(ms);
 
 Page := frReport1.Pages[0];
 m := Page.FindObject("Memo4");
 for i:= 1 to 4 do
   gha[i] := TfrBandView(Page.FindObject("GroupHeader"+IntToStr(i)));
 for i:= 1 to 4 do
   mfa[i] := TfrBandView(Page.FindObject("#Memo"+IntToStr(i)));
 for i:= 1 to 4 do
   ma[i] := TfrView(Page.FindObject("_Memo"+IntToStr(i)));
 m.Memo.Clear;
 ReSortList;
 for i:= 0 to PanelList.count-1 do
   case tpanel(PanelList[i]).tag of
     1:
       if PeriodID <> 0 then
         m.Memo.Add("Период - ""+LabeledEdit1.Text+""")
       else
         m.Memo.Add("Период - по всем");
...

и т.д.

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c