s_user.vb

来自「通版开发平台」· VB 代码 · 共 95 行

Public Class S_User




    Private _fbClosed As Boolean
    Public Property fbClosed() As Boolean
        Get
            Return _fbClosed
        End Get
        Set(ByVal value As Boolean)
            _fbClosed = value
        End Set
    End Property


    Private _fbSysDefault As Boolean
    Public Property fbSysDefault() As Boolean
        Get
            Return _fbSysDefault
        End Get
        Set(ByVal value As Boolean)
            _fbSysDefault = value
        End Set
    End Property


    Private _fcPass As String
    Public Property fcPass() As String
        Get
            Return _fcPass
        End Get
        Set(ByVal value As String)
            _fcPass = value
        End Set
    End Property


    Private _fcDescribe As String
    Public Property fcDescribe() As String
        Get
            Return _fcDescribe
        End Get
        Set(ByVal value As String)
            _fcDescribe = value
        End Set
    End Property



    Private _fcFullName As String
    Public Property fcFullName() As String
        Get
            Return _fcFullName
        End Get
        Set(ByVal value As String)
            _fcFullName = value
        End Set
    End Property


    Private _fcUserName As String
    Public Property fcUserName() As String
        Get
            Return _fcUserName
        End Get
        Set(ByVal value As String)
            _fcUserName = value
        End Set
    End Property


    Private _fcUserCode As String
    Property fcUserCode() As String
        Get
            Return _fcUserCode
        End Get
        Set(ByVal Value As String)
            _fcUserCode = Value
        End Set
    End Property


    Private _flUserID As Integer
    Public Property flUserID() As Integer
        Get
            Return _flUserID
        End Get
        Set(ByVal value As Integer)
            _flUserID = value
        End Set
    End Property

End Class