form5.vb

来自「学生成绩管理系统」· VB 代码 · 共 57 行

Public Class Form5

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click


    End Sub

    Private Sub 成绩登记ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 成绩登记ToolStripMenuItem.Click
        Dim f4 As New Form4
        Form4.Show()

    End Sub

    Private Sub 成绩查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 成绩查询ToolStripMenuItem.Click
        Dim f3 As New Form3
        Form3.Show()

    End Sub

    Private Sub 选课ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim f6 As New Form6
        Form6.Show()

    End Sub

    Private Sub 添加课程ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加课程ToolStripMenuItem.Click
        Dim f7 As New Form7
        Form7.Show()
    End Sub

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub 选课ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 选课ToolStripMenuItem1.Click
        Dim f6 As New Form6
        Form6.Show()
    End Sub

    Private Sub 修改课程ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改课程ToolStripMenuItem.Click
        Dim f2 As New Form2
        Form2.Show()

    End Sub

    Private Sub 退出ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem1.Click
        End
    End Sub

    Private Sub 帮助ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 帮助ToolStripMenuItem.Click
        Dim f9 As New Form9

        f9.Show()

    End Sub
End Class