fee_balance2_f.dfm

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

      Position = 15
    end
    object DBP_InvoiceppField17: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_SUM_COUNT'
      FieldName = 'F_SUM_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 16
    end
    object DBP_InvoiceppField18: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_BASE_COUNT'
      FieldName = 'F_BASE_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 17
    end
    object DBP_InvoiceppField19: TppField
      FieldAlias = 'F_ELECT_NO'
      FieldName = 'F_ELECT_NO'
      FieldLength = 2
      DisplayWidth = 2
      Position = 18
    end
    object DBP_InvoiceppField20: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE'
      FieldName = 'F_PRICE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 19
    end
    object DBP_InvoiceppField21: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT'
      FieldName = 'F_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 20
    end
    object DBP_InvoiceppField22: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT'
      FieldName = 'F_AMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 21
    end
    object DBP_InvoiceppField23: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_RATE1'
      FieldName = 'F_RATE1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 22
    end
    object DBP_InvoiceppField24: TppField
      FieldAlias = 'F_ELECT_NO1'
      FieldName = 'F_ELECT_NO1'
      FieldLength = 2
      DisplayWidth = 2
      Position = 23
    end
    object DBP_InvoiceppField25: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE1'
      FieldName = 'F_PRICE1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 24
    end
    object DBP_InvoiceppField26: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT1'
      FieldName = 'F_COUNT1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 25
    end
    object DBP_InvoiceppField27: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT1'
      FieldName = 'F_AMOUNT1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 26
    end
    object DBP_InvoiceppField28: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_RATE2'
      FieldName = 'F_RATE2'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 27
    end
    object DBP_InvoiceppField29: TppField
      FieldAlias = 'F_ELECT_NO2'
      FieldName = 'F_ELECT_NO2'
      FieldLength = 2
      DisplayWidth = 2
      Position = 28
    end
    object DBP_InvoiceppField30: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE2'
      FieldName = 'F_PRICE2'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 29
    end
    object DBP_InvoiceppField31: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT2'
      FieldName = 'F_COUNT2'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 30
    end
    object DBP_InvoiceppField32: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT2'
      FieldName = 'F_AMOUNT2'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 31
    end
    object DBP_InvoiceppField33: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_RATE3'
      FieldName = 'F_RATE3'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 32
    end
    object DBP_InvoiceppField34: TppField
      FieldAlias = 'F_ELECT_NO3'
      FieldName = 'F_ELECT_NO3'
      FieldLength = 2
      DisplayWidth = 2
      Position = 33
    end
    object DBP_InvoiceppField35: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE3'
      FieldName = 'F_PRICE3'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 34
    end
    object DBP_InvoiceppField36: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT3'
      FieldName = 'F_COUNT3'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 35
    end
    object DBP_InvoiceppField37: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT3'
      FieldName = 'F_AMOUNT3'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 36
    end
    object DBP_InvoiceppField38: TppField
      FieldAlias = 'F_NOTE'
      FieldName = 'F_NOTE'
      FieldLength = 50
      DisplayWidth = 50
      Position = 37
    end
    object DBP_InvoiceppField39: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_ARREARAGE'
      FieldName = 'F_ARREARAGE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 38
    end
    object DBP_InvoiceppField40: TppField
      FieldAlias = 'F_2YEAR'
      FieldName = 'F_2YEAR'
      FieldLength = 1
      DisplayWidth = 1
      Position = 39
    end
    object DBP_InvoiceppField41: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_LATEFEE'
      FieldName = 'F_LATEFEE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 40
    end
    object DBP_InvoiceppField42: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_CT'
      FieldName = 'F_CT'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 41
    end
    object DBP_InvoiceppField43: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_TRANS_USED'
      FieldName = 'F_TRANS_USED'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 42
    end
    object DBP_InvoiceppField44: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_IRON_USED'
      FieldName = 'F_IRON_USED'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 43
    end
    object DBP_InvoiceppField45: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_EXCESSTYPE'
      FieldName = 'F_EXCESSTYPE'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 44
    end
    object DBP_InvoiceppField46: TppField
      FieldAlias = 'F_PRINTINVOICE'
      FieldName = 'F_PRINTINVOICE'
      FieldLength = 1
      DisplayWidth = 1
      Position = 45
    end
    object DBP_InvoiceppField47: TppField
      FieldAlias = 'F_PRINTEDINVOICE'
      FieldName = 'F_PRINTEDINVOICE'
      FieldLength = 1
      DisplayWidth = 1
      Position = 46
    end
    object DBP_InvoiceppField48: TppField
      FieldAlias = 'F_CHARGED'
      FieldName = 'F_CHARGED'
      FieldLength = 1
      DisplayWidth = 1
      Position = 47
    end
    object DBP_InvoiceppField49: TppField
      FieldAlias = 'F_RECEIVER'
      FieldName = 'F_RECEIVER'
      FieldLength = 8
      DisplayWidth = 8
      Position = 48
    end
    object DBP_InvoiceppField50: TppField
      FieldAlias = 'F_CHARGE_DATE'
      FieldName = 'F_CHARGE_DATE'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 49
    end
    object DBP_InvoiceppField51: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_LAST_BALANCE'
      FieldName = 'F_LAST_BALANCE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 50
    end
    object DBP_InvoiceppField52: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_GATHERING'
      FieldName = 'F_GATHERING'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 51
    end
    object DBP_InvoiceppField53: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_GIVE_CHANGE'
      FieldName = 'F_GIVE_CHANGE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 52
    end
    object DBP_InvoiceppField54: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_ACTUAL_RECEIVE'
      FieldName = 'F_ACTUAL_RECEIVE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 53
    end
    object DBP_InvoiceppField55: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_BALANCE'
      FieldName = 'F_BALANCE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 54
    end
    object DBP_InvoiceppField56: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_USED_COUNT'
      FieldName = 'F_USED_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 55
    end
    object DBP_InvoiceppField57: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_USED_AMOUNT'
      FieldName = 'F_USED_AMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 56
    end
    object DBP_InvoiceppField58: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_SHOULD_RECEIVE'
      FieldName = 'F_SHOULD_RECEIVE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 57
    end
  end
  object Ds_Invoice: TDataSource
    DataSet = Q_Invoice
    Left = 256
    Top = 256
  end
  object Q_Invoice: TQuery
    DatabaseName = 'SMDLJF'
    SQL.Strings = (
      'Select T.f_Transfer_Name,'
      '       H.f_Used_Amount As f_FeeAmount,'
      '       V.f_Village_Name || H.f_Position As f_Position,'
      '       H.*,'
      '       H.f_Used_Amount - H.f_Last_Balance As f_Should_Receive'
      'From Tb_House H'
      '     Join Tb_Transfer T On T.f_Transfer_No = H.f_Transfer_No'
      '     Left Join Tb_Village V On H.f_Village_No = V.f_Village_No'
      'Where f_Transfer_No = :Transfer_No And H.f_Used_Amount <> 0'
      'Order By f_House_No, f_Box_No')
    Left = 256
    Top = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'Transfer_No'
        ParamType = ptUnknown
        Value = 'F01001'
      end>
  end
  object Q_Ammeter: TQuery
    DatabaseName = 'SMDLJF'
    SQL.Strings = (
      'Select * '
      'From Tb_Ammeter '
      'Where f_House_No = :House_No'
      '')
    Left = 336
    Top = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'House_No'
        ParamType = ptUnknown
        Value = 'F01001-0001'
      end>
  end
  object Q_FeeDetail: TQuery
    DatabaseName = 'SMDLJF'
    SQL.Strings = (
      'Select * '
      'From Tb_FeeDetail '
      'Where f_House_No = :House_No')
    Left = 408
    Top = 312
    ParamData = <
      item
        DataType = ftString
        Name = 'House_No'
        ParamType = ptInput
        Value = 'F01001-0001'
      end>
  end
  object Ds_FeeDetail: TDataSource
    DataSet = Q_FeeDetail
    Left = 408
    Top = 256
  end
  object Ds_Ammeter: TDataSource
    DataSet = Q_Ammeter
    Left = 336
    Top = 256
  end
  object DBP_Ammeter: TppDBPipeline
    DataSource = Ds_Ammeter
    UserName = 'DBP_Ammeter'
    Left = 336
    Top = 184
    MasterDataPipelineName = 'DBP_Invoice'
  end
  object DBP_FeeDetail: TppDBPipeline
    DataSource = Ds_FeeDetail
    UserName = 'DBP_FeeDetail'
    Left = 416
    Top = 184
    MasterDataPipelineName = 'DBP_Invoice'
  end
  object Query: TQuery
    DatabaseName = 'SMDLJF'
    Left = 472
    Top = 256
  end
  object sp_HouseFee: TStoredProc
    DatabaseName = 'SMDLJF'
    StoredProcName = 'P_CALCHOUSEFEE'
    Left = 528
    Top = 256
  end
  object Ds_Transfer: TDataSource
    DataSet = Tb_Transfer
    Left = 32
    Top = 208
  end
  object Tb_Transfer: TTable
    DatabaseName = 'SMDLJF'
    TableName = 'TB_TRANSFER'
    Left = 32
    Top = 264
    object Tb_TransferF_TRANSFER_NO: TStringField
      DisplayLabel = #21488#21464#21495
      DisplayWidth = 6
      FieldName = 'F_TRANSFER_NO'
      Required = True
      FixedChar = True
      Size = 6
    end
    object Tb_TransferF_TRANSFER_NAME: TStringField
      DisplayLabel = #21488#21464#21517#31216
      FieldName = 'F_TRANSFER_NAME'
      FixedChar = True
    end
  end
end