Public Class EduForm

    Private Sub 個人信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 個人信息ToolStripMenuItem.Click
        EduInfoForm.Show()
    End Sub

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

    Private Sub 師生信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 師生信息ToolStripMenuItem.Click
        TeacherEduSInfoForm.SetUserMode(UserMode.EduMode)
        TeacherEduSInfoForm.Show()
    End Sub

    Private Sub 教師信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 教師信息ToolStripMenuItem.Click
        EduTInfoForm.Show()
    End Sub

    Private Sub 時間管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 時間管理ToolStripMenuItem.Click
        EduDateLimitForm.Show()
    End Sub

    Private Sub 審核選題ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 審核選題ToolStripMenuItem.Click
        Dim strSQL As String = "select * from dateLimit"
        Dim strLimit As String = DBOperation.Search(strSQL).Rows(0)("dlimit")

        If strLimit.Substring(0, 1) = "0" Then
            MsgBox("對不起，現在不是審核選題情況的時間！", MsgBoxStyle.Exclamation, "錯誤")
            Exit Sub
        End If

        TeacherEduCheckTaskForm.SetUserMode(UserMode.EduMode)
        TeacherEduCheckTaskForm.Show()
    End Sub

    Private Sub 審核開題報告ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 審核開題報告ToolStripMenuItem.Click
        Dim strSQL As String = "select * from dateLimit"
        Dim strLimit As String = DBOperation.Search(strSQL).Rows(0)("dlimit")

        If strLimit.Substring(2, 1) = "0" Then
            MsgBox("對不起，現在不是審核開題報告的時間！", MsgBoxStyle.Exclamation, "錯誤")
            Exit Sub
        End If

        StudentTeacherUpdownloadForm.SetUserMode(UserMode.EduMode)
        StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.StartMode)
        StudentTeacherUpdownloadForm.Text = "審核開題報告"
        StudentTeacherUpdownloadForm.Show()
    End Sub

    Private Sub 審核文獻綜述ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 審核文獻綜述ToolStripMenuItem.Click
        Dim strSQL As String = "select * from dateLimit"
        Dim strLimit As String = DBOperation.Search(strSQL).Rows(0)("dlimit")

        If strLimit.Substring(3, 1) = "0" Then
            MsgBox("對不起，現在不是審核文獻綜述的時間！", MsgBoxStyle.Exclamation, "錯誤")
            Exit Sub
        End If

        StudentTeacherUpdownloadForm.SetUserMode(UserMode.EduMode)
        StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.LiteratureMode)
        StudentTeacherUpdownloadForm.Text = "審核文獻綜述"
        StudentTeacherUpdownloadForm.Show()
    End Sub

    Private Sub 審核中期檢查ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 審核中期檢查ToolStripMenuItem.Click
        Dim strSQL As String = "select * from dateLimit"
        Dim strLimit As String = DBOperation.Search(strSQL).Rows(0)("dlimit")

        If strLimit.Substring(4, 1) = "0" Then
            MsgBox("對不起，現在不是審核中期檢查的時間！", MsgBoxStyle.Exclamation, "錯誤")
            Exit Sub
        End If

        StudentTeacherUpdownloadForm.SetUserMode(UserMode.EduMode)
        StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.MiddleMode)
        StudentTeacherUpdownloadForm.Text = "審核中期檢查"
        StudentTeacherUpdownloadForm.Show()
    End Sub

    Private Sub 審核指導記錄ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 審核指導記錄ToolStripMenuItem.Click
        Dim strSQL As String = "select * from dateLimit"
        Dim strLimit As String = DBOperation.Search(strSQL).Rows(0)("dlimit")

        If strLimit.Substring(5, 1) = "0" Then
            MsgBox("對不起，現在不是審核指導記錄的時間！", MsgBoxStyle.Exclamation, "錯誤")
            Exit Sub
        End If

        StudentTeacherUpdownloadForm.SetUserMode(UserMode.EduMode)
        StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.GuidanceMode)
        StudentTeacherUpdownloadForm.Text = "審核指導記錄"
        StudentTeacherUpdownloadForm.Show()
    End Sub

    Private Sub 審核畢業論文ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 審核畢業論文ToolStripMenuItem.Click
        Dim strSQL As String = "select * from dateLimit"
        Dim strLimit As String = DBOperation.Search(strSQL).Rows(0)("dlimit")

        If strLimit.Substring(6, 1) = "0" Then
            MsgBox("對不起，現在不是審核畢業論文的時間！", MsgBoxStyle.Exclamation, "錯誤")
            Exit Sub
        End If

        StudentTeacherUpdownloadForm.SetUserMode(UserMode.EduMode)
        StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.ThesisMode)
        StudentTeacherUpdownloadForm.Text = "審核畢業論文"
        StudentTeacherUpdownloadForm.Show()
    End Sub

    Private Sub 整改通知ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 整改通知ToolStripMenuItem.Click
        Dim strSQL As String = "select * from dateLimit"
        Dim strLimit As String = DBOperation.Search(strSQL).Rows(0)("dlimit")

        If strLimit.Substring(7, 1) = "0" Then
            MsgBox("對不起，現在不是發布整改通知的時間！", MsgBoxStyle.Exclamation, "錯誤")
            Exit Sub
        End If

        EduZGForm.Show()
    End Sub

    Private Sub 評分系統ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 評分系統ToolStripMenuItem.Click
        Dim strSQL As String = "select * from dateLimit"
        Dim strLimit As String = DBOperation.Search(strSQL).Rows(0)("dlimit")

        If strLimit.Substring(7, 1) = "0" Then
            MsgBox("對不起，現在不是評分的時間！", MsgBoxStyle.Exclamation, "錯誤")
            Exit Sub
        End If

        TeacherEduGradeForm.SetUserMode(UserMode.EduMode)
        TeacherEduGradeForm.Show()
    End Sub

    Private Sub 查看通知ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查看通知ToolStripMenuItem.Click
        StudentTeacherReceiveInfoForm.Show()
    End Sub

    Private Sub 發布通知ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 發布通知ToolStripMenuItem.Click
        EduSendInfoForm.Show()
    End Sub

    Private Sub 刪除通知ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刪除通知ToolStripMenuItem.Click
        StudentTeacherReceiveInfoForm.SetIsDelete()
        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