fpprint.pas

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

unit FpPrint;

interface

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

type
  TfrptFp = class(TQuickRep)
    QRSubDetail1: TQRSubDetail;
    QRBand2: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRSubDetail2: TQRSubDetail;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    procedure QRDBText7Print(sender: TObject; var Value: String);
    procedure QRDBText9Print(sender: TObject; var Value: String);

  private

  public

  end;

var
  frptFp: TfrptFp;

implementation

uses PrintTicket, dmPawn;

{$R *.DFM}




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

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

end.