FastReport - как программно связать TfrQuery c базой приложения? [D5, WinXP]
leonon © (2004-08-14 13:43:00)
Добрый день! В FastReporte построен шаблон отчета,
использующий элементы TfrFIBQuery. В основном приложении я создаю
экземпляр TpFIBDatabase. Как мне программно эту базу назначить всем
элементам TfrFIBQuery?
Mim1 (2004-08-14 14:47:00) [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('Период - по
всем');
...
и т.д.
Наверх 
ЧАТ |
Орешник |
|
