u_rdm.dfm

此案例是多层分布式应用程序,需要首先执行服务器应用程序prdmdemo3.exe

object RDMDemo3: TRDMDemo3
  OldCreateOrder = False
  Left = 192
  Top = 114
  Height = 246
  Width = 645
  object dspqry1: TDataSetProvider
    DataSet = Query1
    Options = [poAllowCommandText]
    Left = 216
    Top = 16
  end
  object dsptbl1: TDataSetProvider
    DataSet = Table1
    Left = 216
    Top = 88
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 64
    Top = 32
  end
  object dspqry2: TDataSetProvider
    DataSet = Query2
    Options = [poAllowCommandText]
    Left = 216
    Top = 144
  end
  object Query1: TQuery
    DatabaseName = 'db'
    SessionName = 'Session1_2'
    Left = 136
    Top = 16
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'db'
    SessionName = 'Session1_2'
    SQL.Strings = (
      'select *from biolife where common_name=:common_name')
    Left = 144
    Top = 144
    ParamData = <
      item
        DataType = ftString
        Name = 'common_name'
        ParamType = ptUnknown
      end>
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'db'
    SessionName = 'Session1_2'
    TableName = 'biolife.db'
    Left = 144
    Top = 88
  end
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'db'
    SessionName = 'Session1_2'
    Left = 56
    Top = 80
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Northwind;Data Source=GLJ'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 312
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 400
    Top = 40
  end
  object dspadoqry1: TDataSetProvider
    DataSet = ADOQuery1
    Options = [poAllowCommandText]
    Left = 480
    Top = 40
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Employees'
    Left = 392
    Top = 88
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'firstname'
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'lastname'
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'select *from employees where firstname=:firstname and lastname=:' +
        'lastname ')
    Left = 392
    Top = 152
  end
  object dspadotbl1: TDataSetProvider
    DataSet = ADOQuery3
    Left = 488
    Top = 96
  end
  object dspadoqry2: TDataSetProvider
    DataSet = ADOQuery2
    Options = [poAllowCommandText]
    Left = 480
    Top = 152
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *from employees')
    Left = 568
    Top = 96
  end
end