Componentes.Terceros.RemObjects/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Dynamic Select/fClientDataModule.dfm

object ClientDataModule: TClientDataModule
  OldCreateOrder = True
  Left = 170
  Top = 167
  Height = 337
  Width = 300
  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
    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_Workers: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'WorkerID'
        DataType = datLargeAutoInc
        GeneratorName = 'SALESMEN_ID_GEN'
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'WorkerLastName'
        DataType = datWideString
        Size = 20
        Required = True
        DisplayLabel = 'LastName'
      end
      item
        Name = 'WorkerFirstName'
        DataType = datWideString
        Size = 10
        Required = True
        DisplayLabel = 'FirstName'
      end
      item
        Name = 'WorkerBirthDate'
        DataType = datDateTime
        DisplayLabel = 'BirthDate'
      end
      item
        Name = 'WorkerHireDate'
        DataType = datDateTime
        DisplayLabel = 'HireDate'
      end
      item
        Name = 'WorkerPosition'
        DataType = datWideString
        Size = 30
        DisplayLabel = 'Position'
      end
      item
        Name = 'WorkerAddress'
        DataType = datWideString
        Size = 60
        DisplayLabel = 'Address'
      end
      item
        Name = 'WorkerCity'
        DataType = datWideString
        Size = 15
        DisplayLabel = 'City'
      end
      item
        Name = 'WorkerZip'
        DataType = datWideString
        Size = 10
        DisplayLabel = 'Zip'
      end
      item
        Name = 'WorkerCountry'
        DataType = datWideString
        Size = 15
        DisplayLabel = 'Country'
      end
      item
        Name = 'WorkerPhone'
        DataType = datWideString
        Size = 24
        DisplayLabel = 'Phone'
      end
      item
        Name = 'WorkerPhoto'
        DataType = datBlob
        DisplayLabel = 'Photo'
      end
      item
        Name = 'WorkerNotes'
        DataType = datWideMemo
        DisplayLabel = 'Notes'
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    LogicalName = 'Workers'
    IndexDefs = <>
    Left = 128
    Top = 8
  end
  object ds_Workers: TDADataSource
    DataSet = tbl_Workers.Dataset
    DataTable = tbl_Workers
    Left = 200
    Top = 8
  end
  object tbl_Dynamic: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    IndexDefs = <>
    Left = 128
    Top = 56
  end
  object ds_Dynamic: TDADataSource
    DataSet = tbl_Dynamic.Dataset
    DataTable = tbl_Dynamic
    Left = 200
    Top = 56
  end
end