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
|