specialofferproductsinfo.vb

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

Namespace NetShopForge.Library.SpecialOffer

    <System.Serializable()> Public Class SpecialOfferProductsInfo
        Private _id As Integer
        Private _offerid As Integer
        Private _productid As Integer
        Private _categoryid As Integer
        Private _type As String
        Private _type2 As Integer
        Private _quantity As Integer
        Private _ProductName As String
        Private _CategoryName As String

        Public Sub New(ByVal offerID As Integer, ByVal productID As Integer, ByVal categoryID As Integer, ByVal type As String, ByVal type2 As Integer, ByVal quantity As Integer)
            _offerid = offerID
            _productid = productID
            _categoryid = categoryID
            _type = type
            _quantity = Quantity
            _ProductName = ""
            _CategoryName = ""
            _type2 = type2
        End Sub
        Public Sub New()

        End Sub


        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ID() As Integer
            Get
                Return _id
            End Get
            Set(ByVal Value As Integer)
                _id = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property OfferID() As Integer
            Get
                Return _offerid
            End Get
            Set(ByVal Value As Integer)
                _offerid = 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
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property CategoryID() As Integer
            Get
                Return _categoryid
            End Get
            Set(ByVal Value As Integer)
                _categoryid = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Type() As String
            Get
                Return _type
            End Get
            Set(ByVal Value As String)
                _type = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Quantity() As Integer
            Get
                Return _quantity
            End Get
            Set(ByVal Value As Integer)
                _quantity = 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 CategoryName() As String
            Get
                Return _CategoryName
            End Get
            Set(ByVal Value As String)
                _CategoryName = Value
            End Set
        End Property


        Public Property Type2() As Integer
            Get
                Return _type2
            End Get
            Set(ByVal value As Integer)
                _type2 = value
            End Set
        End Property


    End Class



End Namespace