dm1.dfm

骨灰盒规范化果腹

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 192
  Top = 107
  Height = 480
  Width = 696
  object ADOC1: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Extended Properties="DBQ=D:\Develpment\Info\p' +
      'ersonal.DAT;DefaultDir=D:\Develpment\Info;Driver={Microsoft Acce' +
      'ss Driver (*.mdb)};DriverId=281;FIL=MS Access;MaxBufferSize=2048' +
      ';PageTimeout=5;"'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 36
    Top = 9
  end
  object tbUser: TADOTable
    Connection = ADOC1
    IndexName = 'PrimaryKey'
    TableName = '用户信息'
    Left = 36
    Top = 63
  end
  object tbInfoType: TADOTable
    Connection = ADOC1
    IndexFieldNames = 'USERID'
    MasterFields = 'USERID'
    MasterSource = dsUser
    TableName = '信息类型'
    Left = 36
    Top = 117
    object tbInfoTypeDSDesigner: TStringField
      FieldName = '信息类型'
      Size = 30
    end
    object tbInfoTypeUSERID: TStringField
      FieldName = 'USERID'
      Size = 8
    end
  end
  object dsUser: TDataSource
    DataSet = tbUser
    Left = 120
    Top = 66
  end
  object dsInfoType: TDataSource
    DataSet = tbInfoType
    Left = 120
    Top = 117
  end
  object dsFileType: TDataSource
    DataSet = tbFileType
    Left = 120
    Top = 180
  end
  object dsInfo: TDataSource
    DataSet = tbInfo
    Left = 120
    Top = 240
  end
  object dsKey: TDataSource
    DataSet = tbKey
    Left = 120
    Top = 291
  end
  object tbFileType: TADOTable
    Connection = ADOC1
    IndexFieldNames = 'USERID'
    MasterFields = 'USERID'
    MasterSource = dsUser
    TableName = '文件类型'
    Left = 39
    Top = 180
    object tbFileTypeDSDesigner: TStringField
      FieldName = '文件类型'
    end
    object tbFileTypeDSDesigner2: TStringField
      FieldName = '扩展名'
      OnSetText = tbFileTypeDSDesigner2SetText
      Size = 5
    end
    object tbFileTypeUSERID: TStringField
      FieldName = 'USERID'
      Size = 8
    end
  end
  object tbInfo: TADOTable
    Connection = ADOC1
    CursorType = ctStatic
    AfterInsert = tbInfoAfterInsert
    BeforePost = tbInfoBeforePost
    AfterScroll = tbInfoAfterScroll
    IndexFieldNames = 'USERID'
    MasterFields = 'USERID'
    MasterSource = dsUser
    TableName = '信息库'
    Left = 39
    Top = 240
  end
  object tbKey: TADOTable
    Connection = ADOC1
    IndexFieldNames = 'USERID'
    MasterFields = 'USERID'
    MasterSource = dsUser
    TableName = '关键字'
    Left = 39
    Top = 294
    object tbKeyDSDesigner: TStringField
      FieldName = '关键字'
      Size = 10
    end
    object tbKeyUSERID: TStringField
      FieldName = 'USERID'
      Size = 8
    end
  end
  object q: TADOQuery
    Connection = ADOC1
    Parameters = <>
    Left = 42
    Top = 345
  end
end