inetxrdm.dfm

《Delphi开发人员指南》配书原码

object DDGInetX: TDDGInetX
  OldCreateOrder = False
  Height = 0
  Width = 0
  object CustomerQuery: TQuery
    DatabaseName = 'DDG5'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'select * from customer')
    Left = 120
    Top = 36
  end
  object OrderQuery: TQuery
    DatabaseName = 'DDG5'
    SessionName = 'Session1_1'
    DataSource = CustomerSource
    SQL.Strings = (
      'select * from orders'
      'where custno=:custno')
    Left = 120
    Top = 92
    ParamData = <
      item
        DataType = ftInteger
        Name = 'custno'
        ParamType = ptInput
      end>
  end
  object EmployeeQuery: TQuery
    DatabaseName = 'DDG5'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'select * from employee')
    Left = 120
    Top = 144
  end
  object Database1: TDatabase
    AliasName = 'DDG5IB'
    Connected = True
    DatabaseName = 'DDG5'
    HandleShared = True
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sysdba'
      'password=masterkey')
    SessionName = 'Session1_1'
    Left = 304
    Top = 28
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 308
    Top = 84
  end
  object CustomerProvider: TDataSetProvider
    DataSet = CustomerQuery
    Constraints = True
    Left = 56
    Top = 36
  end
  object EmployeeProvider: TDataSetProvider
    DataSet = EmployeeQuery
    Constraints = True
    Left = 52
    Top = 144
  end
  object CustomerSource: TDataSource
    DataSet = CustomerQuery
    Left = 180
    Top = 36
  end
end