unit2.dfm

《Delphi7编程100例》代码,书配资料

object ServerSample: TServerSample
  OldCreateOrder = False
  Left = 218
  Top = 215
  Height = 138
  Width = 321
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=F:\Ja' +
      'sonCenter\Delphi 6 '#25968#25454#24211#24212#29992#31243#24207'100'#20363'\3'#32508#21512#19982#36828#31243#25216#26415'\ID.mdb;Mode=Share Deny N' +
      'one;Extended Properties="";Persist Security Info=False;Jet OLEDB' +
      ':System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Databas' +
      'e Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking' +
      ' Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bul' +
      'k Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Cr' +
      'eate System Database=False;Jet OLEDB:Encrypt Database=False;Jet ' +
      'OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Witho' +
      'ut Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 16
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADOQuery1
    Constraints = True
    Left = 216
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 136
    Top = 16
  end
end