刚入坑编程的小萌新
请各位大神帮我看一下这个代码中的二义性的词（mnumng)要换成什么好
Private Sub MDIForm_Load()
g_CurUserID = 0
g_bLogin = False
g_bAdmin = False
g_bStudent = False
mnuFileLog_Click
End Sub
Private Sub mnuAboutit_Click()
MsgBox ' VB课程设计实例"+ChrS(13)+ChrS(10)+"---学生信息管理系统"+ChrS(13)+cHRs(10)+cHRS+" 2001.12",O,"关于学生信息管理系统“
End Sub
Private Sub mnuExit_Click()
If MsgBox("是否退出系统？", vbYesNo + vbCritical, "系统") = vbYes Then
End
End If
End Sub
Private Sub mnuFileLog_Click()
CloseWin
Login.Height = 3600
Login.Width = 4000
Login.Left = 5000
Login.Top = 2000
Login.Show
End Sub
Private Sub mnuLogout_Click()
If MsgBox("是否真的注销当前用户？", vbCritical + vbYesNo, "注销") = vbYes Then
g_bLogin = False
g_bAdmin = False
g_bSstudent = False
g_CurUserID = 0
CloseWin
End If
End Sub
Private Sub MnuMng_Click()
If g_bAdmin = True Then
CloseWin
manage.Show
Else
MsgBox "请以管理员身份登录系统！", vbInformation, "登录"
End If
End Sub
Private Sub MnuBorrow_Click()
If g_bStidemt = True Then
Cosewin
frmSearch.Show
Else
MsgBox "请先登录系统！", vbInformation, "登录"
End If
CloseWin
End Sub
Private Sub mnuReg_Click()
CloseWin
Register.Show
End Sub
Private Sub Toolbarl_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "login"
mnuFileLog_Click
Case "logout"
mnuLogout_Click
Case "reg"
mnuReg_Click
Case "mng"
MnuMng_Click
Case "borrow"
MnuBorrow_Click
End Select
End Sub
Private Sub MnuMng_Click()
'点击”系统员管理“
If g_bAdmin = True Then '如果是管理员，则显示管理界面
CloseWin
manage.Show
Else
MsgBox "请以管理员身份登录系统!", vbInformation, "登录"
End If
End Sub
Private Sub MnuBorrow_Click()
'点击”用户查询“
If g_bStudent = True Then
CloseWin
frmSearch.Show
Else
MsgBox "请先登录系统!", vbInformation, "登录"
End If
CloseWin
End Sub
Private Sub EnuReg_Click()
'点击注册
CloseWin
Register.Show
End Sub
Private Sub Toolbarl_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "login"
mnuFieLog_Click
Case "logout"
mnuLogout_Click
Case "reg"
mnuReg_Click
Case "mng"
MnuMng_Click
Case "borrow"
MnuBorrow_Click
End Select
End Sub
End Sub
