rb_f.pas

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

unit RB_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ppDB, ppDBPipe, ppParameter, ppBands, ppCtrls, ppVar, ppPrnabl, ppClass,
  ppCache, ppComm, ppRelatv, ppProd, ppReport, Db, IBCustomDataSet, IBQuery,
  ppEndUsr, ppStrtch, ppSubRpt, ppModule, raCodMod;

type
  TRB = class(TForm)
    Q_HouseFee: TIBQuery;
    Ds_HouseFee: TDataSource;
    Report: TppReport;
    DBP_HouseFee: TppDBPipeline;
    D_Report: TppDesigner;
    Q_TransferFee: TIBQuery;
    Ds_TransferFee: TDataSource;
    DTP_TransferFee: TppDBPipeline;
    Q_Transfer: TIBQuery;
    Ds_Transfer: TDataSource;
    DBP_Transfer: TppDBPipeline;
    Q_LineFee: TIBQuery;
    Ds_LineFee: TDataSource;
    DBP_LineFee: TppDBPipeline;
    Q_Line: TIBQuery;
    Ds_Line: TDataSource;
    DBP_Line: TppDBPipeline;
    Q_HouseFeeF_HOUSE_NO: TIBStringField;
    Q_HouseFeeF_HOUSE_NAME: TIBStringField;
    Q_HouseFeeF_BOX_NO: TIBStringField;
    Q_HouseFeeF_USED_COUNT: TFloatField;
    Q_HouseFeeF_USED_AMOUNT: TFloatField;
    Q_Transfer_Wasting: TIBQuery;
    Ds_Transfer_Wasting: TDataSource;
    DBP_Transfer_Wasting: TppDBPipeline;
    ppParameterList1: TppParameterList;
    Q_TransferFeeF_ITEM: TIBStringField;
    Q_TransferFeeF_COUNT: TIntegerField;
    Q_TransferFeeF_AMOUNT: TFloatField;
    Q_LineFeeF_ITEM: TIBStringField;
    Q_LineFeeF_COUNT: TIntegerField;
    Q_LineFeeF_AMOUNT: TFloatField;
    Q_TransferF_TRANSFER_NO: TIBStringField;
    Q_TransferF_TRANSFER_NAME: TIBStringField;
    Q_TransferF_COUNT: TIntegerField;
    Q_TransferF_AMOUNT: TFloatField;
    Q_LineF_LINE_NO: TIBStringField;
    Q_LineF_LINE_NAME: TIBStringField;
    Q_LineF_COUNT: TIntegerField;
    Q_LineF_AMOUNT: TFloatField;
    Q_Transfer_WastingF_TRANSFER_NO: TIBStringField;
    Q_Transfer_WastingF_TRANSFER_NAME: TIBStringField;
    Q_Transfer_WastingF_COUNTER: TIntegerField;
    Q_Transfer_WastingF_BUYCOUNT: TFloatField;
    Q_Transfer_WastingF_COUNT: TFloatField;
    Q_Transfer_WastingF_AMOUNT: TFloatField;
    Q_Transfer_WastingF_WASTING: TFloatField;
    Q_Transfer_WastingF_LOSSRATE: TFloatField;
    Q_Transfer_WastingF_PRICE: TFloatField;
    DBP_SyncTransfer: TppDBPipeline;
    ppField1: TppField;
    ppField2: TppField;
    ppField3: TppField;
    ppField4: TppField;
    ppHeaderBand2: TppHeaderBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLine1: TppLine;
    ppLabel8: TppLabel;
    ppLine8: TppLine;
    ppLabel9: TppLabel;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLine13: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppSystemVariable1: TppSystemVariable;
    ppDBText3: TppDBText;
    ppDetailBand4: TppDetailBand;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppLine2: TppLine;
    ppDBCalc1: TppDBCalc;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppFooterBand3: TppFooterBand;
    ppSummaryBand1: TppSummaryBand;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppDBCalc2: TppDBCalc;
    ppDBCalc3: TppDBCalc;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLabel13: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    procedure Q_TransferAfterScroll(DataSet: TDataSet);
    procedure Q_LineAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RB: TRB;

implementation

uses Table_DM;


{$R *.DFM}

procedure TRB.Q_TransferAfterScroll(DataSet: TDataSet);
begin
    RB.Q_TransferFee.Close();
    RB.Q_TransferFee.ParamByName('TransferNo').AsString := Q_Transfer['f_Transfer_No'];
    RB.Q_TransferFee.Open();
end;

procedure TRB.Q_LineAfterScroll(DataSet: TDataSet);
begin
    RB.Q_LineFee.Close();
    RB.Q_LineFee.ParamByName('LineNo').AsString := Q_Line['f_Line_No'];
    RB.Q_LineFee.Open();
end;

end.