servermain.dfm

delphi 三层结构的例子

object sl: Tsl
  OldCreateOrder = False
  Left = 295
  Top = 155
  Height = 164
  Width = 220
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\derek\'#26700#38754'\data\dbf.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 8
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'da'
    Left = 88
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADOTable1
    Left = 152
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 56
    Top = 80
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = ADOQuery1
    Options = [poAllowCommandText]
    Left = 120
    Top = 72
  end
end