400v

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

object R_Balance: TppReport
  AutoStop = False
  DataPipeline = DBP_Invoice
  PassSetting = psTwoPass
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = '发票报表'
  PrinterSetup.PaperName = 'A4'
  PrinterSetup.PrinterName = 'Acrobat PDFWriter'
  PrinterSetup.mmMarginBottom = 0
  PrinterSetup.mmMarginLeft = 0
  PrinterSetup.mmMarginRight = 0
  PrinterSetup.mmMarginTop = 0
  PrinterSetup.mmPaperHeight = 297000
  PrinterSetup.mmPaperWidth = 210000
  PrinterSetup.PaperSize = 9
  Template.FileName = 'E:\Mis\Fee\Exe\400V结算单.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
  SavePrinterSetup = True
  TextSearchSettings.DefaultString = '<FindText>'
  TextSearchSettings.Enabled = True
  Left = 256
  Top = 136
  Version = '7.04'
  mmColumnWidth = 210000
  DataPipelineName = 'DBP_Invoice'
  object ppHeaderBand1: TppHeaderBand
    mmBottomOffset = 0
    mmHeight = 0
    mmPrintPosition = 0
  end
  object ppDetailBand4: TppDetailBand
    mmBottomOffset = 0
    mmHeight = 69750
    mmPrintPosition = 0
    object ppDBText17: TppDBText
      UserName = 'DBText6'
      BlankWhenZero = True
      DataField = 'F_TRANS_USED'
      DataPipeline = DBP_Invoice
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 43921
      mmTop = 50271
      mmWidth = 11377
      BandType = 4
    end
    object ppDBText18: TppDBText
      UserName = 'DBText1'
      AutoSize = True
      DataField = 'F_HOUSE_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 = 24606
      mmTop = 16140
      mmWidth = 20373
      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 = 3969
      mmLeft = 55563
      mmTop = 16140
      mmWidth = 13758
      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 = 110861
      mmTop = 16140
      mmWidth = 34396
      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 = []
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 24342
      mmTop = 50271
      mmWidth = 9260
      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 = []
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 71702
      mmTop = 50271
      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 = 109273
      mmTop = 55827
      mmWidth = 16669
      BandType = 4
    end
    object ppSubReport3: TppSubReport
      UserName = 'SubReport1'
      ExpandAll = False
      NewPrintJob = False
      OutlineSettings.CreateNode = True
      ParentPrinterSetup = False
      ParentWidth = False
      TraverseAllData = False
      DataPipelineName = 'DBP_Ammeter'
      mmHeight = 16933
      mmLeft = 14552
      mmTop = 32015
      mmWidth = 76729
      BandType = 4
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      object ppChildReport3: TppChildReport
        AutoStop = False
        DataPipeline = DBP_Ammeter
        PrinterSetup.BinName = 'Default'
        PrinterSetup.DocumentName = '发票报表'
        PrinterSetup.PaperName = 'A4          [210 x 297 毫米]'
        PrinterSetup.PrinterName = 'Acrobat PDFWriter'
        PrinterSetup.mmMarginBottom = 0
        PrinterSetup.mmMarginLeft = 0
        PrinterSetup.mmMarginRight = 0
        PrinterSetup.mmMarginTop = 0
        PrinterSetup.mmPaperHeight = 297127
        PrinterSetup.mmPaperWidth = 210079
        PrinterSetup.PaperSize = 9
        Template.Format = ftASCII
        Left = 328
        Top = 232
        Version = '7.04'
        mmColumnWidth = 0
        DataPipelineName = 'DBP_Ammeter'
        object ppTitleBand1: TppTitleBand
          mmBottomOffset = 0
          mmHeight = 0
          mmPrintPosition = 0
        end
        object ppDetailBand5: TppDetailBand
          mmBottomOffset = 0
          mmHeight = 5027
          mmPrintPosition = 0
          object ppDBText25: TppDBText
            UserName = 'DBText12'
            DataField = 'F_AMMETER_NO'
            DataPipeline = DBP_Ammeter
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = '宋体'
            Font.Size = 10
            Font.Style = []
            ParentDataPipeline = False
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'DBP_Ammeter'
            mmHeight = 4022
            mmLeft = 2381
            mmTop = 529
            mmWidth = 20638
            BandType = 4
          end
          object ppDBText26: TppDBText
            UserName = 'DBText9'
            DataField = 'F_AMMETER_LAST_COUNT'
            DataPipeline = DBP_Ammeter
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = '宋体'
            Font.Size = 10
            Font.Style = []
            ParentDataPipeline = False
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'DBP_Ammeter'
            mmHeight = 4022
            mmLeft = 26723
            mmTop = 529
            mmWidth = 14552
            BandType = 4
          end
          object ppDBText27: TppDBText
            UserName = 'DBText10'
            DataField = 'F_THIS_COUNT'
            DataPipeline = DBP_Ammeter
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = '宋体'
            Font.Size = 10
            Font.Style = []
            ParentDataPipeline = False
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'DBP_Ammeter'
            mmHeight = 4022
            mmLeft = 44450
            mmTop = 529
            mmWidth = 16140
            BandType = 4
          end
          object ppDBText28: TppDBText
            UserName = 'DBText11'
            DataField = 'F_COUNT'
            DataPipeline = DBP_Ammeter
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = '宋体'
            Font.Size = 10
            Font.Style = []
            ParentDataPipeline = False
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'DBP_Ammeter'
            mmHeight = 4022
            mmLeft = 62971
            mmTop = 529
            mmWidth = 15081
            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 = 28575
      mmLeft = 93398
      mmTop = 26194
      mmWidth = 102394
      BandType = 4
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      object ppChildReport4: TppChildReport
        AutoStop = False
        DataPipeline = DBP_FeeDetail
        PrinterSetup.BinName = 'Default'
        PrinterSetup.DocumentName = '发票报表'
        PrinterSetup.PaperName = 'A4          [210 x 297 毫米]'
        PrinterSetup.PrinterName = 'Acrobat PDFWriter'
        PrinterSetup.mmMarginBottom = 0
        PrinterSetup.mmMarginLeft = 0
        PrinterSetup.mmMarginRight = 0