400v

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

      BandType = 4
    end
    object ppLabel23: TppLabel
      UserName = 'Label9'
      Caption = '供电台变:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      WordWrap = True
      mmHeight = 3969
      mmLeft = 151871
      mmTop = 16933
      mmWidth = 16140
      BandType = 4
    end
    object ppLabel24: TppLabel
      UserName = 'Label10'
      Caption = '收费项目'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 3969
      mmLeft = 104775
      mmTop = 22754
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel29: TppLabel
      UserName = 'Label16'
      Caption = '单  价'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 154517
      mmTop = 22754
      mmWidth = 10583
      BandType = 4
    end
    object ppLabel34: TppLabel
      UserName = 'Label17'
      Caption = '金   额'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 174890
      mmTop = 22754
      mmWidth = 12435
      BandType = 4
    end
    object ppLine13: TppLine
      UserName = 'Line1'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 33338
      mmLeft = 131498
      mmTop = 22490
      mmWidth = 2381
      BandType = 4
    end
    object ppLabel36: TppLabel
      UserName = 'Label101'
      Caption = '计费电量'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 3969
      mmLeft = 134409
      mmTop = 22754
      mmWidth = 14023
      BandType = 4
    end
    object ppLine14: TppLine
      UserName = 'Line2'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 33338
      mmLeft = 151342
      mmTop = 22490
      mmWidth = 1852
      BandType = 4
    end
    object ppLine15: TppLine
      UserName = 'Line3'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 33338
      mmLeft = 168275
      mmTop = 21960
      mmWidth = 2646
      BandType = 4
    end
    object ppLabel37: TppLabel
      UserName = 'Label61'
      Caption = '表    号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 17463
      mmTop = 28310
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel38: TppLabel
      UserName = 'Label62'
      Caption = '上次抄表'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 39423
      mmTop = 28310
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel39: TppLabel
      UserName = 'Label63'
      Caption = '本次抄表'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 57415
      mmTop = 28310
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel40: TppLabel
      UserName = 'Label102'
      Caption = '差  额'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 76465
      mmTop = 28310
      mmWidth = 10583
      BandType = 4
    end
    object ppLine16: TppLine
      UserName = 'Line5'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 20373
      mmLeft = 73819
      mmTop = 27781
      mmWidth = 2646
      BandType = 4
    end
    object ppLine17: TppLine
      UserName = 'Line6'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 20373
      mmLeft = 55298
      mmTop = 27517
      mmWidth = 2646
      BandType = 4
    end
    object ppLine18: TppLine
      UserName = 'Line7'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 20638
      mmLeft = 36777
      mmTop = 27517
      mmWidth = 1588
      BandType = 4
    end
    object ppLine19: TppLine
      UserName = 'Line8'
      Pen.Style = psDot
      Position = lpBottom
      Weight = 0.75
      mmHeight = 1058
      mmLeft = 11906
      mmTop = 31750
      mmWidth = 78846
      BandType = 4
    end
    object ppLine20: TppLine
      UserName = 'Line9'
      Pen.Style = psDot
      Position = lpBottom
      Weight = 0.75
      mmHeight = 1323
      mmLeft = 11906
      mmTop = 25929
      mmWidth = 182298
      BandType = 4
    end
    object ppLine21: TppLine
      UserName = 'Line4'
      Pen.Style = psDot
      Position = lpLeft
      Weight = 0.75
      mmHeight = 40481
      mmLeft = 90223
      mmTop = 21167
      mmWidth = 1852
      BandType = 4
    end
    object ppLine22: TppLine
      UserName = 'Line10'
      Pen.Style = psDot
      Position = lpBottom
      Weight = 0.75
      mmHeight = 2646
      mmLeft = 12171
      mmTop = 19315
      mmWidth = 182827
      BandType = 4
    end
    object ppLine23: TppLine
      UserName = 'Line11'
      Pen.Style = psDot
      Position = lpBottom
      Weight = 0.75
      mmHeight = 2646
      mmLeft = 11906
      mmTop = 45773
      mmWidth = 78846
      BandType = 4
    end
    object ppLine24: TppLine
      UserName = 'Line12'
      Pen.Style = psDot
      Position = lpBottom
      Weight = 0.75
      mmHeight = 2646
      mmLeft = 89959
      mmTop = 52917
      mmWidth = 104511
      BandType = 4
    end
    object ppLine26: TppLine
      UserName = 'Line25'
      Pen.Style = psDot
      Position = lpBottom
      Weight = 0.75
      mmHeight = 2646
      mmLeft = 11906
      mmTop = 50536
      mmWidth = 78581
      BandType = 4
    end
    object ppLabel41: TppLabel
      UserName = 'Label15'
      Caption = '抄表时间: 上月'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 13229
      mmTop = 22490
      mmWidth = 24342
      BandType = 4
    end
    object ppLabel42: TppLabel
      UserName = 'Label18'
      Caption = '日  本月'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 56356
      mmTop = 22490
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel54: TppLabel
      UserName = 'Label19'
      Caption = '日'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 83873
      mmTop = 22490
      mmWidth = 3440
      BandType = 4
    end
    object ppLabel65: TppLabel
      UserName = 'Label20'
      Caption = '供电所:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clAqua
      Font.Name = '黑体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 155840
      mmTop = 11642
      mmWidth = 12171
      BandType = 4
    end
    object ppLabel66: TppLabel
      UserName = 'Label21'
      Caption = '箱号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 77523
      mmTop = 16933
      mmWidth = 6879
      BandType = 4
    end
    object ppDBText36: TppDBText
      UserName = 'DBText35'
      DataField = 'F_BOX_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 = 85461
      mmTop = 16933
      mmWidth = 15081
      BandType = 4
    end
    object ppLine1: TppLine
      UserName = 'Line13'
      Pen.Style = psDot
      Position = lpBottom
      Weight = 0.75
      mmHeight = 3440
      mmLeft = 0
      mmTop = 70643
      mmWidth = 210344
      BandType = 4
    end
  end
  object ppFooterBand4: TppFooterBand
    mmBottomOffset = 0
    mmHeight = 0
    mmPrintPosition = 0
  end
  object ppParameterList1: TppParameterList
  end
end