urdmsavefiledemoserver.dfm

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

object SaveFileDemoServer: TSaveFileDemoServer
  OldCreateOrder = False
  Left = 160
  Top = 142
  Height = 238
  Width = 524
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'aDB'
    SessionName = 'Session1_1'
    Left = 187
    Top = 23
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 48
    Top = 24
  end
  object Query1: TQuery
    DatabaseName = 'aDB'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'Select * from employee')
    Left = 53
    Top = 89
  end
  object dspEmployee: TDataSetProvider
    DataSet = Query1
    Constraints = True
    Left = 189
    Top = 89
  end
end