ureport_print.pas

专业的评标管理系统

{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：uReport-Print                                     *│
'│*** 功能描述：打印报表                                                       *│
'│*** 编写人员：孙会强　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-06-06　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：孙会强　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}


unit uReport_print;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, Qrctrls, StdCtrls, Buttons, ExtCtrls, Db, DBTables;

type
  Tfm_report = class(TForm)
    QuickRep1: TQuickRep;
    Query1: TQuery;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel31: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel21: TQRLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  fm_report: Tfm_report;
  FCoName:String;//Company Name
  FProName:String;//Project Name
  FCode:String;//Flow Code;
  procedure PreViewReport;
implementation

{$R *.DFM}

procedure PreViewReport;
begin
     FCoName:=''+'公司：';
     FProName:='中国建设总公司';
     FCode:='2222222222222';
     fm_report:=Tfm_report.Create(nil);
     try
         fm_Report.QuickRep1.PreviewModal ;
     finally
         fm_Report.Free;
     end;

end;
procedure Tfm_report.BitBtn1Click(Sender: TObject);
begin
     QuickRep1.Preview;
end;

procedure Tfm_report.FormCreate(Sender: TObject);
begin
    QRLabel3.Caption:=FCoName;
    QRLabel4.Caption:=FProName;
    QRLabel8.Caption:=FCode;

end;

end.