server515impl.dfm

一个cb三层数据库的例子

object server515: Tserver515
  OldCreateOrder = False
  Left = 192
  Top = 107
  Height = 375
  Width = 544
  object server_con: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=OraOLEDB.Oracle.1;Password=hsy;Persist Security Info=Tr' +
      'ue;User ID=hsy;Data Source=hsy;Extended Properties=""'
    LoginPrompt = False
    Provider = 'OraOLEDB.Oracle.1'
    Left = 32
    Top = 16
  end
  object server_in: TDataSetProvider
    DataSet = serverq_in
    Constraints = True
    Options = [poAllowCommandText]
    OnUpdateData = server_inUpdateData
    Left = 32
    Top = 80
  end
  object server_out: TDataSetProvider
    DataSet = server_set
    Constraints = True
    OnDataRequest = server_outDataRequest
    Left = 104
    Top = 80
  end
  object serverq_in: TADOQuery
    Connection = server_con
    Parameters = <>
    SQL.Strings = (
      'select * from lx1 where id='#39'llllll'#39)
    Left = 32
    Top = 160
  end
  object server_set: TADODataSet
    Connection = server_con
    Parameters = <>
    Left = 96
    Top = 160
  end
  object server_source: TDataSource
    DataSet = serverq_in
    Left = 32
    Top = 224
  end
end