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