ureportdesign.pas

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

unit uReportDesign;

interface

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

type
  TfrmReportDesign = class(TForm)
    frxReport1: TfrxReport;
    frxDesigner1: TfrxDesigner;
    frxDBDataset1: TfrxDBDataset;
    frxCrossObject1: TfrxCrossObject;
    qryAccess: TADOQuery;
    qryAccessfMenuID: TAutoIncField;
    qryAccessfMenuName: TWideStringField;
    qryAccessfMenuUnit: TWideStringField;
    qryAccessfMenuPrice: TIntegerField;
    qryAccessfMenuType: TWideStringField;
    qryAccessfMenuMemo: TWideStringField;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmReportDesign: TfrmReportDesign;

implementation

{$R *.dfm}

procedure TfrmReportDesign.btn1Click(Sender: TObject);
begin
    with frxReport1 do
  begin
    Modified := True;
    //Title := '新报表';
    LoadFromFile('frDetail.fr3');
    //PrepareReport;
    DesignReport;
  end;
end;

end.