Componentes.Terceros.RemObjects/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Combined DA Sample/fClientDataModule.dfm

object ClientDataModule: TClientDataModule
  OldCreateOrder = True
  Height = 397
  Width = 329
  object Channel: TROWinInetHTTPChannel
    UserAgent = 'RemObjects SDK'
    TargetURL = 'http://localhost:8099/BIN'
    TrustInvalidCA = False
    DispatchOptions = []
    ServerLocators = <>
    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
    GetSchemaCall.RemoteService = RemoteService
    GetDataCall.RemoteService = RemoteService
    UpdateDataCall.RemoteService = RemoteService
    GetScriptsCall.RemoteService = RemoteService
    RemoteService = RemoteService
    DataStreamer = DataStreamer
    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_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
    OnNewRecord = tbl_BPClientsNewRecord
    LogicalName = 'BPClients'
    IndexDefs = <>
    Left = 120
    Top = 8
  end
  object ds_BPClients: TDADataSource
    DataSet = tbl_BPClients.Dataset
    DataTable = tbl_BPClients
    Left = 208
    Top = 8
  end
  object tbl_OrderDetails: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'DetailId'
        DataType = datAutoInc
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'Order'
        DataType = datInteger
        Required = True
      end
      item
        Name = 'Product'
        DataType = datString
        Size = 38
        Required = True
      end
      item
        Name = 'Provider'
        DataType = datString
        Size = 38
        Required = True
      end
      item
        Name = 'Quantity'
        DataType = datFloat
        Required = True
      end
      item
        Name = 'Price'
        DataType = datDecimal
        Required = True
      end
      item
        Name = 'Total'
        DataType = datDecimal
        LogChanges = False
        Required = True
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    MasterSource = ds_Orders
    MasterFields = 'OrderId'
    DetailFields = 'Order'
    LogicalName = 'OrderDetails'
    IndexDefs = <>
    Left = 120
    Top = 104
  end
  object ds_OrderDetails: TDADataSource
    DataSet = tbl_OrderDetails.Dataset
    DataTable = tbl_OrderDetails
    Left = 208
    Top = 104
  end
  object tbl_Orders: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'OrderId'
        DataType = datAutoInc
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'OrderDate'
        DataType = datDateTime
        Required = True
      end
      item
        Name = 'OrderStatus'
        DataType = datByte
        Required = True
      end
      item
        Name = 'Client'
        DataType = datString
        Size = 38
        Required = True
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    MasterSource = ds_BPClients
    MasterFields = 'Id'
    DetailFields = 'Client'
    LogicalName = 'Orders'
    IndexDefs = <>
    Left = 120
    Top = 56
  end
  object ds_Orders: TDADataSource
    DataSet = tbl_Orders.Dataset
    DataTable = tbl_Orders
    Left = 208
    Top = 56
  end
  object tbl_Groups: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'GroupId'
        DataType = datInteger
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'GroupName'
        DataType = datWideString
        Size = 120
        Required = True
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    LogicalName = 'Groups'
    IndexDefs = <>
    Left = 120
    Top = 152
  end
  object ds_Groups: TDADataSource
    DataSet = tbl_Groups.Dataset
    DataTable = tbl_Groups
    Left = 208
    Top = 152
  end
  object tbl_Products: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ProductId'
        DataType = datWideString
        Size = 38
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'ProductGroup'
        DataType = datInteger
        Required = True
      end
      item
        Name = 'ProductCode'
        DataType = datString
        Size = 50
        Required = True
      end
      item
        Name = 'ProductName'
        DataType = datWideString
        Size = 255
        Required = True
      end
      item
        Name = 'ProductWarranty'
        DataType = datByte
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    OnNewRecord = tbl_ProductsNewRecord
    LogicalName = 'Products'
    IndexDefs = <>
    Left = 120
    Top = 200
  end
  object ds_Products: TDADataSource
    DataSet = tbl_Products.Dataset
    DataTable = tbl_Products
    Left = 208
    Top = 200
  end
  object tbl_SelectedGroup: TDAMemDataTable
    RemoteUpdatesOptions = []
    MaxRecords = 1
    Fields = <
      item
        Name = 'GroupId'
        DataType = datInteger
        OnChange = tbl_SelectedGroupGroupIdChange
      end>
    Params = <>
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    LogicalName = 'Groups'
    IndexDefs = <>
    Left = 120
    Top = 248
  end
  object ds_SelectedGroup: TDADataSource
    DataSet = tbl_SelectedGroup.Dataset
    DataTable = tbl_SelectedGroup
    Left = 216
    Top = 248
  end
  object tbl_UnionAddresses: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'Id'
        DataType = datWideString
        Size = 38
        InPrimaryKey = True
      end
      item
        Name = 'Name'
        DataType = datWideString
        Size = 120
      end
      item
        Name = 'ContactPhone'
        DataType = datWideString
        Size = 50
      end
      item
        Name = 'ContactAddress'
        DataType = datWideString
        Size = 255
      end
      item
        Name = '@SourceTable'
        DataType = datInteger
        ServerAutoRefresh = True
        InPrimaryKey = True
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    OnNewRecord = tbl_UnionAddressesNewRecord
    LogicalName = 'UnionAddresses'
    IndexDefs = <>
    Left = 120
    Top = 304
  end
  object ds_UnionAddresses: TDADataSource
    DataSet = tbl_UnionAddresses.Dataset
    DataTable = tbl_UnionAddresses
    Left = 216
    Top = 304
  end
end