Archivado/Componentes.Terceros.RemObjects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
e4d0fcb01d
Componentes.Terceros.RemObj.../official/5.0.24.615/Data Abstract for Delphi/Samples/Memory Data/NewService_Impl.dfm

678 lines
20 KiB
Plaintext
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink