david
2a98435b14
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
127 lines
2.9 KiB
Plaintext
127 lines
2.9 KiB
Plaintext
object ClientDataModule: TClientDataModule
|
|
OldCreateOrder = True
|
|
OnCreate = DataModuleCreate
|
|
Left = 224
|
|
Top = 176
|
|
Height = 333
|
|
Width = 250
|
|
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
|
|
DynamicSelect = True
|
|
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_Clients: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'Locked'
|
|
DataType = datString
|
|
Size = 1
|
|
LogChanges = False
|
|
Alignment = taCenter
|
|
Calculated = True
|
|
end
|
|
item
|
|
Name = 'ClientId'
|
|
DataType = datString
|
|
Size = 38
|
|
Required = True
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'ClientName'
|
|
DataType = datWideString
|
|
Size = 120
|
|
Required = True
|
|
end
|
|
item
|
|
Name = 'ContactPhone'
|
|
DataType = datWideString
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'ContactAddress'
|
|
DataType = datWideString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'ClientDiscount'
|
|
DataType = datFloat
|
|
DefaultValue = '0'
|
|
Required = True
|
|
end>
|
|
Params = <>
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = RemoteDataAdapter
|
|
OnCalcFields = tbl_ClientsCalcFields
|
|
LogicalName = 'Clients'
|
|
IndexDefs = <>
|
|
Left = 120
|
|
Top = 8
|
|
end
|
|
object ds_Clients: TDADataSource
|
|
DataSet = tbl_Clients.Dataset
|
|
DataTable = tbl_Clients
|
|
Left = 176
|
|
Top = 8
|
|
end
|
|
object EventReceiver: TROEventReceiver
|
|
Interval = 1000
|
|
Message = Message
|
|
Channel = Channel
|
|
ServiceName = 'DASampleService'
|
|
Left = 136
|
|
Top = 232
|
|
end
|
|
end
|