133 lines
4.0 KiB
Plaintext
133 lines
4.0 KiB
Plaintext
object dmUsuarios: TdmUsuarios
|
|
OldCreateOrder = True
|
|
OnCreate = DAClientDataModuleCreate
|
|
Height = 340
|
|
Width = 423
|
|
object ROLoginService: TRORemoteService
|
|
Message = dmBase.ROMessage
|
|
Channel = dmBase.ROChannel
|
|
ServiceName = 'srvLogin'
|
|
Left = 56
|
|
Top = 40
|
|
end
|
|
object tbl_Usuarios: TDACDSDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datString
|
|
Size = 8
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
Params = <>
|
|
MasterMappingMode = mmDataRequest
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = DARemoteDataAdapter
|
|
ReadOnly = False
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'Usuarios'
|
|
IndexDefs = <>
|
|
Left = 176
|
|
Top = 40
|
|
end
|
|
object ds_Usuarios: TDADataSource
|
|
DataSet = tbl_Usuarios.Dataset
|
|
DataTable = tbl_Usuarios
|
|
Left = 280
|
|
Top = 40
|
|
end
|
|
object DARemoteDataAdapter: TDARemoteDataAdapter
|
|
GetSchemaCall.RemoteService = ROLoginService
|
|
GetSchemaCall.MethodName = 'GetSchemaAsXML'
|
|
GetSchemaCall.Params = <
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtString
|
|
Flag = fResult
|
|
end>
|
|
GetSchemaCall.Default = False
|
|
GetSchemaCall.IncomingSchemaParameter = 'Result'
|
|
GetSchemaCall.OutgoingFilterParameter = 'aFilter'
|
|
GetDataCall.RemoteService = ROLoginService
|
|
GetDataCall.MethodName = 'GetDatasetData'
|
|
GetDataCall.Params = <
|
|
item
|
|
Name = 'DatasetName'
|
|
DataType = rtString
|
|
Flag = fIn
|
|
end
|
|
item
|
|
Name = 'Params'
|
|
DataType = rtString
|
|
Flag = fIn
|
|
end
|
|
item
|
|
Name = 'IncludeSchema'
|
|
DataType = rtBoolean
|
|
Flag = fIn
|
|
end
|
|
item
|
|
Name = 'MaxRecords'
|
|
DataType = rtInteger
|
|
Flag = fIn
|
|
end
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtBinary
|
|
Flag = fResult
|
|
end>
|
|
GetDataCall.Default = False
|
|
GetDataCall.OutgoingTableNamesParameter = 'DatasetName'
|
|
GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
|
|
GetDataCall.IncomingDataParameter = 'Result'
|
|
GetDataCall.OutgoingParamsParameter = 'Params'
|
|
GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema'
|
|
GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords'
|
|
UpdateDataCall.RemoteService = ROLoginService
|
|
UpdateDataCall.MethodName = 'UpdateData'
|
|
UpdateDataCall.Params = <
|
|
item
|
|
Name = 'Delta'
|
|
DataType = rtBinary
|
|
Flag = fIn
|
|
end
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtBinary
|
|
Flag = fResult
|
|
end>
|
|
UpdateDataCall.Default = False
|
|
UpdateDataCall.OutgoingDeltaParameter = 'Delta'
|
|
UpdateDataCall.IncomingDeltaParameter = 'Result'
|
|
GetScriptsCall.RemoteService = ROLoginService
|
|
GetScriptsCall.MethodName = 'GetDatasetScripts'
|
|
GetScriptsCall.Params = <
|
|
item
|
|
Name = 'DatasetNames'
|
|
DataType = rtString
|
|
Flag = fIn
|
|
end
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtString
|
|
Flag = fResult
|
|
end>
|
|
GetScriptsCall.Default = False
|
|
GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
|
|
GetScriptsCall.IncomingScriptParameter = 'Result'
|
|
RemoteService = ROLoginService
|
|
DataStreamer = dmBase.DABINAdapter
|
|
FailureBehavior = fbBoth
|
|
Left = 56
|
|
Top = 104
|
|
end
|
|
end
|