rdm2unit.dfm

三层的通用架构

object DefaultRDM2: TDefaultRDM2
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 242
  Top = 123
  Height = 297
  Width = 317
  object DefaultRDMADOConnection: TADOConnection
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    AfterConnect = DefaultRDMADOConnectionAfterConnect
    BeforeConnect = DefaultRDMADOConnectionBeforeConnect
    BeforeDisconnect = DefaultRDMADOConnectionBeforeDisconnect
    Left = 32
    Top = 8
  end
  object DefaultRDMADOQuery: TADOQuery
    Connection = DefaultRDMADOConnection
    Parameters = <>
    Left = 120
    Top = 8
  end
  object DefaultRDMProvider: TDataSetProvider
    DataSet = DefaultRDMADOQuery
    Constraints = True
    ResolveToDataSet = True
    OnGetData = DefaultRDMProviderGetData
    OnUpdateData = DefaultRDMProviderUpdateData
    OnUpdateError = DefaultRDMProviderUpdateError
    BeforeUpdateRecord = DefaultRDMProviderBeforeUpdateRecord
    OnGetTableName = DefaultRDMProviderGetTableName
    Left = 208
    Top = 8
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 104
    Top = 96
  end
end