unit2.dfm

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

object RemoteEXEServer: TRemoteEXEServer
  OldCreateOrder = False
  Left = 76
  Top = 125
  Height = 375
  Width = 607
  object Database1: TDatabase
    AliasName = 'MD5IBDBS'
    Connected = True
    DatabaseName = 'aRemoteDB'
    HandleShared = True
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'Password=masterkey')
    SessionName = 'Default'
    Left = 248
    Top = 16
  end
  object Query1: TQuery
    DatabaseName = 'aRemoteDB'
    SQL.Strings = (
      'select * from PERSON')
    Left = 156
    Top = 14
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Constraints = True
    OnUpdateData = DataSetProvider1UpdateData
    Left = 56
    Top = 16
  end
end