actable_dm.dfm

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

object DM_ACTable: TDM_ACTable
  OldCreateOrder = False
  Left = 192
  Top = 107
  Height = 480
  Width = 696
  object Tb_Transfer: TwwTable
    Active = True
    DatabaseName = 'SMDLJF'
    IndexFieldNames = 'F_TRANSFER_NO'
    TableName = 'TB_TRANSFER'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 32
    Top = 16
    object Tb_TransferF_TRANSFER_NO: TStringField
      DisplayLabel = '编号'
      DisplayWidth = 7
      FieldName = 'F_TRANSFER_NO'
      Required = True
      FixedChar = True
      Size = 6
    end
    object Tb_TransferF_TRANSFER_NAME: TStringField
      DisplayLabel = '变压器名称'
      DisplayWidth = 17
      FieldName = 'F_TRANSFER_NAME'
      FixedChar = True
    end
    object Tb_TransferF_FREEZEDAY: TIntegerField
      DisplayLabel = '结算日'
      DisplayWidth = 6
      FieldName = 'F_FREEZEDAY'
    end
    object Tb_TransferF_INTERVALMINUTE: TIntegerField
      DisplayLabel = '抄表间隔'
      DisplayWidth = 8
      FieldName = 'F_INTERVALMINUTE'
    end
    object Tb_TransferF_PORT: TSmallintField
      DisplayLabel = '端口'
      DisplayWidth = 4
      FieldName = 'F_PORT'
    end
    object Tb_TransferF_TELEPHONE: TStringField
      DisplayLabel = '抄表电话'
      DisplayWidth = 9
      FieldName = 'F_TELEPHONE'
      FixedChar = True
      Size = 12
    end
    object Tb_TransferF_METERCOUNT: TIntegerField
      DisplayLabel = '表数'
      DisplayWidth = 5
      FieldName = 'F_METERCOUNT'
    end
    object Tb_TransferF_RECENTTIME: TDateTimeField
      DisplayLabel = '最近抄表时间'
      DisplayWidth = 18
      FieldName = 'F_RECENTTIME'
    end
  end
  object Ds_Transfer: TwwDataSource
    DataSet = Tb_Transfer
    Left = 32
    Top = 72
  end
  object Tb_Meter: TwwTable
    Active = True
    DatabaseName = 'SMDLJF'
    IndexFieldNames = 'F_Transfer_No;F_HOUSE_NO;F_Ammeter_Order'
    MasterSource = Ds_Transfer
    TableName = 'TB_AMMETER'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 104
    Top = 16
    object Tb_MeterF_HOUSE_NO: TStringField
      DisplayLabel = '户号'
      DisplayWidth = 12
      FieldName = 'F_HOUSE_NO'
      Required = True
      FixedChar = True
      Size = 12
    end
    object Tb_MeterF_AMMETER_ORDER: TIntegerField
      DisplayLabel = '序号'
      DisplayWidth = 4
      FieldName = 'F_AMMETER_ORDER'
    end
    object Tb_MeterF_AMMETER_NO: TStringField
      DisplayLabel = '物理表号'
      DisplayWidth = 10
      FieldName = 'F_AMMETER_NO'
      FixedChar = True
      Size = 10
    end
    object Tb_MeterF_AMMETER_LAST_COUNT: TFloatField
      DisplayLabel = '上次底度'
      DisplayWidth = 8
      FieldName = 'F_AMMETER_LAST_COUNT'
    end
    object Tb_MeterF_THIS_COUNT: TFloatField
      DisplayLabel = '本次抄表'
      DisplayWidth = 8
      FieldName = 'F_THIS_COUNT'
    end
    object Tb_MeterF_LNO: TStringField
      DisplayLabel = '逻辑表号'
      DisplayWidth = 8
      FieldName = 'F_LNO'
      FixedChar = True
      Size = 4
    end
    object Tb_MeterF_LCONSTANT: TSmallintField
      DisplayLabel = '表常数'
      DisplayWidth = 6
      FieldName = 'F_LCONSTANT'
    end
    object Tb_MeterF_PLRATE: TSmallintField
      DisplayLabel = 'P/L'
      DisplayWidth = 3
      FieldName = 'F_PLRATE'
    end
    object Tb_MeterF_COPYTIME: TDateTimeField
      DisplayLabel = '抄表时间'
      DisplayWidth = 18
      FieldName = 'F_COPYTIME'
    end
    object Tb_MeterF_TRANSFER_NO: TStringField
      DisplayLabel = '台区号'
      DisplayWidth = 6
      FieldName = 'F_TRANSFER_NO'
      Visible = False
      FixedChar = True
      Size = 6
    end
  end
  object Ds_Meter: TwwDataSource
    DataSet = Tb_Meter
    Left = 104
    Top = 72
  end
end