ucorbadmdiiserver.dfm

就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》

object CORBADIIServer: TCORBADIIServer
  OldCreateOrder = False
  Left = 104
  Top = 118
  Height = 251
  Width = 561
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 42
    Top = 14
  end
  object Database1: TDatabase
    AliasName = 'IBLOCAL'
    Connected = True
    DatabaseName = 'aDemoDB'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Session1_1'
    Left = 146
    Top = 13
  end
  object Query1: TQuery
    DatabaseName = 'aDemoDB'
    SessionName = 'Session1_1'
    SQL.Strings = (
      
        'SELECT EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT' +
        '_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY, FULL_NAME'
      'FROM EMPLOYEE Employee')
    Left = 47
    Top = 81
  end
  object quryEmployees: TQuery
    DatabaseName = 'aDemoDB'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'SELECT FULL_NAME'
      'FROM EMPLOYEE Employee')
    UniDirectional = True
    Left = 241
    Top = 16
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Constraints = True
    Left = 152
    Top = 80
  end
end