a02050unit.pas

工商收费系统,主要是管理非税收收入的费用的管理

////////////////////////////////////////////////////////////////
//模板名称：A02050Rep
//模板功能；票据打印
//输入参数：ChequeRecord,结构体（内含传递参数）
//输出参数：无
//编写人：李刚
//编写时间：2001年10月7日
////////////////////////////////////////////////////////////////
unit A02050Unit;

interface

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

type
   ChequeRecord=record
      strMoney:string; //金额
      cpYear:string;   // 年
      cpMonth:string;  // 月
      cpDay:string;    // 日
      OutName:string;  // 出款人
      OutCode:string;  // 出款人
      OutBank:string;  // 出款人
      InName:string;   // 收款人
      InCode:string;   // 收款人
      InBank:string;   // 收款人
      strName:string;  // 种类
      strNum:string;   //张数
      { 支票小写金额部分 }
      lowcaseMoney0:string;   // 分
      lowcaseMoney1:string;   // 角
      lowcaseMoney2:string;   // 元
      lowcaseMoney3:string;   // 十
      lowcaseMoney4:string;   // 百
      lowcaseMoney5:string;   // 千
      lowcaseMoney6:string;   // 万
      lowcaseMoney7:string;   // 十万
      lowcaseMoney8:string;   // 百万
      lowcaseMoney9:string;   // 千万
   end;

type
  TA02050Rep = class(TForm)
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    MoneyQdt9: TQRLabel;
    MoneyQdt8: TQRLabel;
    MoneyQdt7: TQRLabel;
    MoneyQdt6: TQRLabel;
    MoneyQdt5: TQRLabel;
    MoneyQdt4: TQRLabel;
    MoneyQdt3: TQRLabel;
    MoneyQdt2: TQRLabel;
    MoneyQdt1: TQRLabel;
    MoneyQdt0: TQRLabel;
    YearQdt: TQRLabel;
    MonthQdt: TQRLabel;
    DayQdt: TQRLabel;
    OutNameQdt: TQRLabel;
    OutCodeQdt: TQRLabel;
    OutBankQdt: TQRLabel;
    InNameQdt: TQRLabel;
    InCodeQdt: TQRLabel;
    InBankQdt: TQRLabel;
    NameQdt: TQRLabel;
    NumQdt: TQRLabel;
    MoneyQdt: TQRLabel;
  private
    { Private declarations }
  public
    function CallPrintCheque(dataRecord:ChequeRecord):integer;
    { Public declarations }
  end;

var
  A02050Rep: TA02050Rep;

implementation

uses A02050F002Unit;



{$R *.DFM}

function TA02050Rep.CallPrintCheque(dataRecord:ChequeRecord):integer;
begin
   { 初始化 }
   Application.CreateForm(TA02050Rep, A02050Rep);
   A02050Rep.Parent:=A02050F002Frm;   // 必须为其设置父窗口

   A02050Rep.YearQdt.Caption         := dataRecord.cpYear;
   A02050Rep.MonthQdt.Caption        := dataRecord.cpMonth;
   A02050Rep.DayQdt.Caption          := dataRecord.cpDay;
   A02050Rep.OutNameQdt.Caption      := dataRecord.OutName;
   A02050Rep.OutCodeQdt.Caption      := dataRecord.OutCode;
   A02050Rep.OutBankQdt.Caption      := dataRecord.OutBank;
   A02050Rep.InNameQdt.Caption       := dataRecord.InName;
   A02050Rep.InCodeQdt.Caption       := dataRecord.InCode;
   A02050Rep.InBankQdt.Caption       := dataRecord.InBank;
   A02050Rep.MoneyQdt.Caption        := dataRecord.strMoney;
   A02050Rep.NameQdt.Caption         := dataRecord.strName;
   A02050Rep.NumQdt.Caption          := dataRecord.strNum;
   { 小写金额部分 }
   A02050Rep.MoneyQdt0.Caption       := dataRecord.lowcaseMoney0;
   A02050Rep.MoneyQdt1.Caption       := dataRecord.lowcaseMoney1;
   A02050Rep.MoneyQdt2.Caption       := dataRecord.lowcaseMoney2;
   A02050Rep.MoneyQdt3.Caption       := dataRecord.lowcaseMoney3;
   A02050Rep.MoneyQdt4.Caption       := dataRecord.lowcaseMoney4;
   A02050Rep.MoneyQdt5.Caption       := dataRecord.lowcaseMoney5;
   A02050Rep.MoneyQdt6.Caption       := dataRecord.lowcaseMoney6;
   A02050Rep.MoneyQdt7.Caption       := dataRecord.lowcaseMoney7;
   A02050Rep.MoneyQdt8.Caption       := dataRecord.lowcaseMoney8;
   A02050Rep.MoneyQdt9.Caption       := dataRecord.lowcaseMoney9;

   A02050Rep.QuickRep1.Preview ;
   A02050Rep.Free;
end;


end.