export_dm.dfm

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

      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_COUNT2: TIntegerField
      DisplayLabel = '电量2'
      FieldName = 'F_COUNT2'
    end
    object Ext_Transfer_FeeF_COUNTRYAMOUNT2: TFloatField
      DisplayLabel = '国价费2'
      FieldName = 'F_COUNTRYAMOUNT2'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_SERVICEAMOUNT2: TFloatField
      DisplayLabel = '维护费2'
      FieldName = 'F_SERVICEAMOUNT2'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_AMOUNT2: TFloatField
      DisplayLabel = '电费2'
      FieldName = 'F_AMOUNT2'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_COUNT3: TIntegerField
      DisplayLabel = '电量3'
      FieldName = 'F_COUNT3'
    end
    object Ext_Transfer_FeeF_COUNTRYAMOUNT3: TFloatField
      DisplayLabel = '国价费3'
      FieldName = 'F_COUNTRYAMOUNT3'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_SERVICEAMOUNT3: TFloatField
      DisplayLabel = '维护费3'
      FieldName = 'F_SERVICEAMOUNT3'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_AMOUNT3: TFloatField
      DisplayLabel = '电费3'
      FieldName = 'F_AMOUNT3'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_COUNT4: TIntegerField
      DisplayLabel = '电量4'
      FieldName = 'F_COUNT4'
    end
    object Ext_Transfer_FeeF_COUNTRYAMOUNT4: TFloatField
      DisplayLabel = '国价费4'
      FieldName = 'F_COUNTRYAMOUNT4'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_SERVICEAMOUNT4: TFloatField
      DisplayLabel = '维护费4'
      FieldName = 'F_SERVICEAMOUNT4'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_AMOUNT4: TFloatField
      DisplayLabel = '电费4'
      FieldName = 'F_AMOUNT4'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_COUNT5: TIntegerField
      DisplayLabel = '电量5'
      FieldName = 'F_COUNT5'
    end
    object Ext_Transfer_FeeF_COUNTRYAMOUNT5: TFloatField
      DisplayLabel = '国价费5'
      FieldName = 'F_COUNTRYAMOUNT5'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_SERVICEAMOUNT5: TFloatField
      DisplayLabel = '维护费5'
      FieldName = 'F_SERVICEAMOUNT5'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_AMOUNT5: TFloatField
      DisplayLabel = '电费5'
      FieldName = 'F_AMOUNT5'
      DisplayFormat = '#.##'
    end
  end
  object DS_Transfer_Fee: TDataSource
    DataSet = Ext_Transfer_Fee
    Left = 184
    Top = 222
  end
  object BM_Transfer_Fee: TBatchMove
    Destination = Ext_Transfer_Fee
    Mappings.Strings = (
      'F_transfer_no'
      'F_line_no'
      'F_transfer_name'
      'F_counter'
      'F_BuyCount'
      'F_COUNT1'
      'F_COUNTRYAMOUNT1'
      'F_SERVICEAMOUNT1'
      'F_AMOUNT1'
      'F_COUNT2'
      'F_COUNTRYAMOUNT2'
      'F_SERVICEAMOUNT2'
      'F_AMOUNT2'
      'F_COUNT3'
      'F_COUNTRYAMOUNT3'
      'F_SERVICEAMOUNT3'
      'F_AMOUNT3'
      'F_COUNT4'
      'F_COUNTRYAMOUNT4'
      'F_SERVICEAMOUNT4'
      'F_AMOUNT4'
      'F_COUNT5'
      'F_COUNTRYAMOUNT5'
      'F_SERVICEAMOUNT5'
      'F_AMOUNT5'
      'F_count'
      'F_countryAmount'
      'F_serviceAmount'
      'F_Arrearage'
      'F_LateFee'
      'F_Amount')
    Source = Tb_Transfer_Fee
    Left = 184
    Top = 280
  end
  object BM_Transfer: TBatchMove
    Destination = Ext_Transfer
    Mappings.Strings = (
      'F_Transfer_No'
      'F_Transfer_Name'
      'F_PowerCount'
      'F_NormalCount'
      'F_BuyCount'
      'F_ProvideCount')
    Source = Tb_Transfer
    Left = 24
    Top = 280
  end
  object V_Fee: TTable
    DatabaseName = 'SMDLJF'
    TableName = 'V_FEE'
    Left = 248
    Top = 16
    object V_FeeF_HOUSE_NO: TStringField
      FieldName = 'F_HOUSE_NO'
      Required = True
      FixedChar = True
      Size = 12
    end
    object V_FeeF_HOUSE_NAME: TStringField
      FieldName = 'F_HOUSE_NAME'
      FixedChar = True
    end
    object V_FeeF_TRANSFER_NO: TStringField
      FieldName = 'F_TRANSFER_NO'
      FixedChar = True
      Size = 6
    end
    object V_FeeF_COUNT1: TFloatField
      FieldName = 'F_COUNT1'
    end
    object V_FeeF_COUNTRYAMOUNT1: TFloatField
      FieldName = 'F_COUNTRYAMOUNT1'
    end
    object V_FeeF_SERVICEAMOUNT1: TFloatField
      FieldName = 'F_SERVICEAMOUNT1'
    end
    object V_FeeF_AMOUNT1: TFloatField
      FieldName = 'F_AMOUNT1'
    end
    object V_FeeF_COUNT2: TFloatField
      FieldName = 'F_COUNT2'
    end
    object V_FeeF_COUNTRYAMOUNT2: TFloatField
      FieldName = 'F_COUNTRYAMOUNT2'
    end
    object V_FeeF_SERVICEAMOUNT2: TFloatField
      FieldName = 'F_SERVICEAMOUNT2'
    end
    object V_FeeF_AMOUNT2: TFloatField
      FieldName = 'F_AMOUNT2'
    end
    object V_FeeF_COUNT3: TFloatField
      FieldName = 'F_COUNT3'
    end
    object V_FeeF_COUNTRYAMOUNT3: TFloatField
      FieldName = 'F_COUNTRYAMOUNT3'
    end
    object V_FeeF_SERVICEAMOUNT3: TFloatField
      FieldName = 'F_SERVICEAMOUNT3'
    end
    object V_FeeF_AMOUNT3: TFloatField
      FieldName = 'F_AMOUNT3'
    end
    object V_FeeF_COUNT4: TFloatField
      FieldName = 'F_COUNT4'
    end
    object V_FeeF_COUNTRYAMOUNT4: TFloatField
      FieldName = 'F_COUNTRYAMOUNT4'
    end
    object V_FeeF_SERVICEAMOUNT4: TFloatField
      FieldName = 'F_SERVICEAMOUNT4'
    end
    object V_FeeF_AMOUNT4: TFloatField
      FieldName = 'F_AMOUNT4'
    end
    object V_FeeF_COUNT5: TFloatField
      FieldName = 'F_COUNT5'
    end
    object V_FeeF_COUNTRYAMOUNT5: TFloatField
      FieldName = 'F_COUNTRYAMOUNT5'
    end
    object V_FeeF_SERVICEAMOUNT5: TFloatField
      FieldName = 'F_SERVICEAMOUNT5'
    end
    object V_FeeF_AMOUNT5: TFloatField
      FieldName = 'F_AMOUNT5'
    end
    object V_FeeF_COUNT: TFloatField
      FieldName = 'F_COUNT'
    end
    object V_FeeF_COUNTRYAMOUNT: TFloatField
      FieldName = 'F_COUNTRYAMOUNT'
    end
    object V_FeeF_SERVICEAMOUNT: TFloatField
      FieldName = 'F_SERVICEAMOUNT'
    end
    object V_FeeF_AMOUNT: TFloatField
      FieldName = 'F_AMOUNT'
    end
    object V_FeeF_ARREARAGE: TFloatField
      FieldName = 'F_ARREARAGE'
    end
    object V_FeeF_LATEFEE: TFloatField
      FieldName = 'F_LATEFEE'
    end
    object V_FeeF_BOX_NO: TStringField
      FieldName = 'F_BOX_NO'
      FixedChar = True
      Size = 6
    end
  end
  object Ext_Fee: TTable
    DatabaseName = 'DBDest'
    TableName = 'FEE.DB'
    Left = 272
    Top = 160
    object Ext_FeeF_HOUSE_NO: TStringField
      DisplayLabel = '户号'
      FieldName = 'F_HOUSE_NO'
      Size = 12
    end
    object Ext_FeeF_HOUSE_NAME: TStringField
      DisplayLabel = '户名'
      FieldName = 'F_HOUSE_NAME'
    end
    object Ext_FeeF_TRANSFER_NO: TStringField
      DisplayLabel = '台区'
      FieldName = 'F_TRANSFER_NO'
      Size = 6
    end
    object Ext_FeeF_COUNT1: TFloatField
      DisplayLabel = '电量1'
      DisplayWidth = 10
      FieldName = 'F_COUNT1'
    end
    object Ext_FeeF_COUNTRYAMOUNT1: TFloatField
      DisplayLabel = '国价费1'
      FieldName = 'F_COUNTRYAMOUNT1'
    end
    object Ext_FeeF_SERVICEAMOUNT1: TFloatField
      DisplayLabel = '维护费1'
      FieldName = 'F_SERVICEAMOUNT1'
    end
    object Ext_FeeF_AMOUNT1: TFloatField
      DisplayLabel = '电费1'
      FieldName = 'F_AMOUNT1'
    end
    object Ext_FeeF_COUNT2: TFloatField
      DisplayLabel = '电量2'
      FieldName = 'F_COUNT2'
    end
    object Ext_FeeF_COUNTRYAMOUNT2: TFloatField
      DisplayLabel = '国价费2'
      FieldName = 'F_COUNTRYAMOUNT2'
    end
    object Ext_FeeF_SERVICEAMOUNT2: TFloatField
      DisplayLabel = '维护费2'
      FieldName = 'F_SERVICEAMOUNT2'
    end
    object Ext_FeeF_AMOUNT2: TFloatField
      DisplayLabel = '电费2'
      FieldName = 'F_AMOUNT2'
    end
    object Ext_FeeF_COUNT3: TFloatField
      DisplayLabel = '电量3'
      FieldName = 'F_COUNT3'
    end
    object Ext_FeeF_COUNTRYAMOUNT3: TFloatField
      DisplayLabel = '国价费3'
      FieldName = 'F_COUNTRYAMOUNT3'
    end
    object Ext_FeeF_SERVICEAMOUNT3: TFloatField
      DisplayLabel = '维护费3'
      FieldName = 'F_SERVICEAMOUNT3'
    end
    object Ext_FeeF_AMOUNT3: TFloatField
      DisplayLabel = '电费3'
      FieldName = 'F_AMOUNT3'
    end
    object Ext_FeeF_COUNT4: TFloatField
      DisplayLabel = '电量4'
      FieldName = 'F_COUNT4'
    end
    object Ext_FeeF_COUNTRYAMOUNT4: TFloatField
      DisplayLabel = '国价费4'
      FieldName = 'F_COUNTRYAMOUNT4'
    end
    object Ext_FeeF_SERVICEAMOUNT4: TFloatField
      DisplayLabel = '维护费4'
      FieldName = 'F_SERVICEAMOUNT4'
    end
    object Ext_FeeF_AMOUNT4: TFloatField
      DisplayLabel = '电费4'
      FieldName = 'F_AMOUNT4'
    end
    object Ext_FeeF_COUNT5: TFloatField
      DisplayLabel = '电量5'
      FieldName = 'F_COUNT5'
    end
    object Ext_FeeF_COUNTRYAMOUNT5: TFloatField
      DisplayLabel = '国价费5'
      FieldName = 'F_COUNTRYAMOUNT5'
    end
    object Ext_FeeF_SERVICEAMOUNT5: TFloatField
      DisplayLabel = '维护费5'
      FieldName = 'F_SERVICEAMOUNT5'
    end
    object Ext_FeeF_AMOUNT5: TFloatField
      DisplayLabel = '电费5'
      FieldName = 'F_AMOUNT5'
    end
    object Ext_FeeF_COUNT: TFloatField
      DisplayLabel = '电量'
      DisplayWidth = 10
      FieldName = 'F_COUNT'
    end
    object Ext_FeeF_COUNTRYAMOUNT: TFloatField
      DisplayLabel = '国价费'
      FieldName = 'F_COUNTRYAMOUNT'
    end
    object Ext_FeeF_SERVICEAMOUNT: TFloatField
      DisplayLabel = '维护费'
      FieldName = 'F_SERVICEAMOUNT'
    end
    object Ext_FeeF_AMOUNT: TFloatField
      DisplayLabel = '电费'
      FieldName = 'F_AMOUNT'
    end
    object Ext_FeeF_ARREARAGE: TFloatField
      DisplayLabel = '欠费'
      FieldName = 'F_ARREARAGE'
    end
    object Ext_FeeF_LATEFEE: TFloatField
      DisplayLabel = '滞纳金'
      FieldName = 'F_LATEFEE'
    end
    object Ext_FeeF_BOX_NO: TStringField
      DisplayLabel = '箱号'
      FieldName = 'F_BOX_NO'
      Size = 6
    end
  end
  object Ds_Fee: TDataSource
    DataSet = Ext_Fee
    Left = 272
    Top = 224
  end
  object BM_Fee: TBatchMove
    Destination = Ext_Fee
    Mappings.Strings = (
      'F_HOUSE_NO'
      'F_HOUSE_NAME'
      'F_TRANSFER_NO'
      'F_COUNT1'
      'F_COUNTRYAMOUNT1'
      'F_SERVICEAMOUNT1'
      'F_AMOUNT1'
      'F_COUNT2'
      'F_COUNTRYAMOUNT2'
      'F_SERVICEAMOUNT2'
      'F_AMOUNT2'
      'F_COUNT3'
      'F_COUNTRYAMOUNT3'
      'F_SERVICEAMOUNT3'
      'F_AMOUNT3'
      'F_COUNT4'
      'F_COUNTRYAMOUNT4'
      'F_SERVICEAMOUNT4'
      'F_AMOUNT4'
      'F_COUNT5'
      'F_COUNTRYAMOUNT5'
      'F_SERVICEAMOUNT5'
      'F_AMOUNT5'
      'F_COUNT'
      'F_COUNTRYAMOUNT'
      'F_SERVICEAMOUNT'
      'F_AMOUNT'
      'F_ARREARAGE'
      'F_LATEFEE'
      'F_BOX_NO')
    Source = V_Fee
    Left = 272
    Top = 280
  end
end