couponinfo.vb

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

Namespace NetShopForge.Library.Coupon

    Public Class CouponInfo
        Dim _CouponID As Integer
        Dim _Coupon As String
        Dim _Discount As Decimal
        Dim _CouponType As CouponType
        Dim _Amount As Decimal
        Dim _CategoryID As Integer
        Dim _ProductID As Integer
        Dim _Times As Integer
        Dim _TimesUsed As Integer
        Dim _StartDate As Date
        Dim _ExpireDate As Date
        Dim _Status As CouponStatus
        Dim _WithSubCat As Boolean



        Public Property CouponID() As Integer
            Get
                Return _CouponID
            End Get
            Set(ByVal value As Integer)
                _CouponID = value
            End Set
        End Property
        Public Property Coupon() As String
            Get
                Return _Coupon
            End Get
            Set(ByVal value As String)
                _Coupon = value
            End Set
        End Property

        Public Property Discount() As Decimal
            Get
                Return _Discount
            End Get
            Set(ByVal value As Decimal)
                _Discount = value
            End Set
        End Property
        Public Property CouponType() As CouponType
            Get
                Return _CouponType
            End Get
            Set(ByVal value As CouponType)
                _CouponType = value
            End Set
        End Property
        Public Property Amount() As Decimal
            Get
                Return _Amount
            End Get
            Set(ByVal value As Decimal)
                _Amount = value
            End Set
        End Property
        Public Property CategoryID() As Integer
            Get
                Return _CategoryID
            End Get
            Set(ByVal value As Integer)
                _CategoryID = 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 Times() As Integer
            Get
                Return _Times
            End Get
            Set(ByVal value As Integer)
                _Times = value
            End Set
        End Property
        Public Property TimesUsed() As Integer
            Get
                Return _TimesUsed
            End Get
            Set(ByVal value As Integer)
                _TimesUsed = value
            End Set
        End Property
        Public Property StartDate() As Date
            Get
                Return _StartDate
            End Get
            Set(ByVal value As Date)
                _StartDate = value
            End Set
        End Property
        Public Property ExpireDate() As Date
            Get
                Return _ExpireDate
            End Get
            Set(ByVal value As Date)
                _ExpireDate = value
            End Set
        End Property
        Public Property Status() As CouponStatus
            Get
                Return _Status
            End Get
            Set(ByVal value As CouponStatus)
                _Status = value
            End Set
        End Property
        Public Property WithSubCat() As Boolean
            Get
                Return _WithSubCat
            End Get
            Set(ByVal value As Boolean)
                _WithSubCat = value
            End Set
        End Property


    End Class

    Public Enum CouponStatus
        Active = 1
        Disabled = 0
        Used = 2
    End Enum

    Public Enum CouponType
        MoneyOff = 0
        PercentOff = 1
        FreeShipping = 2
    End Enum

End Namespace