主窗体.vb

来自「一个自己开发的学生信息管理系统哦」· VB 代码 · 共 48 行

Public Class 主窗体
    Private Sub 主窗体_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        登录.Close()
    End Sub

    Private Sub 主窗体_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub 学生信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 学生信息查询 ToolStripMenuItem.Click

        学生信息查询.MdiParent = Me
        学生信息查询.Show()
    End Sub

   
    Private Sub 学生信息修改ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 学生信息修改ToolStripMenuItem.Click

        学生信息修改.MdiParent = Me
        学生信息修改.Show()
    End Sub

    Private Sub 教师信息管理ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 教师信息管理ToolStripMenuItem1.Click

    
        教师信息查询.MdiParent = Me
        教师信息查询.Show()
    End Sub

    Private Sub 教师信息修改ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 教师信息修改ToolStripMenuItem.Click

        教师信息修改.MdiParent = Me
        教师信息修改.Show()
    End Sub

    Private Sub 课程信息管理ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 课程信息管理ToolStripMenuItem1.Click

        课程信息查询.MdiParent = Me
        课程信息查询.Show()
    End Sub

    Private Sub 成绩信息管理ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 成绩信息管理ToolStripMenuItem1.Click

        成绩信息查询.MdiParent = Me
        成绩信息查询.Show()
    End Sub
End Class