productliksinfo.vb

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

Namespace NetShopForge.Library.Product
    Public Class ProductLiksInfo
        Private _productaid As Integer
        Private _ProductBID As Integer
        Private _type As Integer
        Private _ProductLinksID As Integer
        Private _ProductName As String
        Private _ProductID As Integer
        Private _ImagePath As String
        Private _Price As Decimal

        Public Property ProductAID() As Integer
            Get
                Return _productaid
            End Get
            Set(ByVal Value As Integer)
                _productaid = Value
            End Set
        End Property

        Public Property ProductBID() As Integer
            Get
                Return _ProductBID
            End Get
            Set(ByVal Value As Integer)
                _ProductBID = Value
            End Set
        End Property

        Public Property LinkType() As Integer
            Get
                Return _type
            End Get
            Set(ByVal Value As Integer)
                _type = Value
            End Set
        End Property


        Public Property ProductLinksID() As Integer
            Get
                Return _ProductLinksID
            End Get
            Set(ByVal value As Integer)
                _ProductLinksID = 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

        Public Property ImagePath() As String
            Get
                Return _ImagePath
            End Get
            Set(ByVal value As String)
                _ImagePath = value
            End Set
        End Property

        Public Property Price() As String
            Get
                Return _Price
            End Get
            Set(ByVal value As String)
                _Price = value
            End Set
        End Property

    End Class



End Namespace