object ClientDataModule: TClientDataModule
  OldCreateOrder = True
  OnCreate = DataModuleCreate
  Left = 224
  Top = 176
  Height = 333
  Width = 250
  object Channel: TROWinInetHTTPChannel
    UserAgent = 'RemObjects SDK'
    TargetURL = 'http://localhost:8099/BIN'
    TrustInvalidCA = False
    ServerLocators = <>
    DispatchOptions = []
    Left = 40
    Top = 8
  end
  object Message: TROBinMessage
    Envelopes = <>
    Left = 40
    Top = 52
  end
  object RemoteService: TRORemoteService
    Message = Message
    Channel = Channel
    ServiceName = 'DASampleService'
    Left = 40
    Top = 96
  end
  object DataStreamer: TDABin2DataStreamer
    Left = 40
    Top = 140
  end
  object RemoteDataAdapter: TDARemoteDataAdapter
    DataStreamer = DataStreamer
    DynamicSelect = True
    GetSchemaCall.RemoteService = RemoteService
    GetDataCall.RemoteService = RemoteService
    UpdateDataCall.RemoteService = RemoteService
    GetScriptsCall.RemoteService = RemoteService
    RemoteService = RemoteService
    Left = 40
    Top = 184
  end
  object drLoginRequest: TRODynamicRequest
    RemoteService = RemoteService
    MethodName = 'Login'
    Params = <
      item
        Name = 'aPlatform'
        DataType = rtUserDefined
        Flag = fIn
        TypeName = 'PlatformEnum'
        Value = Null
      end
      item
        Name = 'aName'
        DataType = rtWidestring
        Flag = fIn
      end>
    Left = 40
    Top = 232
  end
  object tbl_Clients: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'Locked'
        DataType = datString
        Size = 1
        LogChanges = False
        Alignment = taCenter
        Calculated = True
      end
      item
        Name = 'ClientId'
        DataType = datString
        Size = 38
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'ClientName'
        DataType = datWideString
        Size = 120
        Required = True
      end
      item
        Name = 'ContactPhone'
        DataType = datWideString
        Size = 50
      end
      item
        Name = 'ContactAddress'
        DataType = datWideString
        Size = 255
      end
      item
        Name = 'ClientDiscount'
        DataType = datFloat
        DefaultValue = '0'
        Required = True
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    OnCalcFields = tbl_ClientsCalcFields
    LogicalName = 'Clients'
    IndexDefs = <>
    Left = 120
    Top = 8
  end
  object ds_Clients: TDADataSource
    DataSet = tbl_Clients.Dataset
    DataTable = tbl_Clients
    Left = 176
    Top = 8
  end
  object EventReceiver: TROEventReceiver
    Interval = 1000
    Message = Message
    Channel = Channel
    ServiceName = 'DASampleService'
    Left = 136
    Top = 232
  end
end