Public Class StudentForm

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

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

    Private Sub 指導(dǎo)老師信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 指導(dǎo)老師信息ToolStripMenuItem.Click
        StudentTInfoForm.Show()
    End Sub

    Private Sub 學(xué)生選題ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 學(xué)生選題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("對不起，現(xiàn)在不是選擇課題的時(shí)間！", MsgBoxStyle.Exclamation, "錯(cuò)誤")
            Exit Sub
        Else
            TeacherSetTaskForm.SetUserMode(UserMode.StudentMode)
            TeacherSetTaskForm.Text = "選擇課題"
            TeacherSetTaskForm.Show()
        End If
    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(1, 1) = "0" Then
            MsgBox("對不起，現(xiàn)在不是更改課題的時(shí)間！", MsgBoxStyle.Exclamation, "錯(cuò)誤")
            Exit Sub
        Else
            StudentChangeTaskForm.Show()
        End If
    End Sub

    Private Sub 開題報(bào)告ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 開題報(bào)告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("對不起，現(xiàn)在不是提交開題報(bào)告的時(shí)間！", MsgBoxStyle.Exclamation, "錯(cuò)誤")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.StudentMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.StartMode)
            StudentTeacherUpdownloadForm.Text = "上傳下載開題報(bào)告"
            StudentTeacherUpdownloadForm.Show()
        End If
    End Sub

    Private Sub 文獻(xiàn)綜述ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 文獻(xiàn)綜述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("對不起，現(xiàn)在不是提交文獻(xiàn)綜述的時(shí)間！", MsgBoxStyle.Exclamation, "錯(cuò)誤")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.StudentMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.LiteratureMode)
            StudentTeacherUpdownloadForm.Text = "上傳下載文獻(xiàn)綜述"
            StudentTeacherUpdownloadForm.Show()
        End If
    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("對不起，現(xiàn)在不是提交中期檢查的時(shí)間！", MsgBoxStyle.Exclamation, "錯(cuò)誤")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.StudentMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.MiddleMode)
            StudentTeacherUpdownloadForm.Text = "上傳下載中期檢查"
            StudentTeacherUpdownloadForm.Show()
        End If
    End Sub

    Private Sub 指導(dǎo)記錄ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 指導(dǎo)記錄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("對不起，現(xiàn)在不是提交指導(dǎo)記錄的時(shí)間！", MsgBoxStyle.Exclamation, "錯(cuò)誤")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.StudentMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.GuidanceMode)
            StudentTeacherUpdownloadForm.Text = "上傳下載指導(dǎo)記錄"
            StudentTeacherUpdownloadForm.Show()
        End If
    End Sub

    Private Sub 畢業(yè)論文ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 畢業(yè)論文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("對不起，現(xiàn)在不是提交畢業(yè)論文的時(shí)間！", MsgBoxStyle.Exclamation, "錯(cuò)誤")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.StudentMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.ThesisMode)
            StudentTeacherUpdownloadForm.Text = "上傳下載畢業(yè)論文"
            StudentTeacherUpdownloadForm.Show()
        End If
    End Sub

    Private Sub 完成情況ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 完成情況ToolStripMenuItem.Click
        StudentScheduleForm.Show()
    End Sub

    Private Sub 成績查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 成績查詢ToolStripMenuItem.Click
        TeacherEduGradeForm.SetUserMode(UserMode.StudentMode)
        TeacherEduGradeForm.Text = "成績查詢"
        TeacherEduGradeForm.Show()
    End Sub

    Private Sub 留言板ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 留言板ToolStripMenuItem.Click
        StudentTeacherLeaveWordForm.SetUserMode(UserMode.StudentMode)
        StudentTeacherLeaveWordForm.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 關(guān)于系統(tǒng)ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 關(guān)于系統(tǒng)ToolStripMenuItem.Click
        AboutForm.Show()
    End Sub

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