datamodule.~dfm

来自「这是一个自制的通讯录」· ~DFM 代码 · 共 33 行

object dm: Tdm
  OldCreateOrder = False
  Left = 189
  Top = 97
  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