report.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 54 行

unit Report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Buttons, RpCon,
  RpConDS, RpConBDE, DB, DBTables, RpDefine, RpRave;

type
  TReportFrm = class(TForm)
    RvProject1: TRvProject;
    Database1: TDatabase;
    Query1: TQuery;
    RvQueryConnection1: TRvQueryConnection;
    Button1: TButton;
    Button2: TButton;
    Query2: TQuery;
    RvQueryConnection2: TRvQueryConnection;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ReportFrm: TReportFrm;

implementation

{$R *.dfm}

procedure TReportFrm.Button1Click(Sender: TObject);
begin
  RvProject1.ProjectFile:='.\room_benefit.rav';
  RvProject1.Execute;
  RvProject1.Close;
end;

procedure TReportFrm.Button2Click(Sender: TObject);
begin
  RvProject1.ProjectFile:='.\table_benefit.rav';
  RvProject1.Execute;
  RvProject1.Close;
end;





end.