urdmftdbdemoserver.dfm

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

object FTDBServer: TFTDBServer
  OldCreateOrder = False
  Left = 275
  Top = 113
  Height = 247
  Width = 515
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 44
    Top = 15
  end
  object Database1: TDatabase
    AliasName = 'LWDatas'
    Connected = True
    DatabaseName = 'aFTDB'
    SessionName = 'Session1_1'
    Left = 166
    Top = 12
  end
  object qurySampleTBL: TQuery
    DatabaseName = 'aFTDB'
    SessionName = 'Session1_1'
    SQL.Strings = (
      'select * from SAMPLETBL')
    Left = 41
    Top = 88
  end
  object dspSamplTBL: TDataSetProvider
    DataSet = qurySampleTBL
    Constraints = True
    OnUpdateData = dspSamplTBLUpdateData
    Left = 175
    Top = 89
  end
end