paperprint.pas

来自「电子充值系统:全球通的充值卡通过POS机传到销售点.」· PAS 代码 · 共 86 行

unit PaperPrint;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, DBTables;

type
  TfrmPaperPrint = class(TQuickRep)
    bdPageHeader: TQRBand;
    bgDetail: TQRBand;
    bdPageFooter: TQRBand;
    qyReport: TQuery;
    qyReportCARDCODE: TStringField;
    qyReportCARDTYPE: TStringField;
    qyReportCARDPARVALUE: TFloatField;
    qyReportPUBLISHCODE: TStringField;
    qyReportSERIALNUMBER: TStringField;
    qyReportCARDNO: TStringField;
    qyReportPASSWORD: TStringField;
    qyReportENDDATE: TDateTimeField;
    qyReportCHECKCODE: TStringField;
    qyReportCREATEMAN: TStringField;
    qyReportCREATEDATE: TDateTimeField;
    qyReportBOUT: TStringField;
    qyReportPAYCODE: TFloatField;
    qyReportSALECODE: TStringField;
    qyReportPRINTMAN: TStringField;
    qyReportPRINTDATE: TDateTimeField;
    qyReportGLIDECODE: TFloatField;
    qyReportOUTTYPE: TStringField;
    QRDBText4: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRLabel9: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    QRDBText23: TQRDBText;
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private

  public

  end;
  procedure ProPaperPrint(SaleCode,BeginSerialNumber,EndSerialNumber: String);

var
  frmPaperPrint: TfrmPaperPrint;

implementation

uses Main;

{$R *.DFM}
procedure ProPaperPrint(SaleCode,BeginSerialNumber,EndSerialNumber: String);
begin 
  with frmPaperPrint.qyReport do
  begin
    Close;
    ParamByName('SaleCode').AsString := SaleCode;
    ParamByName('BeginSerialNumber').AsString := BeginSerialNumber;
    ParamByName('EndSerialNumber').AsString := EndSerialNumber;
    Open;
  end;
  frmPaperPrint.Preview;
  //frmPaperPrint.Print;
end;

procedure TfrmPaperPrint.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  PrintReport := True;
end;

end.