400v

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

object R_Balance: TppReport
  AutoStop = False
  DataPipeline = DBP_Invoice
  PassSetting = psTwoPass
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = '发票报表'
  PrinterSetup.PaperName = 'A4'
  PrinterSetup.PrinterName = 'Default'
  PrinterSetup.mmMarginBottom = 0
  PrinterSetup.mmMarginLeft = 0
  PrinterSetup.mmMarginRight = 0
  PrinterSetup.mmMarginTop = 0
  PrinterSetup.mmPaperHeight = 297000
  PrinterSetup.mmPaperWidth = 210000
  PrinterSetup.PaperSize = 9
  Template.FileName = 'D:\Mis\Fee\exe\400V结算单.Old.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
  SavePrinterSetup = True
  TextSearchSettings.DefaultString = '<FindText>'
  TextSearchSettings.Enabled = True
  Left = 256
  Top = 136
  Version = '7.03'
  mmColumnWidth = 197300
  DataPipelineName = 'DBP_Invoice'
  object ppHeaderBand1: TppHeaderBand
    mmBottomOffset = 0
    mmHeight = 0
    mmPrintPosition = 0
  end
  object ppDetailBand4: TppDetailBand
    PrintHeight = phDynamic
    mmBottomOffset = 0
    mmHeight = 74083
    mmPrintPosition = 0
    object ppShape1: TppShape
      UserName = 'Shape1'
      Pen.Style = psDot
      mmHeight = 45773
      mmLeft = 11906
      mmTop = 15875
      mmWidth = 182827
      BandType = 4
    end
    object ppDBText17: TppDBText
      UserName = 'DBText6'
      BlankWhenZero = True
      DataField = 'F_TRANS_USED'
      DataPipeline = DBP_Invoice
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 48419
      mmTop = 48683
      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 = 3969
      mmLeft = 22490
      mmTop = 16933
      mmWidth = 20373
      BandType = 4
    end
    object ppLabel1: TppLabel
      UserName = 'Label2'
      Caption = '年'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 21696
      mmTop = 11377
      mmWidth = 3440
      BandType = 4
    end
    object ppLabel2: TppLabel
      UserName = 'Label3'
      Caption = '月份'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 31750
      mmTop = 11377
      mmWidth = 6879
      BandType = 4
    end
    object ppLabel3: TppLabel
      UserName = 'Label6'
      Caption = '地址'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 102129
      mmTop = 16933
      mmWidth = 6879
      BandType = 4
    end
    object ppLabel4: TppLabel
      UserName = 'Label11'
      Caption = '倍率'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 14552
      mmTop = 48683
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel5: TppLabel
      UserName = 'Label12'
      Caption = '加变耗'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 36248
      mmTop = 48683
      mmWidth = 10583
      BandType = 4
    end
    object ppLabel6: TppLabel
      UserName = 'Label13'
      Caption = '加减量'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 62442
      mmTop = 48683
      mmWidth = 10583
      BandType = 4
    end
    object ppLabel8: TppLabel
      UserName = 'Label29'
      Caption = '备注:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 13229
      mmTop = 53711
      mmWidth = 8731
      BandType = 4
    end
    object ppLabel9: TppLabel
      UserName = 'Label31'
      Caption = '收费'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 75142
      mmTop = 62442
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel11: TppLabel
      UserName = 'Label32'
      Caption = '审核'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 108215
      mmTop = 62442
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel12: TppLabel
      UserName = 'Label35'
      Caption = '嵩电供电有限责任公司电费结算通知单'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Name = '黑体'
      Font.Size = 14
      Font.Style = []
      Transparent = True
      mmHeight = 5556
      mmLeft = 66940
      mmTop = 7938
      mmWidth = 83873
      BandType = 4
    end
    object ppLabel13: TppLabel
      UserName = 'Label40'
      Caption = '户名'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      WordWrap = True
      mmHeight = 3969
      mmLeft = 45773
      mmTop = 16933
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel15: TppLabel
      UserName = 'Label42'
      Caption = '合计电量(KW.h)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 104246
      mmTop = 56356
      mmWidth = 24871
      BandType = 4
    end
    object ppDBText19: TppDBText
      UserName = 'DBText2'
      AutoSize = True
      DataField = 'F_HOUSE_NAME'
      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 = 55298
      mmTop = 16933
      mmWidth = 17198
      BandType = 4
    end
    object ppDBText21: TppDBText
      UserName = 'DBText4'
      DataField = 'F_POSITION'
      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 = 110067
      mmTop = 16933
      mmWidth = 39423
      BandType = 4
    end
    object ppDBText22: TppDBText
      UserName = 'DBText5'
      DataField = 'F_CT'
      DataPipeline = DBP_Invoice
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 23019
      mmTop = 48683
      mmWidth = 11377
      BandType = 4
    end
    object ppDBText23: TppDBText
      UserName = 'DBText7'
      BlankWhenZero = True
      DataField = 'F_ADJUST_COUNT'
      DataPipeline = DBP_Invoice
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 74613
      mmTop = 48683
      mmWidth = 12171
      BandType = 4
    end
    object ppDBText24: TppDBText
      UserName = 'DBText8'
      DataField = 'F_USED_COUNT'
      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 = 133086
      mmTop = 56356
      mmWidth = 18256
      BandType = 4
    end
    object ppSubReport3: TppSubReport
      UserName = 'SubReport1'
      ExpandAll = False
      NewPrintJob = False
      OutlineSettings.CreateNode = True
      ParentPrinterSetup = False
      ParentWidth = False
      TraverseAllData = False
      DataPipelineName = 'DBP_Ammeter'
      mmHeight = 14817
      mmLeft = 12435
      mmTop = 33073
      mmWidth = 76729
      BandType = 4
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      object ppChildReport3: TppChildReport
        AutoStop = False
        DataPipeline = DBP_Ammeter
        PrinterSetup.BinName = 'Default'
        PrinterSetup.DocumentName = '发票报表'
        PrinterSetup.PaperName = 'A4'
        PrinterSetup.PrinterName = 'Default'
        PrinterSetup.mmMarginBottom = 0
        PrinterSetup.mmMarginLeft = 0
        PrinterSetup.mmMarginRight = 0
        PrinterSetup.mmMarginTop = 0
        PrinterSetup.mmPaperHeight = 297127
        PrinterSetup.mmPaperWidth = 210079
        PrinterSetup.PaperSize = 9
        Template.Format = ftASCII
        Left = 328
        Top = 232
        Version = '7.03'
        mmColumnWidth = 0
        DataPipelineName = 'DBP_Ammeter'
        object ppTitleBand1: TppTitleBand
          mmBottomOffset = 0