featureiteminfo.vb

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

Namespace NetShopForge.Library.Feature
    Public Class FeatureItemInfo

        Public Sub New()
            _featurename = ""
            _description = ""
        End Sub 'New
        Private _featureid As Integer
        Private _featuregroupid As Integer
        Private _featurename As String
        Private _datatype As Integer
        Private _description As String
        Private _selecttype As Integer
        Private _issearch As Boolean
        Private _isvalid As Boolean
        Private _itemorder As Integer

        Public Property FeatureID() As Integer
            Get
                Return _featureid
            End Get
            Set(ByVal Value As Integer)
                _featureid = Value
            End Set
        End Property

        Public Property FeatureGroupID() As Integer
            Get
                Return _featuregroupid
            End Get
            Set(ByVal Value As Integer)
                _featuregroupid = Value
            End Set
        End Property

        Public Property FeatureName() As String
            Get
                Return _featurename
            End Get
            Set(ByVal Value As String)
                _featurename = Value
            End Set
        End Property

        Public Property DataType() As Integer
            Get
                Return _datatype
            End Get
            Set(ByVal Value As Integer)
                _datatype = Value
            End Set
        End Property

        Public Property Description() As String
            Get
                Return _description
            End Get
            Set(ByVal Value As String)
                _description = Value
            End Set
        End Property

        Public Property SelectType() As Integer
            Get
                Return _selecttype
            End Get
            Set(ByVal Value As Integer)
                _selecttype = Value
            End Set
        End Property

        Public Property IsSearch() As Boolean
            Get
                Return _issearch
            End Get
            Set(ByVal Value As Boolean)
                _issearch = Value
            End Set
        End Property

        Public Property IsValid() As Boolean
            Get
                Return _isvalid
            End Get
            Set(ByVal Value As Boolean)
                _isvalid = Value
            End Set
        End Property

        Public Property ItemOrder() As Integer
            Get
                Return _itemorder
            End Get
            Set(ByVal Value As Integer)
                _itemorder = Value
            End Set
        End Property
    End Class 'nsf_ProductFeatureItemInfo

End Namespace