Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.045 c
4-1091194337
nexxiss
2004-07-30 17:32
2004.09.12
ALT+TAB


3-1092045182
Black-Grin
2004-08-09 13:53
2004.09.12
TDBF - проблема закрытия файла


14-1092978882
Cobalt
2004-08-20 09:14
2004.09.12
Выселение ГПНТБ???


1-1093366696
mouse_web
2004-08-24 20:58
2004.09.12
Как отобразить MEMO поля в QuickReport ?


4-1091311946
BaG
2004-08-01 02:12
2004.09.12
Автоматическое включение компьютера