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
      jiage1:string;  //
      jiage2:string;  //
      jiage3:string;  //
      jiage:string;
      count1:string;
      count2:string;
      count3:string;
      count: string;
      gongbenfei1:string;
      gongbenfei2:string;
      gongbenfei3:string;
      gongbenfei:string;
      Youfei1:string;   // 邮费1
      Youfei2:string;   // 邮费2
      Youfei3:string;   // 邮费3
      Youfei:string;
      shouxufei1:string;   // 手续费1
      Shouxufei2:string;   // 手续费2
      Shouxufei3:string;   // 手续费3
      shouxufei:string;
      qita1:string;
      qita2:string;
      qita3:string;
      qita:string;
      Xiaoji1:string;  // 小计1
      Xiaoji2:string;  // 小计2
      Xiaoji3:string;  // 小计3

      Heji:string;   //合计5
      company:string;  //帐户
      code:string;
   end;

type
  TA04040Rep = class(TForm)
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    YearQdt: TQRLabel;
    MonthQdt: TQRLabel;
    DayQdt: TQRLabel;
    MoneyQdt: TQRLabel;
    Huakuan1: TQRLabel;
    Huakuan2: TQRLabel;
    Huakuan3: TQRLabel;
    jiage1: TQRLabel;
    jiage2: TQRLabel;
    jiage3: TQRLabel;
    Shouxufei1: TQRLabel;
    Shouxufei2: TQRLabel;
    Shouxufei3: TQRLabel;
    Gonbenfei1: TQRLabel;
    Gonbenfei2: TQRLabel;
    Gonbenfei3: TQRLabel;
    Youfei1: TQRLabel;
    Youfei2: TQRLabel;
    Youfei3: TQRLabel;
    Xiaoji1: TQRLabel;
    Xiaoji2: TQRLabel;
    Xiaoji3: TQRLabel;
    Heji: TQRLabel;
    Youfei: TQRLabel;
    Gonbenfei: TQRLabel;
    Shouxufei: TQRLabel;
    jiage: TQRLabel;
    SelectAQey: TADOQuery;
    Qita1: TQRLabel;
    Qita2: TQRLabel;
    Qita3: TQRLabel;
    Qita: TQRLabel;
    count1: TQRLabel;
    Count2: TQRLabel;
    count3: TQRLabel;
    Count: TQRLabel;
    CodeQdt: TQRLabel;
    companyQdt: TQRRichText;
    Jiesuan1: TQRRichText;
    Jiesuan3: TQRRichText;
    Jiesuan2: TQRRichText;
    QRLabel1: TQRLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    function CallPrintCheque(dataRecord:ChequeRecord):integer;
    { Public declarations }
  end;

var
  A04040Rep: TA04040Rep;
   borderini:Tinifile;

implementation

uses A04042F002Unit, DataLinkUnit,GlobalLibUnit;



{$R *.DFM}

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

   A04040Rep.YearQdt.Caption         := dataRecord.cpYear;
   A04040Rep.MonthQdt.Caption        := dataRecord.cpMonth;
   A04040Rep.DayQdt.Caption          := dataRecord.cpDay;
   A04040Rep.MoneyQdt.Caption        := dataRecord.Money;
  // A04040Rep.companyQdt.Caption      := dataRecord.company;
   GlobalLibUnit.editfont(A04040Rep.companyQdt,dataRecord.company);
   A04040Rep.CodeQdt.Caption         := dataRecord.code;
   //A04040Rep.Jiesuan1.Caption        := dataRecord.Jiesuan1;
   //A04040Rep.Jiesuan2.Caption        := dataRecord.Jiesuan2;
   //A04040Rep.Jiesuan3.Caption        := dataRecord.Jiesuan3;
   GlobalLibUnit.editfont(A04040Rep.Jiesuan1,dataRecord.Jiesuan1);
   GlobalLibUnit.editfont(A04040Rep.Jiesuan2,dataRecord.Jiesuan2);
   GlobalLibUnit.editfont(A04040Rep.Jiesuan3,dataRecord.Jiesuan3);
   A04040Rep.Huakuan1.Caption        := dataRecord.Huakuan1;
   A04040Rep.Huakuan2.Caption        := dataRecord.Huakuan2;
   A04040Rep.Huakuan3.Caption        := dataRecord.Huakuan3;
   A04040Rep.jiage1.Caption        := dataRecord.jiage1;
   A04040Rep.jiage2.Caption        := dataRecord.jiage2;
   A04040Rep.jiage3.Caption        := dataRecord.jiage3;
   A04040Rep.jiage.Caption        := dataRecord.jiage;
   A04040Rep.count1.caption       :=dataRecord.count1;
   A04040Rep.count2.caption       :=dataRecord.count2;
   A04040Rep.count3.caption       :=dataRecord.count3;
   A04040Rep.count.caption       :=dataRecord.count;
   A04040Rep.Shouxufei1.Caption        := dataRecord.Shouxufei1;
   A04040Rep.Shouxufei2.Caption        := dataRecord.Shouxufei2;
   A04040Rep.Shouxufei3.Caption        := dataRecord.Shouxufei3;
   A04040Rep.Shouxufei.Caption        := dataRecord.Shouxufei;
   A04040Rep.Youfei1.Caption        := dataRecord.Youfei1;
   A04040Rep.Youfei2.Caption        := dataRecord.Youfei2;
   A04040Rep.Youfei3.Caption        := dataRecord.Youfei3;
   A04040Rep.Youfei.Caption        := dataRecord.Youfei;
   A04040Rep.gonbenfei1.Caption        := dataRecord.gongbenfei1;
   A04040Rep.gonbenfei2.Caption        := dataRecord.gongbenfei2;
   A04040Rep.gonbenfei3.Caption        := dataRecord.gongbenfei3;
   A04040Rep.gonbenfei.Caption        := dataRecord.gongbenfei;
   A04040Rep.Qita1.Caption            :=dataRecord.qita1;
   A04040Rep.Qita2.Caption            :=dataRecord.qita2;
   A04040Rep.Qita3.Caption            :=dataRecord.qita3;
   A04040Rep.Qita.Caption            :=dataRecord.qita;
   A04040Rep.Xiaoji1.Caption        := dataRecord.Xiaoji1;
   A04040Rep.Xiaoji2.Caption        := dataRecord.Xiaoji2;
   A04040Rep.Xiaoji3.Caption        := dataRecord.Xiaoji3;
   A04040Rep.Heji.Caption        := dataRecord.Heji;
   A04040Rep.QRLabel1.Caption :='人民币';
   A04040Rep.QuickRep1.Preview ;
   A04040Rep.Free;
end;


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

end.