orderdetailinfo.vb

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

Namespace NetShopForge.Library.Order

    Public Class OrderDetailInfo

        Private _orderdetailid As String
        Private _orderid As String
        Private _productid As Integer
        Private _quantity As Integer
        Private _unitcost As Decimal
        Private _discount As Decimal
        Private _productoptions As String
        Private _ProductName As String
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property OrderDetailID() As String
            Get
                Return _orderdetailid
            End Get
            Set(ByVal Value As String)
                _orderdetailid = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property OrderID() As String
            Get
                Return _orderid
            End Get
            Set(ByVal Value As String)
                _orderid = 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 Quantity() As Integer
            Get
                Return _quantity
            End Get
            Set(ByVal Value As Integer)
                _quantity = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property UnitCost() As Decimal
            Get
                Return _unitcost
            End Get
            Set(ByVal Value As Decimal)
                _unitcost = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Discount() As Decimal
            Get
                Return _discount
            End Get
            Set(ByVal Value As Decimal)
                _discount = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ProductOptions() As String
            Get
                Return _productoptions
            End Get
            Set(ByVal Value As String)
                _productoptions = 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


    End Class
End Namespace