roleinfo.vb

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

'该源码下载自http://www.51aspx.com/CV/NetShopForge(５1ａｓｐｘ．ｃｏｍ)

Namespace NetShopForge.Library.Role

    Public Class RoleInfo
        Private _RoleID As Integer
        Private _RoleName As String
        Private _RoleType As RoleType


        Public Property RoleID() As Integer
            Get
                Return _RoleID
            End Get
            Set(ByVal Value As Integer)
                _RoleID = Value
            End Set
        End Property
        Public Property RoleName() As String
            Get
                Return _RoleName
            End Get
            Set(ByVal Value As String)
                _RoleName = Value
            End Set
        End Property
        Public Property RoleType() As RoleType
            Get
                Return _RoleType
            End Get
            Set(ByVal Value As RoleType)
                _RoleType = Value
            End Set
        End Property

    End Class
    Public Enum RoleType
        Admin = 0
        Customer = 1
    End Enum
End Namespace