export_dm.dfm

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

object DM_Export: TDM_Export
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 266
  Top = 129
  Height = 480
  Width = 696
  object DBDest: TDatabase
    DatabaseName = 'DBDest'
    DriverName = 'STANDARD'
    LoginPrompt = False
    Params.Strings = (
      'Path=\Mis\Export')
    SessionName = 'Default'
    Left = 24
    Top = 104
  end
  object Ext_Transfer: TTable
    DatabaseName = 'DBDest'
    TableName = 'Transfer.DB'
    Left = 24
    Top = 160
    object Ext_TransferF_Transfer_No: TStringField
      DisplayLabel = '变压器编号'
      FieldName = 'F_Transfer_No'
      Size = 6
    end
    object Ext_TransferF_Transfer_Name: TStringField
      DisplayLabel = '变压器名称'
      FieldName = 'F_Transfer_Name'
    end
    object Ext_TransferF_PowerCount: TIntegerField
      DisplayLabel = '动力户'
      FieldName = 'F_PowerCount'
    end
    object Ext_TransferF_NormalCount: TIntegerField
      DisplayLabel = '照明户'
      FieldName = 'F_NormalCount'
    end
    object Ext_TransferF_BuyCount: TFloatField
      DisplayLabel = '购电量'
      FieldName = 'F_BuyCount'
    end
    object Ext_TransferF_ProvideCount: TFloatField
      DisplayLabel = '供电量'
      FieldName = 'F_ProvideCount'
    end
  end
  object Ext_House: TTable
    DatabaseName = 'DBDest'
    TableName = 'House.DB'
    Left = 104
    Top = 160
    object Ext_HouseF_Transfer_No: TStringField
      DisplayLabel = '变压器'
      DisplayWidth = 6
      FieldName = 'F_Transfer_No'
      Size = 6
    end
    object Ext_HouseF_House_No: TStringField
      DisplayLabel = '户号'
      DisplayWidth = 12
      FieldName = 'F_House_No'
      Size = 12
    end
    object Ext_HouseF_House_Name: TStringField
      DisplayLabel = '户名'
      DisplayWidth = 15
      FieldName = 'F_House_Name'
    end
    object Ext_HouseF_Ct: TSmallintField
      DisplayLabel = 'CT变比'
      DisplayWidth = 7
      FieldName = 'F_Ct'
    end
    object Ext_HouseF_Used_Count: TFloatField
      DisplayLabel = '用电量'
      FieldName = 'F_Used_Count'
    end
    object Ext_HouseF_Elect_No: TStringField
      DisplayLabel = '类别'
      DisplayWidth = 4
      FieldName = 'F_Elect_No'
      Size = 2
    end
    object Ext_HouseF_LateFee: TFloatField
      DisplayLabel = '滞纳金'
      DisplayWidth = 10
      FieldName = 'F_LateFee'
    end
    object Ext_HouseF_Used_Amount: TFloatField
      DisplayLabel = '应收费'
      DisplayWidth = 10
      FieldName = 'F_Used_Amount'
    end
  end
  object BM_House: TBatchMove
    Destination = Ext_House
    Mappings.Strings = (
      'F_House_No'
      'F_House_Name'
      'F_Transfer_No'
      'F_Ct'
      'F_Used_Count'
      'F_Elect_No'
      'F_LateFee'
      'F_Used_Amount')
    Source = Tb_House
    Left = 104
    Top = 280
  end
  object Tb_House: TTable
    DatabaseName = 'SMDLJF'
    IndexFieldNames = 'F_TRANSFER_NO;F_House_No'
    MasterFields = 'F_TRANSFER_NO'
    TableName = 'V_HOUSE'
    UpdateMode = upWhereKeyOnly
    Left = 104
    Top = 16
    object Tb_HouseF_HOUSE_NO: TStringField
      FieldName = 'F_HOUSE_NO'
      Required = True
      FixedChar = True
      Size = 12
    end
    object Tb_HouseF_TRANSFER_NO: TStringField
      FieldName = 'F_TRANSFER_NO'
      FixedChar = True
      Size = 6
    end
    object Tb_HouseF_HOUSE_NAME: TStringField
      FieldName = 'F_HOUSE_NAME'
      FixedChar = True
    end
    object Tb_HouseF_CT: TIntegerField
      FieldName = 'F_CT'
    end
    object Tb_HouseF_ELECT_NO: TStringField
      FieldName = 'F_ELECT_NO'
      Required = True
      FixedChar = True
      Size = 2
    end
    object Tb_HouseF_LATEFEE: TFloatField
      FieldName = 'F_LATEFEE'
    end
    object Tb_HouseF_USED_COUNT: TFloatField
      FieldName = 'F_USED_COUNT'
      ReadOnly = True
    end
    object Tb_HouseF_USED_AMOUNT: TFloatField
      FieldName = 'F_USED_AMOUNT'
      ReadOnly = True
    end
  end
  object Q_Delete: TQuery
    DatabaseName = 'DBDest'
    Left = 352
    Top = 160
  end
  object DS_House: TDataSource
    DataSet = Ext_House
    Left = 104
    Top = 224
  end
  object DS_Transfer: TDataSource
    DataSet = Ext_Transfer
    Left = 24
    Top = 224
  end
  object sp_TransferProvide: TStoredProc
    DatabaseName = 'SMDLJF'
    StoredProcName = 'P_TRANSFERPROVIDE'
    Left = 384
    Top = 16
  end
  object Tb_Transfer: TTable
    DatabaseName = 'SMDLJF'
    TableName = 'TB_TRANSFER'
    Left = 21
    Top = 16
    object Tb_TransferF_TRANSFER_NO: TStringField
      FieldName = 'F_TRANSFER_NO'
      Required = True
      FixedChar = True
      Size = 6
    end
    object Tb_TransferF_TRANSFER_NAME: TStringField
      FieldName = 'F_TRANSFER_NAME'
      FixedChar = True
    end
    object Tb_TransferF_POWERCOUNT: TIntegerField
      FieldName = 'F_POWERCOUNT'
      Required = True
    end
    object Tb_TransferF_NORMALCOUNT: TIntegerField
      FieldName = 'F_NORMALCOUNT'
      Required = True
    end
    object Tb_TransferF_BUYCOUNT: TFloatField
      FieldName = 'F_BUYCOUNT'
    end
    object Tb_TransferF_PROVIDECOUNT: TFloatField
      FieldName = 'F_PROVIDECOUNT'
    end
  end
  object Tb_Transfer_Fee: TTable
    DatabaseName = 'SMDLJF'
    TableName = 'V_TRANSFER_FEE'
    Left = 181
    Top = 16
    object Tb_Transfer_FeeF_LINE_NO: TStringField
      FieldName = 'F_LINE_NO'
      ReadOnly = True
      FixedChar = True
      Size = 79
    end
    object Tb_Transfer_FeeF_TRANSFER_NO: TStringField
      FieldName = 'F_TRANSFER_NO'
      ReadOnly = True
      FixedChar = True
      Size = 6
    end
    object Tb_Transfer_FeeF_TRANSFER_NAME: TStringField
      FieldName = 'F_TRANSFER_NAME'
      ReadOnly = True
      FixedChar = True
    end
    object Tb_Transfer_FeeF_COUNTER: TIntegerField
      FieldName = 'F_COUNTER'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_BUYCOUNT: TFloatField
      FieldName = 'F_BUYCOUNT'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNT1: TFloatField
      FieldName = 'F_COUNT1'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNTRYAMOUNT1: TFloatField
      FieldName = 'F_COUNTRYAMOUNT1'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_SERVICEAMOUNT1: TFloatField
      FieldName = 'F_SERVICEAMOUNT1'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_AMOUNT1: TFloatField
      FieldName = 'F_AMOUNT1'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNT2: TFloatField
      FieldName = 'F_COUNT2'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNTRYAMOUNT2: TFloatField
      FieldName = 'F_COUNTRYAMOUNT2'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_SERVICEAMOUNT2: TFloatField
      FieldName = 'F_SERVICEAMOUNT2'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_AMOUNT2: TFloatField
      FieldName = 'F_AMOUNT2'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNT3: TFloatField
      FieldName = 'F_COUNT3'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNTRYAMOUNT3: TFloatField
      FieldName = 'F_COUNTRYAMOUNT3'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_SERVICEAMOUNT3: TFloatField
      FieldName = 'F_SERVICEAMOUNT3'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_AMOUNT3: TFloatField
      FieldName = 'F_AMOUNT3'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNT4: TFloatField
      FieldName = 'F_COUNT4'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNTRYAMOUNT4: TFloatField
      FieldName = 'F_COUNTRYAMOUNT4'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_SERVICEAMOUNT4: TFloatField
      FieldName = 'F_SERVICEAMOUNT4'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_AMOUNT4: TFloatField
      FieldName = 'F_AMOUNT4'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNT5: TFloatField
      FieldName = 'F_COUNT5'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNTRYAMOUNT5: TFloatField
      FieldName = 'F_COUNTRYAMOUNT5'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_SERVICEAMOUNT5: TFloatField
      FieldName = 'F_SERVICEAMOUNT5'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_AMOUNT5: TFloatField
      FieldName = 'F_AMOUNT5'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNT: TFloatField
      FieldName = 'F_COUNT'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_COUNTRYAMOUNT: TFloatField
      FieldName = 'F_COUNTRYAMOUNT'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_SERVICEAMOUNT: TFloatField
      FieldName = 'F_SERVICEAMOUNT'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_ARREARAGE: TFloatField
      FieldName = 'F_ARREARAGE'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_LATEFEE: TFloatField
      FieldName = 'F_LATEFEE'
      ReadOnly = True
    end
    object Tb_Transfer_FeeF_AMOUNT: TFloatField
      FieldName = 'F_AMOUNT'
      ReadOnly = True
    end
  end
  object Ext_Transfer_Fee: TTable
    DatabaseName = 'DBDest'
    TableName = 'Transfer_Fee.DB'
    Left = 184
    Top = 160
    object Ext_Transfer_Feef_line_no: TStringField
      DisplayLabel = '线路'
      FieldName = 'f_line_no'
      Size = 3
    end
    object Ext_Transfer_Feef_transfer_no: TStringField
      DisplayLabel = '编号'
      FieldName = 'f_transfer_no'
      Size = 6
    end
    object Ext_Transfer_Feef_transfer_name: TStringField
      DisplayLabel = '名称'
      FieldName = 'f_transfer_name'
    end
    object Ext_Transfer_Feef_counter: TIntegerField
      DisplayLabel = '票数'
      FieldName = 'f_counter'
    end
    object Ext_Transfer_Feef_BuyCount: TIntegerField
      DisplayLabel = '购电量'
      FieldName = 'f_BuyCount'
    end
    object Ext_Transfer_Feef_count: TIntegerField
      DisplayLabel = '电量'
      FieldName = 'f_count'
    end
    object Ext_Transfer_Feef_countryAmount: TFloatField
      DisplayLabel = '国价费'
      FieldName = 'f_countryAmount'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_Feef_serviceAmount: TFloatField
      DisplayLabel = '维护费'
      FieldName = 'f_serviceAmount'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_Feef_Arrearage: TFloatField
      DisplayLabel = '欠费'
      FieldName = 'f_Arrearage'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_Feef_LateFee: TFloatField
      DisplayLabel = '滞纳金'
      FieldName = 'f_LateFee'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_Feef_Amount: TFloatField
      DisplayLabel = '电费'
      FieldName = 'f_Amount'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_COUNT1: TIntegerField
      DisplayLabel = '电量1'
      FieldName = 'F_COUNT1'
    end
    object Ext_Transfer_FeeF_COUNTRYAMOUNT1: TFloatField
      DisplayLabel = '国价费1'
      FieldName = 'F_COUNTRYAMOUNT1'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_SERVICEAMOUNT1: TFloatField
      DisplayLabel = '维护费1'
      FieldName = 'F_SERVICEAMOUNT1'
      DisplayFormat = '#.##'
    end
    object Ext_Transfer_FeeF_AMOUNT1: TFloatField
      DisplayLabel = '电费1'
      FieldName = 'F_AMOUNT1'