FastReport中国社区FastReport联系电话 联系电话:023-68661681

FastReport报表示例:运行时使用代码手工合成报表

来源:   发布时间:2016-08-08   浏览:3948次

有时报表的结构在应用的设计阶段是不确定的或者它需要在运行时改变。这种情况就必须动态创建报表模板。象这种情况,报表不固定,所以不能通过程序员为软件定义一个相应的独立文件到一个新窗体中,只能使用最终用户报表。对于FastReport,它利用你自己的程序代码动态创建报表窗体,就象VCL对象一样。

这个例子可以从RUNTIME子目录中找到。这个例子中,当按下按钮后,一个从CUSTOMER.DB数据表接收公司列表的报表将被创建。这个按钮的OnClick事件处理的源代码显示如下:

procedure TForm1.Button1Click(Sender: TObject);
var
v: TfrView;
b: TfrBandView;
Page: TfrPage;
begin
frReport1.Pages.Clear;
frReport1.Pages.Add; // create page
Page := frReport1.Pages[0];

b := TfrBandView(frCreateObject(gtBand, '')); // create MasterData band
b.SetBounds(0, 20, 0, 20);
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet1';
Page.Objects.Add(b);

v := frCreateObject(gtMemo, ''); // create data field
v.SetBounds(20, 20, 200, 16);
v.Memo.Add('[Table1."Company"]');
Page.Objects.Add(v);

frReport1.ShowReport;
end;

首先这个代码删除报表中所有可用的页面,然后创建一个空白页:

frReport1.Pages.Clear;
frReport1.Pages.Add; // create page

接着在这个页上创建“主项数据”区域,并指定数据源:

Page := frReport1.Pages[0];

b := TfrBandView(frCreateObject(gtBand, '')); // create MasterData band
b.SetBounds(0, 20, 0, 20);
b.BandType := btMasterData;
b.Dataset := 'frDBDataSet1';
Page.Objects.Add(b);

下一步是创建一个“Text”对象,并指定到CUSTOMER.DB数据表的COMPANY字段:

v := frCreateObject(gtMemo, ''); // create data field
v.SetBounds(20, 20, 200, 16);
v.Memo.Add('[Table1."Company"]');
Page.Objects.Add(v);

最后使用事件处理在预览中显示准备好的报表。

本站文章除注明转载外,均为本站原创或翻译
欢迎任何形式的转载,但请务必注明出处,尊重他人劳动成果
转载请注明:文章转载自:FastReport控件中文网 [https://www.fastreportcn.com/]
本文地址:https://www.fastreportcn.com/post/1195.html

联系我们
  • 重庆总部 023-68661681
购买
  • sales@evget.com
合作
  • business@evget.com


扫码咨询
电话咨询
023-68661681
返回
顶部