ureport.pas

fastreport演示程序。fastreport是vcl库的下的一个报表三方控件

unit uReport;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxClass, frxDBSet, frxPreview, frxDesgn, DB, ADODB, StdCtrls,
  frxADOComponents, frxCross;

type
  TfrmReport = class(TForm)
    frxPreview1: TfrxPreview;
    frxDBDataset1: TfrxDBDataset;
    frxDesigner1: TfrxDesigner;
    btnDesign: TButton;
    frxReport1: TfrxReport;
    procedure FormCreate(Sender: TObject);
    procedure frxReport1GetValue(const VarName: String;
      var Value: Variant);
    procedure btnDesignClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ReportFile: string;
  end;

var
  frmReport: TfrmReport;

implementation

uses dmConn, uReportDesign;

{$R *.dfm}

procedure TfrmReport.FormCreate(Sender: TObject);
begin
  frxReport1.FileName := '报表设计器';
end;

procedure TfrmReport.frxReport1GetValue(const VarName: String;
  var Value: Variant);
begin
  if VarName = 'Title' then  //报表中所定义变量[Title]赋值
    Value := '演示报表';
end;

procedure TfrmReport.btnDesignClick(Sender: TObject);
begin
  with frxReport1 do
  begin
    Modified := True;
    LoadFromFile(ReportFile);
    DesignReport;
  end;
end;

end.