📄 specialofferproductsinfo.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -