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

          end
          object ppDBText26: TppDBText
            UserName = 'DBText9'
            DataField = 'F_AMMETER_LAST_COUNT'
            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 = 26988
            mmTop = 1323
            mmWidth = 17198
            BandType = 4
          end
          object ppDBText27: TppDBText
            UserName = 'DBText10'
            DataField = 'F_THIS_COUNT'
            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 = 52652
            mmTop = 1323
            mmWidth = 17198
            BandType = 4
          end
          object ppDBText28: TppDBText
            UserName = 'DBText11'
            DataField = 'F_COUNT'
            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 = 77788
            mmTop = 1323
            mmWidth = 17198
            BandType = 4
          end
        end
        object ppFooterBand3: TppFooterBand
          Visible = False
          mmBottomOffset = 0
          mmHeight = 0
          mmPrintPosition = 0
        end
      end
    end
    object ppSubReport4: TppSubReport
      UserName = 'SubReport2'
      ExpandAll = False
      NewPrintJob = False
      OutlineSettings.CreateNode = True
      ParentWidth = False
      TraverseAllData = False
      DataPipelineName = 'DBP_FeeDetail'
      mmHeight = 27252
      mmLeft = 73290
      mmTop = 69321
      mmWidth = 110067
      BandType = 4
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      object ppChildReport4: TppChildReport
        AutoStop = False
        DataPipeline = DBP_FeeDetail
        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
        Units = utMillimeters
        Left = 368
        Top = 272
        Version = '7.03'
        mmColumnWidth = 0
        DataPipelineName = 'DBP_FeeDetail'
        object ppTitleBand2: TppTitleBand
          mmBottomOffset = 0
          mmHeight = 7673
          mmPrintPosition = 0
          object ppLabel77: TppLabel
            UserName = 'Label1'
            Caption = '收费项目'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            Transparent = True
            mmHeight = 4233
            mmLeft = 4498
            mmTop = 2646
            mmWidth = 16933
            BandType = 1
          end
          object ppLabel78: TppLabel
            UserName = 'Label2'
            Caption = '计费电量'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            Transparent = True
            mmHeight = 4233
            mmLeft = 30692
            mmTop = 2117
            mmWidth = 16933
            BandType = 1
          end
          object ppLabel79: TppLabel
            UserName = 'Label3'
            Caption = '单价'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            Transparent = True
            mmHeight = 4233
            mmLeft = 68792
            mmTop = 2646
            mmWidth = 8467
            BandType = 1
          end
          object ppLabel80: TppLabel
            UserName = 'Label4'
            Caption = '金额'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            Transparent = True
            mmHeight = 4233
            mmLeft = 101336
            mmTop = 2646
            mmWidth = 8467
            BandType = 1
          end
        end
        object ppDetailBand6: TppDetailBand
          mmBottomOffset = 0
          mmHeight = 7408
          mmPrintPosition = 0
          object ppDBText29: TppDBText
            UserName = 'DBText13'
            DataField = 'F_ITEM'
            DataPipeline = DBP_FeeDetail
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            Transparent = True
            DataPipelineName = 'DBP_FeeDetail'
            mmHeight = 4233
            mmLeft = 5292
            mmTop = 2117
            mmWidth = 17198
            BandType = 4
          end
          object ppDBText30: TppDBText
            UserName = 'DBText14'
            DataField = 'F_COUNT'
            DataPipeline = DBP_FeeDetail
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            Transparent = True
            DataPipelineName = 'DBP_FeeDetail'
            mmHeight = 4233
            mmLeft = 30692
            mmTop = 2381
            mmWidth = 17198
            BandType = 4
          end
          object ppDBText31: TppDBText
            UserName = 'DBText15'
            DataField = 'F_AMOUNT'
            DataPipeline = DBP_FeeDetail
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            Transparent = True
            DataPipelineName = 'DBP_FeeDetail'
            mmHeight = 4233
            mmLeft = 101071
            mmTop = 2381
            mmWidth = 17198
            BandType = 4
          end
          object ppDBText32: TppDBText
            UserName = 'DBText33'
            DataField = 'F_PRICE'
            DataPipeline = DBP_FeeDetail
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Arial'
            Font.Size = 10
            Font.Style = []
            Transparent = True
            DataPipelineName = 'DBP_FeeDetail'
            mmHeight = 4233
            mmLeft = 68792
            mmTop = 2646
            mmWidth = 17198
            BandType = 4
          end
        end
        object ppSummaryBand2: TppSummaryBand
          mmBottomOffset = 0
          mmHeight = 0
          mmPrintPosition = 0
        end
      end
    end
    object ppDBText33: TppDBText
      UserName = 'DBText16'
      DataField = 'F_FEEAMOUNT'
      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 = 151871
      mmTop = 104246
      mmWidth = 17198
      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 = 86254
      mmTop = 121444
      mmWidth = 10583
      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 = 152929
      mmTop = 121179
      mmWidth = 10583
      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 = 119856
      mmTop = 121444
      mmWidth = 10583
      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 = 38894
      mmTop = 103981
      mmWidth = 14023
      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 = 3969
      mmLeft = 28310
      mmTop = 81227
      mmWidth = 35190
      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 = 4022
      mmLeft = 29104
      mmTop = 91811
      mmWidth = 17568
      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 = 64029
      mmTop = 28046
      mmWidth = 7144
      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 = 86254
      mmTop = 27781
      mmWidth = 3440
      BandType = 4
    end
  end
  object ppFooterBand4: TppFooterBand
    mmBottomOffset = 0
    mmHeight = 0
    mmPrintPosition = 0
  end
  object ppParameterList1: TppParameterList
  end
end