Model/ROLEGROUP.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class ROLEGROUP
    Dim _GROUPID As String
    Dim _FOLDERNO As Integer
    Dim _DESCRIPTION As String
    Dim _PARENTNO As Integer
    Dim _USERLEVEL As Integer
    Dim _IMAGEURL As String
    Dim _LINKURL As String

    Public Property GROUPID() As String
        Get
            Return _GROUPID
        End Get
        Set(ByVal value As String)
            _GROUPID = value
        End Set
    End Property

    Public Property FOLDERNO() As Integer
        Get
            Return _FOLDERNO
        End Get
        Set(ByVal value As Integer)
            _FOLDERNO = 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 PARENTNO() As Integer
        Get
            Return _PARENTNO
        End Get
        Set(ByVal value As Integer)
            _PARENTNO = value
        End Set
    End Property
    Public Property IMAGEURL() As String
        Get
            Return _IMAGEURL
        End Get
        Set(ByVal value As String)
            _IMAGEURL = value
        End Set
    End Property
    Public Property LINKURL() As String
        Get
            Return _LINKURL
        End Get
        Set(ByVal value As String)
            _LINKURL = value
        End Set
    End Property
    Public Property USERLEVEL() As Integer
        Get