400v-i

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

object R_400V: TppReport
  AutoStop = False
  DataPipeline = DBP_400V
  PassSetting = psTwoPass
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = '发票报表'
  PrinterSetup.PaperName = 'A4 (210 x 297毫米)'
  PrinterSetup.PrinterName = 'Default'
  PrinterSetup.mmMarginBottom = 6350
  PrinterSetup.mmMarginLeft = 6350
  PrinterSetup.mmMarginRight = 6350
  PrinterSetup.mmMarginTop = 6350
  PrinterSetup.mmPaperHeight = 297000
  PrinterSetup.mmPaperWidth = 210000
  PrinterSetup.PaperSize = 9
  Template.FileName = 'D:\Mis\Fee\400V收费明细.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
  ShowPrintDialog = False
  TextSearchSettings.DefaultString = '<FindText>'
  TextSearchSettings.Enabled = True
  Left = 36
  Top = 216
  Version = '7.03'
  mmColumnWidth = 197300
  DataPipelineName = 'DBP_400V'
  object ppHeaderBand1: TppHeaderBand
    mmBottomOffset = 0
    mmHeight = 20108
    mmPrintPosition = 0
    object ppLabel1: TppLabel
      UserName = 'Label1'
      Caption = '户  号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 12
      Font.Style = []
      Transparent = True
      mmHeight = 4763
      mmLeft = 11642
      mmTop = 14817
      mmWidth = 12700
      BandType = 0
    end
    object ppLabel2: TppLabel
      UserName = 'Label2'
      Caption = '户  名'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 12
      Font.Style = []
      Transparent = True
      mmHeight = 4826
      mmLeft = 44715
      mmTop = 14817
      mmWidth = 12700
      BandType = 0
    end
    object ppLabel3: TppLabel
      UserName = 'Label3'
      Caption = '应收电费'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 12
      Font.Style = []
      Transparent = True
      mmHeight = 4763
      mmLeft = 82815
      mmTop = 14552
      mmWidth = 16933
      BandType = 0
    end
    object ppLabel4: TppLabel
      UserName = 'Label4'
      Caption = '上期余额'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 12
      Font.Style = []
      Transparent = True
      mmHeight = 4763
      mmLeft = 106627
      mmTop = 14817
      mmWidth = 15875
      BandType = 0
    end
    object ppLabel5: TppLabel
      UserName = 'Label5'
      Caption = '本期余额'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 12
      Font.Style = []
      Transparent = True
      mmHeight = 4763
      mmLeft = 158750
      mmTop = 14023
      mmWidth = 16933
      BandType = 0
    end
    object ppLabel8: TppLabel
      UserName = 'Label8'
      Caption = '实收'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 12
      Font.Style = []
      Transparent = True
      mmHeight = 4763
      mmLeft = 134409
      mmTop = 14288
      mmWidth = 8467
      BandType = 0
    end
    object ppLabel9: TppLabel
      UserName = 'Label9'
      Caption = '供电所一户一表收费明细表'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 16
      Font.Style = []
      Transparent = True
      mmHeight = 6435
      mmLeft = 70379
      mmTop = 3969
      mmWidth = 67564
      BandType = 0
    end
    object ppLine2: TppLine
      UserName = 'Line2'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 30163
      mmTop = 12170
      mmWidth = 2381
      BandType = 0
    end
    object ppLine3: TppLine
      UserName = 'Line3'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 75936
      mmTop = 12171
      mmWidth = 2381
      BandType = 0
    end
    object ppLine4: TppLine
      UserName = 'Line4'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 103452
      mmTop = 12171
      mmWidth = 2381
      BandType = 0
    end
    object ppLine5: TppLine
      UserName = 'Line5'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 126736
      mmTop = 12171
      mmWidth = 2381
      BandType = 0
    end
    object ppLine6: TppLine
      UserName = 'Line6'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 153459
      mmTop = 12171
      mmWidth = 2381
      BandType = 0
    end
    object ppLine12: TppLine
      UserName = 'Line12'
      Pen.Style = psDot
      Weight = 0.75
      mmHeight = 265
      mmLeft = 5821
      mmTop = 19844
      mmWidth = 190236
      BandType = 0
    end
  end
  object ppDetailBand1: TppDetailBand
    mmBottomOffset = 0
    mmHeight = 8202
    mmPrintPosition = 0
    object ppDBText1: TppDBText
      UserName = 'DBText1'
      DataField = 'F_HOUSE_NO'
      DataPipeline = DBP_400V
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 5821
      mmTop = 2381
      mmWidth = 21696
      BandType = 4
    end
    object ppDBText2: TppDBText
      UserName = 'DBText2'
      DataField = 'F_HOUSE_NAME'
      DataPipeline = DBP_400V
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 32544
      mmTop = 2381
      mmWidth = 39423
      BandType = 4
    end
    object ppDBText3: TppDBText
      UserName = 'DBText3'
      BlankWhenZero = True
      DataField = 'F_FEEAMOUNT'
      DataPipeline = DBP_400V
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 80963
      mmTop = 2381
      mmWidth = 18521
      BandType = 4
    end
    object ppDBText4: TppDBText
      UserName = 'DBText4'
      BlankWhenZero = True
      DataField = 'F_LAST_BALANCE'
      DataPipeline = DBP_400V
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 108744
      mmTop = 2381
      mmWidth = 14288
      BandType = 4
    end
    object ppDBText5: TppDBText
      UserName = 'DBText5'
      BlankWhenZero = True
      DataField = 'F_BALANCE'
      DataPipeline = DBP_400V
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 159015
      mmTop = 2646
      mmWidth = 17198
      BandType = 4
    end
    object ppDBText8: TppDBText
      UserName = 'DBText8'
      BlankWhenZero = True
      DataField = 'F_ACTUAL_RECEIVE'
      DataPipeline = DBP_400V
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 133086
      mmTop = 2381
      mmWidth = 17198
      BandType = 4
    end
    object ppLine1: TppLine
      UserName = 'Line1'
      Pen.Style = psDot
      Weight = 0.75
      mmHeight = 265
      mmLeft = 3969
      mmTop = 7144
      mmWidth = 190236
      BandType = 4
    end
    object ppLine7: TppLine
      UserName = 'Line7'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 30163
      mmTop = 265
      mmWidth = 2381
      BandType = 4
    end
    object ppLine8: TppLine
      UserName = 'Line8'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 75936
      mmTop = 265
      mmWidth = 2381
      BandType = 4
    end
    object ppLine9: TppLine
      UserName = 'Line9'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 103452
      mmTop = 265
      mmWidth = 2381
      BandType = 4
    end
    object ppLine10: TppLine
      UserName = 'Line10'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 126736
      mmTop = 265
      mmWidth = 2381
      BandType = 4
    end
    object ppLine11: TppLine
      UserName = 'Line11'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 153459
      mmTop = 265
      mmWidth = 2381
      BandType = 4
    end
  end
  object ppFooterBand1: TppFooterBand
    mmBottomOffset = 0
    mmHeight = 11642
    mmPrintPosition = 0
  end
  object ppSummaryBand1: TppSummaryBand
    mmBottomOffset = 0
    mmHeight = 8996
    mmPrintPosition = 0
    object ppDBCalc1: TppDBCalc
      UserName = 'DBCalc1'
      DataField = 'F_FEEAMOUNT'
      DataPipeline = DBP_400V
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 80698
      mmTop = 2646
      mmWidth = 18785
      BandType = 7
    end
    object ppDBCalc2: TppDBCalc
      UserName = 'DBCalc2'
      DataField = 'F_LAST_BALANCE'
      DataPipeline = DBP_400V
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 105304
      mmTop = 2646
      mmWidth = 18785
      BandType = 7
    end
    object ppDBCalc3: TppDBCalc
      UserName = 'DBCalc3'
      DataField = 'F_ACTUAL_RECEIVE'
      DataPipeline = DBP_400V
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 131498
      mmTop = 2646
      mmWidth = 18785
      BandType = 7
    end
    object ppDBCalc4: TppDBCalc
      UserName = 'DBCalc4'
      DataField = 'F_BALANCE'
      DataPipeline = DBP_400V
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 157427
      mmTop = 2646
      mmWidth = 18785
      BandType = 7
    end
    object ppDBCalc5: TppDBCalc
      UserName = 'DBCalc5'
      DataPipeline = DBP_400V
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DBCalcType = dcCount
      DataPipelineName = 'DBP_400V'
      mmHeight = 3969
      mmLeft = 15610
      mmTop = 2646
      mmWidth = 11642
      BandType = 7
    end
    object ppLine13: TppLine
      UserName = 'Line13'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 9525
      mmLeft = 30163
      mmTop = 0
      mmWidth = 2381
      BandType = 7
    end
    object ppLine14: TppLine
      UserName = 'Line14'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 9525
      mmLeft = 75936
      mmTop = 0
      mmWidth = 2381
      BandType = 7
    end
    object ppLine15: TppLine
      UserName = 'Line15'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 9525
      mmLeft = 103452
      mmTop = 0
      mmWidth = 2381
      BandType = 7
    end
    object ppLine16: TppLine
      UserName = 'Line101'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 9525
      mmLeft = 126736
      mmTop = 0
      mmWidth = 2381
      BandType = 7
    end
    object ppLine17: TppLine
      UserName = 'Line17'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 9525
      mmLeft = 153459
      mmTop = 0
      mmWidth = 2381
      BandType = 7
    end
    object ppLabel6: TppLabel
      UserName = 'Label6'
      Caption = '户数'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4022
      mmLeft = 7610
      mmTop = 2646
      mmWidth = 7027
      BandType = 7
    end
  end
  object ppParameterList1: TppParameterList
  end
end