unit2.dfm

一个很小的个人通讯录管理程序,ACCESS数据,要装XP控件,内符

object DM: TDM
  OldCreateOrder = False
  Left = 307
  Top = 193
  Height = 177
  Width = 193
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\'#31243#24207#21442#32771'\del'#23454#20363'\Examp' +
      'le34\'#20010#20154#36890#35759#24405#31649#29702#31995#32479'\'#20010#20154#36890#35759#24405#31649#29702#31995#32479'\AddressList.mdb;Mode=ReadWrite;Persist ' +
      'Security Info=False'
    LoginPrompt = False
    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