unit2.~dfm

来自「delphi数据库的程序代码」· ~DFM 代码 · 共 114 行

object DM: TDM
  OldCreateOrder = False
  Left = 215
  Top = 279
  Height = 407
  Width = 531
  object Table_basic: TTable
    Active = True
    DatabaseName = 'MANAGE'
    TableName = 'basic.db'
    Left = 40
    Top = 24
  end
  object Table_relation: TTable
    Active = True
    DatabaseName = 'MANAGE'
    IndexName = 'index'
    MasterFields = #32844#24037#21495
    MasterSource = DS_basic
    TableName = 'relation.db'
    Left = 128
    Top = 24
  end
  object Table_salary: TTable
    Active = True
    DatabaseName = 'MANAGE'
    IndexFieldNames = #32844#24037#21495
    MasterFields = #32844#24037#21495
    MasterSource = DS_basic
    TableName = 'salary.db'
    Left = 304
    Top = 24
  end
  object Table_exp: TTable
    Active = True
    DatabaseName = 'MANAGE'
    IndexName = 'myindex'
    MasterFields = #32844#24037#21495
    MasterSource = DS_basic
    TableName = 'exp.db'
    Left = 408
    Top = 24
  end
  object DS_basic: TDataSource
    DataSet = Table_basic
    Left = 40
    Top = 136
  end
  object DS_exp: TDataSource
    DataSet = Table_exp
    Left = 408
    Top = 128
  end
  object DS_car: TDataSource
    DataSet = Table_car
    Left = 216
    Top = 128
  end
  object Table_car: TTable
    Active = True
    DatabaseName = 'MANAGE'
    IndexName = 'myindex'
    MasterFields = #32844#24037#21495
    MasterSource = DS_basic
    TableName = 'carer.DB'
    Left = 208
    Top = 24
  end
  object DS_relation: TDataSource
    DataSet = Table_relation
    Left = 128
    Top = 128
  end
  object DS_salary: TDataSource
    DataSet = Table_salary
    Left = 312
    Top = 128
  end
  object Table_exp2: TTable
    Active = True
    DatabaseName = 'MANAGE'
    TableName = 'exp.DB'
    Left = 416
    Top = 224
  end
  object Table_car2: TTable
    Active = True
    DatabaseName = 'MANAGE'
    TableName = 'carer.DB'
    Left = 216
    Top = 232
  end
  object Table_salary2: TTable
    DatabaseName = 'MANAGE'
    IndexFieldNames = #32844#24037#21495
    TableName = 'salary.DB'
    Left = 312
    Top = 232
  end
  object Table_relation2: TTable
    DatabaseName = 'MANAGE'
    TableName = 'relation.DB'
    Left = 128
    Top = 232
  end
  object Table_salary3: TTable
    Active = True
    DatabaseName = 'MANAGE'
    TableName = 'salary.DB'
    Left = 320
    Top = 312
  end
end