10kv

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

object R_Invoice: TppReport
  AutoStop = False
  DataPipeline = DBP_10KV
  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 = 194
  Template.FileName = 'E:\Mis\Fee\Exe\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 = 104
  Top = 96
  Version = '7.04'
  mmColumnWidth = 197300
  DataPipelineName = 'DBP_10KV'
  object ppHeaderBand3: TppHeaderBand
    mmBottomOffset = 0
    mmHeight = 0
    mmPrintPosition = 0
  end
  object ppDetailBand4: TppDetailBand
    BeforePrint = ppDetailBand4BeforePrint
    PrintHeight = phDynamic
    mmBottomOffset = 0
    mmHeight = 129646
    mmPrintPosition = 0
    object ppDBText18: TppDBText
      UserName = 'DBText1'
      AutoSize = True
      DataField = 'A11'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 4022
      mmLeft = 8731
      mmTop = 19315
      mmWidth = 14224
      BandType = 4
    end
    object ppDBText19: TppDBText
      UserName = 'DBText2'
      AutoSize = True
      DataField = 'A12'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 4022
      mmLeft = 110596
      mmTop = 12171
      mmWidth = 28109
      BandType = 4
    end
    object ppDBText21: TppDBText
      UserName = 'DBText4'
      DataField = 'A13'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 65881
      mmTop = 25135
      mmWidth = 42598
      BandType = 4
    end
    object ppDBText22: TppDBText
      UserName = 'DBText5'
      DataField = 'A28'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 74613
      mmTop = 41010
      mmWidth = 12700
      BandType = 4
    end
    object ppDBText23: TppDBText
      UserName = 'DBText7'
      BlankWhenZero = True
      DataField = 'A48'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 108479
      mmTop = 41010
      mmWidth = 12171
      BandType = 4
    end
    object ppDBText24: TppDBText
      UserName = 'DBText8'
      DataField = 'G22'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 133879
      mmTop = 41010
      mmWidth = 17198
      BandType = 4
    end
    object ppDBText33: TppDBText
      UserName = 'DBText16'
      DataField = 'G18'
      DataPipeline = DBP_10KV
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 133615
      mmTop = 95515
      mmWidth = 21960
      BandType = 4
    end
    object ppLabel81: TppLabel
      UserName = 'Label14'
      OnGetText = ppLabel87GetText
      Caption = '收款员'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 70115
      mmTop = 114829
      mmWidth = 10319
      BandType = 4
    end
    object ppLabel82: TppLabel
      UserName = 'Label21'
      OnGetText = ppLabel88GetText
      Caption = '开票人'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 138642
      mmTop = 115094
      mmWidth = 10319
      BandType = 4
    end
    object ppLabel86: TppLabel
      UserName = 'Label22'
      OnGetText = ppLabel89GetText
      Caption = '复核人'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 104246
      mmTop = 115094
      mmWidth = 10319
      BandType = 4
    end
    object ppL_UpperCash: TppLabel
      UserName = 'L_UpperCash'
      SaveOrder = 0
      Save = True
      Caption = '叁仟伍佰玖拾捌元伍角陆分'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 27781
      mmTop = 94456
      mmWidth = 44715
      BandType = 4
    end
    object ppLabel90: TppLabel
      UserName = 'Label24'
      Caption = '杨桥供电所'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4092
      mmLeft = 19844
      mmTop = 69586
      mmWidth = 17639
      BandType = 4
    end
    object ppLabel91: TppLabel
      UserName = 'Label43'
      Caption = '杨桥供电所'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 4092
      mmLeft = 10848
      mmTop = 82021
      mmWidth = 17639
      BandType = 4
    end
    object ppLabel92: TppLabel
      UserName = 'Label44'
      OnGetText = ppLabel1GetText
      Caption = '2004'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 53446
      mmTop = 19050
      mmWidth = 7408
      BandType = 4
    end
    object ppLabel93: TppLabel
      UserName = 'Label45'
      OnGetText = ppLabel2GetText
      Caption = '03'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 75406
      mmTop = 19050
      mmWidth = 3704
      BandType = 4
    end
    object ppDBText1: TppDBText
      UserName = 'DBText3'
      DataField = 'A16'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 11113
      mmTop = 25135
      mmWidth = 17198
      BandType = 4
    end
    object ppDBText2: TppDBText
      UserName = 'DBText9'
      DataField = 'B11'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 794
      mmTop = 36513
      mmWidth = 16140
      BandType = 4
    end
    object ppDBText3: TppDBText
      UserName = 'DBText10'
      DataField = 'B12'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 18785
      mmTop = 36513
      mmWidth = 14817
      BandType = 4
    end
    object ppDBText4: TppDBText
      UserName = 'DBText11'
      DataField = 'B13'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 35983
      mmTop = 36513
      mmWidth = 15875
      BandType = 4
    end
    object ppDBText5: TppDBText
      UserName = 'DBText12'
      DataField = 'B14'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 794
      mmTop = 41010
      mmWidth = 16140
      BandType = 4
    end
    object ppDBText6: TppDBText
      UserName = 'DBText101'
      DataField = 'B15'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 18785
      mmTop = 41010
      mmWidth = 15081
      BandType = 4
    end
    object ppDBText7: TppDBText
      UserName = 'DBText13'
      DataField = 'B16'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 35983
      mmTop = 41010
      mmWidth = 15875
      BandType = 4
    end
    object ppDBText8: TppDBText
      UserName = 'DBText14'
      DataField = 'B17'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 794
      mmTop = 45508
      mmWidth = 16140
      BandType = 4
    end
    object ppDBText9: TppDBText
      UserName = 'DBText102'
      DataField = 'B18'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 18785
      mmTop = 45508
      mmWidth = 15346
      BandType = 4
    end
    object ppDBText10: TppDBText
      UserName = 'DBText15'
      DataField = 'B19'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 35983
      mmTop = 45508
      mmWidth = 15875
      BandType = 4
    end
    object ppDBText11: TppDBText
      UserName = 'DBText17'
      DataField = 'B10'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_10KV'
      mmHeight = 3969
      mmLeft = 55827
      mmTop = 41010
      mmWidth = 14817
      BandType = 4
    end
    object ppDBText12: TppDBText
      UserName = 'DBText18'
      DataField = 'B21'
      DataPipeline = DBP_10KV
      Font.Charset = DEFAULT_CHARSET