Vb.net 在Visual Studio应用程序中，通过LAN将管理员登录限制为3人

我通过创建一个用户名和密码区域来设置管理员登录，该区域允许管理员访问典型用户看不到的表单

假设有4个人在使用这个应用程序，我想让这4个人中只有3个人可以作为管理员登录

我该怎么做

这就是我创建登录函数的方式

在应用程序的设置区域中，我创建了两个名称

DBUsername

和

DBPassword

，并将其范围设置为

User

PasswordField

和

NameField

是文本框 这是一张登录区域的照片和它背后的代码。该功能工作正常

不要注意

用户登录

按钮

Public Class login
Private Property username As String = ""
Private Property password As String = ""

Dim Setting As New My.MySettings

Private Sub AdminLoginButton_Click(sender As Object, e As EventArgs) Handles AdminLoginButton.Click

    If NameField.Text = "" And PasswordField.Text = "" Then
        Label3.Text = "PLEASE ENTER A USERNAME AND PASSWORD"
    End If
    If NameField.Text = "" And PasswordField.Text.Length > 0 Then
        Label3.Text = "PLEASE ENTER A NAME"
    End If
    If PasswordField.Text = "" And NameField.Text.Length > 0 Then
        Label3.Text = "PLEASE ENTER A PASSWORD"
    End If

    'generage first password 
    If Setting.DBpassword = "" Then
        'save password here
        password = PasswordField.Text
        Setting.DBpassword = password
        Setting.Save()
    Else
    End If

    'generate first username
    If Setting.DBUsername = "" Then
        username = NameField.Text
        Setting.DBUsername = username
        Setting.Save()
    Else
    End If
    'check if correct name and password are entered 
    If PasswordField.Text = Setting.DBpassword And NameField.Text = Setting.DBUsername Then

        Label3.Text = ("WELCOME " & NameField.Text)
        Dim itm As Control
        Me.Close()
        For Each itm In MLGMain.Controls
            itm.Enabled = True
        Next

    End If

    If NameField.Text.Length >= 1 And NameField.Text <> Setting.DBUsername And PasswordField.Text.Length >= 1 And NameField.Text <> Setting.DBpassword Then
        Label3.Text = "INCORRECT USERNAME AND PASSWORD COMBINATION"
        NameField.Clear()
        PasswordField.Clear()
    End If
End Sub

公共类登录
私有属性用户名为String=“”
私有属性密码为String=“”
暗设置为新的My.MySettings
私有子AdminLoginButton_Click（发送者作为对象，e作为事件参数）处理AdminLoginButton。单击
如果NameField.Text=“”和PasswordField.Text=“”则
Label3.Text=“请输入用户名和密码”
如果结束
如果NameField.Text=”“和PasswordField.Text.Length>0，则
Label3.Text=“请输入名称”
如果结束
如果PasswordField.Text=”“和NameField.Text.Length>0，则
Label3.Text=“请输入密码”
如果结束
'通用第一个密码
如果设置为.DBpassword=“”，则
'在此处保存密码
password=PasswordField.Text
Setting.DBpassword=密码
设置。保存（）
其他的
如果结束
'生成第一个用户名
如果设置为.DBUsername=“”，则
username=NameField.Text
Setting.DBUsername=用户名
设置。保存（）
其他的
如果结束
'检查输入的名称和密码是否正确
如果PasswordField.Text=Setting.DBpassword和NameField.Text=Setting.DBUsername，则
Label3.Text=（“欢迎”和NameField.Text）
调暗itm作为控制
我
对于MLGMain.控件中的每个itm
itm.Enabled=True
下一个
如果结束
如果NameField.Text.Length>=1和NameField.Text Setting.DBUsername和PasswordField.Text.Length>=1和NameField.Text Setting.DBpassword，则
Label3.Text=“用户名和密码组合不正确”
NameField.Clear（）
PasswordField.Clear（）
如果结束
端接头

---

End Class

您需要某种机制来统计管理员登录。您可以在LAN上设置所有计算机都可以访问的SQL server表。此表将保存有关谁登录到系统的信息。您需要确保他们在课程结束时正确注销。

听起来很难：）我喜欢困难、良好的学习体验。我正在考虑在名为

usersin

的设置中创建一个新的

名称

，并将作用域设置为

user

每当管理员登录并保存值时，我都会在int中添加1。如果达到3，则使其不再可以登录？？大概