Componentes.Terceros.RemObjects/internal/5.0.29.665/1/Data Abstract for Delphi/Samples/Dynamic SQL/DynSQLMainClient.dfm

object DynSQLMainClientForm: TDynSQLMainClientForm
  Left = 466
  Top = 173
  Width = 549
  Height = 406
  BorderWidth = 5
  Caption = 'DynSQL Client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 136
    Width = 66
    Height = 13
    Caption = 'Max Records:'
  end
  object Memo: TMemo
    Left = 0
    Top = 0
    Width = 523
    Height = 124
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'SELECT * FROM Customers')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object seMaxRecs: TSpinEdit
    Left = 80
    Top = 133
    Width = 65
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 1
    Value = -1
  end
  object RetrieveSchema: TButton
    Left = 0
    Top = 160
    Width = 92
    Height = 25
    Caption = 'Retrieve Schema'
    TabOrder = 2
    OnClick = RetrieveSchemaClick
  end
  object Grid: TDBGrid
    Left = 0
    Top = 212
    Width = 523
    Height = 148
    Align = alBottom
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DADataSource
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object RetrieveData: TButton
    Left = 95
    Top = 160
    Width = 92
    Height = 25
    Caption = 'Retrieve Data'
    TabOrder = 4
    OnClick = RetrieveDataClick
  end
  object RetrieveSchemaAndData: TButton
    Left = 191
    Top = 160
    Width = 154
    Height = 25
    Caption = 'Retrieve Schema and Data'
    TabOrder = 5
    OnClick = RetrieveSchemaAndDataClick
  end
  object Save: TButton
    Left = 349
    Top = 160
    Width = 45
    Height = 25
    Caption = 'Save'
    TabOrder = 6
    OnClick = SaveClick
  end
  object Load: TButton
    Left = 398
    Top = 160
    Width = 45
    Height = 25
    Caption = 'Load'
    TabOrder = 7
    OnClick = LoadClick
  end
  object Update: TButton
    Left = 446
    Top = 160
    Width = 75
    Height = 25
    Caption = 'Update'
    TabOrder = 8
    OnClick = UpdateClick
  end
  object dbNavigator: TDBNavigator
    Left = 151
    Top = 129
    Width = 320
    Height = 25
    DataSource = DADataSource
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
  end
  object cbUpdateviaRDA: TCheckBox
    Left = 400
    Top = 192
    Width = 121
    Height = 17
    Caption = 'Update via RDA'
    TabOrder = 10
  end
  object ROBINMessage: TROBinMessage
    Left = 32
    Top = 40
  end
  object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
    UserAgent = 'RemObjects SDK'
    TargetURL = 'http://localhost:8099/BIN'
    ServerLocators = <>
    DispatchOptions = []
    Left = 64
    Top = 40
  end
  object DataStreamer: TDABin2DataStreamer
    Left = 128
    Top = 40
  end
  object DataTable: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = DARemoteDataAdapter
    BeforeRefresh = DataTableBeforeRefresh
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'DynamicDataset'
    IndexDefs = <>
    Left = 32
    Top = 80
  end
  object DADataSource: TDADataSource
    DataSet = DataTable.Dataset
    DataTable = DataTable
    Left = 64
    Top = 80
  end
  object svcDynSQLService: TRORemoteService
    Message = ROBINMessage
    Channel = ROWinInetHTTPChannel1
    ServiceName = 'DynSQLService'
    Left = 96
    Top = 40
  end
  object DARemoteDataAdapter: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = svcDynSQLService
    GetDataCall.RemoteService = svcDynSQLService
    GetDataCall.MethodName = 'SQLGetData'
    GetDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'aSQLText'
        DataType = rtString
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aIncludeSchema'
        DataType = rtBoolean
        Flag = fIn
        Value = Null
      end
      item
        Name = 'aMaxRecords'
        DataType = rtInteger
        Flag = fIn
        Value = Null
      end>
    GetDataCall.Default = False
    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
    GetDataCall.IncomingDataParameter = 'Result'
    GetDataCall.OutgoingIncludeSchemaParameter = 'aIncludeSchema'
    GetDataCall.OutgoingMaxRecordsParameter = 'aMaxRecords'
    UpdateDataCall.RemoteService = svcDynSQLService
    UpdateDataCall.MethodName = 'MyUpdateData'
    UpdateDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'aTableName'
        DataType = rtString
        Flag = fIn
        Value = Null
      end
      item
        Name = 'Delta'
        DataType = rtBinary
        Flag = fIn
        Value = Null
      end>
    UpdateDataCall.Default = False
    UpdateDataCall.OutgoingDeltaParameter = 'Delta'
    UpdateDataCall.IncomingDeltaParameter = 'Result'
    GetScriptsCall.RemoteService = svcDynSQLService
    RemoteService = svcDynSQLService
    DataStreamer = DataStreamer
    Left = 98
    Top = 80
  end
end