rb_f.dfm

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

        mmHeight = 4824
        mmLeft = 43127
        mmTop = 1588
        mmWidth = 42333
        BandType = 4
      end
      object ppDBText2: TppDBText
        UserName = 'DBText2'
        DataField = 'F_BOX_NO'
        DataPipeline = DBP_HouseFee
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_HouseFee'
        mmHeight = 4763
        mmLeft = 87842
        mmTop = 1588
        mmWidth = 17198
        BandType = 4
      end
      object ppLine2: TppLine
        UserName = 'Line2'
        Pen.Style = psDot
        Weight = 0.75
        mmHeight = 1323
        mmLeft = 1323
        mmTop = 265
        mmWidth = 192882
        BandType = 4
      end
      object ppDBCalc1: TppDBCalc
        UserName = 'DBCalc1'
        DataPipeline = DBP_HouseFee
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DBCalcType = dcCount
        DataPipelineName = 'DBP_HouseFee'
        mmHeight = 4763
        mmLeft = 2381
        mmTop = 1323
        mmWidth = 11377
        BandType = 4
      end
      object ppLine3: TppLine
        UserName = 'Line3'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 146844
        mmTop = 794
        mmWidth = 2117
        BandType = 4
      end
      object ppLine4: TppLine
        UserName = 'Line4'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 15346
        mmTop = 794
        mmWidth = 529
        BandType = 4
      end
      object ppLine5: TppLine
        UserName = 'Line5'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 41540
        mmTop = 794
        mmWidth = 529
        BandType = 4
      end
      object ppLine6: TppLine
        UserName = 'Line6'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 124090
        mmTop = 529
        mmWidth = 529
        BandType = 4
      end
      object ppLine7: TppLine
        UserName = 'Line7'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 169334
        mmTop = 1058
        mmWidth = 2117
        BandType = 4
      end
      object ppLine9: TppLine
        UserName = 'Line9'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 106098
        mmTop = 794
        mmWidth = 529
        BandType = 4
      end
      object ppLine10: TppLine
        UserName = 'Line10'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 86254
        mmTop = 529
        mmWidth = 529
        BandType = 4
      end
    end
    object ppFooterBand3: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 6350
      mmPrintPosition = 0
    end
    object ppSummaryBand1: TppSummaryBand
      mmBottomOffset = 0
      mmHeight = 18521
      mmPrintPosition = 0
      object ppLabel10: TppLabel
        UserName = 'Label10'
        Caption = '制表：高爱敏'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4798
        mmLeft = 5027
        mmTop = 8467
        mmWidth = 25400
        BandType = 7
      end
      object ppLabel11: TppLabel
        UserName = 'Label11'
        Caption = '审核：李文良'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4798
        mmLeft = 53975
        mmTop = 8467
        mmWidth = 25400
        BandType = 7
      end
      object ppLabel12: TppLabel
        UserName = 'Label12'
        Caption = '领用:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 104511
        mmTop = 8996
        mmWidth = 10583
        BandType = 7
      end
      object ppDBCalc2: TppDBCalc
        UserName = 'DBCalc2'
        DataField = 'F_USED_COUNT'
        DataPipeline = DBP_HouseFee
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_HouseFee'
        mmHeight = 4826
        mmLeft = 106892
        mmTop = 1588
        mmWidth = 16140
        BandType = 7
      end
      object ppDBCalc3: TppDBCalc
        UserName = 'DBCalc3'
        DataField = 'F_USED_AMOUNT'
        DataPipeline = DBP_HouseFee
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_HouseFee'
        mmHeight = 4826
        mmLeft = 125413
        mmTop = 1323
        mmWidth = 19844
        BandType = 7
      end
      object ppLine16: TppLine
        UserName = 'Line102'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 85990
        mmTop = 0
        mmWidth = 529
        BandType = 7
      end
      object ppLine17: TppLine
        UserName = 'Line17'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 105834
        mmTop = 0
        mmWidth = 529
        BandType = 7
      end
      object ppLine18: TppLine
        UserName = 'Line18'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 123825
        mmTop = 0
        mmWidth = 529
        BandType = 7
      end
      object ppLine19: TppLine
        UserName = 'Line19'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6085
        mmLeft = 146844
        mmTop = 0
        mmWidth = 2117
        BandType = 7
      end
      object ppLine20: TppLine
        UserName = 'Line20'
        Pen.Style = psDot
        Weight = 0.75
        mmHeight = 1323
        mmLeft = 3175
        mmTop = 0
        mmWidth = 192882
        BandType = 7
      end
      object ppLabel13: TppLabel
        UserName = 'Label13'
        Caption = '合计'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = [fsBold]
        TextAlignment = taRightJustified
        Transparent = True
        mmHeight = 4826
        mmLeft = 70031
        mmTop = 1588
        mmWidth = 8551
        BandType = 7
      end
      object ppSystemVariable2: TppSystemVariable
        UserName = 'SystemVariable2'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 173302
        mmTop = 12171
        mmWidth = 21167
        BandType = 7
      end
    end
    object ppParameterList1: TppParameterList
    end
  end
  object DBP_HouseFee: TppDBPipeline
    DataSource = Ds_HouseFee
    UserName = 'DBP_HouseFee'
    Left = 32
    Top = 176
    object DBP_HouseFeeppField1: TppField
      FieldAlias = 'F_HOUSE_NO'
      FieldName = 'F_HOUSE_NO'
      FieldLength = 12
      DisplayWidth = 12
      Position = 0
    end
    object DBP_HouseFeeppField2: TppField
      FieldAlias = 'F_HOUSE_NAME'
      FieldName = 'F_HOUSE_NAME'
      FieldLength = 20
      DisplayWidth = 20
      Position = 1
    end
    object DBP_HouseFeeppField3: TppField
      FieldAlias = 'F_BOX_NO'
      FieldName = 'F_BOX_NO'
      FieldLength = 6
      DisplayWidth = 6
      Position = 2
    end
    object DBP_HouseFeeppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_USED_COUNT'
      FieldName = 'F_USED_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 3
    end
    object DBP_HouseFeeppField5: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_USED_AMOUNT'
      FieldName = 'F_USED_AMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 4
    end
  end
  object D_Report: TppDesigner
    Caption = '报表修改'
    DataSettings.SessionType = 'BDESession'
    DataSettings.AllowEditSQL = False
    DataSettings.DatabaseType = dtParadox
    DataSettings.IsCaseSensitive = True
    DataSettings.SQLType = sqBDELocal
    Position = poScreenCenter
    Report = Report
    IniStorageType = 'IniFile'
    IniStorageName = '($WINSYS)\RBuilder.ini'
    WindowHeight = 400
    WindowLeft = 100
    WindowTop = 50
    WindowWidth = 600
    Left = 232
    Top = 24
  end
  object Q_TransferFee: TIBQuery
    Database = F_Login.IBX_Database
    Transaction = F_Login.IBX_Transaction
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select f_Item, Sum(f_Count) As f_Count, Sum(f_Amount) As f_Amoun' +
        't'
      'from Tb_FeeDetail'
      'Where f_Transfer_No = :TransferNo'
      'Group By f_Item')
    Left = 312
    Top = 256
    ParamData = <
      item
        DataType = ftString
        Name = 'TransferNo'
        ParamType = ptUnknown
        Value = 'B05005'
      end>
    object Q_TransferFeeF_ITEM: TIBStringField
      DisplayLabel = '类别'
      FieldName = 'F_ITEM'
    end
    object Q_TransferFeeF_COUNT: TIntegerField
      DisplayLabel = '电量'
      FieldName = 'F_COUNT'
    end
    object Q_TransferFeeF_AMOUNT: TFloatField
      DisplayLabel = '金额'
      FieldName = 'F_AMOUNT'
    end
  end
  object Ds_TransferFee: TDataSource
    DataSet = Q_TransferFee
    Left = 312
    Top = 304
  end
  object DTP_TransferFee: TppDBPipeline
    DataSource = Ds_TransferFee
    UserName = 'DBP_TransferFee'
    Left = 312
    Top = 352
    object DTP_TransferFeeppField1: TppField
      FieldAlias = 'F_ITEM'
      FieldName = 'F_ITEM'
      FieldLength = 20
      DisplayWidth = 20
      Position = 0
    end
    object DTP_TransferFeeppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT'
      FieldName = 'F_COUNT'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 1
    end
    object DTP_TransferFeeppField3: TppField
      Alignment = taRightJustify