unit3.dfm

delphi典型实验代码

object DataModule3: TDataModule3
  OldCreateOrder = False
  Left = 388
  Top = 242
  Height = 197
  Width = 324
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='#23398#29983#20449#24687#31649#29702'.mdb;Persist ' +
      'Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 56
    Top = 24
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#23398#29983#22522#26412#20449#24687#34920)
    Left = 136
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 56
    Top = 88
  end
end