课程设计
学 院 班 级
指导老师
姓 名 学 号 成 绩
2013年
1 月 10
日
一．课程设计题目
学生管理系统
二．功能描述
按设定的用户名密码进行登录后，可按需求进行对数据库中已有的学生信息及成绩进行查询，添加，删除，修改等操作。
三．概要设计
登录界面功能：让用户进行登录。 主界面功能：让用户选择进行哪项操作。
查询学生信息菜单功能：输入学生学号，对该学生的个人信息以
及成绩进行查询，若直接点击查询按钮，则显示全部学生个人信息及成绩。
编辑学生信息菜单功能：可对数据库中已有的学生信息进行查
询，添加，删除，修改等操作。
学生信息维护菜单功能：可对数据库中已有的学生成绩进行查
询，添加，删除，修改等操作。
四．详细设计
五．效果以及存在问题
说明系统的运行效果（附上运行界面图片）、存在哪些不足以及预期的解决办法。
登录界面
登录学生管理系统
按查询条件查询
打开修改学生信息子窗口
学生成绩维护子窗口
垂直窗口排列
关于窗口
不足：1.没有实现用户登录界面中的注册功能
2.没有实现主界面中文件下的新建和保存功能。
六．心得体会
经过几天的苦战，终于把课程设计粗略的做完了。刚开始做的时候，毫无头绪，一片茫然。好在书本上有类似的实验，可以供参考。尽管如此，真正做起项目来，还是有着这样那样的困难，有时一个空格少打都会出错，导致我检查了半天才发现问题所在。由于VB语法还运用不熟练，很多代码都是模仿书本上的敲的，许多代码往往能编译通过，但很多都会抛出各种异常，让人头疼。有时系统就给出个有个参数没有被指定值，就可以让人搞的焦头烂额。因此，写程序真的也很需要强大的耐心，只要熬下去了，当你做出程序时，也会倍有成就感。目前，程序是基本写完了，平常学的理论都得到了运用，感觉自己的能力也增强了。一句话，实践才是硬道理。
七．附录代码
（附上各模块代码）
1.登录界面
Public Cla Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static n As Integer
If txtName.Text = \"abc\" And txtPaWord.Text = \"123\" Then
Dim form2 As New Form2()
form2.Show()
Me.Close()
Else
n = n + 1
If n
MsgBox(\"请输入正确的用户名和密码！\", MsgBoxStyle.Critical)
Else
MsgBox(\"请输入正确的用户名和密码！\", MsgBoxStyle.Critical)
Button1.Enabled = False
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim form3 As New Form3()
form3.Show()
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub End Cla
2.查询学生菜单代码
Public Cla Form6
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objConn As New OleDb.OleDbConnection
Dim objDaXS_KC As New OleDb.OleDbDataAdapter
Dim objDaXS As New OleDb.OleDbDataAdapter
Dim objCommXS_KC As New OleDb.OleDbCommand
Dim objCommXS As New OleDb.OleDbCommand
Dim objDsXS_KC As New DataSet
Dim objDsXS As New DataSet
objConn.ConnectionString = \"Provider = Microsoft.jet.OLEDB.4.0;data source = \'D:\\XSCJ.mdb\'\"
objCommXS.CommandText = \" Select * From XS \"
objCommXS_KC.CommandText = \" Select * From XS_KC \"
objCommXS_KC.Connection = objConn
objDaXS_KC.SelectCommand = objCommXS_KC
objCommXS.Connection = objConn
objDaXS.SelectCommand = objCommXS
objConn.Open()
objDaXS_KC.Fill(objDsXS_KC, \"XS_KC\")
objDaXS.Fill(objDsXS, \"XS\")
objConn.Close()
DataGridView1.DataSource = objDsXS_KC.Tables(\"XS_KC\")
DataGridView2.DataSource = objDsXS.Tables(\"XS\")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objConn As New OleDb.OleDbConnection
Dim objDaXS_KC As New OleDb.OleDbDataAdapter
Dim objDaXS As New OleDb.OleDbDataAdapter
Dim objCommXS_KC As New OleDb.OleDbCommand
Dim objCommXS As New OleDb.OleDbCommand
Dim objDsXS_KC As New DataSet
Dim objDsXS As New DataSet
Dim WhereStr As String
WhereStr = \"\"
If Trim(TxtXH.Text) \"\" Then
WhereStr = \" 学号like \" + Trim(TxtXH.Text)
End If
objConn.ConnectionString = \"Provider = Microsoft.jet.OLEDB.4.0;data source = \'D:\\XSCJ.mdb\'\"
objCommXS.CommandText = \" Select * From XS \"
objCommXS_KC.CommandText = \" Select * From XS_KC \"
If WhereStr \"\" Then
objCommXS.CommandText = objCommXS.CommandText & \"where\" & WhereStr
objCommXS_KC.CommandText = objCommXS_KC.CommandText & \"where\" & WhereStr
End If
objCommXS_KC.Connection = objConn
objDaXS_KC.SelectCommand = objCommXS_KC
objCommXS.Connection = objConn
objDaXS.SelectCommand = objCommXS
objConn.Open()
objDaXS_KC.Fill(objDsXS_KC, \"XS_KC\")
objDaXS.Fill(objDsXS, \"XS\")
objConn.Close()
DataGridView1.DataSource = objDsXS_KC.Tables(\"XS_KC\")
DataGridView2.DataSource = objDsXS.Tables(\"XS\")
End Sub End Cla
3编辑学生信息菜单
Public Cla Form7
Dim objDs As New DataSet
Dim objxstable As DataTable
Dim objda As New OleDb.OleDbDataAdapter
Dim wherestr As String
Public Sub refreshdata()
objda.Update(objDs, \"XS\")
objxstable.Clear()
bindgridview(wherestr)
End Sub
Public Sub bindgridview(ByVal strXH As String)
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
WhereStr = \"\"
If Trim(TxtXH.Text) \"\" Then
wherestr = \" 学号like\" + Trim(TxtXH.Text)
End If
objConn.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\'D:\\XSCJ.mdb\'\"
objComm.CommandText = \" Select * From XS \"
If WhereStr \"\" Then
objComm.CommandText = objComm.CommandText & \"where\" & WhereStr
End If
\'把objConn设置为objConn的数据连接
objComm.Connection = objConn
objda.SelectCommand = objComm
\'创建INSERT Command
Dim InsCommand As New OleDb.OleDbCommand(\"INSERT INTO XS(学号,姓名,专业名,性别,出生日期,总学分,备注)VALUES(?,?,?,?,?,?,?)\", objConn)
InsCommand.Parameters.Add(\"学号\", OleDb.OleDbType.VarChar, 6, \"学号\")
InsCommand.Parameters.Add(\"姓名\", OleDb.OleDbType.VarChar, 8, \"姓名\")
InsCommand.Parameters.Add(\"专业名\", OleDb.OleDbType.VarChar, 10, \"专业名\")
InsCommand.Parameters.Add(\"性别\", OleDb.OleDbType.VarChar, 2, \"性别\")
InsCommand.Parameters.Add(\"出生日期\", OleDb.OleDbType.Date, Nothing, \"出生日期\")
InsCommand.Parameters.Add(\"总学分\", OleDb.OleDbType.Integer, Nothing, \"总学分\")
InsCommand.Parameters.Add(\"备注\", OleDb.OleDbType.VarChar, Nothing, \"备注\")
objda.InsertCommand = InsCommand
\'创建Delte Command
Dim delcommand As New OleDb.OleDbCommand(\"DELETE * from XS where 学号=?\", objConn)
delcommand.Parameters.Add(\"学号\", OleDb.OleDbType.Char, 6, \"学号\")
objda.DeleteCommand = delcommand
\'创建Update Command
Dim updCommand As New OleDb.OleDbCommand(\"UPDATE XS SET 学号=?,姓名=?,专业名=?,性别=?,出生日期=?,总学分=?,备注=? WHERE 学号=?\", objConn)
updCommand.Parameters.Add(\"学号\", OleDb.OleDbType.VarChar, 6, \"学号\")
updCommand.Parameters.Add(\"姓名\", OleDb.OleDbType.VarChar, 8, \"姓名\")
updCommand.Parameters.Add(\"专业名\", OleDb.OleDbType.VarChar, 10, \"专业名\")
updCommand.Parameters.Add(\"性别\", OleDb.OleDbType.VarChar, 2, \"性别\")
updCommand.Parameters.Add(\"出生日期\", OleDb.OleDbType.Date, Nothing, \"出生日期\")
updCommand.Parameters.Add(\"总学分\", OleDb.OleDbType.Integer, Nothing, \"总学分\")
updCommand.Parameters.Add(\"备注\", OleDb.OleDbType.VarChar, Nothing, \"备注\")
updCommand.Parameters.Add(\"学号\", OleDb.OleDbType.VarChar, 6, \"学号\")
objda.UpdateCommand = updCommand
objConn.Open()
\'打开数据库连接
objda.Fill(objDs, \"XS\") \'填充数据
objxstable = objDs.Tables(\"XS\")
objConn.Close()
\'关闭数据集
\'把DataGrid1的DataSource属性设置为刚刚取到的数据表，这样就可以显示数据了
DataGridView1.DataSource = objDs.Tables(\"XS\")
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
TxtStuXH.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString \'显示学号
TxtStuXM.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString \'显示姓名
TxtZY.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString \'显示专业
TxtXB.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString \'显示性别
TxtCSRQ.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString \'显示出生日期
TxtStuZXF.Text = DataGridView1.CurrentRow.Cells.Item(5).Value.ToString \'显示总学分
TxtBZ.Text = DataGridView1.CurrentRow.Cells.Item(6).Value.ToString \'显示备注
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objConn As New OleDb.OleDbConnection
Dim objDaXS As New OleDb.OleDbDataAdapter
Dim objCommXS As New OleDb.OleDbCommand
Dim objDsXS As New DataSet
Dim WhereStr As String
WhereStr = \"\"
If Trim(TxtXH.Text) \"\" Then
WhereStr = \" 学号like \" + Trim(TxtXH.Text)
End If
objConn.ConnectionString = \"Provider = Microsoft.jet.OLEDB.4.0;data source = \'D:\\XSCJ.mdb\'\"
objCommXS.CommandText = \" Select * From XS \"
If WhereStr \"\" Then
objCommXS.CommandText = objCommXS.CommandText & \"where\" & WhereStr
End If
objCommXS.Connection = objConn
objDaXS.SelectCommand = objCommXS
objConn.Open()
objDaXS.Fill(objDsXS, \"XS\")
objConn.Close()
DataGridView1.DataSource = objDsXS.Tables(\"XS\")
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wherestr = \"\"
bindgridview(wherestr)
End Sub
Private Sub butAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butAdd.Click
Dim response As MsgBoxResult
response = MsgBox(\"确定要添加记录吗？\", vbOKCancel + vbQuestion, \"系统提示\")
If response = MsgBoxResult.Ok Then
Dim myRow As DataRow = objxstable.NewRow()
myRow(\"学号\") = TxtStuXH.Text
myRow(\"姓名\") = TxtStuXM.Text
myRow(\"专业名\") = TxtZY.Text
myRow(\"性别\") = TxtXB.Text
myRow(\"出生日期\") = TxtCSRQ.Text
myRow(\"总学分\") = TxtStuZXF.Text
myRow(\"备注\") = TxtBZ.Text
objxstable.Rows.Add(myRow)
refreshdata()
End If
End Sub
Private Sub butEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butEdit.Click
Dim response As MsgBoxResult
response = MsgBox(\"确定要修改记录吗？\", vbOKCancel + vbQuestion, \"系统提示\")
If response = MsgBoxResult.Ok Then \'用户选择“确定”
\'修改学号
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(0) = TxtStuXH.Text
\'修改姓名
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(1) = TxtStuXM.Text
\'修改专业
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(2) = TxtZY.Text
\'修改性别
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(3) = TxtXB.Text
\'修改出生日期
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(4) = TxtCSRQ.Text
\'修改总学分
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(5) = TxtStuZXF.Text
\'修改备注
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(6) = TxtBZ.Text
refreshdata() \'更新并刷新显示
End If
End Sub
Private Sub butDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butDelete.Click
Dim response As MsgBoxResult
response = MsgBox(\"确定要删除记录吗？\", vbOKCancel + vbQuestion, \"系统提示\")
If response = MsgBoxResult.Ok Then \'用户选择“确定”
\'除学生成绩表当前记录
objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Delete()
refreshdata() \'更新并刷新显示
End If
End Sub End Cla
4.学生成绩维护菜单
Public Cla Form4
Dim objDs As New DataSet
Dim objXSTable As DataTable
Dim objDa As New OleDb.OleDbDataAdapter
Dim WhereStr As String
Public Sub refreshdata()
objDa.Update(objDs, \"XS_KC\")
objXSTable.Clear()
bindgridview(WhereStr)
End Sub
Public Sub bindgridview(ByVal strXH As String)
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
WhereStr = \"\"
If Trim(TxtXH.Text) \"\" Then
WhereStr = \" 学号like\" + Trim(TxtXH.Text)
End If
objConn.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\'D:\\XSCJ.mdb\'\"
objComm.CommandText = \" Select * From XS_KC \"
If WhereStr \"\" Then
objComm.CommandText = objComm.CommandText & \"where\" & WhereStr
End If
\'把objConn设置为objConn的数据连接
objComm.Connection = objConn
objDa.SelectCommand = objComm
\'创建INSERT Command
Dim InsCommand As New OleDb.OleDbCommand(\"INSERT INTO XS_KC(学号,课程号,成绩,学分)VALUES(?,?,?,?)\", objConn)
InsCommand.Parameters.Add(\"学号\", OleDb.OleDbType.VarChar, 6, \"学号\")
InsCommand.Parameters.Add(\"课程号\", OleDb.OleDbType.VarChar, 4, \"课程号\")
InsCommand.Parameters.Add(\"成绩\", OleDb.OleDbType.Integer, Nothing, \"成绩\")
InsCommand.Parameters.Add(\"学分\", OleDb.OleDbType.Integer, Nothing, \"学分\")
objDa.InsertCommand = InsCommand
\'创建Delte Command
Dim delcommand As New OleDb.OleDbCommand(\"DELETE * from XS_KC where 序号=?\", objConn)
delcommand.Parameters.Add(\"序号\", OleDb.OleDbType.Char, 6, \"序号\")
objDa.DeleteCommand = delcommand
\'创建Update Command
Dim updCommand As New OleDb.OleDbCommand(\"UPDATE XS_KC set 学号=?,课程号=?,成绩=?,学分=? where 序号=?\", objConn)
updCommand.Parameters.Add(\"学号\", OleDb.OleDbType.VarChar, 6, \"学号\")
updCommand.Parameters.Add(\"课程号\", OleDb.OleDbType.VarChar, 4, \"课程号\")
updCommand.Parameters.Add(\"成绩\", OleDb.OleDbType.Integer, Nothing, \"成绩\")
updCommand.Parameters.Add(\"学分\", OleDb.OleDbType.Integer, Nothing, \"学分\")
updCommand.Parameters.Add(\"序号\", OleDb.OleDbType.Integer, Nothing, \"序号\")
objDa.UpdateCommand = updCommand
objConn.Open()
\'打开数据库连接
objDa.Fill(objDs, \"XS_KC\") \'填充数据
objXSTable = objDs.Tables(\"XS_KC\")
objConn.Close()
\'关闭数据集
\'把DataGrid1的DataSource属性设置为刚刚取到的数据表，这样就可以显示数据了
DataGridView1.DataSource = objDs.Tables(\"XS_KC\")
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
txtStuXKID.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString \'显示ID
txtStuXH.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString \'显示学号
txtStuKCH.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString \'显示课程号
txtStuCJ.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString \'显示成绩
txtStuXF.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString \'显示学分
End Sub
Private Sub btnDdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butAdd.Click
Dim response As MsgBoxResult
response = MsgBox(\"确定要添加记录吗？\", vbOKCancel + vbQuestion, \"系统提示\")
If response = MsgBoxResult.Ok Then
Dim myRow As DataRow = objXSTable.NewRow()
myRow(\"学号\") = txtStuXH.Text
myRow(\"课程号\") = txtStuKCH.Text
myRow(\"成绩\") = txtStuCJ.Text
myRow(\"学分\") = txtStuXF.Text
objXSTable.Rows.Add(myRow)
refreshdata()
End If
End Sub
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butEdit.Click
Dim response As MsgBoxResult
response = MsgBox(\"确定要修改记录吗？\", vbOKCancel + vbQuestion, \"系统提示\")
If response = MsgBoxResult.Ok Then \'用户选择“确定”
\'修改学号
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(1) = txtStuXH.Text
\'修改课程号
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(2) = txtStuKCH.Text
\' 修改成绩
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(3) = txtStuCJ.Text
\'修改学分
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(4) = txtStuXF.Text
refreshdata()\'更新并刷新显示
End If
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butDelete.Click
Dim response As MsgBoxResult
response = MsgBox(\"确定要删除记录吗？\", vbOKCancel + vbQuestion, \"系统提示\")
If response = MsgBoxResult.Ok Then \'用户选择“确定”
\'除学生成绩表当前记录
objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Delete()
refreshdata() \'更新并刷新显示
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objConn As New OleDb.OleDbConnection
Dim objDaXS As New OleDb.OleDbDataAdapter
Dim objCommXS As New OleDb.OleDbCommand
Dim objDsXS As New DataSet
Dim WhereStr As String
WhereStr = \"\"
If Trim(TxtXH.Text) \"\" Then
WhereStr = \" 学号like \" + Trim(TxtXH.Text)
End If
objConn.ConnectionString = \"Provider = Microsoft.jet.OLEDB.4.0;data source = \'D:\\XSCJ.mdb\'\"
objCommXS.CommandText = \" Select * From XS_KC \"
If WhereStr \"\" Then
objCommXS.CommandText = objCommXS.CommandText & \"where\" & WhereStr
End If
objCommXS.Connection = objConn
objDaXS.SelectCommand = objCommXS
objConn.Open()
objDaXS.Fill(objDsXS, \"XS_KC\")
objConn.Close()
DataGridView1.DataSource = objDsXS.Tables(\"XS_KC\")
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WhereStr = \"\"
bindgridview(WhereStr)
End Sub End Cla
5.主菜单界面代码
Public Cla Form2
Private Sub quitMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitMenuItem.Click
Me.Close()
End Sub
Private Sub importscoreMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles importscoreMenuItem.Click
Dim form4 As New Form4
form4.MdiParent = Me
form4.WindowState = FormWindowState.Normal
form4.Show()
End Sub
Private Sub updateinfoMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updateinfoMenuItem.Click
Dim form7 As New Form7
form7.MdiParent = Me
form7.WindowState = FormWindowState.Normal
form7.Show()
End Sub
Private Sub selectinfoMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selectinfoMenuItem.Click
Dim form6 As New Form6
Form6.MdiParent = Me
form6.WindowState = FormWindowState.Normal
form6.Show()
End Sub
Private Sub cascadeMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cascadeMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub horizonMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles horizonMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub verticalMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verticalMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub aboutMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aboutMenuItem.Click
Dim form5 As New Form5
form5.MdiParent = Me
form5.WindowState = FormWindowState.Normal
form5.Show()
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
selectinfoMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
updateinfoMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
importscoreMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
cascadeMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
aboutMenuItem.PerformClick()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
quitMenuItem.PerformClick()
End Sub
Private Sub ToolStripStatusLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripStatusLabel1.Click
aboutMenuItem.PerformClick()
End Sub End Cla
八．参考文库
百度文库，百度知道
