动态创建FastReport4报表

最新推荐文章于 2024-03-20 16:02:29 发布

原创最新推荐文章于 2024-03-20 16:02:29 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

【Delphi】同时被 2 个专栏收录

41 篇文章

订阅专栏

【Delphi-Demo】

6 篇文章

订阅专栏

本文介绍了一个使用 Delphi 的 FrxReport 组件创建报告的设计流程。从创建报告页面到添加标题及数据区域，逐步展示了如何构建一个简单的报告模板。

procedure TForm1.Button1Click(Sender: TObject);
var
  vPage: TfrxReportPage;
  vTitle: TfrxPageHeader;
  vView: TfrxMemoView;
  vData: TfrxMasterData;
begin
  frxReport1.Clear;
  vPage := TfrxReportPage.Create(frxReport1);
  vPage.CreateUniqueName;
  vPage.LeftMargin := 10;
  vPage.RightMargin := 10;
  vPage.TopMargin := 10;
  vPage.BottomMargin := 10;
  vTitle := TfrxPageHeader.Create(vPage);
  vTitle.CreateUniqueName;
  vTitle.Height := 20;
  vTitle.Top := 0;

  vView := TfrxMemoView.Create(vTitle);
  vView.CreateUniqueName;
  vView.Top := 0;
  vView.Left := 0;
  vView.Width := vPage.Width;
  vView.Height := vTitle.Height;
  vView.Text := 'This is a title';

  vData := TfrxMasterData.Create(vPage);
  vData.CreateUniqueName;
  vData.Height := 20;
  vData.Top := 0;
//  frxReport1.ShowReport();
  frxReport1.DesignReport();
end;