datamodule.dfm

来自「这是我的一个Delphi测试的一个链接access的一点代码」· DFM 代码 · 共 95 行

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 328
  Top = 159
  Height = 495
  Width = 436
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\cr' +
      'm\clitentdata.mdb;Mode=Share Deny None;Extended Properties="";Pe' +
      'rsist Security Info=False;Jet OLEDB:System database="";Jet OLEDB' +
      ':Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engin' +
      'e Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Part' +
      'ial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Ne' +
      'w Database Password="";Jet OLEDB:Create System Database=False;Je' +
      't OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Co' +
      'mpact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet O' +
      'LEDB:SFP=False'
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 8
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'USERTABLE'
    Left = 40
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = ADOTb_plan
    Left = 112
    Top = 56
  end
  object ADOTb_client: TADOTable
    Connection = ADOConnection1
    TableName = 'CLIENTINFO'
    Left = 40
    Top = 112
  end
  object DataSoure_client: TDataSource
    DataSet = ADOTb_client
    Left = 120
    Top = 112
  end
  object ADOTb_prope: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'CLPROPERTY'
    Left = 32
    Top = 168
  end
  object DataSoure_prope: TDataSource
    DataSet = ADOTb_prope
    Left = 120
    Top = 160
  end
  object ADOTb_tloy: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'CLTLOY'
    Left = 32
    Top = 224
  end
  object DataSoure_tloy: TDataSource
    DataSet = ADOTb_tloy
    Left = 128
    Top = 224
  end
  object ADOTb_touchinfo: TADOTable
    Connection = ADOConnection1
    TableName = 'CLTOUCHINFO'
    Left = 32
    Top = 296
  end
  object DataSoure_touchinfo: TDataSource
    DataSet = ADOTb_touchinfo
    Left = 128
    Top = 288
  end
  object ADOTb_plan: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    EnableBCD = False
    TableName = 'PLAN'
    Left = 32
    Top = 352
  end
  object DataSoure_plan: TDataSource
    DataSet = ADOTb_plan
    Left = 128
    Top = 360
  end
end