brandinfo.vb

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

Namespace NetShopForge.Library.Brand


    Public Class BrandInfo

        Private _Brandid As Integer
        Private _brand As String
        Private _Manufacturer As String
        Private _logopath As String
        Private _description As String
        Private _url As String
        Private _itemorder As Integer
        Private _isvalid As Boolean
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property BrandID() As Integer
            Get
                Return _Brandid
            End Get
            Set(ByVal Value As Integer)
                _Brandid = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Brand() As String
            Get
                Return _brand
            End Get
            Set(ByVal Value As String)
                _brand = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Manufacturer() As String
            Get
                Return _Manufacturer
            End Get
            Set(ByVal Value As String)
                _Manufacturer = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property LogoPath() As String
            Get
                Return _logopath
            End Get
            Set(ByVal Value As String)
                _logopath = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Description() As String
            Get
                Return _description
            End Get
            Set(ByVal Value As String)
                _description = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property URL() As String
            Get
                Return _url
            End Get
            Set(ByVal Value As String)
                _url = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ItemOrder() As Integer
            Get
                Return _itemorder
            End Get
            Set(ByVal Value As Integer)
                _itemorder = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property IsValid() As Boolean
            Get
                Return _isvalid
            End Get
            Set(ByVal Value As Boolean)
                _isvalid = Value
            End Set
        End Property

    End Class

End Namespace