studentform.vb

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

Public Class StudentForm

    Private Sub 个人信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 个人信息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 指导老师信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 指导老师信息ToolStripMenuItem.Click
        StudentTInfoForm.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.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("对不起，现在不是更改课题的时间！", MsgBoxStyle.Exclamation, "错误")
            Exit Sub
        Else
            StudentChangeTaskForm.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.StudentMode)
            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.StudentMode)
            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.StudentMode)
            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.StudentMode)
            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.StudentMode)
            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
        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 关于系统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