urdmerrorserver.dfm

来自「就是这本书的随书代码。包括《实战Delphi 5.x-分布式多层应用系统篇》」· DFM 代码 · 共 41 行

object ErrorServer: TErrorServer
  OldCreateOrder = False
  Height = 0
  Width = 0
  object Database1: TDatabase
    AliasName = 'IBLOCAL'
    DatabaseName = 'aErrorDB'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Session1_5'
    Left = 35
    Top = 20
  end
  object Query1: TQuery
    DatabaseName = 'aErrorDB'
    SessionName = 'Session1_5'
    SQL.Strings = (
      
        'SELECT DEPT_NO, DEPARTMENT, HEAD_DEPT, MNGR_NO, BUDGET, LOCATION' +
        ', PHONE_NO'
      'FROM DEPARTMENT Department')
    Left = 36
    Top = 91
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 123
    Top = 17
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Constraints = True
    OnUpdateError = DataSetProvider1UpdateError
    Left = 126
    Top = 93
  end
end