adminform.vb

来自「管理毕业设计的管理系统 VB+SQL2000....」· VB 代码 · 共 34 行

Public Class AdminForm

    Private Sub 密码修改ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 密码修改ToolStripMenuItem.Click
        ModifyKeyForm.SetUserMode(UserMode.AdminMode)
        ModifyKeyForm.Show()
    End Sub

    Private Sub 学生管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 学生管理ToolStripMenuItem.Click
        AdminManageStudentForm.Show()
    End Sub

    Private Sub 教师管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 教师管理ToolStripMenuItem.Click
        AdminManageTeacherForm.Show()
    End Sub

    Private Sub 教务人员管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 教务人员管理ToolStripMenuItem.Click
        AdminManageEduForm.Show()
    End Sub

    Private Sub 通知与通告ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 通知与通告ToolStripMenuItem1.Click
        StudentTeacherReceiveInfoForm.Show()
    End Sub

    Private Sub 关于系统ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 关于系统ToolStripMenuItem.Click
        AboutForm.Show()
    End Sub

    Private Sub 退出系统ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出系统ToolStripMenuItem.Click
        Dim response As Integer = MsgBox("确定退出系统？", vbOKCancel + vbQuestion, "退出")
        If response = 1 Then
            End
        End If
    End Sub
End Class