object NewService: TNewService OldCreateOrder = True AcquireConnection = True ConnectionName = 'ADO' ServiceSchema = Schema ServiceDataStreamer = BinAdapter ExportedDataTables = <> Left = 372 Top = 283 Height = 364 Width = 436 object BinAdapter: TDABinDataStreamer Left = 32 Top = 8 end object Schema: TDASchema ConnectionManager = QuantumGrid4_ServerDataModule.ConnectionManager DataDictionary = DataDictionary Datasets = < item Params = <> Statements = < item Connection = 'ADO' 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 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'CompanyName' DataType = datString Size = 40 BlobType = dabtUnknown 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 = < item Name = 'CustomerID' DataType = datString BlobType = dabtUnknown ParamType = daptInput end> Statements = < item Connection = 'ADO' 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 CustomerID=: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 = datAutoInc BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'CustomerID' DataType = datString 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 = datString Size = 40 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipAddress' DataType = datString Size = 60 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipCity' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipRegion' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipPostalCode' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipCountry' DataType = datString Size = 15 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 = 'ADO' 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' 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 = 'AllOrders' Fields = < item Name = 'OrderID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'CustomerID' DataType = datString 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 = datString Size = 40 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipAddress' DataType = datString Size = 60 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipCity' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipRegion' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipPostalCode' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipCountry' DataType = datString 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 = <> RelationShips = <> UpdateRules = <> Left = 32 Top = 56 end object DataDictionary: TDADataDictionary Fields = <> Left = 33 Top = 104 end object bsCustomers: TDABusinessProcessor Schema = Schema ReferencedDataset = 'Customers' ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete] UpdateMode = updWhereKeyOnly Left = 64 Top = 176 end object bsOrders: TDABusinessProcessor Schema = Schema ReferencedDataset = 'Orders' ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete] UpdateMode = updWhereKeyOnly Left = 160 Top = 176 end object bsAllOrders: TDABusinessProcessor Schema = Schema ReferencedDataset = 'AllOrders' ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete] UpdateMode = updWhereKeyOnly Left = 240 Top = 176 end end