copyrate_r.pas

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

unit CopyRate_R;

interface

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

type
  TR_CopyRate = class(TQuickRep)
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    SummaryBand1: TQRBand;
    QRL_Title: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRL_Month: TQRLabel;
    QRLabel19: TQRLabel;
    QRSysData2: TQRSysData;
    QRLabel20: TQRLabel;
    QRExpr1: TQRExpr;
    QRExpr2: TQRExpr;
    QRExpr3: TQRExpr;
    QRExpr4: TQRExpr;
    QRExpr5: TQRExpr;
    QRShape19: TQRShape;
    QRShape20: TQRShape;
    QRShape21: TQRShape;
    QRShape22: TQRShape;
    QRShape23: TQRShape;
    QRShape24: TQRShape;
    QRShape25: TQRShape;
    QRShape26: TQRShape;
    QRShape27: TQRShape;
    QRLabel10: TQRLabel;
    QRExpr6: TQRExpr;
    QRLabel11: TQRLabel;
    QRShape28: TQRShape;
    QRShape29: TQRShape;
    QRShape30: TQRShape;
    QRExpr8: TQRExpr;
    QRExpr9: TQRExpr;
    QRExpr7: TQRExpr;
    QRDBText9: TQRDBText;
    QRLabel12: TQRLabel;
    PageFooterBand1: TQRBand;
    procedure DetailBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QRExpr9Print(sender: TObject; var Value: String);
    procedure QRExpr5Print(sender: TObject; var Value: String);
    procedure QRDBText7Print(sender: TObject; var Value: String);
    procedure QRDBText8Print(sender: TObject; var Value: String);
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private

  public

  end;

var
  R_CopyRate: TR_CopyRate;

implementation

uses Table_DM, CommSmdljf, Comm;

{$R *.DFM}
var
	vCopyHouse, vShouldHouse, vErrorCopyHouse : Integer;

procedure TR_CopyRate.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
	With DM_Table DO
    Begin
    	if Not IsNull(Tb_Transfer['f_CopyHouse']) Then
			vCopyHouse := vCopyHouse + Tb_Transfer['f_CopyHouse'];
        If Not IsNull(Tb_Transfer['f_ShouldHouse']) Then
		    vShouldHouse := vShouldHouse + Tb_Transfer['f_ShouldHouse'];
		If Not IsNull(Tb_Transfer['f_ErrorCopyHouse']) Then
		    vErrorCopyHouse := vErrorCopyHouse + Tb_Transfer['f_ErrorCopyHouse'] + Tb_Transfer['f_PErrorCopyHouse']
        Else
	        vErrorCopyHouse := vErrorCopyHouse + Tb_Transfer['f_PErrorCopyHouse'];
    End;
end;

procedure TR_CopyRate.QRExpr9Print(sender: TObject; var Value: String);
begin
	If ( vCopyHouse = 0) Then
    	Value := ''
    Else
		Value := F_FloatToStrF(vErrorCopyHouse / vCopyHouse * 100, 5, 2);
end;

procedure TR_CopyRate.QRExpr5Print(sender: TObject; var Value: String);
begin
	If (vShouldHouse = 0) Then
    	Value := ''
    Else
		Value := F_FloatToStrF(vCopyHouse / vShouldHouse * 100, 5, 2);
end;

procedure TR_CopyRate.QRDBText7Print(sender: TObject; var Value: String);
begin
	If (Value <> '') Then
    	Value := F_FloatToStrF(StrToFloat(Value) * 100, 5, 2);
end;

procedure TR_CopyRate.QRDBText8Print(sender: TObject; var Value: String);
begin
	If (Value <> '') Then
    	Value := F_FloatToStrF(StrToFloat(Value) * 100, 5, 2);
end;

procedure TR_CopyRate.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
	QRL_Title.Caption := CorpName + StationName + '变压器统计考核台帐';
    QRL_Month.Caption := CurrentYear+' 年 '+CurrentMonth+' 月份';
	vCopyHouse := 0;
    vShouldHouse := 0;
    vErrorCopyHouse := 0;
end;

end.