david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
678 lines
20 KiB
Plaintext
678 lines
20 KiB
Plaintext
object NewService: TNewService
|
|
OldCreateOrder = True
|
|
ServiceSchema = Schema
|
|
ServiceDataStreamer = BinAdapter
|
|
ExportedDataTables = <
|
|
item
|
|
DataTable = dtComboDataset
|
|
end
|
|
item
|
|
DataTable = dtWindowsDir
|
|
end>
|
|
BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
|
|
ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
|
|
Left = 339
|
|
Top = 191
|
|
Height = 149
|
|
Width = 326
|
|
object BinAdapter: TDABinDataStreamer
|
|
Left = 32
|
|
Top = 8
|
|
end
|
|
object Schema: TDASchema
|
|
ConnectionManager = MemoryData_ServerDataModule.ConnectionManager
|
|
DataDictionary = MemoryData_ServerDataModule.DataDictionary
|
|
Datasets = <
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'Northwind'
|
|
TargetTable = 'Employees'
|
|
SQL =
|
|
'SELECT '#10' EmployeeID, LastName, FirstName, Title, TitleOfCourt' +
|
|
'esy, '#10' BirthDate, HireDate, Address, City, Region, PostalCode' +
|
|
', '#10' Country, HomePhone, Extension, Photo, Notes, ReportsTo, '#10 +
|
|
' PhotoPath'#10' FROM'#10' Employees'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'EmployeeID'
|
|
TableField = 'EmployeeID'
|
|
end
|
|
item
|
|
DatasetField = 'LastName'
|
|
TableField = 'LastName'
|
|
end
|
|
item
|
|
DatasetField = 'FirstName'
|
|
TableField = 'FirstName'
|
|
end
|
|
item
|
|
DatasetField = 'Title'
|
|
TableField = 'Title'
|
|
end
|
|
item
|
|
DatasetField = 'TitleOfCourtesy'
|
|
TableField = 'TitleOfCourtesy'
|
|
end
|
|
item
|
|
DatasetField = 'BirthDate'
|
|
TableField = 'BirthDate'
|
|
end
|
|
item
|
|
DatasetField = 'HireDate'
|
|
TableField = 'HireDate'
|
|
end
|
|
item
|
|
DatasetField = 'Address'
|
|
TableField = 'Address'
|
|
end
|
|
item
|
|
DatasetField = 'City'
|
|
TableField = 'City'
|
|
end
|
|
item
|
|
DatasetField = 'Region'
|
|
TableField = 'Region'
|
|
end
|
|
item
|
|
DatasetField = 'PostalCode'
|
|
TableField = 'PostalCode'
|
|
end
|
|
item
|
|
DatasetField = 'Country'
|
|
TableField = 'Country'
|
|
end
|
|
item
|
|
DatasetField = 'HomePhone'
|
|
TableField = 'HomePhone'
|
|
end
|
|
item
|
|
DatasetField = 'Extension'
|
|
TableField = 'Extension'
|
|
end
|
|
item
|
|
DatasetField = 'Photo'
|
|
TableField = 'Photo'
|
|
end
|
|
item
|
|
DatasetField = 'Notes'
|
|
TableField = 'Notes'
|
|
end
|
|
item
|
|
DatasetField = 'ReportsTo'
|
|
TableField = 'ReportsTo'
|
|
end
|
|
item
|
|
DatasetField = 'PhotoPath'
|
|
TableField = 'PhotoPath'
|
|
end>
|
|
end>
|
|
Name = 'Employees'
|
|
Fields = <
|
|
item
|
|
Name = 'EmployeeID'
|
|
DataType = datAutoInc
|
|
BlobType = dabtUnknown
|
|
Required = True
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'LastName'
|
|
DataType = datString
|
|
Size = 20
|
|
BlobType = dabtUnknown
|
|
Required = True
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FirstName'
|
|
DataType = datString
|
|
Size = 10
|
|
BlobType = dabtUnknown
|
|
Required = True
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Title'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'TitleOfCourtesy'
|
|
DataType = datString
|
|
Size = 25
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'BirthDate'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'HireDate'
|
|
DataType = datDateTime
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Address'
|
|
DataType = datString
|
|
Size = 60
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'City'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Region'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'PostalCode'
|
|
DataType = datString
|
|
Size = 10
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Country'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'HomePhone'
|
|
DataType = datString
|
|
Size = 24
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Extension'
|
|
DataType = datString
|
|
Size = 4
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Photo'
|
|
DataType = datBlob
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Notes'
|
|
DataType = datMemo
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ReportsTo'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'PhotoPath'
|
|
DataType = datString
|
|
Size = 255
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
end
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'Northwind'
|
|
TargetTable = 'Customers'
|
|
SQL =
|
|
'SELECT '#10' CustomerID, CompanyName, ContactName, ContactTitle, ' +
|
|
#10' Address, City, Region, PostalCode, Country, Phone, '#10' Fax' +
|
|
#10' FROM'#10' Customers'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CustomerID'
|
|
TableField = 'CustomerID'
|
|
end
|
|
item
|
|
DatasetField = 'CompanyName'
|
|
TableField = 'CompanyName'
|
|
end
|
|
item
|
|
DatasetField = 'ContactName'
|
|
TableField = 'ContactName'
|
|
end
|
|
item
|
|
DatasetField = 'ContactTitle'
|
|
TableField = 'ContactTitle'
|
|
end
|
|
item
|
|
DatasetField = 'Address'
|
|
TableField = 'Address'
|
|
end
|
|
item
|
|
DatasetField = 'City'
|
|
TableField = 'City'
|
|
end
|
|
item
|
|
DatasetField = 'Region'
|
|
TableField = 'Region'
|
|
end
|
|
item
|
|
DatasetField = 'PostalCode'
|
|
TableField = 'PostalCode'
|
|
end
|
|
item
|
|
DatasetField = 'Country'
|
|
TableField = 'Country'
|
|
end
|
|
item
|
|
DatasetField = 'Phone'
|
|
TableField = 'Phone'
|
|
end
|
|
item
|
|
DatasetField = 'Fax'
|
|
TableField = 'Fax'
|
|
end>
|
|
end>
|
|
Name = 'Customers'
|
|
Fields = <
|
|
item
|
|
Name = 'CustomerID'
|
|
DataType = datString
|
|
Size = 5
|
|
BlobType = dabtUnknown
|
|
Required = True
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CompanyName'
|
|
DataType = datString
|
|
Size = 40
|
|
BlobType = dabtUnknown
|
|
Required = True
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ContactName'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ContactTitle'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Address'
|
|
DataType = datString
|
|
Size = 60
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'City'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Region'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'PostalCode'
|
|
DataType = datString
|
|
Size = 10
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Country'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Phone'
|
|
DataType = datString
|
|
Size = 24
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Fax'
|
|
DataType = datString
|
|
Size = 24
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
end
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'Northwind'
|
|
TargetTable = 'Region'
|
|
SQL = 'SELECT '#10' RegionID, RegionDescription'#10' FROM'#10' Region'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'RegionID'
|
|
TableField = 'RegionID'
|
|
end
|
|
item
|
|
DatasetField = 'RegionDescription'
|
|
TableField = 'RegionDescription'
|
|
end>
|
|
end>
|
|
Name = 'Regions'
|
|
Fields = <
|
|
item
|
|
Name = 'RegionID'
|
|
DataType = datAutoInc
|
|
BlobType = dabtUnknown
|
|
Required = True
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'RegionDescription'
|
|
DataType = datString
|
|
Size = 50
|
|
BlobType = dabtUnknown
|
|
Required = True
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
end>
|
|
Commands = <>
|
|
RelationShips = <
|
|
item
|
|
Name = 'FK_Employees_Employees'
|
|
MasterDatasetName = 'Employees'
|
|
MasterFields = 'EmployeeID'
|
|
DetailDatasetName = 'Employees'
|
|
DetailFields = 'ReportsTo'
|
|
end>
|
|
UpdateRules = <>
|
|
Left = 32
|
|
Top = 56
|
|
end
|
|
object dtComboDataset: TDACDSDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'AutoIncField'
|
|
DataType = datAutoInc
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'TextField'
|
|
DataType = datString
|
|
Size = 50
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 50
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
Params = <
|
|
item
|
|
Name = 'CustomParameter'
|
|
DataType = datString
|
|
Size = 50
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end>
|
|
MasterMappingMode = mmDataRequest
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteFetchEnabled = False
|
|
ReadOnly = False
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'ComboDataset'
|
|
IndexDefs = <>
|
|
Left = 128
|
|
Top = 56
|
|
end
|
|
object dtWindowsDir: TDACDSDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'FileName'
|
|
DataType = datString
|
|
Size = 200
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 50
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'FileSize'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
Params = <
|
|
item
|
|
Name = 'Directory'
|
|
DataType = datString
|
|
Size = 200
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end>
|
|
MasterMappingMode = mmDataRequest
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteFetchEnabled = False
|
|
ReadOnly = False
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'DirectoryData'
|
|
IndexDefs = <>
|
|
Left = 216
|
|
Top = 56
|
|
end
|
|
end
|