eduform.vb

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

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