10kv-i

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

object R_10KV: TppReport
  AutoStop = False
  DataPipeline = DBP_10KV
  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\10KV收费明细.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 = 224
  Version = '7.03'
  mmColumnWidth = 197300
  DataPipelineName = 'DBP_10KV'
  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 = 4763
      mmLeft = 51858
      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 = 100542
      mmTop = 14817
      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 = 125677
      mmTop = 14817
      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 = 151871
      mmTop = 14817
      mmWidth = 16933
      BandType = 0
    end
    object ppLabel9: TppLabel
      UserName = 'Label9'
      Caption = '供电所10KV用户收费明细表'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 16
      Font.Style = []
      Transparent = True
      mmHeight = 6435
      mmLeft = 70379
      mmTop = 3969
      mmWidth = 67649
      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 = 94986
      mmTop = 12171
      mmWidth = 2381
      BandType = 0
    end
    object ppLine4: TppLine
      UserName = 'Line4'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 122502
      mmTop = 12171
      mmWidth = 2381
      BandType = 0
    end
    object ppLine5: TppLine
      UserName = 'Line5'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 145786
      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_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 5821
      mmTop = 2381
      mmWidth = 21696
      BandType = 4
    end
    object ppDBText2: TppDBText
      UserName = 'DBText2'
      DataField = 'F_HOUSE_NAME'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 32544
      mmTop = 2381
      mmWidth = 59002
      BandType = 4
    end
    object ppDBText3: TppDBText
      UserName = 'DBText3'
      BlankWhenZero = True
      DataField = 'F_GATHERING'
      DataPipeline = DBP_10KV
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 100013
      mmTop = 2381
      mmWidth = 18521
      BandType = 4
    end
    object ppDBText4: TppDBText
      UserName = 'DBText4'
      BlankWhenZero = True
      DataField = 'F_GIVE_CHANGE'
      DataPipeline = DBP_10KV
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 127794
      mmTop = 2381
      mmWidth = 14288
      BandType = 4
    end
    object ppDBText8: TppDBText
      UserName = 'DBText8'
      BlankWhenZero = True
      DataField = 'F_ACTUAL_RECEIVE'
      DataPipeline = DBP_10KV
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 152136
      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 = 94986
      mmTop = 265
      mmWidth = 2381
      BandType = 4
    end
    object ppLine9: TppLine
      UserName = 'Line9'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 122502
      mmTop = 265
      mmWidth = 2381
      BandType = 4
    end
    object ppLine10: TppLine
      UserName = 'Line10'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 7938
      mmLeft = 145786
      mmTop = 265
      mmWidth = 2381
      BandType = 4
    end
  end
  object ppFooterBand1: TppFooterBand
    mmBottomOffset = 0
    mmHeight = 8467
    mmPrintPosition = 0
  end
  object ppSummaryBand1: TppSummaryBand
    mmBottomOffset = 0
    mmHeight = 8996
    mmPrintPosition = 0
    object ppDBCalc3: TppDBCalc
      UserName = 'DBCalc3'
      DataField = 'F_ACTUAL_RECEIVE'
      DataPipeline = DBP_10KV
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 150548
      mmTop = 2117
      mmWidth = 18785
      BandType = 7
    end
    object ppLine16: TppLine
      UserName = 'Line101'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 9525
      mmLeft = 145786
      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 = 3969
      mmLeft = 114036
      mmTop = 1852
      mmWidth = 7144
      BandType = 7
    end
    object ppDBCalc1: TppDBCalc
      UserName = 'DBCalc1'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DBCalcType = dcCount
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 124354
      mmTop = 1852
      mmWidth = 17198
      BandType = 7
    end
  end
  object ppParameterList1: TppParameterList
  end
end