datamodule.~dfm

这也是一个通讯录软件

object dm: Tdm
  OldCreateOrder = False
  Left = 252
  Top = 132
  Height = 91
  Width = 194
  object ADOC: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 136
    Top = 8
  end
  object ADOD: TADODataSet
    CursorType = ctStatic
    Parameters = <>
    Left = 56
    Top = 8
  end
  object ds: TDataSource
    Left = 16
    Top = 8
  end
  object ADOQ: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from phone where '#22995#21517'='#24352#25991#27874)
    Left = 96
    Top = 8
  end
end