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

object R_Invoice: TppReport
  AutoStop = False
  DataPipeline = DBP_Invoice
  PassSetting = psTwoPass
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = '发票报表'
  PrinterSetup.PaperName = 'Custom'
  PrinterSetup.PrinterName = 'Default'
  PrinterSetup.mmMarginBottom = 6350
  PrinterSetup.mmMarginLeft = 6350
  PrinterSetup.mmMarginRight = 6350
  PrinterSetup.mmMarginTop = 6350
  PrinterSetup.mmPaperHeight = 139700
  PrinterSetup.mmPaperWidth = 210000
  PrinterSetup.PaperSize = 256
  Template.FileName = 'D:\Mis\Fee\结算单.rtm'
  Template.Format = ftASCII
  Units = utMillimeters
  DeviceType = 'Screen'
  OutlineSettings.CreateNode = True
  OutlineSettings.CreatePageNodes = True
  OutlineSettings.Enabled = True
  OutlineSettings.Visible = True
  PreviewFormSettings.WindowState = wsMaximized
  PreviewFormSettings.ZoomSetting = zs100Percent
  TextSearchSettings.DefaultString = '<FindText>'
  TextSearchSettings.Enabled = True
  Left = 294
  Top = 152
  Version = '7.03'
  mmColumnWidth = 197300
  DataPipelineName = 'DBP_Invoice'
  object ppHeaderBand3: TppHeaderBand
    mmBottomOffset = 0
    mmHeight = 0
    mmPrintPosition = 0
  end
  object ppDetailBand4: TppDetailBand
    BeforePrint = ppDetailBand4BeforePrint
    PrintHeight = phDynamic
    mmBottomOffset = 0
    mmHeight = 127265
    mmPrintPosition = 0
    object ppDBText17: TppDBText
      UserName = 'DBText6'
      BlankWhenZero = True
      DataField = 'F_IRON_USED'
      DataPipeline = DBP_Invoice
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 119592
      mmTop = 54769
      mmWidth = 11377
      BandType = 4
    end
    object ppDBText18: TppDBText
      UserName = 'DBText1'
      AutoSize = True
      DataField = 'F_HOUSE_NO'
      DataPipeline = DBP_Invoice
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 4022
      mmLeft = 20373
      mmTop = 28840
      mmWidth = 19558
      BandType = 4
    end
    object ppLabel1: TppLabel
      UserName = 'Label1'
      Caption = '户号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 9790
      mmTop = 28046
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel2: TppLabel
      UserName = 'Label2'
      Caption = '年'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 79640
      mmTop = 28046
      mmWidth = 3440
      BandType = 4
    end
    object ppLabel14: TppLabel
      UserName = 'Label3'
      Caption = '月份'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 97367
      mmTop = 28046
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel43: TppLabel
      UserName = 'Label4'
      Caption = '托收号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 125413
      mmTop = 28575
      mmWidth = 10583
      BandType = 4
    end
    object ppLabel44: TppLabel
      UserName = 'Label5'
      Caption = '卡号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 9790
      mmTop = 34660
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel45: TppLabel
      UserName = 'Label6'
      Caption = '用电地址'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 62177
      mmTop = 34925
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel46: TppLabel
      UserName = 'Label7'
      Caption = '表号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 11113
      mmTop = 42598
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel47: TppLabel
      UserName = 'Label8'
      Caption = '上次抄表'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 25665
      mmTop = 42863
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel48: TppLabel
      UserName = 'Label9'
      Caption = '本次抄表'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 53446
      mmTop = 43127
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel49: TppLabel
      UserName = 'Label10'
      Caption = '差额'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 82021
      mmTop = 43392
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel50: TppLabel
      UserName = 'Label11'
      Caption = '倍率'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 105569
      mmTop = 42863
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel51: TppLabel
      UserName = 'Label12'
      Caption = '加变耗'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 118534
      mmTop = 42598
      mmWidth = 10583
      BandType = 4
    end
    object ppLabel52: TppLabel
      UserName = 'Label13'
      Caption = '加减量'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 133350
      mmTop = 42333
      mmWidth = 10583
      BandType = 4
    end
    object ppLabel53: TppLabel
      UserName = 'Label15'
      Caption = '上次抄表'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 10054
      mmTop = 70379
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel54: TppLabel
      UserName = 'Label16'
      Caption = '本次抄表'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 10319
      mmTop = 75936
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel55: TppLabel
      UserName = 'Label17'
      Caption = '月'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 33867
      mmTop = 70379
      mmWidth = 3440
      BandType = 4
    end
    object ppLabel56: TppLabel
      UserName = 'Label18'
      Caption = '月'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 34131
      mmTop = 76200
      mmWidth = 3440
      BandType = 4
    end
    object ppLabel57: TppLabel
      UserName = 'Label19'
      Caption = '日'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 44186
      mmTop = 70379
      mmWidth = 3440
      BandType = 4
    end
    object ppLabel58: TppLabel
      UserName = 'Label20'
      Caption = '日'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 44450
      mmTop = 75936
      mmWidth = 3440
      BandType = 4
    end
    object ppLabel59: TppLabel
      UserName = 'Label25'
      Caption = '供电单位'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 10054
      mmTop = 80698
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel60: TppLabel
      UserName = 'Label26'
      Caption = '供电开关'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 10583
      mmTop = 86254
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel61: TppLabel
      UserName = 'Label27'
      Caption = '交费地点'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []