object CalcFields_ClientDataForm: TCalcFields_ClientDataForm
  OldCreateOrder = True
  OnCreate = DataModuleCreate
  Height = 300
  Width = 300
  object ROChannel: TROWinInetHTTPChannel
    UserAgent = 'RemObjects SDK'
    TargetURL = 'http://localhost:8099/BIN'
    ServerLocators = <>
    DispatchOptions = []
    Left = 42
    Top = 10
  end
  object ROMessage: TROBinMessage
    Left = 41
    Top = 52
  end
  object RORemoteService: TRORemoteService
    Message = ROMessage
    Channel = ROChannel
    ServiceName = 'CalcFieldsService'
    Left = 40
    Top = 95
  end
  object DARemoteDataAdapter: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    DataStreamer = DataStreamer
    Left = 128
    Top = 82
  end
  object DataStreamer: TDABin2DataStreamer
    Left = 40
    Top = 144
  end
  object tbl_Customers: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'CustomerID'
        DataType = datString
        Size = 5
        InPrimaryKey = True
        OnChange = tbl_CustomersCustomerIDChange
      end
      item
        Name = 'CompanyName'
        DataType = datString
        Size = 40
        OnChange = tbl_CustomersCompanyNameChange
      end
      item
        Name = 'ServerCalculated'
        DataType = datInteger
        LogChanges = False
        ReadOnly = True
        ServerCalculated = True
      end
      item
        Name = 'ClientCalculated'
        DataType = datString
        Size = 50
        LogChanges = False
        DisplayWidth = 50
        ReadOnly = True
        Calculated = True
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = DARemoteDataAdapter
    OnCalcFields = tbl_CustomersCalcFields
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Customers'
    IndexDefs = <>
    Left = 136
    Top = 136
  end
  object ds_Customers: TDADataSource
    DataSet = tbl_Customers.Dataset
    DataTable = tbl_Customers
    Left = 168
    Top = 136
  end
end