cartinfo.vb

C#语言制作asp.net网上商店的

Imports Microsoft.VisualBasic
Imports System

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

        Private _ProductID As Integer
        Private _ProductName As String
        Private _UnitPrice As Decimal
        Private _Quantity As Integer
        Private _options As String
        Private _ImagePath As String

        Public Sub New()
            _Quantity = 1
        End Sub

        Public Sub New(ByVal productID As Integer, ByVal productName As String, ByVal unitPrice As Decimal, ByVal quantity As Integer, ByVal options As String, ByVal imagePath As String)
            _ProductID = productID
            _ProductName = productName
            _UnitPrice = unitPrice
            _Quantity = quantity
            _options = options
            _ImagePath = imagePath
        End Sub
        Public Property ProductID() As Integer
            Get
                Return _ProductID
            End Get
            Set(ByVal value As Integer)
                _ProductID = value
            End Set
        End Property


        Public Property ProductName() As String
            Get
                Return _ProductName
            End Get
            Set(ByVal value As String)
                _ProductName = value
            End Set
        End Property


        Public Property UnitPrice() As Decimal
            Get
                Return _UnitPrice
            End Get
            Set(ByVal value As Decimal)
                _UnitPrice = value
            End Set
        End Property


        Public Property Quantity() As Integer
            Get
                Return _Quantity
            End Get
            Set(ByVal value As Integer)
                _Quantity = value
            End Set
        End Property



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



        Public Property Options() As String
            Get
                Return _options
            End Get
            Set(ByVal value As String)
                _options = value
            End Set
        End Property



    End Class 'ShoppingCartInfo 
End Namespace 'ShoppingCartGeneric