在预览fastreport报表之前改变一些报表对象的属性
有时候许多报表很可能大同小异,只是有个别地方显示的不同,如报表标题,一些控件标题等等。
这样我们只需要设计一次报表,在许多地方调用同一份报表,这时候,我们可能需要在显示一份报表前,稍微改变一下样式或内容(适用于fastreport3.0):
procedure TForm2.printReportButtonClick(Sender: TObject);
var
s:tfrxMemoView;//申明一个fastreport的memo控件对象
begin
frxreport1.PrepareReport();//检索报表对象前先准备报表,参数类型boolean,默认true,表示预先清掉上一次报表显示的内容
s:=TFrxMemoView(frxreport1.FindObject('memo19'));//查找memo19对象并转换成一个tfrxmemoview类
s.Text:=remarkstr;//改变该控件的显示文本的值
s:=TFrxMemoView(frxreport1.FindObject('memo14'));
s.Text:=areastr;
s:=TFrxMemoView(frxreport1.FindObject('memo1'));
s.text:=captionstr;
frxreport1.ShowReport(true);//显示报表
end;
var
s:tfrxMemoView;//申明一个fastreport的memo控件对象
begin
frxreport1.PrepareReport();//检索报表对象前先准备报表,参数类型boolean,默认true,表示预先清掉上一次报表显示的内容
s:=TFrxMemoView(frxreport1.FindObject('memo19'));//查找memo19对象并转换成一个tfrxmemoview类
s.Text:=remarkstr;//改变该控件的显示文本的值
s:=TFrxMemoView(frxreport1.FindObject('memo14'));
s.Text:=areastr;
s:=TFrxMemoView(frxreport1.FindObject('memo1'));
s.text:=captionstr;
frxreport1.ShowReport(true);//显示报表
end;
posted on 2008-11-07 00:40 江宇旋 阅读(...) 评论(...) 编辑 收藏