If UserName = "" OrElse UserGroup = "" Then Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) ReturnEnd IfIf UserName = "admin" andalso UserGroup <> "管理组" Then
Messagebox.show("admin必须管理组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If