urdmlargedatasetdemo.dfm

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

object ldsDemoServer: TldsDemoServer
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 310
  Top = 187
  Height = 298
  Width = 506
  object Database1: TDatabase
    AliasName = 'IBCosmos'
    Connected = True
    DatabaseName = 'aLargeDB'
    HandleShared = True
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    Left = 32
    Top = 16
  end
  object Query1: TQuery
    DatabaseName = 'aLargeDB'
    SQL.Strings = (
      'select * from cust')
    Left = 112
    Top = 16
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Constraints = True
    OnDataRequest = DataSetProvider1DataRequest
    BeforeGetRecords = DataSetProvider1BeforeGetRecords
    Left = 224
    Top = 16
  end
  object dspGeneral: TDataSetProvider
    DataSet = quryGeneral
    Constraints = True
    Options = [poAllowCommandText]
    Left = 224
    Top = 80
  end
  object quryGeneral: TQuery
    DatabaseName = 'aLargeDB'
    Left = 112
    Top = 80
  end
  object tblDataRequest: TTable
    DatabaseName = 'aLargeDB'
    TableName = 'CUST'
    Left = 118
    Top = 146
  end
  object dspDataRequest: TDataSetProvider
    DataSet = tblDataRequest
    Constraints = True
    OnDataRequest = dspDataRequestDataRequest
    Left = 224
    Top = 146
  end
end