datamodule.~dfm

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

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:\te' +
      'st\clitentdata.mdb;Mode=Share Deny None;Extended Properties="";P' +
      'ersist Security Info=False;Jet OLEDB:System database="";Jet OLED' +
      'B:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engi' +
      'ne Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Par' +
      'tial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:N' +
      'ew Database Password="";Jet OLEDB:Create System Database=False;J' +
      'et OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on C' +
      'ompact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet ' +
      'OLEDB: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
    AutoCalcFields = False
    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