specialofferamountinfo.vb

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

Namespace NetShopForge.Library.SpecialOffer


    Public Class SpecialOfferAmountInfo

        Private _offerid As Integer
        Private _minamount As Decimal
        Private _maxaomount As Decimal
        Private _discounttype As DiscountType
        Private _discountexceed As Decimal
        Private _Type As String
        Private _Type2 As Integer


        Public Sub New()
            _minamount = 0.0
            _maxaomount = 0.0
            _discounttype = SpecialOffer.DiscountType.Absolute
            _discountexceed = 0.0

        End Sub


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

        Public Property MinAmount() As Decimal
            Get
                Return _minamount
            End Get
            Set(ByVal Value As Decimal)
                _minamount = Value
            End Set
        End Property

        Public Property MaxAomount() As Decimal
            Get
                Return _maxaomount
            End Get
            Set(ByVal Value As Decimal)
                _maxaomount = Value
            End Set
        End Property

        Public Property DisCountType() As DiscountType
            Get
                Return _discounttype
            End Get
            Set(ByVal Value As DiscountType)
                _discounttype = Value
            End Set
        End Property

        Public Property DiscountExceed() As Decimal
            Get
                Return _discountexceed
            End Get
            Set(ByVal Value As Decimal)
                _discountexceed = Value
            End Set
        End Property

        Public Property Type() As String
            Get
                Return _Type
            End Get
            Set(ByVal Value As String)
                _Type = 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