Componentes.Terceros.RemObjects/internal/5.0.24.615/1/Data Abstract for Delphi/Samples/MegaDemo/MegaDemoClient_Data.dfm

object MegaDemoClient_DataModule: TMegaDemoClient_DataModule
  OldCreateOrder = True
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 439
  Top = 220
  Height = 300
  Width = 300
  object Channel: TROWinInetHTTPChannel
    UserAgent = 'RemObjects SDK'
    TargetURL = 'http://localhost:8099/BIN'
    ServerLocators = <>
    DispatchOptions = []
    Left = 40
    Top = 8
  end
  object Message: TROBinMessage
    Left = 40
    Top = 52
  end
  object RemoteService: TRORemoteService
    Message = Message
    Channel = Channel
    ServiceName = 'OrdersService'
    Left = 40
    Top = 96
  end
  object DataStreamer: TDABinDataStreamer
    Left = 40
    Top = 140
  end
  object rdaCustomers: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RemoteService
    GetDataCall.RemoteService = RemoteService
    UpdateDataCall.RemoteService = RemoteService
    GetScriptsCall.RemoteService = RemoteService
    RemoteService = RemoteService
    DataStreamer = DataStreamer
    Left = 195
    Top = 119
  end
  object tbl_Customers: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'CustomerID'
        DataType = datString
        Size = 5
        Description = 'The customer'#39's code'
        BlobType = dabtUnknown
        GeneratorName = 'CUST_NO_GEN'
        DisplayWidth = 0
        DisplayLabel = 'Customer ID'
        Alignment = taLeftJustify
        InPrimaryKey = True
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CustomerName'
        DataType = datString
        Size = 40
        Description = 'The customer'#39's name'
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Name'
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'City'
        DataType = datString
        Size = 25
        Description = 'The customer'#39's city'
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rdaCustomers
    ReadOnly = False
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Customers'
    IndexDefs = <>
    Left = 167
    Top = 119
  end
  object ds_Customers: TDADataSource
    DataSet = tbl_Customers.Dataset
    DataTable = tbl_Customers
    Left = 140
    Top = 119
  end
  object tbl_OrdersByCustomer: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'CustomerID'
        DataType = datString
        Size = 5
        Description = 'The identifier of the customer that placed this order'
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Customer ID'
        ReadOnly = True
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'OrderDate'
        DataType = datDateTime
        Description = 'The order'#39's date'
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Order Date'
        ReadOnly = True
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'RequiredDate'
        DataType = datDateTime
        Description = 'The date by which the order has to be received'
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Required Date'
        ReadOnly = True
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'ShippedDate'
        DataType = datDateTime
        Description = 'The date this order has been shipped'
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Shipped Date'
        ReadOnly = True
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'OrderAmount'
        DataType = datCurrency
        Description = 'The order'#39's amount'
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Order Amount'
        ReadOnly = True
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end>
    Params = <
      item
        Name = 'CustomerID'
        DataType = datString
        Size = 5
        BlobType = dabtUnknown
        ParamType = daptInput
      end>
    MasterMappingMode = mmDataRequest
    MasterParamsMappings.Strings = (
      'CustomerID=CustomerID')
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rdaOrders
    ReadOnly = False
    MasterSource = ds_Customers
    MasterFields = 'CustomerID'
    DetailFields = 'CustomerID'
    MasterRequestMappings.Strings = (
      'CustomerID=CustomerID')
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'OrdersByCustomer'
    IndexDefs = <>
    Left = 167
    Top = 167
  end
  object ds_OrdersByCustomer: TDADataSource
    DataSet = tbl_OrdersByCustomer.Dataset
    DataTable = tbl_OrdersByCustomer
    Left = 139
    Top = 166
  end
  object rdaOrders: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RemoteService
    GetDataCall.RemoteService = RemoteService
    GetDataCall.MethodName = 'GetCustomerOrders'
    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'
    UpdateDataCall.RemoteService = RemoteService
    GetScriptsCall.RemoteService = RemoteService
    RemoteService = RemoteService
    DataStreamer = DataStreamer
    Left = 194
    Top = 167
  end
end