david
2a98435b14
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
116 lines
2.8 KiB
Plaintext
116 lines
2.8 KiB
Plaintext
object ClientDataModule: TClientDataModule
|
|
OldCreateOrder = True
|
|
Left = 116
|
|
Top = 196
|
|
Height = 321
|
|
Width = 360
|
|
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_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
|
|
item
|
|
Name = 'SourceTableName'
|
|
DataType = datString
|
|
Size = 20
|
|
LogChanges = False
|
|
Calculated = True
|
|
Expression =
|
|
'Iif(@SourceTable=0,'#39'Providers'#39',Iif(@SourceTable=1,'#39'Clients'#39','#39'Und' +
|
|
'efined'#39'))'
|
|
end>
|
|
Params = <>
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = RemoteDataAdapter
|
|
LogicalName = 'UnionAddresses'
|
|
IndexDefs = <>
|
|
Left = 128
|
|
Top = 8
|
|
end
|
|
object ds_UnionAddresses: TDADataSource
|
|
DataSet = tbl_UnionAddresses.Dataset
|
|
DataTable = tbl_UnionAddresses
|
|
Left = 232
|
|
Top = 8
|
|
end
|
|
end
|