u_dm.dfm

本程序主要实现了动态获取多个共享ACCESS数据库数据的功能

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 192
  Top = 114
  Height = 386
  Width = 328
  object ADOConnRemote: TADOConnection
    LoginPrompt = False
    Left = 48
    Top = 8
  end
  object ADOQRemote: TADOQuery
    Connection = ADOConnRemote
    Parameters = <>
    Left = 120
    Top = 8
  end
  object ADOConnCheck: TADOConnection
    LoginPrompt = False
    Left = 200
    Top = 72
  end
  object ADOConnLocal: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=Database\DVerify.mdb'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 88
    Top = 160
  end
  object ADOTPassData: TADOTable
    Active = True
    Connection = ADOConnLocal
    CursorType = ctStatic
    TableName = 'passdata'
    Left = 48
    Top = 208
  end
  object ADOTFailData: TADOTable
    Connection = ADOConnLocal
    TableName = 'faildata'
    Left = 136
    Top = 208
  end
  object DsPassData: TDataSource
    DataSet = ADOQPassData
    Left = 48
    Top = 272
  end
  object DsFailData: TDataSource
    DataSet = ADOQFailData
    Left = 136
    Top = 272
  end
  object ADOTpath: TADOTable
    Connection = ADOConnLocal
    TableName = 'DataBaseSetup'
    Left = 160
    Top = 160
  end
  object ADOQFind: TADOQuery
    Connection = ADOConnLocal
    Parameters = <>
    Left = 224
    Top = 160
  end
  object ADOQPassData: TADOQuery
    Connection = ADOConnLocal
    Parameters = <>
    Left = 224
    Top = 208
  end
  object ADOQFailData: TADOQuery
    Connection = ADOConnLocal
    Parameters = <>
    Left = 288
    Top = 208
  end
end