rb_f.dfm

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

      FieldAlias = 'F_AMOUNT'
      FieldName = 'F_AMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 2
    end
  end
  object Q_Transfer: TIBQuery
    Database = F_Login.IBX_Database
    Transaction = F_Login.IBX_Transaction
    AfterScroll = Q_TransferAfterScroll
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select T.f_Transfer_No, T.f_Transfer_Name, Sum(f_Count) As f_Cou' +
        'nt, Sum(F.f_Amount) As f_AMount'
      
        'from Tb_FeeDetail F Join Tb_Transfer T On F.f_Transfer_No = T.f_' +
        'Transfer_No'
      'Group By T.f_Transfer_No, T.f_Transfer_Name')
    Left = 216
    Top = 256
    object Q_TransferF_TRANSFER_NO: TIBStringField
      DisplayLabel = '编号'
      FieldName = 'F_TRANSFER_NO'
      Required = True
      FixedChar = True
      Size = 6
    end
    object Q_TransferF_TRANSFER_NAME: TIBStringField
      DisplayLabel = '名称'
      FieldName = 'F_TRANSFER_NAME'
      FixedChar = True
    end
    object Q_TransferF_COUNT: TIntegerField
      DisplayLabel = '电量'
      FieldName = 'F_COUNT'
    end
    object Q_TransferF_AMOUNT: TFloatField
      DisplayLabel = '电费'
      FieldName = 'F_AMOUNT'
    end
  end
  object Ds_Transfer: TDataSource
    DataSet = Q_Transfer
    Left = 216
    Top = 304
  end
  object DBP_Transfer: TppDBPipeline
    DataSource = Ds_Transfer
    UserName = 'DBP_Transfer'
    Left = 216
    Top = 352
    object DBP_TransferppField1: TppField
      FieldAlias = 'F_TRANSFER_NO'
      FieldName = 'F_TRANSFER_NO'
      FieldLength = 6
      DisplayWidth = 6
      Position = 0
    end
    object DBP_TransferppField2: TppField
      FieldAlias = 'F_TRANSFER_NAME'
      FieldName = 'F_TRANSFER_NAME'
      FieldLength = 20
      DisplayWidth = 20
      Position = 1
    end
    object DBP_TransferppField3: TppField
      Alignment = taRightJustify
      FieldAlias = 'SUM'
      FieldName = 'SUM'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 2
    end
    object DBP_TransferppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'SUM1'
      FieldName = 'SUM1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 3
    end
  end
  object Q_LineFee: 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_Line_No = :LineNo'
      'Group By f_Item')
    Left = 528
    Top = 256
    ParamData = <
      item
        DataType = ftString
        Name = 'LineNo'
        ParamType = ptUnknown
        Value = 'B05'
      end>
    object Q_LineFeeF_ITEM: TIBStringField
      DisplayLabel = '类别'
      FieldName = 'F_ITEM'
    end
    object Q_LineFeeF_COUNT: TIntegerField
      DisplayLabel = '电量'
      FieldName = 'F_COUNT'
    end
    object Q_LineFeeF_AMOUNT: TFloatField
      DisplayLabel = '金额'
      FieldName = 'F_AMOUNT'
    end
  end
  object Ds_LineFee: TDataSource
    DataSet = Q_LineFee
    Left = 528
    Top = 304
  end
  object DBP_LineFee: TppDBPipeline
    DataSource = Ds_LineFee
    UserName = 'DBP_LineFee'
    Left = 528
    Top = 352
    object DBP_LineFeeppField1: TppField
      FieldAlias = 'F_ITEM'
      FieldName = 'F_ITEM'
      FieldLength = 0
      DisplayWidth = 0
      Position = 0
    end
    object DBP_LineFeeppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT'
      FieldName = 'F_COUNT'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 1
    end
    object DBP_LineFeeppField3: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT'
      FieldName = 'F_AMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 2
    end
  end
  object Q_Line: TIBQuery
    Database = F_Login.IBX_Database
    Transaction = F_Login.IBX_Transaction
    AfterScroll = Q_LineAfterScroll
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select L.f_Line_No, L.f_Line_Name, Sum(f_Count) As f_Count, Sum(' +
        'F.f_Amount) As f_Amount'
      'from Tb_FeeDetail F Join Tb_Line L On F.f_Line_No = L.f_Line_No'
      'Group By L.f_Line_No, L.f_Line_Name')
    Left = 448
    Top = 256
    object Q_LineF_LINE_NO: TIBStringField
      DisplayLabel = '编号'
      FieldName = 'F_LINE_NO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object Q_LineF_LINE_NAME: TIBStringField
      DisplayLabel = '名称'
      FieldName = 'F_LINE_NAME'
      FixedChar = True
    end
    object Q_LineF_COUNT: TIntegerField
      DisplayLabel = '电量'
      FieldName = 'F_COUNT'
    end
    object Q_LineF_AMOUNT: TFloatField
      DisplayLabel = '电费'
      FieldName = 'F_AMOUNT'
    end
  end
  object Ds_Line: TDataSource
    DataSet = Q_Line
    Left = 448
    Top = 304
  end
  object DBP_Line: TppDBPipeline
    DataSource = Ds_Line
    UserName = 'DBP_Line'
    Left = 448
    Top = 352
    object DBP_LineppField1: TppField
      FieldAlias = 'F_LINE_NO'
      FieldName = 'F_LINE_NO'
      FieldLength = 0
      DisplayWidth = 0
      Position = 0
    end
    object DBP_LineppField2: TppField
      FieldAlias = 'F_LINE_NAME'
      FieldName = 'F_LINE_NAME'
      FieldLength = 20
      DisplayWidth = 20
      Position = 1
    end
    object DBP_LineppField3: TppField
      Alignment = taRightJustify
      FieldAlias = 'SUM'
      FieldName = 'SUM'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 2
    end
    object DBP_LineppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'SUM1'
      FieldName = 'SUM1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 3
    end
  end
  object Q_Transfer_Wasting: TIBQuery
    Database = F_Login.IBX_Database
    Transaction = F_Login.IBX_Transaction
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'Select T.F_Transfer_No,'
      '       T.F_Transfer_Name,'
      '       Count(H.f_Transfer_no) As f_Counter,/*票数*/'
      '       T.f_BuyCount,/*购电量*/'
      '       Sum(F_Used_Count) As f_Count,'
      '       Sum(F_Used_Amount) As f_Amount,'
      '       f_BuyCount - Sum(f_Used_Count) As f_Wasting,'
      
        '       (f_BuyCount - Sum(f_Used_Count))/f_BuyCount * 100 As f_Lo' +
        'ssRate,'
      '       Sum(F_Used_Amount) / Sum(F_Used_Count) As f_Price'
      
        '   From Tb_Transfer T Join  Tb_House H On T.F_Transfer_No = H.F_' +
        'Transfer_No And H.f_Used_Count <> 0'
      '   Group by T.F_Transfer_No, T.F_Transfer_Name, T.F_BuyCount')
    Left = 40
    Top = 248
    object Q_Transfer_WastingF_TRANSFER_NO: TIBStringField
      DisplayLabel = '编号'
      FieldName = 'F_TRANSFER_NO'
      Required = True
      FixedChar = True
      Size = 6
    end
    object Q_Transfer_WastingF_TRANSFER_NAME: TIBStringField
      DisplayLabel = '台变名称'
      FieldName = 'F_TRANSFER_NAME'
      FixedChar = True
    end
    object Q_Transfer_WastingF_COUNTER: TIntegerField
      DisplayLabel = '票数'
      FieldName = 'F_COUNTER'
      Required = True
    end
    object Q_Transfer_WastingF_BUYCOUNT: TFloatField
      DisplayLabel = '购电量'
      FieldName = 'F_BUYCOUNT'
    end
    object Q_Transfer_WastingF_COUNT: TFloatField
      DisplayLabel = '电量'
      FieldName = 'F_COUNT'
    end
    object Q_Transfer_WastingF_AMOUNT: TFloatField
      DisplayLabel = '电费'
      FieldName = 'F_AMOUNT'
    end
    object Q_Transfer_WastingF_WASTING: TFloatField
      DisplayLabel = '损失电量'
      FieldName = 'F_WASTING'
    end
    object Q_Transfer_WastingF_LOSSRATE: TFloatField
      DisplayLabel = '线损率'
      FieldName = 'F_LOSSRATE'
      DisplayFormat = '0.0'
    end
    object Q_Transfer_WastingF_PRICE: TFloatField
      DisplayLabel = '产值'
      FieldName = 'F_PRICE'
      DisplayFormat = '0.000'
    end
  end
  object Ds_Transfer_Wasting: TDataSource
    DataSet = Q_Transfer_Wasting
    Left = 40
    Top = 304
  end
  object DBP_Transfer_Wasting: TppDBPipeline
    DataSource = Ds_Transfer_Wasting
    UserName = 'DBP_Transfer_Wasting'
    Left = 40
    Top = 360
    object DBP_Transfer_WastingppField1: TppField
      FieldAlias = 'F_TRANSFER_NO'
      FieldName = 'F_TRANSFER_NO'
      FieldLength = 6
      DisplayWidth = 6
      Position = 0
    end
    object DBP_Transfer_WastingppField2: TppField
      FieldAlias = 'F_TRANSFER_NAME'
      FieldName = 'F_TRANSFER_NAME'
      FieldLength = 20
      DisplayWidth = 20
      Position = 1
    end
    object DBP_Transfer_WastingppField3: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNTER'
      FieldName = 'F_COUNTER'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 2
    end
    object DBP_Transfer_WastingppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_BUYCOUNT'
      FieldName = 'F_BUYCOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 3
    end
    object DBP_Transfer_WastingppField5: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT'
      FieldName = 'F_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 4
    end
    object DBP_Transfer_WastingppField6: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT'
      FieldName = 'F_AMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 5
    end
    object DBP_Transfer_WastingppField7: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_WASTING'
      FieldName = 'F_WASTING'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 6
    end
    object DBP_Transfer_WastingppField8: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_LOSSRATE'
      FieldName = 'F_LOSSRATE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 7
    end
    object DBP_Transfer_WastingppField9: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE'
      FieldName = 'F_PRICE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 8
    end
  end
  object DBP_SyncTransfer: TppDBPipeline
    DataSource = DM_Table.Ds_Transfer
    UserName = 'DBP_SyncTransfer'
    Left = 32
    Top = 32
    object ppField1: TppField
      FieldAlias = 'F_TRANSFER_NO'
      FieldName = 'F_TRANSFER_NO'
      FieldLength = 6
      DisplayWidth = 6
      Position = 0
    end
    object ppField2: TppField
      FieldAlias = 'F_TRANSFER_NAME'
      FieldName = 'F_TRANSFER_NAME'
      FieldLength = 20
      DisplayWidth = 20
      Position = 1
    end
    object ppField3: TppField
      Alignment = taRightJustify
      FieldAlias = 'SUM'
      FieldName = 'SUM'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 2
    end
    object ppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'SUM1'
      FieldName = 'SUM1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 3
    end
  end
end