rptticket.pas

来自「一个典当行的业务管理系统程序」· PAS 代码 · 共 77 行

unit rptTicket;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;

type
  TfrptTicket = class(TQuickRep)
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRSubDetail1: TQRSubDetail;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    QRDBText13: TQRDBText;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    QRDBText17: TQRDBText;
    QRDBText18: TQRDBText;
    QRBand2: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRSubDetail2: TQRSubDetail;
    QRDBText21: TQRDBText;
    QRDBText19: TQRDBText;
    QRDBText20: TQRDBText;
    QRDBText22: TQRDBText;
    QRDBText23: TQRDBText;
    QRDBText24: TQRDBText;
    QRDBText25: TQRDBText;
    QRDBText26: TQRDBText;
    QRDBText27: TQRDBText;
    QRDBText28: TQRDBText;
    QRDBText29: TQRDBText;
    QRDBText30: TQRDBText;
    QRDBText31: TQRDBText;
    QRDBText32: TQRDBText;
    QRDBText33: TQRDBText;
    QRDBText34: TQRDBText;
    procedure QRDBText18Print(sender: TObject; var Value: String);
    procedure QRDBText21Print(sender: TObject; var Value: String);
  private

  public

  end;
var
  frptTicket: TfrptTicket;

implementation

uses dmPawn, PrintTicket;


{$R *.DFM}

procedure TfrptTicket.QRDBText18Print(sender: TObject; var Value: String);
begin
     VALUE:=frmPrint.MoneyFormat(Value,2);
     fmtStr(value,'%10s',[Value]);
end;

procedure TfrptTicket.QRDBText21Print(sender: TObject; var Value: String);
begin
     VALUE:=frmPrint.MoneyFormat(Value,2);
     fmtStr(value,'%10s',[Value]);
end;

end.