Componentes.Terceros.RemObj.../internal/5.0.24.615/1/Data Abstract for Delphi/Samples/Fetch/FetchService_Impl.dfm

858 lines
26 KiB
Plaintext

object FetchService: TFetchService
OldCreateOrder = True
SessionManager = FetchServerDataModule.SessionManager
ServiceSchema = Schema
ServiceDataStreamer = DataStreamer
ExportedDataTables = <>
Height = 300
Width = 300
object Schema: TDASchema
ConnectionManager = FetchServerDataModule.ConnectionManager
DataDictionary = FetchServerDataModule.DataDictionary
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'Northwind'
TargetTable = 'Order Details'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'OrderID'
TableField = 'OrderID'
end
item
DatasetField = 'ProductID'
TableField = 'ProductID'
end
item
DatasetField = 'UnitPrice'
TableField = 'UnitPrice'
end
item
DatasetField = 'Quantity'
TableField = 'Quantity'
end
item
DatasetField = 'Discount'
TableField = 'Discount'
end>
end>
Name = 'PagedOrderDetails'
Fields = <
item
Name = 'OrderID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ProductID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'UnitPrice'
DataType = datFloat
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Quantity'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Discount'
DataType = datFloat
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'StartingOrderID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Value = ''
ParamType = daptInput
end
item
Name = 'EndingOrderID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'Northwind'
TargetTable = 'Order Details'
SQL =
'SELECT '#10' OrderID, ProductID, UnitPrice, Quantity, Discount'#10'FR' +
'OM'#10' [Order Details]'#10'WHERE'#10' OrderID >= :StartingOrderID an' +
'd'#10' OrderID <= :EndingOrderID and'#10' {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'OrderID'
TableField = 'OrderID'
end
item
DatasetField = 'ProductID'
TableField = 'ProductID'
end
item
DatasetField = 'UnitPrice'
TableField = 'UnitPrice'
end
item
DatasetField = 'Quantity'
TableField = 'Quantity'
end
item
DatasetField = 'Discount'
TableField = 'Discount'
end>
end>
Name = 'OrderDetails'
Fields = <
item
Name = 'OrderID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ProductID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'UnitPrice'
DataType = datFloat
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Quantity'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Discount'
DataType = datFloat
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'StartingOrderID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Value = ''
ParamType = daptInput
end
item
Name = 'EndingOrderID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'Northwind'
TargetTable = 'Orders'
SQL =
'SELECT '#10' OrderID, CustomerID, EmployeeID, OrderDate, Required' +
'Date, '#10' ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
' '#10' ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'FROM'#10' ' +
' Orders'#10'WHERE'#10' OrderID >= :StartingOrderID and'#10' OrderID ' +
'<= :EndingOrderID and'#10' {Where}'#10' '#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'OrderID'
TableField = 'OrderID'
end
item
DatasetField = 'CustomerID'
TableField = 'CustomerID'
end
item
DatasetField = 'EmployeeID'
TableField = 'EmployeeID'
end
item
DatasetField = 'OrderDate'
TableField = 'OrderDate'
end
item
DatasetField = 'RequiredDate'
TableField = 'RequiredDate'
end
item
DatasetField = 'ShippedDate'
TableField = 'ShippedDate'
end
item
DatasetField = 'ShipVia'
TableField = 'ShipVia'
end
item
DatasetField = 'Freight'
TableField = 'Freight'
end
item
DatasetField = 'ShipName'
TableField = 'ShipName'
end
item
DatasetField = 'ShipAddress'
TableField = 'ShipAddress'
end
item
DatasetField = 'ShipCity'
TableField = 'ShipCity'
end
item
DatasetField = 'ShipRegion'
TableField = 'ShipRegion'
end
item
DatasetField = 'ShipPostalCode'
TableField = 'ShipPostalCode'
end
item
DatasetField = 'ShipCountry'
TableField = 'ShipCountry'
end>
end>
Name = 'Orders'
Fields = <
item
Name = 'OrderID'
DataType = datAutoInc
BlobType = dabtUnknown
GeneratorName = 'Orders'
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CustomerID'
DataType = datWideString
Size = 5
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EmployeeID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OrderDate'
DataType = datDateTime
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'RequiredDate'
DataType = datDateTime
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShippedDate'
DataType = datDateTime
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipVia'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Freight'
DataType = datFloat
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipName'
DataType = datWideString
Size = 40
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipAddress'
DataType = datWideString
Size = 60
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipCity'
DataType = datWideString
Size = 15
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipRegion'
DataType = datWideString
Size = 15
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipPostalCode'
DataType = datWideString
Size = 10
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipCountry'
DataType = datWideString
Size = 15
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'StartingOrderID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'Northwind'
TargetTable = 'Orders'
SQL =
'SELECT '#10' OrderID, CustomerID, EmployeeID, OrderDate, Required' +
'Date, '#10' ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' +
' '#10' ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10'FROM'#10' ' +
' Orders'#10'WHERE'#10' OrderID > :StartingOrderID and'#10' {Where}'#10'ORD' +
'ER BY'#10' OrderID'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'OrderID'
TableField = 'OrderID'
end
item
DatasetField = 'CustomerID'
TableField = 'CustomerID'
end
item
DatasetField = 'EmployeeID'
TableField = 'EmployeeID'
end
item
DatasetField = 'OrderDate'
TableField = 'OrderDate'
end
item
DatasetField = 'RequiredDate'
TableField = 'RequiredDate'
end
item
DatasetField = 'ShippedDate'
TableField = 'ShippedDate'
end
item
DatasetField = 'ShipVia'
TableField = 'ShipVia'
end
item
DatasetField = 'Freight'
TableField = 'Freight'
end
item
DatasetField = 'ShipName'
TableField = 'ShipName'
end
item
DatasetField = 'ShipAddress'
TableField = 'ShipAddress'
end
item
DatasetField = 'ShipCity'
TableField = 'ShipCity'
end
item
DatasetField = 'ShipRegion'
TableField = 'ShipRegion'
end
item
DatasetField = 'ShipPostalCode'
TableField = 'ShipPostalCode'
end
item
DatasetField = 'ShipCountry'
TableField = 'ShipCountry'
end>
end>
Name = 'PagedOrders'
Fields = <
item
Name = 'OrderID'
DataType = datAutoInc
BlobType = dabtUnknown
GeneratorName = 'Orders'
DecimalPrecision = 0
DecimalScale = 0
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CustomerID'
DataType = datWideString
Size = 5
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EmployeeID'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OrderDate'
DataType = datDateTime
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'RequiredDate'
DataType = datDateTime
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShippedDate'
DataType = datDateTime
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipVia'
DataType = datInteger
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'Freight'
DataType = datFloat
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipName'
DataType = datWideString
Size = 40
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipAddress'
DataType = datWideString
Size = 60
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipCity'
DataType = datWideString
Size = 15
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipRegion'
DataType = datWideString
Size = 15
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipPostalCode'
DataType = datWideString
Size = 10
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ShipCountry'
DataType = datWideString
Size = 15
BlobType = dabtUnknown
DecimalPrecision = 0
DecimalScale = 0
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 32
Top = 56
end
object DataStreamer: TDABin2DataStreamer
BufferSize = 262144
SendReducedDelta = False
Left = 32
Top = 8
end
end