机房收费系统再遇登陆

前几天让师傅验收了机房，本来觉得自己弄的挺好的，但是事实就是弄得差远了！很桑心啊！不过呢咱也不是没有收获，又知道了很多以前没想过的问题。拿登陆窗体来说，我居然忘了让不同的人登陆会有不同的权限，当然这个小小的问题被我轻松解决了（不就是添加判断么）。然而师傅说的另一个问题不允许多人登陆就不太明白了，为啥不能多人登陆，那这么多用户啊，管理员啊啥的不让登陆要他们干啥-_-不过呢后来我想了想觉得应该是这样，什么一般用户，管理员可以登录，但是另一类人就不行了，他们就是-操作员。为什么呢？因为这个操作员就是我们的登陆教师，它联系着一个表-正在值班教师表如果你允许操作员重复登陆那么当管理员进行正在值班教师查询是就会有多条数据，那他肯定就糊涂了，怎么这么多正在值班教师，而且还是同一个人反复值班。所以呢在这里我们也要添加判断，当我们登陆操作员是先检查正在值班教师表中是否有数据，如果有提示有教师登陆，不需要重复登陆，如果没有呢就添加数据到表中并显示主窗体。当然了，一个教师总会在多个地方值班，只需要判断教师名称和电脑名就行，这就完成了判断。

txtSQL = "select * from User_Info where userID = '" & txtUserName.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)

txtSQL2 = "select * from onwork_Info where computer = '" & "公子电脑" & "'"     '查询正在值班教师表
Set mrc2 = ExecuteSQL(txtSQL2, MsgText)

txtSQL1 = "select * from onwork_Info "
Set mrc1 = ExecuteSQL(txtSQL1, MsgText)

If mrc1.RecordCount > 0 And Trim(mrc.Fields(1)) = Trim(txtPassword.Text) And Trim(mrc.Fields(2)) = "操作员" And mrc2.EOF = False Then
MsgBox "已有教师登陆管理，不用重复登陆，如有需要请通知管理员！", vbOKOnly + vbExclamation, "警告"
txtUserName.Text = ""
txtPassword.Text = ""
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) And Trim(mrc.Fields(2)) = "操作员" Then
mrc1.AddNew
mrc1.Fields(0) = mrc.Fields(0)
mrc1.Fields(1) = mrc.Fields(2)
mrc1.Fields(2) = Date
mrc1.Fields(3) = Time
mrc1.Fields(4) = "公子电脑"
mrc1.Update
End If
End If
If Trim(mrc.Fields(2)) = "一般用户" Then
frmMain.bbb.Enabled = False
frmMain.ccc.Enabled = False
End If
If Trim(mrc.Fields(2)) = "操作员" Then
frmMain.ccc.Enabled = False
End If
If Trim(mrc.Fields(2)) = "管理员" Then
frmMain.aaa.Enabled = True
frmMain.bbb.Enabled = True
frmMain.ccc.Enabled = True
End If

If Trim(txtUserName.Text = "") Then        '验证用户名
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If mrc.EOF Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
Me.Hide
frmMain.Show
username = Trim(txtUserName.Text)
Else
MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
End If

我上面写的这段代码还有很大改进的地方，如果对各位有帮助呢请自行改之！

最后给看我博客的小伙伴提个问题：为什么我登陆窗体点击确定之后会出现两个一样的主窗体？