Componentes.Terceros.RemObjects/official/5.0.24.615/Data Abstract for Delphi/Samples/QuantumGrid 4/QuantumGrid4_ClientData.dfm

object QuantumGrid4_ClientDataModule: TQuantumGrid4_ClientDataModule
  OldCreateOrder = True
  Left = 281
  Top = 207
  Height = 300
  Width = 437
  object ROChannel: TROWinInetHTTPChannel
    UserAgent = 'RemObjects SDK'
    TargetURL = 'http://localhost:8099/BIN'
    ServerLocators = <>
    DispatchOptions = []
    Left = 40
    Top = 8
  end
  object ROMessage: TROBinMessage
    Left = 40
    Top = 52
  end
  object RORemoteService: TRORemoteService
    Message = ROMessage
    Channel = ROChannel
    ServiceName = 'NewService'
    Left = 40
    Top = 96
  end
  object bdsCustomers: TDABinDataStreamer
    Left = 306
    Top = 49
  end
  object dtCustomers: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'CustomerID'
        DataType = datString
        Size = 5
        InPrimaryKey = True
      end
      item
        Name = 'CompanyName'
        DataType = datString
        Size = 40
      end
      item
        Name = 'ContactName'
        DataType = datString
        Size = 30
      end
      item
        Name = 'ContactTitle'
        DataType = datString
        Size = 30
      end
      item
        Name = 'Address'
        DataType = datString
        Size = 60
      end
      item
        Name = 'City'
        DataType = datString
        Size = 15
      end
      item
        Name = 'Region'
        DataType = datString
        Size = 15
      end
      item
        Name = 'PostalCode'
        DataType = datString
        Size = 10
      end
      item
        Name = 'Country'
        DataType = datString
        Size = 15
      end
      item
        Name = 'Phone'
        DataType = datString
        Size = 24
      end
      item
        Name = 'Fax'
        DataType = datString
        Size = 24
      end>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rdaCustomers
    AfterOpen = dtCustomersAfterOpen
    AfterScroll = dtCustomersAfterScroll
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Customers'
    IndexDefs = <>
    Left = 192
    Top = 32
  end
  object dsCustomers: TDADataSource
    DataTable = dtCustomers
    Left = 208
    Top = 48
  end
  object dtOrders: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'OrderID'
        DataType = datAutoInc
        InPrimaryKey = True
      end
      item
        Name = 'CustomerID'
        DataType = datString
        Size = 5
      end
      item
        Name = 'EmployeeID'
        DataType = datInteger
      end
      item
        Name = 'OrderDate'
        DataType = datDateTime
      end
      item
        Name = 'RequiredDate'
        DataType = datDateTime
      end
      item
        Name = 'ShippedDate'
        DataType = datDateTime
      end
      item
        Name = 'ShipVia'
        DataType = datInteger
      end
      item
        Name = 'Freight'
        DataType = datFloat
      end
      item
        Name = 'ShipName'
        DataType = datString
        Size = 40
      end
      item
        Name = 'ShipAddress'
        DataType = datString
        Size = 60
      end
      item
        Name = 'ShipCity'
        DataType = datString
        Size = 15
      end
      item
        Name = 'ShipRegion'
        DataType = datString
        Size = 15
      end
      item
        Name = 'ShipPostalCode'
        DataType = datString
        Size = 10
      end
      item
        Name = 'ShipCountry'
        DataType = datString
        Size = 15
      end>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rdaorders
    MasterSource = dsCustomers
    MasterRequestMappings.Strings = (
      'CustomerID=CustomerID')
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Orders'
    IndexDefs = <>
    Left = 192
    Top = 120
  end
  object dsOrders: TDADataSource
    DataTable = dtOrders
    Left = 208
    Top = 136
  end
  object rdaCustomers: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RORemoteService
    GetSchemaCall.MethodName = 'GetSchema'
    GetSchemaCall.Params = <
      item
        Name = 'aFilter'
        DataType = rtString
        Flag = fIn
      end
      item
        Name = 'Result'
        DataType = rtString
        Flag = fResult
      end>
    GetSchemaCall.Default = False
    GetSchemaCall.IncomingSchemaParameter = 'Result'
    GetSchemaCall.OutgoingFilterParameter = 'aFilter'
    GetDataCall.RemoteService = RORemoteService
    GetDataCall.MethodName = 'GetCustomers'
    GetDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end>
    GetDataCall.Default = False
    GetDataCall.IncomingDataParameter = 'Result'
    UpdateDataCall.RemoteService = RORemoteService
    UpdateDataCall.MethodName = 'UpdateCustomers'
    UpdateDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'IncomingData'
        DataType = rtBinary
        Flag = fIn
        Value = Null
      end>
    UpdateDataCall.Default = False
    UpdateDataCall.OutgoingDeltaParameter = 'IncomingData'
    UpdateDataCall.IncomingDeltaParameter = 'Result'
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    DataStreamer = bdsCustomers
    Left = 278
    Top = 48
  end
  object rdaorders: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RORemoteService
    GetSchemaCall.MethodName = 'GetSchema'
    GetSchemaCall.Params = <
      item
        Name = 'aFilter'
        DataType = rtString
        Flag = fIn
      end
      item
        Name = 'Result'
        DataType = rtString
        Flag = fResult
      end>
    GetSchemaCall.Default = False
    GetSchemaCall.IncomingSchemaParameter = 'Result'
    GetSchemaCall.OutgoingFilterParameter = 'aFilter'
    GetDataCall.RemoteService = RORemoteService
    GetDataCall.MethodName = 'GetOrders'
    GetDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'CustomerID'
        DataType = rtString
        Flag = fIn
        Value = Null
      end>
    GetDataCall.Default = False
    GetDataCall.IncomingDataParameter = 'Result'
    GetDataCall.OutgoingParamsParameter = 'CustomerID'
    UpdateDataCall.RemoteService = RORemoteService
    UpdateDataCall.MethodName = 'UpdateCustomers'
    UpdateDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'IncomingData'
        DataType = rtBinary
        Flag = fIn
        Value = Null
      end>
    UpdateDataCall.Default = False
    UpdateDataCall.OutgoingDeltaParameter = 'IncomingData'
    UpdateDataCall.IncomingDeltaParameter = 'Result'
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    DataStreamer = bdsOrders
    Left = 277
    Top = 141
  end
  object bdsOrders: TDABinDataStreamer
    Left = 306
    Top = 141
  end
end