orderlogic.vb

来自「编程之道VB.NETt程序设计入门-589M.zip」· VB 代码 · 共 37 行

Imports System
Imports System.Data
Imports Microsoft.VisualBasic

Imports Nozama.DataAccess
Imports Nozama.General

Namespace Nozama.BusinessLogic

    Public Class OrderLogic
        Inherits MarshalByRefObject

        Public Function BuildOrderData(ByVal order As OrderData) As OrderData
            Dim detailTable As DataTable = order.Tables(OrderData.ORDER_BOOK_TABLE)

            With order.Tables(OrderData.ORDERS_TABLE).Rows(0)
                .Item(OrderData.TOTAL_PRICE) = 0

                Dim row As DataRow
                For Each row In detailTable.Rows
                    .Item(OrderData.TOTAL_PRICE) += row.Item(OrderData.PRICE) * row.Item(OrderData.QUANTITY)
                Next
            End With

            Return order
        End Function

        Public Function AddOrder(ByVal order As OrderData) As OrderData
            Dim daOrder As New Orders()

            daOrder.InsertOrder(order)
            Return order
        End Function
    End Class

End Namespace