ugo_report.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

unit ugo_report;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, QuickRpt, qrprntr;

type
  Tgo_report = class(TForm)
    QuickRep1: TQuickRep;
    QuickRep2: TQuickRep;
    QuickRep3: TQuickRep;
    QuickRep4: TQuickRep;
    QuickRep5: TQuickRep;
    procedure QuickRep1Preview(Sender: TObject);
    procedure QuickRep2Preview(Sender: TObject);
    procedure QuickRep3Preview(Sender: TObject);
    procedure QuickRep4Preview(Sender: TObject);
    procedure QuickRep5Preview(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  go_report: Tgo_report;

implementation

uses ug_preview;

{$R *.DFM}

procedure Tgo_report.QuickRep1Preview(Sender: TObject);
begin
  g_preview.QRPreview1.QRPrinter := TQRPrinter(Sender);
  g_preview.Showmodal;
end;

procedure Tgo_report.QuickRep2Preview(Sender: TObject);
begin
  g_preview.QRPreview1.QRPrinter := TQRPrinter(Sender);
  g_preview.Showmodal;
end;

procedure Tgo_report.QuickRep3Preview(Sender: TObject);
begin
  g_preview.QRPreview1.QRPrinter := TQRPrinter(Sender);
  g_preview.Showmodal;

end;

procedure Tgo_report.QuickRep4Preview(Sender: TObject);
begin
  g_preview.QRPreview1.QRPrinter := TQRPrinter(Sender);
  g_preview.Showmodal;

end;

procedure Tgo_report.QuickRep5Preview(Sender: TObject);
begin
  g_preview.QRPreview1.QRPrinter := TQRPrinter(Sender);
  g_preview.Showmodal;

end;

end.