unit2.dfm

ADO+DCOM例程 服务器与客户端 有源码 请大家指点

object MyDataServer: TMyDataServer
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 192
  Top = 107
  Height = 375
  Width = 544
  object Query1: TQuery
    AfterOpen = Query1AfterOpen
    DatabaseName = 'MyDB'
    SessionName = 'Session1_1'
    Left = 24
    Top = 40
  end
  object Database1: TDatabase
    DatabaseName = 'MyDB'
    SessionName = 'Session1_1'
    Left = 32
    Top = 128
  end
  object Session1: TSession
    Active = True
    AutoSessionName = True
    Left = 128
    Top = 128
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Query1
    Constraints = True
    Options = [poAllowCommandText]
    OnDataRequest = DataSetProvider1DataRequest
    Left = 120
    Top = 40
  end
end