productratinginfo.vb

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

Imports Microsoft.VisualBasic
Namespace NetShopForge.Library.Product


    Public Class ProductRatingInfo
        Public Sub New()
        End Sub

        Private _productid As Integer
        Private _RatingQty As Integer
        Private _rating As Decimal
        Private _RecommendQty As Integer

        Public Property ProductID() As Integer
            Get
                Return _productid
            End Get
            Set(ByVal Value As Integer)
                _productid = Value
            End Set
        End Property
  
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Rating() As Decimal
            Get
                Return _rating
            End Get
            Set(ByVal Value As Decimal)
                _rating = Value
            End Set
        End Property
     

        Public Property RecommendQty() As Integer
            Get
                Return _RecommendQty
            End Get
            Set(ByVal Value As Integer)
                _RecommendQty = Value
            End Set
        End Property

        Public Property RatingQty() As Integer
            Get
                Return _RatingQty
            End Get
            Set(ByVal Value As Integer)
                _RatingQty = Value
            End Set
        End Property
    End Class



    Public Enum RateType
        Excellent = 5
        Good = 4
        Average = 3
        Fair = 2
        Poor = 1
    End Enum 'RateType
End Namespace