login.vb

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

Public Class Login
    Private Shared _fcAccountBook As String
    Private Shared _fdLoginDate As DateTime
    Private Shared _fcLoginName As String
    Private Shared _fcLoginPassword As String

    Public Shared userList As List(Of S_User)

    Shared Property fcLoginPassword()
        Get
            Return _fcLoginPassword
        End Get
        Set(ByVal value)
            _fcLoginPassword = value
        End Set
    End Property

    Shared Property fcLoginName()
        Get
            Return _fcLoginName
        End Get
        Set(ByVal value)
            _fcLoginName = value
        End Set
    End Property

    Shared Property fcAccountBook()
        Get
            Return _fcAccountBook
        End Get
        Set(ByVal value)
            _fcAccountBook = value
        End Set
    End Property

    Shared Property fdLoginDate() As DateTime
        Get
            Return _fdLoginDate
        End Get
        Set(ByVal value As DateTime)
            _fdLoginDate = value
        End Set
    End Property
End Class