urdmftdemoserver.dfm

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

object FTDemoServer: TFTDemoServer
  OldCreateOrder = False
  Height = 0
  Width = 0
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'aRemoteServerDB'
    HandleShared = True
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    Left = 60
    Top = 19
  end
  object Query1: TQuery
    DatabaseName = 'aRemoteServerDB'
    SQL.Strings = (
      'select * from employee')
    Left = 180
    Top = 18
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Constraints = True
    Left = 57
    Top = 81
  end
end