89 lines
2.5 KiB
Plaintext
89 lines
2.5 KiB
Plaintext
object CalcFields_ClientDataForm: TCalcFields_ClientDataForm
|
|
OldCreateOrder = True
|
|
OnCreate = DataModuleCreate
|
|
Height = 300
|
|
Width = 300
|
|
object ROChannel: TROWinInetHTTPChannel
|
|
UserAgent = 'RemObjects SDK'
|
|
TargetURL = 'http://localhost:8099/BIN'
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
Left = 42
|
|
Top = 10
|
|
end
|
|
object ROMessage: TROBinMessage
|
|
Left = 41
|
|
Top = 52
|
|
end
|
|
object RORemoteService: TRORemoteService
|
|
Message = ROMessage
|
|
Channel = ROChannel
|
|
ServiceName = 'CalcFieldsService'
|
|
Left = 40
|
|
Top = 95
|
|
end
|
|
object DARemoteDataAdapter: TDARemoteDataAdapter
|
|
GetSchemaCall.RemoteService = RORemoteService
|
|
GetDataCall.RemoteService = RORemoteService
|
|
UpdateDataCall.RemoteService = RORemoteService
|
|
GetScriptsCall.RemoteService = RORemoteService
|
|
RemoteService = RORemoteService
|
|
DataStreamer = DataStreamer
|
|
Left = 128
|
|
Top = 82
|
|
end
|
|
object DataStreamer: TDABin2DataStreamer
|
|
Left = 40
|
|
Top = 144
|
|
end
|
|
object tbl_Customers: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'CustomerID'
|
|
DataType = datString
|
|
Size = 5
|
|
InPrimaryKey = True
|
|
OnChange = tbl_CustomersCustomerIDChange
|
|
end
|
|
item
|
|
Name = 'CompanyName'
|
|
DataType = datString
|
|
Size = 40
|
|
OnChange = tbl_CustomersCompanyNameChange
|
|
end
|
|
item
|
|
Name = 'ServerCalculated'
|
|
DataType = datInteger
|
|
LogChanges = False
|
|
ReadOnly = True
|
|
ServerCalculated = True
|
|
end
|
|
item
|
|
Name = 'ClientCalculated'
|
|
DataType = datString
|
|
Size = 50
|
|
LogChanges = False
|
|
DisplayWidth = 50
|
|
ReadOnly = True
|
|
Calculated = True
|
|
end>
|
|
Params = <>
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = DARemoteDataAdapter
|
|
OnCalcFields = tbl_CustomersCalcFields
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'Customers'
|
|
IndexDefs = <>
|
|
Left = 136
|
|
Top = 136
|
|
end
|
|
object ds_Customers: TDADataSource
|
|
DataSet = tbl_Customers.Dataset
|
|
DataTable = tbl_Customers
|
|
Left = 168
|
|
Top = 136
|
|
end
|
|
end
|