shoppingcartinfo.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 82 行

Imports Microsoft.VisualBasic


Imports System

Namespace NetShopForge.Library.Cart
    <Serializable()> _
    Public Class ShoppingCartInfo

        Implements IShoppingCartInfo


        Private intProductID As Integer
        Private strProductName As String
        Private decUnitPrice As Decimal
        Private intQuantity As Integer
        Private _options As String
        Private _ImagePath As String


        Public Property ProductID() As Integer Implements IShoppingCartInfo.ProductID
            Get
                Return intProductID
            End Get
            Set(ByVal value As Integer)
                intProductID = value
            End Set
        End Property


        Public Property ProductName() As String Implements IShoppingCartInfo.ProductName
            Get
                Return strProductName
            End Get
            Set(ByVal value As String)
                strProductName = value
            End Set
        End Property


        Public Property UnitPrice() As Decimal Implements IShoppingCartInfo.UnitPrice
            Get
                Return decUnitPrice
            End Get
            Set(ByVal value As Decimal)
                decUnitPrice = value
            End Set
        End Property


        Public Property Quantity() As Integer Implements IShoppingCartInfo.Quantity
            Get
                Return intQuantity
            End Get
            Set(ByVal value As Integer)
                intQuantity = value
            End Set
        End Property



        Public Property ImagePath() As String Implements IShoppingCartInfo.ImagePath
            Get
                Return _ImagePath
            End Get
            Set(ByVal value As String)
                _ImagePath = value
            End Set
        End Property



        Public Property Options() As String Implements IShoppingCartInfo.Options
            Get
                Return _options
            End Get
            Set(ByVal value As String)
                _Options = value
            End Set
        End Property
    End Class 'ShoppingCartInfo 
End Namespace 'ShoppingCartGeneric