Componentes.Terceros.RemObjects/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Business Processor/fClientDataModule.dfm

object ClientDataModule: TClientDataModule
  OldCreateOrder = True
  Left = 293
  Top = 198
  Height = 335
  Width = 342
  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 tbl_BPClients: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'Id'
        DataType = datString
        Size = 38
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'Name'
        DataType = datWideString
        Size = 120
        Required = True
      end
      item
        Name = 'Phone'
        DataType = datWideString
        Size = 50
      end
      item
        Name = 'Address'
        DataType = datWideString
        Size = 255
      end
      item
        Name = 'Remarks'
        DataType = datWideMemo
      end
      item
        Name = 'Discount'
        DataType = datFloat
        Required = True
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    LogicalName = 'BPClients'
    IndexDefs = <>
    Left = 136
    Top = 8
  end
  object ds_BPClients: TDADataSource
    DataSet = tbl_BPClients.Dataset
    DataTable = tbl_BPClients
    Left = 216
    Top = 8
  end
  object tbl_BPProviders: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'Id'
        DataType = datString
        Size = 38
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'Name'
        DataType = datWideString
        Size = 120
        Required = True
      end
      item
        Name = 'Phone'
        DataType = datWideString
        Size = 50
      end
      item
        Name = 'Address'
        DataType = datWideString
        Size = 255
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    LogicalName = 'BPProviders'
    IndexDefs = <>
    Left = 136
    Top = 64
  end
  object ds_BPProviders: TDADataSource
    DataSet = tbl_BPProviders.Dataset
    DataTable = tbl_BPProviders
    Left = 216
    Top = 64
  end
  object tbl_BPWorkers: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'Id'
        DataType = datAutoInc
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'LastName'
        DataType = datWideString
        Size = 20
        Required = True
      end
      item
        Name = 'FirstName'
        DataType = datWideString
        Size = 10
        Required = True
      end
      item
        Name = 'BirthDate'
        DataType = datDateTime
      end
      item
        Name = 'Position'
        DataType = datWideString
        Size = 30
      end
      item
        Name = 'Address'
        DataType = datWideString
        Size = 60
      end
      item
        Name = 'Phone'
        DataType = datWideString
        Size = 24
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    LogicalName = 'BPWorkers'
    IndexDefs = <>
    Left = 136
    Top = 120
  end
  object ds_BPWorkers: TDADataSource
    DataSet = tbl_BPWorkers.Dataset
    DataTable = tbl_BPWorkers
    Left = 216
    Top = 120
  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
        Value = Null
      end>
    Left = 40
    Top = 232
  end
end