item.vb

采用Visual Bacis.NET开发的电子商务系统.

Namespace Common

    Public Class Item
        Public OrderID As String
        Public ProductID As String
        Public SKU As String
        Public ProductName As String
        Public ProductDescription As String
        Public Quantity As Integer
        Public UnitPrice As Double
        Public OrderItemID As String
        Public ExtendedPrice As Double = UnitPrice * Quantity

        Public Function Add(ByVal strProductID As String, _
                            ByVal strSKU As String, _
                            ByVal strProductName As String, _
                            ByVal strListPrice As String, _
                            ByVal strDescription As String, _
                            ByVal intQuantity As Integer) As Item
            Dim objItem As New Item()
            objItem.SKU = strSKU
            objItem.ProductID = strProductID
            objItem.ProductName = strProductName
            objItem.ProductDescription = strDescription
            objItem.Quantity = intQuantity
            objItem.UnitPrice = strListPrice
            Return objItem
        End Function

    End Class

End Namespace