Componentes.Terceros.RemObj.../internal/5.0.24.615/1/Data Abstract for Delphi/Samples/First Sample/FirstSampleService_Impl.dfm

228 lines
6.7 KiB
Plaintext

object FirstSampleService: TFirstSampleService
OldCreateOrder = True
SessionManager = FirstSampleServerDataModule.SessionManager
AcquireConnection = True
ServiceSchema = Schema
ServiceDataStreamer = DataStreamer
ExportedDataTables = <>
Left = 69
Top = 46
Height = 212
Width = 216
object DataStreamer: TDABinDataStreamer
Left = 32
Top = 8
end
object Schema: TDASchema
ConnectionManager = FirstSampleServerDataModule.ConnectionManager
DataDictionary = FirstSampleServerDataModule.DataDictionary
Datasets = <
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'#10
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 = datWideString
Size = 5
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CompanyName'
DataType = datWideString
Size = 40
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ContactName'
DataType = datWideString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ContactTitle'
DataType = datWideString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Address'
DataType = datWideString
Size = 60
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'City'
DataType = datWideString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Region'
DataType = datWideString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PostalCode'
DataType = datWideString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Country'
DataType = datWideString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Phone'
DataType = datWideString
Size = 24
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Fax'
DataType = datWideString
Size = 24
BlobType = dabtUnknown
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 = 'Customers'
MasterFields = 'EmployeeID'
DetailDatasetName = 'Customers'
DetailFields = 'ReportsTo'
end>
UpdateRules = <>
Left = 32
Top = 56
end
end