我找到以下资料:
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];
frReport1.loadfromfile('D:/delphi/AA/up.frf');
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."编号"]');
Page.Objects.Add(v);
frReport1.ShowReport;
end;
它能够显示一个没有内容的预览框.怎样才能将("UF.FRF")加入以上代码将它调出来?
