report_dm.pas

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

unit Report_DM;

interface

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

type
  TForm1 = class(TForm)
    DBP_Invoice: TppDBPipeline;
    R_Invoice: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppDetailBand4: TppDetailBand;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppLabel7: TppLabel;
    ppLabel10: TppLabel;
    ppLabel14: TppLabel;
    ppLabel43: TppLabel;
    ppLabel44: TppLabel;
    ppLabel45: TppLabel;
    ppLabel50: TppLabel;
    ppLabel51: TppLabel;
    ppLabel52: TppLabel;
    ppLabel53: TppLabel;
    ppLabel54: TppLabel;
    ppLabel55: TppLabel;
    ppLabel56: TppLabel;
    ppLabel57: TppLabel;
    ppLabel58: TppLabel;
    ppLabel59: TppLabel;
    ppLabel60: TppLabel;
    ppLabel61: TppLabel;
    ppLabel62: TppLabel;
    ppLabel63: TppLabel;
    ppLabel64: TppLabel;
    ppLabel65: TppLabel;
    ppLabel66: TppLabel;
    ppLabel67: TppLabel;
    ppLabel68: TppLabel;
    ppLabel69: TppLabel;
    ppLabel70: TppLabel;
    ppLabel71: TppLabel;
    ppLabel72: TppLabel;
    ppLabel73: TppLabel;
    ppLabel74: TppLabel;
    ppLabel75: TppLabel;
    ppLabel76: TppLabel;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppSubReport3: TppSubReport;
    ppChildReport3: TppChildReport;
    ppTitleBand1: TppTitleBand;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppLabel48: TppLabel;
    ppLabel49: TppLabel;
    ppDetailBand5: TppDetailBand;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppFooterBand3: TppFooterBand;
    ppSubReport4: TppSubReport;
    ppChildReport4: TppChildReport;
    ppTitleBand2: TppTitleBand;
    ppLabel77: TppLabel;
    ppLabel78: TppLabel;
    ppLabel79: TppLabel;
    ppLabel80: TppLabel;
    ppDetailBand6: TppDetailBand;
    ppDBText29: TppDBText;
    ppDBText30: TppDBText;
    ppDBText31: TppDBText;
    ppDBText32: TppDBText;
    ppSummaryBand2: TppSummaryBand;
    ppDBText33: TppDBText;
    ppLabel81: TppLabel;
    ppLabel82: TppLabel;
    ppLabel86: TppLabel;
    ppL_UpperCash: TppLabel;
    ppLabel90: TppLabel;
    ppLabel91: TppLabel;
    ppLabel92: TppLabel;
    ppLabel93: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppFooterBand4: TppFooterBand;
    ppParameterList2: TppParameterList;
    D_Invoice: TppDesigner;
    DBP_Ammeter: TppDBPipeline;
    DBP_AmmeterppField1: TppField;
    DBP_AmmeterppField2: TppField;
    DBP_AmmeterppField3: TppField;
    DBP_AmmeterppField4: TppField;
    DBP_AmmeterppField5: TppField;
    DBP_AmmeterppField6: TppField;
    DBP_AmmeterppField7: TppField;
    DBP_AmmeterppField8: TppField;
    DBP_AmmeterppField9: TppField;
    DBP_AmmeterppField10: TppField;
    DBP_AmmeterppField11: TppField;
    DBP_AmmeterppField12: TppField;
    DBP_AmmeterppField13: TppField;
    DBP_AmmeterppField14: TppField;
    DBP_AmmeterppField15: TppField;
    DBP_AmmeterppField16: TppField;
    DBP_AmmeterppField17: TppField;
    DBP_AmmeterppField18: TppField;
    DBP_AmmeterppField19: TppField;
    DBP_AmmeterppField20: TppField;
    DBP_AmmeterppField21: TppField;
    DBP_AmmeterppField22: TppField;
    DBP_AmmeterppField23: TppField;
    DBP_AmmeterppField24: TppField;
    DBP_AmmeterppField25: TppField;
    DBP_AmmeterppField26: TppField;
    DBP_AmmeterppField27: TppField;
    DBP_AmmeterppField28: TppField;
    DBP_AmmeterppField29: TppField;
    DBP_AmmeterppField30: TppField;
    DBP_AmmeterppField31: TppField;
    DBP_AmmeterppField32: TppField;
    DBP_AmmeterppField33: TppField;
    DBP_FeeDetail: TppDBPipeline;
    DBP_FeeDetailppField1: TppField;
    DBP_FeeDetailppField2: TppField;
    DBP_FeeDetailppField3: TppField;
    DBP_FeeDetailppField4: TppField;
    DBP_FeeDetailppField5: TppField;
    DBP_FeeDetailppField6: TppField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.