Componentes.Terceros.RemObjects/official/5.0.23.613/Data Abstract for Delphi/Samples/MegaDemo/OrdersService_Impl.dfm

object OrdersService: TOrdersService
  OldCreateOrder = True
  RequiresSession = True
  SessionManager = MegaDemoServer_DataModule.SessionManager
  ServiceSchema = Schema
  ServiceDataStreamer = BinDataStreamer
  ExportedDataTables = <>
  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
  Left = 221
  Top = 190
  Height = 206
  Width = 256
  object bpCustomers: TDABusinessProcessor
    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 138
    Top = 60
  end
  object BinDataStreamer: TDABinDataStreamer
    BufferSize = 262144
    Left = 62
    Top = 60
  end
  object Schema: TDASchema
    ConnectionManager = MegaDemoServer_DataModule.ConnectionManager
    DataDictionary = MegaDemoServer_DataModule.DataDictionary
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'Employees'
            TargetTable = 'CUSTOMER'
            SQL = 'SELECT C.CUST_NO, C.CUSTOMER, C.CITY'#10'FROM CUSTOMER C'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CustomerID'
                TableField = 'CUST_NO'
              end
              item
                DatasetField = 'CustomerName'
                TableField = 'CUSTOMER'
              end
              item
                DatasetField = 'City'
                TableField = 'CITY'
              end>
          end
          item
            Connection = 'Northwind'
            TargetTable = 'Customers'
            SQL = 
              'SELECT '#10'    Custs.CustomerID, Custs.CompanyName, Custs.City'#10'  FR' +
              'OM'#10'    Customers Custs'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CustomerID'
                TableField = 'CustomerID'
              end
              item
                DatasetField = 'CustomerName'
                TableField = 'CompanyName'
              end
              item
                DatasetField = 'City'
                TableField = 'City'
              end>
          end>
        Name = 'Customers'
        Description = 'Retrieves the list of customers in the database'
        Fields = <
          item
            Name = 'CustomerID'
            DataType = datString
            Size = 5
            Description = 'The customer'#39's code'
            BlobType = dabtUnknown
            GeneratorName = 'CUST_NO_GEN'
            DecimalPrecision = 0
            DecimalScale = 0
            DisplayWidth = 0
            DisplayLabel = 'Customer ID'
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CustomerName'
            DataType = datString
            Size = 40
            Description = 'The customer'#39's name'
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Name'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'City'
            DataType = datString
            Size = 25
            Description = 'The customer'#39's city'
            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 = 'EmployeeID'
            DataType = datInteger
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            ParamType = daptInput
          end
          item
            Name = 'CustomerID'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'Employees'
            TargetTable = 'SALES'
            SQL = 
              'SELECT S.CUST_NO, S.ORDER_DATE, S.DATE_NEEDED, S.SHIP_DATE, S.TO' +
              'TAL_VALUE'#10'FROM SALES S'#10'WHERE S.SALES_REP=:EmployeeID AND S.CUST_' +
              'NO=:CustomerID'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CustomerID'
                TableField = 'CUST_NO'
              end
              item
                DatasetField = 'OrderDate'
                TableField = 'ORDER_DATE'
              end
              item
                DatasetField = 'RequiredDate'
                TableField = 'DATE_NEEDED'
              end
              item
                DatasetField = 'ShippedDate'
                TableField = 'SHIP_DATE'
              end
              item
                DatasetField = 'OrderAmount'
                TableField = 'TOTAL_VALUE'
              end>
          end
          item
            Connection = 'Northwind'
            TargetTable = 'Orders'
            SQL = 
              'SELECT '#10'    Ords.CustomerID, Ords.OrderDate, Ords.RequiredDate, ' +
              'Ords.ShippedDate, Ords.Freight as OrderAmount'#10'  FROM'#10'    Orders ' +
              'Ords'#10'WHERE Ords.EmployeeID=:EmployeeID AND Ords.CustomerID=:Cust' +
              'omerID'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CustomerID'
                TableField = 'CustomerID'
              end
              item
                DatasetField = 'OrderDate'
                TableField = 'OrderDate'
              end
              item
                DatasetField = 'RequiredDate'
                TableField = 'RequiredDate'
              end
              item
                DatasetField = 'ShippedDate'
                TableField = 'ShippedDate'
              end
              item
                DatasetField = 'OrderAmount'
                TableField = 'OrderAmount'
              end>
          end>
        Name = 'OrdersByCustomer'
        Description = 
          'Retrieves the list of orders for a specific customer entered by ' +
          'the loged employee'
        Fields = <
          item
            Name = 'CustomerID'
            DataType = datString
            Size = 5
            Description = 'The identifier of the customer that placed this order'
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            LogChanges = False
            DisplayWidth = 0
            DisplayLabel = 'Customer ID'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'OrderDate'
            DataType = datDateTime
            Description = 'The order'#39's date'
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            DisplayWidth = 0
            DisplayLabel = 'Order Date'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'RequiredDate'
            DataType = datDateTime
            Description = 'The date by which the order has to be received'
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            DisplayWidth = 0
            DisplayLabel = 'Required Date'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ShippedDate'
            DataType = datDateTime
            Description = 'The date this order has been shipped'
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            DisplayWidth = 0
            DisplayLabel = 'Shipped Date'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'OrderAmount'
            DataType = datCurrency
            Description = 'The order'#39's amount'
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            DisplayWidth = 0
            DisplayLabel = 'Order Amount'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <>
    RelationShips = <
      item
        Name = 'CustomersToOrders'
        MasterDatasetName = 'Customers'
        MasterFields = 'CustomerID'
        DetailDatasetName = 'OrdersByCustomer'
        DetailFields = 'CustomerID'
        RelationshipType = rtForeignKey
      end>
    UpdateRules = <>
    Version = 0
    Left = 62
    Top = 15
  end
end