categoryinfo.vb

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

Namespace NetShopForge.Library.Category


    Public Class CategoryInfo

        Private _CategoryID As Integer
        Private _CategoryName As String
        Private _CategoryFatherID As Integer
        Private _ItemOrder As Integer
        Private _ImagePath As String
        Private _Description As String
        Private _IsValid As Boolean
        Private _MetaKeywords As String = ""
        Private _MetaDescription As String = ""


        Public Sub New()
            _ImagePath = ""
        End Sub

        Public Property CategoryID() As Integer
            Get
                Return _CategoryID
            End Get
            Set(ByVal Value As Integer)
                _CategoryID = Value
            End Set
        End Property
        Public Property CategoryName() As String
            Get
                Return _CategoryName
            End Get
            Set(ByVal Value As String)
                _CategoryName = Value
            End Set
        End Property
        Public Property CategoryFatherID() As Integer
            Get
                Return _CategoryFatherID
            End Get
            Set(ByVal Value As Integer)
                _CategoryFatherID = Value
            End Set
        End Property
        Public Property ItemOrder() As Integer
            Get
                Return _ItemOrder
            End Get
            Set(ByVal Value As Integer)
                _ItemOrder = 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 Description() As String
            Get
                Return _Description
            End Get
            Set(ByVal value As String)
                _Description = value
            End Set
        End Property

        Public Property IsValid() As Boolean
            Get
                Return _IsValid
            End Get
            Set(ByVal Value As Boolean)
                _IsValid = Value
            End Set
        End Property
        Public Property MetaKeywords() As String
            Get
                Return _MetaKeywords
            End Get
            Set(ByVal Value As String)
                _MetaKeywords = Value
            End Set
        End Property
        Public Property MetaDescription() As String
            Get
                Return _MetaDescription
            End Get
            Set(ByVal Value As String)
                _MetaDescription = Value
            End Set
        End Property

    End Class

End Namespace