sl_server.dfm

三層源碼,DELPHI寫的三層源碼,三層源碼,

object slsvr: Tslsvr
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 192
  Top = 107
  Height = 375
  Width = 544
  object ado1: TADOConnection
    CursorLocation = clUseServer
    Left = 16
    Top = 16
  end
  object Queryer: TADOQuery
    Connection = ado1
    CursorLocation = clUseServer
    Parameters = <>
    Left = 56
    Top = 16
  end
  object sldata: TDataSetProvider
    DataSet = Queryer
    Constraints = True
    Options = [poAllowCommandText]
    OnDataRequest = sldataDataRequest
    Left = 96
    Top = 16
  end
end