charge_report_10kv_f.dfm

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

        mmTop = 14817
        mmWidth = 16933
        BandType = 0
      end
      object ppLabel8: TppLabel
        UserName = 'Label8'
        Caption = '实    收'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 151871
        mmTop = 14817
        mmWidth = 16933
        BandType = 0
      end
      object ppLabel9: TppLabel
        UserName = 'Label9'
        Caption = '供电所10KV用户收费明细表'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 16
        Font.Style = []
        Transparent = True
        mmHeight = 6435
        mmLeft = 70379
        mmTop = 3969
        mmWidth = 67649
        BandType = 0
      end
      object ppLine2: TppLine
        UserName = 'Line2'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 30163
        mmTop = 12170
        mmWidth = 2381
        BandType = 0
      end
      object ppLine3: TppLine
        UserName = 'Line3'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 94986
        mmTop = 12171
        mmWidth = 2381
        BandType = 0
      end
      object ppLine4: TppLine
        UserName = 'Line4'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 122502
        mmTop = 12171
        mmWidth = 2381
        BandType = 0
      end
      object ppLine5: TppLine
        UserName = 'Line5'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 145786
        mmTop = 12171
        mmWidth = 2381
        BandType = 0
      end
      object ppLine12: TppLine
        UserName = 'Line12'
        Pen.Style = psDot
        Weight = 0.75
        mmHeight = 265
        mmLeft = 5821
        mmTop = 19844
        mmWidth = 190236
        BandType = 0
      end
    end
    object ppDetailBand1: TppDetailBand
      mmBottomOffset = 0
      mmHeight = 8202
      mmPrintPosition = 0
      object ppDBText1: TppDBText
        UserName = 'DBText1'
        DataField = 'F_HOUSE_NO'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 5821
        mmTop = 2381
        mmWidth = 21696
        BandType = 4
      end
      object ppDBText2: TppDBText
        UserName = 'DBText2'
        DataField = 'F_HOUSE_NAME'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 32544
        mmTop = 2381
        mmWidth = 59002
        BandType = 4
      end
      object ppDBText3: TppDBText
        UserName = 'DBText3'
        BlankWhenZero = True
        DataField = 'F_GATHERING'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 100013
        mmTop = 2381
        mmWidth = 18521
        BandType = 4
      end
      object ppDBText4: TppDBText
        UserName = 'DBText4'
        BlankWhenZero = True
        DataField = 'F_GIVE_CHANGE'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 127794
        mmTop = 2381
        mmWidth = 14288
        BandType = 4
      end
      object ppDBText8: TppDBText
        UserName = 'DBText8'
        BlankWhenZero = True
        DataField = 'F_ACTUAL_RECEIVE'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 152136
        mmTop = 2381
        mmWidth = 17198
        BandType = 4
      end
      object ppLine1: TppLine
        UserName = 'Line1'
        Pen.Style = psDot
        Weight = 0.75
        mmHeight = 265
        mmLeft = 3969
        mmTop = 7144
        mmWidth = 190236
        BandType = 4
      end
      object ppLine7: TppLine
        UserName = 'Line7'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 30163
        mmTop = 265
        mmWidth = 2381
        BandType = 4
      end
      object ppLine8: TppLine
        UserName = 'Line8'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 94986
        mmTop = 265
        mmWidth = 2381
        BandType = 4
      end
      object ppLine9: TppLine
        UserName = 'Line9'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 122502
        mmTop = 265
        mmWidth = 2381
        BandType = 4
      end
      object ppLine10: TppLine
        UserName = 'Line10'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 145786
        mmTop = 265
        mmWidth = 2381
        BandType = 4
      end
    end
    object ppFooterBand1: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 8467
      mmPrintPosition = 0
    end
    object ppSummaryBand1: TppSummaryBand
      mmBottomOffset = 0
      mmHeight = 8996
      mmPrintPosition = 0
      object ppDBCalc3: TppDBCalc
        UserName = 'DBCalc3'
        DataField = 'F_ACTUAL_RECEIVE'
        DataPipeline = DBP_10KV
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 150548
        mmTop = 2117
        mmWidth = 18785
        BandType = 7
      end
      object ppLine16: TppLine
        UserName = 'Line101'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 9525
        mmLeft = 145786
        mmTop = 0
        mmWidth = 2381
        BandType = 7
      end
      object ppLabel6: TppLabel
        UserName = 'Label6'
        Caption = '户数'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        mmHeight = 3969
        mmLeft = 114036
        mmTop = 1852
        mmWidth = 7144
        BandType = 7
      end
      object ppDBCalc1: TppDBCalc
        UserName = 'DBCalc1'
        DataPipeline = DBP_10KV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DBCalcType = dcCount
        DataPipelineName = 'DBP_10KV'
        mmHeight = 3969
        mmLeft = 124354
        mmTop = 1852
        mmWidth = 17198
        BandType = 7
      end
    end
    object ppParameterList1: TppParameterList
    end
  end
  object DBP_10KV: TppDBPipeline
    DataSource = DM_10KV.Ds_10KVGathering
    UserName = 'DBP_10KV'
    Left = 156
    Top = 168
  end
  object D_10KV: TppDesigner
    Caption = '报表编辑器'
    DataSettings.SessionType = 'BDESession'
    DataSettings.AllowEditSQL = False
    DataSettings.DatabaseType = dtParadox
    DataSettings.IsCaseSensitive = True
    DataSettings.SQLType = sqBDELocal
    Position = poScreenCenter
    Report = R_10KV
    IniStorageType = 'IniFile'
    IniStorageName = '($WINSYS)\RBuilder.ini'
    WindowHeight = 400
    WindowLeft = 100
    WindowTop = 50
    WindowWidth = 600
    WindowState = wsMaximized
    Left = 34
    Top = 168
  end
end