urdmtestmidas.dfm

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

object TestMidasServer: TTestMidasServer
  OldCreateOrder = False
  Left = 294
  Top = 200
  Height = 235
  Width = 415
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'aDB'
    HandleShared = True
    LoginPrompt = False
    SessionName = 'Default'
    Left = 52
    Top = 16
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'aDB'
    TableName = 'employee.db'
    Left = 165
    Top = 12
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Table1
    Constraints = True
    OnUpdateData = DataSetProvider1UpdateData
    OnUpdateError = DataSetProvider1UpdateError
    Left = 53
    Top = 85
  end
end