534 lines
17 KiB
Plaintext
534 lines
17 KiB
Plaintext
|
object ServiceMethods_Service: TServiceMethods_Service
|
||
|
|
OldCreateOrder = True
|
||
|
|
OnCreate = DataAbstractServiceCreate
|
||
|
|
OnDestroy = DataAbstractServiceDestroy
|
||
|
|
OnActivate = DataAbstractServiceActivate
|
||
|
|
OnDeactivate = DataAbstractServiceDeactivate
|
||
|
|
AcquireConnection = False
|
||
|
|
ServiceSchema = DASchema
|
||
|
|
ServiceDataStreamer = BinDataStreamer
|
||
|
|
ExportedDataTables = <>
|
||
|
|
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||
|
|
AfterAcquireConnection = DataAbstractServiceAfterAcquireConnection
|
||
|
|
BeforeReleaseConnection = DataAbstractServiceBeforeReleaseConnection
|
||
|
|
AfterReleaseConnection = DataAbstractServiceAfterReleaseConnection
|
||
|
|
OnAcquireConnectionFailure = DataAbstractServiceAcquireConnectionFailure
|
||
|
|
BeforeProcessDeltas = DataAbstractServiceBeforeProcessDeltas
|
||
|
|
AfterProcessDeltas = DataAbstractServiceAfterProcessDeltas
|
||
|
|
OnProcessDeltasError = DataAbstractServiceProcessDeltasError
|
||
|
|
BeforeGetDatasetSchema = DataAbstractServiceBeforeGetDatasetSchema
|
||
|
|
BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
|
||
|
|
AfterGetDatasetSchema = DataAbstractServiceAfterGetDatasetSchema
|
||
|
|
AfterGetDatasetData = DataAbstractServiceAfterGetDatasetData
|
||
|
|
BeforeExecuteCommand = DataAbstractServiceBeforeExecuteCommand
|
||
|
|
AfterExecuteCommand = DataAbstractServiceAfterExecuteCommand
|
||
|
|
OnGetSchemaAsXMLEvent = DataAbstractServiceGetSchemaAsXMLEvent
|
||
|
|
ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
|
||
|
|
ValidateCommandExecution = DataAbstractServiceValidateCommandExecution
|
||
|
|
ValidateDirectSQLAccess = DataAbstractServiceValidateDirectSQLAccess
|
||
|
|
OnUpdateDataBeginTransaction = DataAbstractServiceUpdateDataBeginTransaction
|
||
|
|
OnUpdateDataCommitTransaction = DataAbstractServiceUpdateDataCommitTransaction
|
||
|
|
OnUpdateDataRollBackTransaction = DataAbstractServiceUpdateDataRollBackTransaction
|
||
|
|
Left = 160
|
||
|
|
Top = 206
|
||
|
|
Height = 300
|
||
|
|
Width = 300
|
||
|
|
object BinDataStreamer: TDABinDataStreamer
|
||
|
|
Left = 29
|
||
|
|
Top = 10
|
||
|
|
end
|
||
|
|
object DASchema: TDASchema
|
||
|
|
ConnectionManager = ServiceMethods_ServerMainForm.ConnectionManager
|
||
|
|
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'
|
||
|
|
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
|
||
|
|
LogChanges = False
|
||
|
|
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
|
||
|
|
item
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
Name = 'CustomerID'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 5
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
ParamType = daptInput
|
||
|
|
end>
|
||
|
|
Statements = <
|
||
|
|
item
|
||
|
|
Connection = 'Northwind'
|
||
|
|
TargetTable = 'Orders'
|
||
|
|
SQL =
|
||
|
|
'SELECT OrderID, CustomerID, EmployeeID, OrderDate, RequiredDate,' +
|
||
|
|
' ShippedDate, ShipVia, Freight, ShipName, ShipAddress, ShipCity,' +
|
||
|
|
' ShipRegion, ShipPostalCode, ShipCountry FROM Orders Where Custo' +
|
||
|
|
'merID = :CustomerID'
|
||
|
|
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 = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
LogChanges = False
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = True
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CustomerID'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 5
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'EmployeeID'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'OrderDate'
|
||
|
|
DataType = datDateTime
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'RequiredDate'
|
||
|
|
DataType = datDateTime
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ShippedDate'
|
||
|
|
DataType = datDateTime
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ShipVia'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Freight'
|
||
|
|
DataType = datFloat
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ShipName'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 40
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ShipAddress'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 60
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ShipCity'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 15
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ShipRegion'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 15
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ShipPostalCode'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 10
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ShipCountry'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 15
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end>
|
||
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||
|
|
end>
|
||
|
|
Commands = <
|
||
|
|
item
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
Name = 'CUSTOMERS_CNT'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
ParamType = daptOutput
|
||
|
|
end>
|
||
|
|
Statements = <
|
||
|
|
item
|
||
|
|
Connection = 'Northwind'
|
||
|
|
SQL = 'SELECT :CUSTOMERS_CNT = count(*) from customers'#10
|
||
|
|
StatementType = stSQL
|
||
|
|
ColumnMappings = <>
|
||
|
|
end>
|
||
|
|
Name = 'CustomersCount'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
Name = 'CustomerID'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 5
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
ParamType = daptInput
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CustomerID'
|
||
|
|
DataType = datWideString
|
||
|
|
Size = 5
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
ParamType = daptInput
|
||
|
|
end>
|
||
|
|
Statements = <
|
||
|
|
item
|
||
|
|
Connection = 'Northwind'
|
||
|
|
TargetTable = 'Orders'
|
||
|
|
SQL =
|
||
|
|
'update orders set CustomerID = :CustomerID where CustomerID = :C' +
|
||
|
|
'ustomerID'#10
|
||
|
|
StatementType = stSQL
|
||
|
|
ColumnMappings = <>
|
||
|
|
end>
|
||
|
|
Name = 'UpdateOrders'
|
||
|
|
end>
|
||
|
|
RelationShips = <>
|
||
|
|
UpdateRules = <>
|
||
|
|
Left = 29
|
||
|
|
Top = 55
|
||
|
|
end
|
||
|
|
end
|