Imports System.Data.SqlClient
Public Class FormStudentSysMain
Public DBConnstr As String = "Data Source=LJJ-FF\LJJ;Initial Catalog=TestMvc;User ID=sa;Password=111111"
Private Sub quitMenuItem_Click(sender As Object, e As EventArgs) Handles quitMenuItem.Click
End
End Sub
Private Sub selectinfoMenuItem_Click(sender As Object, e As EventArgs) Handles selectinfoMenuItem.Click
Dim formSearchStudent As New FormSearchStudent
formSearchStudent.MdiParent = Me
formSearchStudent.WindowState = FormWindowState.Normal
formSearchStudent.Show()
End Sub
Private Sub updateinfoMenuItem1_Click(sender As Object, e As EventArgs) Handles updateinfoMenuItem1.Click
Dim formStudentInfo As New FormStudentInfo
FormSearchStudent.MdiParent = Me
FormSearchStudent.WindowState = FormWindowState.Normal
formStudentInfo.Show()
End Sub
Private Sub importscoreMenuItem_Click(sender As Object, e As EventArgs) Handles importscoreMenuItem.Click
Dim formStudentCourse As New FormStudentCourse
FormSearchStudent.MdiParent = Me
FormSearchStudent.WindowState = FormWindowState.Normal
formStudentCourse.Show()
End Sub
Private Sub cascadeMenuItem_Click(sender As Object, e As EventArgs) Handles cascadeMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub horizonMenuItem_Click(sender As Object, e As EventArgs) Handles horizonMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub verticalMenuItem_Click(sender As Object, e As EventArgs) Handles verticalMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub FormStudentSysMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
|
0评论