unit2.~dfm

来自「一个很小的个人通讯录管理程序,ACCESS数据,要装XP控件,内符」· ~DFM 代码 · 共 43 行

object DM: TDM
  OldCreateOrder = False
  Left = 307
  Top = 193
  Height = 177
  Width = 193
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\'#22270#20070'\delphi'#31995#32479#24320#21457#26696#20363'\' +
      '2005-2-26\'#28304#20195#30721'\Example34\'#20010#20154#36890#35759#24405#31649#29702#31995#32479'\AddressList.mdb;Mode=ReadWrite' +
      ';Persist Security Info=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 16
  end
  object qGroup: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 40
    Top = 80
  end
  object qLinkMan: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 128
    Top = 80
  end
  object qSearch: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select a.*,b.GroupName from LinkMan a,Grouptbl b'
      ' where a.groupid=b.groupid')
    Left = 128
    Top = 16
  end
end