productreviewinfo.vb

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

Imports Microsoft.VisualBasic
Namespace NetShopForge.Library.Product



    Public Class ProductReviewInfo
        Public Sub New()
        End Sub

        Private _reviewid As Integer
        Private _productid As Integer
        Private _productName As String
        Private _userid As String
        Private _reviewername As String
        Private _reviewdate As DateTime
        Private _location As String
        Private _rating As Double
        Private _title As String
        Private _comments As String
        Private _isrecommend As Boolean
        Private _displayname As Integer
        Private _IsApproved As Integer
        Private _FeedBack As String
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ReviewID() As Integer
            Get
                Return _reviewid
            End Get
            Set(ByVal Value As Integer)
                _reviewid = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        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 UserID() As String
            Get
                Return _userid
            End Get
            Set(ByVal Value As String)
                _userid = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ReviewerName() As String
            Get
                Return _reviewername
            End Get
            Set(ByVal Value As String)
                _reviewername = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ReviewDate() As DateTime
            Get
                Return _reviewdate
            End Get
            Set(ByVal Value As DateTime)
                _reviewdate = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Location() As String
            Get
                Return _location
            End Get
            Set(ByVal Value As String)
                _location = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Rating() As Double
            Get
                Return _rating
            End Get
            Set(ByVal Value As Double)
                _rating = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Title() As String
            Get
                Return _title
            End Get
            Set(ByVal Value As String)
                _title = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Comments() As String
            Get
                Return _comments
            End Get
            Set(ByVal Value As String)
                _comments = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property IsRecommend() As Boolean
            Get
                Return _isrecommend
            End Get
            Set(ByVal Value As Boolean)
                _isrecommend = Value
            End Set
        End Property

        Public Property IsApproved() As Integer
            Get
                Return _IsApproved
            End Get
            Set(ByVal Value As Integer)
                _IsApproved = Value
            End Set
        End Property

        Public Property FeedBack() As String
            Get
                Return _FeedBack
            End Get
            Set(ByVal value As String)
                _FeedBack = value
            End Set
        End Property
    End Class




End Namespace