orders.rtm

ODAC+SDAC源代码

        Font.Style = [fsBold]
        ResetGroup = ppGroup1
        Transparent = True
        DataPipelineName = 'Orders'
        mmHeight = 3440
        mmLeft = 93134
        mmTop = 529
        mmWidth = 71702
        BandType = 5
        GroupNo = 0
      end
    end
  end
  object daDataModule1: TdaDataModule
    object daSDACQueryDataView1: TdaSDACQueryDataView
      Report = ppReport
      UserName = 'Query_Orders'
      Height = 227
      Left = 10
      NameColumnWidth = 105
      SizeColumnWidth = 35
      SortMode = 0
      Top = 10
      TypeColumnWidth = 52
      Width = 382
      AutoSearchTabOrder = 0
      object Orders: TppChildDBPipeline
        AutoCreateFields = False
        UserName = 'Orders'
        object ppField1: TppField
          FieldAlias = 'Orderid'
          FieldName = 'OrderID'
          FieldLength = 10
          DataType = dtInteger
          DisplayWidth = 10
          Position = 0
          TableName = 'Orders'
        end
        object ppField2: TppField
          FieldAlias = 'Orderdate'
          FieldName = 'OrderDate'
          FieldLength = 10
          DataType = dtDateTime
          DisplayWidth = 10
          Position = 1
          TableName = 'Orders'
        end
        object ppField3: TppField
          FieldAlias = 'Productname'
          FieldName = 'ProductName'
          FieldLength = 10
          IsDetail = True
          DisplayWidth = 10
          Position = 2
          TableName = 'Products'
        end
        object ppField4: TppField
          FieldAlias = 'Unitprice'
          FieldName = 'UnitPrice'
          FieldLength = 10
          IsDetail = True
          DataType = dtCurrency
          DisplayWidth = 10
          Position = 3
          TableName = 'Order_Details'
        end
        object ppField5: TppField
          FieldAlias = 'Quantity'
          FieldName = 'Quantity'
          FieldLength = 10
          IsDetail = True
          DataType = dtInteger
          DisplayWidth = 10
          Position = 4
          TableName = 'Order_Details'
        end
        object ppField6: TppField
          FieldAlias = 'Order_Details.UnitPrice*Order_Details.Quantity'
          FieldName = 'Order_Details_UnitPrice_O'
          FieldLength = 10
          Linkable = False
          DataType = dtCurrency
          DisplayWidth = 10
          Position = 5
          TableName = 'Order_Details'
        end
      end
      object daSQL1: TdaSQL
        DatabaseName = 'seDatabase'
        DatabaseType = dtMSSQLServer
        DataPipelineName = 'Orders'
        LinkColor = clMaroon
        MaxSQLFieldAliasLength = 25
        SQLText.Strings = (
          'SELECT Orders.OrderID, Orders.OrderDate, '
          '       Products.ProductName, '
          '       Order_Details.UnitPrice, '
          '       Order_Details.Quantity, '
          
            '       Order_Details.UnitPrice*Order_Details.Quantity Order_Deta' +
            'ils_UnitPrice_O'
          'FROM Orders Orders, "Order Details" Order_Details'
          '     , Products Products'
          'WHERE (Order_Details.OrderID = Orders.OrderID)'
          '       AND '
          '      (Products.ProductID = Order_Details.ProductID)'
          'ORDER BY Orders.OrderDate, Products.ProductName')
        SQLType = sqSQL1
        object daCalculation1: TdaCalculation
          ChildType = 8
          Alias = 'Order_Details.UnitPrice*Order_Details.Quantity'
          DataType = dtCurrency
          DisplayWidth = 10
          FieldAlias = 'Unitprice'
          FieldLength = 10
          FieldName = 'UnitPrice'
          Linkable = False
          SQLFieldName = 'Order_Details_UnitPrice_O'
          TableAlias = 'Order Details'
          TableName = 'Order Details'
          TableSQLAlias = 'Order_Details'
          CalcType = dacaExpression
          Expression = 'Order_Details.UnitPrice*Order_Details.Quantity'
        end
        object daField1: TdaField
          Alias = 'Orderid'
          DataType = dtInteger
          DisplayWidth = 10
          FieldAlias = 'Orderid'
          FieldLength = 10
          FieldName = 'OrderID'
          SQLFieldName = 'OrderID'
          TableAlias = 'Orders'
          TableName = 'Orders'
          TableSQLAlias = 'Orders'
        end
        object daField2: TdaField
          Alias = 'Orderdate'
          DataType = dtDateTime
          DisplayWidth = 10
          FieldAlias = 'Orderdate'
          FieldLength = 10
          FieldName = 'OrderDate'
          SQLFieldName = 'OrderDate'
          TableAlias = 'Orders'
          TableName = 'Orders'
          TableSQLAlias = 'Orders'
        end
        object daField3: TdaField
          Alias = 'Productname'
          DisplayWidth = 10
          FieldAlias = 'Productname'
          FieldLength = 10
          FieldName = 'ProductName'
          IsDetail = True
          SQLFieldName = 'ProductName'
          TableAlias = 'Products'
          TableName = 'Products'
          TableSQLAlias = 'Products'
        end
        object daField4: TdaField
          Alias = 'Unitprice'
          DataType = dtCurrency
          DisplayWidth = 10
          FieldAlias = 'Unitprice'
          FieldLength = 10
          FieldName = 'UnitPrice'
          IsDetail = True
          SQLFieldName = 'UnitPrice'
          TableAlias = 'Order Details'
          TableName = 'Order Details'
          TableSQLAlias = 'Order_Details'
        end
        object daField5: TdaField
          Alias = 'Quantity'
          DataType = dtInteger
          DisplayWidth = 10
          FieldAlias = 'Quantity'
          FieldLength = 10
          FieldName = 'Quantity'
          IsDetail = True
          SQLFieldName = 'Quantity'
          TableAlias = 'Order Details'
          TableName = 'Order Details'
          TableSQLAlias = 'Order_Details'
        end
        object daField6: TdaField
          ChildType = 2
          Alias = 'Orderdate'
          DataType = dtDateTime
          DisplayWidth = 10
          FieldAlias = 'Orderdate'
          FieldLength = 10
          FieldName = 'OrderDate'
          SQLFieldName = 'OrderDate'
          TableAlias = 'Orders'
          TableName = 'Orders'
          TableSQLAlias = 'Orders'
        end
        object daField7: TdaField
          ChildType = 2
          Alias = 'Productname'
          DisplayWidth = 10
          FieldAlias = 'Productname'
          FieldLength = 10
          FieldName = 'ProductName'
          SQLFieldName = 'ProductName'
          TableAlias = 'Products'
          TableName = 'Products'
          TableSQLAlias = 'Products'
        end
        object daTable1: TdaTable
          ChildType = 5
          Alias = 'Orders'
          JoinType = dajtNone
          SQLAlias = 'Orders'
          TableAlias = 'Orders'
          TableName = 'Orders'
        end
        object daTable2: TdaTable
          ChildType = 5
          Alias = 'Order Details'
          SQLAlias = 'Order_Details'
          TableAlias = 'Order Details'
          TableName = 'Order Details'
          object daTableJoin1: TdaTableJoin
            ChildType = 6
            object daField9: TdaField
              ChildType = 3
              Alias = 'Orderid'
              DataType = dtInteger
              DisplayWidth = 10
              FieldAlias = 'Orderid'
              FieldLength = 10
              FieldName = 'OrderID'
              SQLFieldName = 'OrderID'
              TableAlias = 'Order Details'
              TableName = 'Order Details'
              TableSQLAlias = 'Order_Details'
            end
            object daField8: TdaField
              ChildType = 4
              Alias = 'Orderid'
              DataType = dtInteger
              DisplayWidth = 10
              FieldAlias = 'Orderid'
              FieldLength = 10
              FieldName = 'OrderID'
              SQLFieldName = 'OrderID'
              TableAlias = 'Orders'
              TableName = 'Orders'
              TableSQLAlias = 'Orders'
            end
          end
        end
        object daTable3: TdaTable
          ChildType = 5
          Alias = 'Products'
          SQLAlias = 'Products'
          TableAlias = 'Products'
          TableName = 'Products'
          object daTableJoin2: TdaTableJoin
            ChildType = 6
            object daField11: TdaField
              ChildType = 3
              Alias = 'Productid'
              DataType = dtInteger
              DisplayWidth = 10
              FieldAlias = 'Productid'
              FieldLength = 10
              FieldName = 'ProductID'
              SQLFieldName = 'ProductID'
              TableAlias = 'Products'
              TableName = 'Products'
              TableSQLAlias = 'Products'
            end
            object daField10: TdaField
              ChildType = 4
              Alias = 'Productid'
              DataType = dtInteger
              DisplayWidth = 10
              FieldAlias = 'Productid'
              FieldLength = 10
              FieldName = 'ProductID'
              SQLFieldName = 'ProductID'
              TableAlias = 'Order Details'
              TableName = 'Order Details'
              TableSQLAlias = 'Order_Details'
            end
          end
        end
      end
    end
  end
end