teacherform.vb

管理毕业设计的管理系统 VB+SQL2000....

Public Class TeacherForm

    Private Sub 个人信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 个人信息ToolStripMenuItem.Click
        TeacherInfoForm.show()
    End Sub

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

    Private Sub 学生信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 学生信息ToolStripMenuItem.Click
        TeacherEduSInfoForm.SetUserMode(UserMode.TeacherMode)
        TeacherEduSInfoForm.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
        Else
            TeacherSetTaskForm.SetUserMode(UserMode.TeacherMode)
            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(0, 1) = "0" Then
            MsgBox("对不起，现在不是审核选题情况的时间！", MsgBoxStyle.Exclamation, "错误")
            Exit Sub
        Else
            TeacherEduCheckTaskForm.SetUserMode(UserMode.TeacherMode)
            TeacherEduCheckTaskForm.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(2, 1) = "0" Then
            MsgBox("对不起，现在不是审核开题报告的时间！", MsgBoxStyle.Exclamation, "错误")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.TeacherMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.StartMode)
            StudentTeacherUpdownloadForm.Text = "审核开题报告"
            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(3, 1) = "0" Then
            MsgBox("对不起，现在不是审核文献综述的时间！", MsgBoxStyle.Exclamation, "错误")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.TeacherMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.LiteratureMode)
            StudentTeacherUpdownloadForm.Text = "审核文献综述"
            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("对不起，现在不是审核中期检查的时间！", MsgBoxStyle.Exclamation, "错误")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.TeacherMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.MiddleMode)
            StudentTeacherUpdownloadForm.Text = "审核中期检查"
            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(5, 1) = "0" Then
            MsgBox("对不起，现在不是审核指导记录的时间！", MsgBoxStyle.Exclamation, "错误")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.TeacherMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.GuidanceMode)
            StudentTeacherUpdownloadForm.Text = "审核指导记录"
            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(6, 1) = "0" Then
            MsgBox("对不起，现在不是审核毕业论文的时间！", MsgBoxStyle.Exclamation, "错误")
            Exit Sub
        Else
            StudentTeacherUpdownloadForm.SetUserMode(UserMode.TeacherMode)
            StudentTeacherUpdownloadForm.SetDocumentMode(DocumentMode.ThesisMode)
            StudentTeacherUpdownloadForm.Text = "审核毕业论文"
            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(7, 1) = "0" Then
            MsgBox("对不起，现在不是评分的时间！", MsgBoxStyle.Exclamation, "错误")
            Exit Sub
        Else
            TeacherEduGradeForm.SetUserMode(UserMode.TeacherMode)
            TeacherEduGradeForm.Show()
        End If
    End Sub

    Private Sub 留言板ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 留言板ToolStripMenuItem.Click
        StudentTeacherLeaveWordForm.SetUserMode(UserMode.TeacherMode)
        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 关于系统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