a04049unit.pas

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

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

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, ExtCtrls, Qrctrls, Db, ADODB,Inifiles,Printers;

type
   ChequeRecord=record
      Money:string; //金额
      cpYear:string;   // 年
      cpMonth:string;  // 月
      cpDay:string;    // 日
      Jiesuan1:string;  // 结算1
      Jiesuan2:string;  // 结算2
      Jiesuan3:string;  // 结算3
      Huakuan1:string;  //划款方式1
      Huakuan2:string;  //划款方式2
      Huakuan3:string;  //划款方式3
      Bishu1:string;  // 笔数1
      Bishu2:string;  // 笔数2
      Bishu3:string;  // 笔数3
      Shouxufei1:string;   // 手续费1
      Shouxufei2:string;   // 手续费2
      Shouxufei3:string;   // 手续费3
      Youfei1:string;   // 邮费1
      Youfei2:string;   // 邮费2
      Youfei3:string;   // 邮费3
      Dianbaofei1:string;   // 电报费1
      Dianbaofei2:string;   // 电报费2
      Dianbaofei3:string;   // 电报费3
      Xiaoji1:string;  // 小计1
      Xiaoji2:string;  // 小计2
      Xiaoji3:string;  // 小计3
      Heji1:string;   //合计1
      Heji2:string;   //合计2
      Heji3:string;   //合计3
      Heji4:string;   //合计4
      Heji5:string;   //合计5      
      Zhanghu:string;  //帐户                   
   end;

type
  TA04049Rep = class(TForm)
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    YearQdt: TQRLabel;
    MonthQdt: TQRLabel;
    DayQdt: TQRLabel;
    MoneyQdt: TQRLabel;
    Jiesuan3: TQRLabel;
    Jiesuan2: TQRLabel;
    Jiesuan1: TQRLabel;
    Huakuan1: TQRLabel;
    Huakuan2: TQRLabel;
    Huakuan3: TQRLabel;
    Bishu1: TQRLabel;
    Bishu2: TQRLabel;
    Bishu3: TQRLabel;
    Shouxufei1: TQRLabel;
    Shouxufei2: TQRLabel;
    Shouxufei3: TQRLabel;
    Youfei1: TQRLabel;
    Youfei2: TQRLabel;
    Youfei3: TQRLabel;
    Dianbaofei1: TQRLabel;
    Dianbaofei2: TQRLabel;
    Dianbaofei3: TQRLabel;
    Xiaoji1: TQRLabel;
    Xiaoji2: TQRLabel;
    Xiaoji3: TQRLabel;
    Heji5: TQRLabel;
    Heji4: TQRLabel;
    Heji3: TQRLabel;
    Heji2: TQRLabel;
    Heji1: TQRLabel;
    zhanghu: TQRLabel;
    SelectAQey: TADOQuery;
    QRLMoney: TQRLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    function CallPrintCheque(dataRecord:ChequeRecord):integer;
    { Public declarations }
  end;

var
  A04049Rep: TA04049Rep;
   borderini:Tinifile;

implementation

uses A04049F002Unit, DataLinkUnit, GlobalLibUnit;



{$R *.DFM}

function TA04049Rep.CallPrintCheque(dataRecord:ChequeRecord):integer;
begin
   { 初始化 }
   Application.CreateForm(TA04049Rep, A04049Rep);
   A04049Rep.Parent:=A04049F002Frm;   // 必须为其设置父窗口
   borderini:=Tinifile.Create(ExtractFilePath(Application.EXEName)+'ini\Border.ini');
   with A04049Rep do begin
   //DMMain.AdoQueryOpen('select * from TC10 Where D01='''+'04049'+'''',SelectAQey,'0','1');
   Quickrep1.Page.LeftMargin:=Quickrep1.Page.LeftMargin
             +borderini.ReadInteger('04049','left',0)+gintleft;
   Quickrep1.Page.TopMargin:=Quickrep1.Page.TopMargin
             +borderini.ReadInteger('04049','top',0)+ginttop;
   if borderini.ReadInteger('04049','orientation',0)=0 then
      Quickrep1.Page.Orientation:=poPortrait
   else
      Quickrep1.Page.Orientation:=poLandscape;
   end;
//   DMMain.AdoQueryOpen('select * from TC10 Where D01='''+'04049'+'''',SelectAQey,'0','1');
//   A04049Rep.QuickRep1.Page.LeftMargin:=A04049Rep.QuickRep1.Page.LeftMargin
//             +A04049Rep.SelectAQey.FieldByName('DLeft').AsInteger;
//   A04049Rep.QuickRep1.Page.TopMargin:=A04049Rep.QuickRep1.Page.TopMargin
//             +A04049Rep.SelectAQey.FieldByName('DTop').AsInteger;

   A04049Rep.YearQdt.Caption         := dataRecord.cpYear;
   A04049Rep.MonthQdt.Caption        := dataRecord.cpMonth;
   A04049Rep.DayQdt.Caption          := dataRecord.cpDay;
   A04049Rep.MoneyQdt.Caption        := dataRecord.Money;
   A04049Rep.Jiesuan1.Caption        := dataRecord.Jiesuan1;
   A04049Rep.Jiesuan2.Caption        := dataRecord.Jiesuan2;
   A04049Rep.Jiesuan3.Caption        := dataRecord.Jiesuan3;
   A04049Rep.Huakuan1.Caption        := dataRecord.Huakuan1;
   A04049Rep.Huakuan2.Caption        := dataRecord.Huakuan2;
   A04049Rep.Huakuan3.Caption        := dataRecord.Huakuan3;
   A04049Rep.Bishu1.Caption        := dataRecord.Bishu1;
   A04049Rep.Bishu2.Caption        := dataRecord.Bishu2;
   A04049Rep.Bishu3.Caption        := dataRecord.Bishu3;
   A04049Rep.Shouxufei1.Caption        := dataRecord.Shouxufei1;
   A04049Rep.Shouxufei2.Caption        := dataRecord.Shouxufei2;
   A04049Rep.Shouxufei3.Caption        := dataRecord.Shouxufei3;
   A04049Rep.Youfei1.Caption        := dataRecord.Youfei1;
   A04049Rep.Youfei2.Caption        := dataRecord.Youfei2;
   A04049Rep.Youfei3.Caption        := dataRecord.Youfei3;
   A04049Rep.Dianbaofei1.Caption        := dataRecord.DianBaofei1;
   A04049Rep.Dianbaofei2.Caption        := dataRecord.DianBaofei2;
   A04049Rep.Dianbaofei3.Caption        := dataRecord.DianBaofei3;
   A04049Rep.Xiaoji1.Caption        := dataRecord.Xiaoji1;
   A04049Rep.Xiaoji2.Caption        := dataRecord.Xiaoji2;
   A04049Rep.Xiaoji3.Caption        := dataRecord.Xiaoji3;
   A04049Rep.Heji1.Caption        := dataRecord.Heji1;
   A04049Rep.Heji2.Caption        := dataRecord.Heji2;
   A04049Rep.Heji3.Caption        := dataRecord.Heji3;
   A04049Rep.Heji4.Caption        := dataRecord.Heji4;
   A04049Rep.Heji5.Caption        := dataRecord.Heji5;
   A04049Rep.zhanghu.Caption        := dataRecord.zhanghu;
   A04049Rep.QRLMoney.Caption   :='人民币';
   A04049Rep.QuickRep1.Preview ;
   A04049Rep.Free;
end;


procedure TA04049Rep.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.