paynotify_r.pas

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

unit PayNotify_R;

interface

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

type
  TR_PayNotify = class(TQuickRep)
    DetailBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRMemo1: TQRMemo;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBT_CopyDate: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBT_OtherFee: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBT_LateFee: TQRDBText;
    QRLabel16: TQRLabel;
    QRDBT_Fee: TQRDBText;
    QRL_SetMeterServiceFee: TQRLabel;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape8: TQRShape;
    QRLabel5: TQRLabel;
    QRShape9: TQRShape;
    QRDBText14: TQRDBText;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRLabel17: TQRLabel;
    QRL_LateRate: TQRLabel;
    QRShape17: TQRShape;
    QRLabel18: TQRLabel;
    QRShape18: TQRShape;
    QRLabel19: TQRLabel;
    QRShape19: TQRShape;
    QRShape20: TQRShape;
    QRShape21: TQRShape;
    QRShape22: TQRShape;
    QRLabel6: TQRLabel;
    QRShape23: TQRShape;
    QRShape24: TQRShape;
    QRShape25: TQRShape;
    QRLabel20: TQRLabel;
    QRShape26: TQRShape;
    QRShape27: TQRShape;
    QRShape28: TQRShape;
    QRShape29: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape30: TQRShape;
    QRShape31: TQRShape;
    QRLabel9: TQRLabel;
    QRShape32: TQRShape;
    QRShape33: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape34: TQRShape;
    QRShape35: TQRShape;
    QRMemo2: TQRMemo;
    QRLabel13: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRSysData1: TQRSysData;
    QRDBText6: TQRDBText;
    QRL_SumFee: TQRLabel;
    procedure QRDBText1Print(sender: TObject; var Value: String);
    procedure QRDBText14Print(sender: TObject; var Value: String);
    procedure QRL_SetMeterServiceFeePrint(sender: TObject;
      var Value: String);
    procedure QRDBT_FeePrint(sender: TObject; var Value: String);
    procedure QRDBT_LateFeePrint(sender: TObject; var Value: String);
    procedure QRL_SumFeePrint(sender: TObject; var Value: String);
    procedure QRDBT_CopyDatePrint(sender: TObject; var Value: String);
    procedure QRL_LateRatePrint(sender: TObject; var Value: String);
  private
	vSetMeterFee, vServiceFee: Currency;//安装费，维修费

  public

  end;

var
  R_PayNotify: TR_PayNotify;

implementation

uses Table_DM, CommWater, CommVar;

{$R *.DFM}

procedure TR_PayNotify.QRDBText1Print(sender: TObject; var Value: String);
begin//用户编号应包括街道号
	Value := DM_Table.Tb_User['f_StreetNo'] + Value;
end;

procedure TR_PayNotify.QRDBText14Print(sender: TObject; var Value: String);
begin
	Value := DM_Table.Tb_User['f_StreetNo'] + Value;
end;

procedure TR_PayNotify.QRL_SetMeterServiceFeePrint(sender: TObject;
  var Value: String);
begin
	vSetMeterFee := f_GetSetMeterFee(Dm_Table.Tb_User['f_UserId'],CurQuarter);
	vServiceFee := f_GetServiceFee(Dm_Table.Tb_User['f_UserId'],CurQuarter);
	QRL_SetMeterServiceFee.Caption := FloatToStrF(vSetMeterFee + vServiceFee,ffFixed,10,2)
end;

procedure TR_PayNotify.QRDBT_FeePrint(sender: TObject; var Value: String);
begin//如果没有水费则置为空
	If Value = '0.00' Then
    	Value := '';
end;

procedure TR_PayNotify.QRDBT_LateFeePrint(sender: TObject; var Value: String);
begin
//如果没有滞纳金则置为空
	If Value = '0.00' Then
    	Value := '';
end;

procedure TR_PayNotify.QRL_SumFeePrint(sender: TObject; var Value: String);
Var
	vSumFee:Currency;
begin
    vSumFee := vSetMeterFee + vServiceFee + Dm_Table.Q_WaterLog['f_SumFee'];
    Value := FloatToStrF(vSumFee,ffFixed,10,2);
end;

procedure TR_PayNotify.QRDBT_CopyDatePrint(sender: TObject;
  var Value: String);

begin//得到上季度抄日期
	Value := '自 '+f_GetLastQuarterCopyDate(Dm_Table.Tb_User['f_UserId'],CurQuarter)
    		+ ' 至 '+Value;
end;

procedure TR_PayNotify.QRL_LateRatePrint(sender: TObject; var Value: String);
begin
	Value := FloatToStrF(CurLateRate,ffFixed,5,3);
end;

end.