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

      Transparent = True
      mmHeight = 3969
      mmLeft = 11113
      mmTop = 91811
      mmWidth = 14023
      BandType = 4
    end
    object ppLabel62: TppLabel
      UserName = 'Label28'
      Caption = '合计金额(大写)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 11377
      mmTop = 104246
      mmWidth = 24606
      BandType = 4
    end
    object ppLabel63: TppLabel
      UserName = 'Label29'
      Caption = '备注:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 11377
      mmTop = 110331
      mmWidth = 8731
      BandType = 4
    end
    object ppLabel64: TppLabel
      UserName = 'Label30'
      Caption = '收费单位(盖章有效)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 17463
      mmTop = 121444
      mmWidth = 31750
      BandType = 4
    end
    object ppLabel65: TppLabel
      UserName = 'Label31'
      Caption = '收费'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 76200
      mmTop = 121444
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel66: TppLabel
      UserName = 'Label32'
      Caption = '复核'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 110067
      mmTop = 121444
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel67: TppLabel
      UserName = 'Label33'
      Caption = '开票'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 142875
      mmTop = 121444
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel68: TppLabel
      UserName = 'Label34'
      Caption = '报销凭证'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      WordWrap = True
      mmHeight = 16140
      mmLeft = 188119
      mmTop = 71967
      mmWidth = 3440
      BandType = 4
    end
    object ppLabel69: TppLabel
      UserName = 'Label35'
      Caption = '云 南 省 电 费 收 费 专 用 发 票'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 72761
      mmTop = 2381
      mmWidth = 56356
      BandType = 4
    end
    object ppLabel70: TppLabel
      UserName = 'Label36'
      Caption = '第二联'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 79904
      mmTop = 14023
      mmWidth = 10583
      BandType = 4
    end
    object ppLabel71: TppLabel
      UserName = 'Label37'
      Caption = '发   票'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Name = '宋体'
      Font.Size = 14
      Font.Style = []
      Transparent = True
      mmHeight = 5556
      mmLeft = 97102
      mmTop = 12171
      mmWidth = 17463
      BandType = 4
    end
    object ppLabel72: TppLabel
      UserName = 'Label38'
      Caption = '种类代码:00000'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 9790
      mmTop = 19844
      mmWidth = 24606
      BandType = 4
    end
    object ppLabel73: TppLabel
      UserName = 'Label39'
      Caption = 'G5300000000000'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 9790
      mmTop = 24077
      mmWidth = 24871
      BandType = 4
    end
    object ppLabel74: TppLabel
      UserName = 'Label40'
      Caption = '客户名称'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      WordWrap = True
      mmHeight = 7938
      mmLeft = 120650
      mmTop = 18521
      mmWidth = 7144
      BandType = 4
    end
    object ppLabel75: TppLabel
      UserName = 'Label41'
      Caption = '$:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 147638
      mmTop = 104246
      mmWidth = 3440
      BandType = 4
    end
    object ppLabel76: TppLabel
      UserName = 'Label42'
      Caption = '合计电量(KW.h)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 159809
      mmTop = 41275
      mmWidth = 24606
      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 = 4022
      mmLeft = 129911
      mmTop = 23019
      mmWidth = 10541
      BandType = 4
    end
    object ppDBText20: TppDBText
      UserName = 'DBText3'
      DataField = 'F_VILLAGE_NO'
      DataPipeline = DBP_Invoice
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      SuppressRepeatedValues = True
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3440
      mmLeft = 80963
      mmTop = 35190
      mmWidth = 13229
      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 = 94986
      mmTop = 34660
      mmWidth = 42598
      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 = []
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 106363
      mmTop = 54504
      mmWidth = 8202
      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 = []
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 133879
      mmTop = 54504
      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 = 160073
      mmTop = 54240
      mmWidth = 17198
      BandType = 4
    end
    object ppSubReport3: TppSubReport
      UserName = 'SubReport1'
      ExpandAll = False
      NewPrintJob = False
      OutlineSettings.CreateNode = True
      ParentWidth = False
      TraverseAllData = False
      DataPipelineName = 'DBP_Ammeter'
      mmHeight = 19579
      mmLeft = 7938
      mmTop = 49477
      mmWidth = 97367
      BandType = 4
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      object ppChildReport3: TppChildReport
        AutoStop = False
        DataPipeline = DBP_Ammeter
        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 = 256
        Template.Format = ftASCII
        Left = 328
        Top = 232
        Version = '7.03'
        mmColumnWidth = 0
        DataPipelineName = 'DBP_Ammeter'
        object ppHeaderBand4: TppHeaderBand
          Visible = False
          mmBottomOffset = 0
          mmHeight = 1058
          mmPrintPosition = 0
        end
        object ppDetailBand5: TppDetailBand
          mmBottomOffset = 0
          mmHeight = 6615
          mmPrintPosition = 0
          object ppDBText25: TppDBText
            UserName = 'DBText12'
            DataField = 'F_AMMETER_NO'
            DataPipeline = DBP_Ammeter
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            ParentDataPipeline = False
            Transparent = True
            DataPipelineName = 'DBP_Ammeter'
            mmHeight = 4233
            mmLeft = 8467
            mmTop = 1323
            mmWidth = 17198
            BandType = 4