//用fastreport
//在fastreport动态创建对象:
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);
//下一步是创建一个“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);
end;