in VB.Menu newLog 
             Caption         =   "重新登录"
          End
          Begin VB.Menu 密码维护 
             Caption         =   "密码维护"
          End
       End
       Begin VB.Menu menutc 
          Caption         =   "退出"
          Begin VB.Menu menuEnd 
             Caption         =   "退出"
          End
       End
    End
    Attribute VB_Name = "frmuserAdmin"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    
    Private Sub examInfo_Click()           '调入考试信息界面
        frmexamInfo.Show
        Me.Enabled = False
    End Sub
    Private Sub studentFP_Click()           '调入考生分配界面
        frmstudentFP.Show
        Me.Enabled = False
    End Sub
    Private Sub examNameList_Click()    '调入考试名单界面
        frmexamNameList.Show
        Me.Enabled = False
    End Sub
    Private Sub examSet_Click()          '调入考题设置界面
        frmexamSet.Show
        Me.Enabled = False
    End Sub
    Private Sub studentAdmin_Click() '调入考生管理界面
        frmstudentAdmin.Show
        Me.Enabled = False
    End Sub
    Private Sub teacherAdmin_Click() '调入教师管理界面
        frmteacherAdmin.Show
        Me.Enabled = False
    End Sub
    Private Sub adminerInfo_Click()     '调入管理人员信息界面
        frmadminerInfo.Show
        Me.Enabled = False
    End Sub
    Private Sub newLog_Click()      '调入重新登录界面
        Unload Me
        frmnewLog.Show
    End Sub
    Private Sub passwordAdmin_Click()  '调入密码维护界面
        frmpasswordAdmin.Show
        Me.Enabled = False
    End Sub
    Private Sub menuEnd_Click()        '结束
    Unload Me
    End Sub
    Priva