specialofferbonuspriceinfo.vb

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

Namespace NetShopForge.Library.SpecialOffer


    Public Class SpecialOfferBonusPriceInfo

        Private _productid As Integer
        Private _productName As String
        Private _bounstype As Integer
        Private _price As Decimal
        Private _adjustPrice As Decimal
        Private _offerID As Integer

        Public Property OfferID() As Integer
            Get
                Return _offerID
            End Get
            Set(ByVal Value As Integer)
                _offerID = Value
            End Set
        End Property

        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
        ''' <summary>
        ''' Percent 0,absolute1
        ''' </summary>
        Public Property BounsType() As Integer
            Get
                Return _bounstype
            End Get
            Set(ByVal Value As Integer)
                _bounstype = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Price() As Decimal
            Get
                Return _price
            End Get
            Set(ByVal Value As Decimal)
                _price = Value
            End Set
        End Property
        Public Property AdjustPrice() As Decimal
            Get
                Return _adjustPrice
            End Get
            Set(ByVal Value As Decimal)
                _adjustPrice = Value
            End Set
        End Property

        Public Sub New(ByVal offerID As Integer, ByVal productID As Integer, ByVal bounsType As Integer, ByVal adjustPrice As Decimal)
            _offerID = offerID
            _productid = productID
            _bounstype = bounsType
            _adjustPrice = adjustPrice
    
        End Sub

        Public Sub New()

        End Sub
    End Class
End Namespace