urdmdcomperfdemoserver.dfm

delphi多层应用系统 delphi多层应用系统

object DCOMPerfServer: TDCOMPerfServer
  OldCreateOrder = False
  Left = 231
  Top = 117
  Height = 250
  Width = 532
  object Database1: TDatabase
    AliasName = 'MD51'
    Connected = True
    DatabaseName = 'aDB'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'Password=masterkey')
    SessionName = 'Session1_6'
    Left = 51
    Top = 18
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 145
    Top = 18
  end
  object Query1: TQuery
    DatabaseName = 'aDB'
    SessionName = 'Session1_6'
    SQL.Strings = (
      'SELECT NAME, ADDRESS, PHONE, ID, SALARY'
      'FROM PERSON Person')
    Left = 226
    Top = 21
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Constraints = True
    Left = 152
    Top = 88
  end
end