VB课程设计学生信息管理系统.doc

VB课程设计学生信息管理系统

———————————————————————————————— 作者：
———————————————————————————————— 日期：

2

个人收集整理 勿做商业用途

学生信息管理系统
1.课程设计目的
目的是进一步培养我们综合应用Visual Basic的各种编程知识和技巧进行程序设计的能力.通过课程设计，我们能达到具备设计功能较为复杂的Windows应用程序的能力。同时，通过课程设计,培养我们自主学习和独立创新的精神，是人才培养体系中极为重要的一环。
随着高校规模的不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长，庞大学生信息的管理工作成了高校教学管理工作中的一项重要任务，一方面，假如遵从以往旧式的工作方式，该工作的工作量大,管理繁琐，既耗人力，又耗物力;另一方面，由于计算机技术的飞速发展及应用的普及，学生信息管理这样烦琐的工作更需要由计算机来完成。因此开发一套对学生信息进行管理的软件是极其重要的，而且是必需的，通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询,从而减少管理方面的工作量。
学生信息管理系统是典型的信息管理系统 (MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点.
针对高校现在存在的学生成绩管理的弊端和基本流程，设计了学生成绩管理系统,实现学生成绩管理的电子化,减轻管理人员的负担。利用这一系统，管理人员能够更好的对现有的学生成绩进行管理，也方便了学生自己查询成绩，同时可以避免人为错误。本模块实现的主要功能有专业信息、班级信息、学生信息及课程安排、成绩查询的功能.系统采用Visual basic 高级语言进行程序编制，以SQL Server 2000数据库为后台数据库。
希望通过这次课程更清楚地了解自己的知识水平。充分的认识到自己真实情况。都说要想把学到的理论知识彻底的变成自己的东西就要不断地学习不停的实践，只有彻底明白的道理和它的一切结构才不至于学的一知半解.通过这次学生信息系统的设计，希望自己能把以前不会的东西学会，然后把自己会的东西能充分的运用到实际课程设计当中，做出理想的效果。彻底的把知识学透而不是把知识学死板了，自己做这次课程设计一定会让我得到很多我在课堂上多学不到的东西。更好的完善自己,为以后的学习生活以及工作奠定良好的基础。
2。学生信息管理系统分析与设计
2。1可行性分析
由于本系统管理的对象单一，都是在校学生，且每个数据内容具有较强的关联性,涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是奔腾 3 以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。数据库是 MIS 中的重要支持技术，在 MIS 开发过程中，如何选择数据库管理 是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下： Visual Basic 是一种可视化的、面对对象和调用事件驱动方式的结构化 高级程序设计，可用于开发 Windows 环境下的种类应用程序。它简单易学、效率高，且功能强大。在 Visual Basic 环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出 Windows 环境下功能强大、图 形界面丰富的应用软件系统。
2.2系统功能分析
此学生信息管理信息系统是面向大学的管理系统，其目的是对学校内的学生，班级，和其它信息进行统一有序的管理。
班级管理信息的输入,包括班级设置、年级的设置等；班级管理信息管理的查询;班级管理信息的修改；学校基本课程信息的输入；基本课程信息的修改；学生课程信息的设置和修改；学生成绩信息的输入；学生成绩信息的修改;学生成绩信息的查询；学生成绩信息的统计.
1） 系统安全性
操作员在登录界面输入操作员帐号及密码进入主页面进行相应操作,加强了此系统的安全可靠性。
2） 主页界面
采用视窗的风格，点击菜单可以进入相应的界面，对其进行相应的操作。既方便又实用
3） 专业信息管理
对所有专业信息查询，并能直接实现添加记录、删除记录、刷新、打印报表等功能。专业信息表包括的字段：专业号、专业名。
4） 班级信息管理
对所有班级信息查询，并能直接实现添加记录、删除记录、打印报表及刷新等功能。班级信息表包括的字段：班级号,专业号。
5) 学生信息管理
对全体学生信息查询，或某个学生信息查询,并能直接实现添加记录、删除记录、打印报表及刷新等功能。学生表包括的字段：学号、姓名、性别、出生日期、政治面貌、专业号、班级号。
6） 课程安排管理
对所有课程具体安排信息进行查询或某一科单独查询，且也能够实现添加、删除记录、打印报表及刷新等功能。课程表包括的字段：课程号、课程名、专业号、开课学期、学时、教师编号。
7) 成绩查询管理
对全体的学生所有的科目成绩进行查询，也能单独对某一个学生某一科进行查询并能实现添加、删除记录、打印报表及刷新,还有就是能统计出补考的学生的名单及数量。成绩表包括的字段：学号、姓名、课程号、课程名、成绩、考核、教师编号、专业号、班级号。
2. 3系统功能模块分析
上述各功能的系统功能模块图如图1。

学生信息管理系统
成绩信息管理
课程信息管理
班级信息管理
学籍信息管理
系统管理
成绩添加修改管理
成绩查询
年级课程设置
班级课程信息管理
学籍信息的添加
班级信息修改
班级信息添加
学籍查询和修改
密码设置
用户设置

图1 系统功能模块
2。4数据库分析
数据库在一个信息管理系统中占有非常重要的地位,数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效率,保证数据的完整和一致。同时,合理的数据库结构也将有利于程序的实现。
数据库需求分析
用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能够充分满足各种信息的输出和输入。
针对一般学生信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下的数据项和数据结构：
1)。学生基本信息：包括的数据项有：学生学号、学生姓名、性别、出身日期、班号、联系电话、入校日期、家庭地址、备注等。
2）。班级信息：包括的数据项有：班号、所在年级、班主任姓名、所在教室等。
3).课程基本信息：包括的数据项有:课程号、课程名称、课程类别、课程描述等.
4）。课程设置信息:包括数据项有：年级信息、所学课程等。
5).学生成绩信息：包括数据项有：考试编号、所在班号、学生学号、学生姓名、所学课程、考试分数等。
根据上面的数据结构、数据项和数据流程，进行数据库设计。
3。详细设计
3.1学生信息管理系统主窗体的创建
(1).创建一个工程名为Student_Mis的工程文件Student_Mis.vbp。
(2)。创建学生信息管理系统的主窗体MID窗体，窗体名为frmMain，窗体文件名为:frmMain。frm。
创建主窗体的菜单，利用菜单设计器来设置住窗体如下图所示。

图2 主窗体菜单
表1 主菜单结果表
对象
属性
属性值
对象
属性
属性值
主菜单项1
名称
sysMenu
子菜单项2
名称
modifycionfoMenu
标题
系统
标题
修改班级信息
子菜单项1
名称
adduserMenu
主菜单项4
名称
courseMenu
标题
添加用户
标题
课程设置
子菜单项2
名称
modifypwdMenu
子菜单项1
名称
addcourseMenu
标题
修改密码
标题
添加课程设计
子菜单项3
名称
exitMenu
子菜单项2
名称
modifycourseMenu
标题
退出系统
标题
修改课程信息
主菜单项2
名称
sinfoMenu
子菜单项3
名称
gradecourseMenu
标题
学籍信息
标题
设计年级课程
子菜单项1
名称
addsinfoMenu
主菜单项5
名称
resultMenu
标题
添加学籍信息
标题
成绩管理
子菜单项2
名称
modifysinfoMenu
子菜单项1
名称
addresultMenu
标题
修改学籍信息
标题
添加成绩信息
子菜单项3
名称
inquiresinfoMenu
子菜单项2
名称
modifyresultMenu
标题
查询学籍信息
标题
修好学籍信息
主菜单项3
名称
classinfoMenu
子菜单项3
名称
inquireresultMenu
标题
班级管理
标题
查询成绩信息
子菜单项1
名称
addcinfoMenu

标题
添加班级信息

3.2系统用户管理模块的创建
系统用户管理模块主页实现：用户登陆；用户添加；修改用户密码
3。2.1用户登陆窗体的创建
进入系统后出现如图3所示用户登陆窗体，用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。

图3 系统登录界面
3。2.2成绩管理模块的创建
（1)成绩管理模块功能分析.成绩管理模块主要实现如下功能：添加成绩信息；修改成绩信息；查询成绩信息。
(2）成绩信息管理模块图如下图所示。成绩信息管理
添加成绩信息
修改成绩信息
查询成绩信息

图4 成绩信息管理模块

界面设计时添加窗体,添加相关控件，设置控件的相关属性来完成界面的设计要求,然后调整控件的排版问题，让整体达到美观的效果.界面的设计以及属性的设置如下图所示。

图5 界面设计及属性设置
3。2.3添加成绩信息窗体的创建
选择“成绩管理添加成绩信息”菜单，将出现如图所示的窗体.

图6 添加成绩信息
打开添加成绩界面之后，可以通过系统添加考试编号、选择学生所在的班级、添加学生的学号、姓名、考试的课程科目以及考试所得的分数.添加完事之后如果没有错误和实际相符合就可以单击“确认添加”按钮把刚刚录入的成绩及学生信息保存到系统当中。方便以后用户的查询。如果发现在录入信息的时候不小心录入了错误信息,可以修改录入的信息，或者用户单击“取消添加”按钮取消添加信息。
控件属性的设置：
根据以上的操作界面，在设计时候创建窗体,往窗体当中添加相关的控件，调整控件的位置以达到美观优雅的设计效果，添加控件的同时也要在设计界面把把各个控件的相关属性按照设计要求目的来设置好，窗体中各种控件的属性列成表格的形式，如下表所示。
表2 控件属性
控件
属性
属性取值
控件
属性
属性取值
FrmAddgrade
（Form）
Name
FrmAddgrade
Label1
Caption
考试编号
Caption
添加成绩信息
Command2
Name
Command2
MIDChild
True
Caption
取消添加
txtTestno
Name
txtTestno
Label2
Caption
选择班号
comboGrade
Name
comboGrade
Label3
Caption
选择学号
txtDirector
Name
txtDirector
Label4
Caption
姓名
txtname
Name
txtname
Lable15
Caption
选择课程
Command1
Name
Command1
Lable16
Caption
输入分数
Caption
确定添加

3。2。4修改成绩信息窗体的创建
这个窗体在添加成绩信息窗体的基础上又增加了两排按钮，方便了用户的相关操作。查看成绩信息和修改成绩信息。如7图所示.

图7 修改成绩信息
控件的属性设置：
在设计操作界面的时候来设置相关控件的属性设置,修改框架的标题，让人看了之后就知道该操作界面是用来做什么的，设置该框架的Caption属性为“修改成绩信息”其他一些空间的属性按照设计要求和目的来分别设置。具体控件的属性设置如下表所示.

表3 控件属性
控件
属性
属性取值
控件
属性
属性取值
FrmChange
（Form)
Name
FrmChange
Label1
Caption
考试编号
Caption
修改成绩信息

Command3
Name
Command3

MIDChild

True
Caption
取消修改记录
txtTestno
Name
txtTestno
Commang4
Caption
删除记录
comboGrade
Name
comboGrade
Label2
Caption
选择班号
txtDirector
Name
txtDirector
Label3
Caption
选择学号
txtname
Name
xtname
Label4
Caption
姓名
Command1
Caption
修改记录
Lable15
Caption
选择课程
Command2
Caption
更新数据v
Lable16
Caption
输入分数
当需要修改学生成绩信息的时候可以通过打开系统的如上界面来对成绩信息进行查看和修改，点击查看成绩信息栏里面的“第一条记录”按钮或者其他几个按钮可以根据点击按钮的不同来跳转到相关的界面来显示想要的信息。如果系统当中的数据需要做相关的修改时，点击修改成绩信息栏里面的按钮来修改当前系统当中的记录,更新数据，删除不想保存在数据库中的信息,如果不是想要修改数据和更新数据库信息可以单击“取消修改记录”按钮来放弃刚刚所作出的操作。
3.2。5查询成绩信息窗体的创建
新建一个Form窗体，在窗体上加入一个Data控件,其DatabaseName属性设置连接到数库，RecordSource属性连接到数据库中的相关表.在窗体上加入两个Frame控件，在一个上放置3wh TextBox控件，3个Label控件，其Caption属性分别设为“按学号”“按姓名”“按课程"。设置有复选框。在另一个Frame控件上放置2个CommandButton控件,其Caption 属性分别设置为“查询"、“退出查询"。完成后的整个界面如下图所示。

图8 查询成绩信息
进入系统的查询成绩信息界面以后，可以按照不同的方式来查询想要查看的同学的成绩信息。该系统分为按学号查询学生的成绩信息，输入学生的学号之后，然后单击“查询”按钮跳转到下一界面，即为查询学生的成绩信息。按姓名查询学生成绩信息，如截图当中显示的即为通过按姓名的方式来查询数据库中已有的学生成绩信息.在按姓名文本框当中输入“张三”然后单击“查询”按钮即可以跳到张三的成绩相关信息界面。查询完毕之后通过单击“退出查询”按钮来退出该模块。图中即为数据库中有的关于张三的成绩信息，考试编号、张三的学号、班级号、所考试的课程名称，和该科目的考试成绩。再有按课程名称来查看学生成绩信息。手动输入课程名称来查询相关的成绩信息.
4.设计体会
在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。 因此,该系统必然会存在一些缺陷。因为对学生信息管理的整个流程的熟悉程度还不够深刻，在需求分析时未能做到完全满足用户的需求。虽然网络在学生成绩管理系统中的应用不是很多， 在本次开发过程由于硬件的限制,未能实现网络功能。
尽管本管理系统存在着很多不足，但其功能还是比较全面的、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。相信本学生管理系统是一套学校在日常管理中必不可少的管理软件，通过开发这个系统，掌握了信息管理设计过程。加强了对Visual Basic 6。0的学习，巩固了基本知识，提高了自学能力。在这次毕业设计中的最大收获并不仅是掌握了开发工具的应用，而是学会了设计系统的思维方法,以及与同学们之间相互帮助的精神.总之在这次设计中我知道了很多，获得了很多。
有了这次的学生系统的课程设计,让我在课堂上学到的书本理论知识得到了更好理解。更进一步巩固了自己的知识,没有这次课程设计，自己一直以为自己学的还算很好一半知识自己都会，但是在做课设的时候发现有很多东西运用到实践当中还不我所达不到的水平，这才发现自己会得东西只是一知半解。运用到实际当中自己的欠缺还是很大。幸好很多热心的室友和同学以及老师的帮助,自己通过查阅丰富的图书资源，搜索丰富的网络资源，设计界面,设置各种控件的属性，编写相关的代码。反复的调试程序才算把这个学生信息管理的系统做完。虽然刚开始时候因为很多东西不会烦躁,无从下手.但是程序最后调试出来那一瞬间，真的很高兴。
课程设计完成了，首先非常感谢学校给我们这次机会，让我们扩大了知识量，弥补了知识的欠缺，进一步完善了自我。忠心的感谢老师在设计过程中对我孜孜不倦的教导，使我的设计顺利完成。我还要感谢我的同学们，在这一阶段给了我极大的帮助.

参考文献
［1］ 刘天慧等编著.Visual Basic程序设计教程[M］。北京：清华大学出版社，2006.2:156—185
[2] 萨师煊,王珊.数据库系统概论[M］,（第三版）。北京：高等教育出版社，2006.5：198—233
［3］ 梁伟等编。 Visual Basic 管理信息系统项目开发实践，北京：科学出版社,2003：127—211
[4] 程斌等编. Visual Basic 6。0数据库开发指南，西安：电子科技大学出版社，2000：232-254
［5] 武马群．Visual Basic程序设计［M]．北京：北京工业大学出版社,2005。03：67-90
[6] 陈元春。 Visual Basic数据库编程 ［M]。 北京：清华大学出版社,2007。07：37-70 
［7］ 蒋加伏。Visual Basic程序设计教程[M]。 北京: 北京邮电大学出版社，2003.11：10-56
[8］ 王国荣,VisualBasic6.0与Windows API讲座[M].北京:人民邮电出版社。2007.4：100-130
[9] 刘新民，蔡琼,白康生编著.Visual Basic 6。0程序设计［M］.北京：清华大学出版社。2004.3 20—25
[10]李春葆，曾平编著．数据库原理与应用[M]. 北京：清华大学出版社. 2006。1 41—74
［11] A Blog Mining Framework IT Professional [J]。 卷次：11刊期：1 January 2009 .

附录：源代码
学生信息管理系统主窗体代码如下：
Private Sub MDIForm_Load(）
Me.Left = GetSetting(App。Title， ”Settings"， "MainLeft"， 1000）
Me.Top = GetSetting（App。Title， "Settings", "MainTop"， 1000)
Me。Width = GetSetting（App。Title, "Settings", "MainWidth"， 6500）
Me.Height = GetSetting(App。Title， "Settings", "MainHeight", 6500）
End Sub
Private Sub MDIForm_Unload（Cancel As Integer)
If Me。WindowState <〉 vbMinimized Then
SaveSetting App。Title， ”Settings", ”MainLeft”, Me。Left
SaveSetting App。Title, "Settings"， ”MainTop"， Me.Top
SaveSetting App。Title, ”Settings”, "MainWidth"， Me.Width
SaveSetting App.Title, ”Settings”, "MainHeight"， Me。Height
End If
End Sub
Private Sub modifycinfoMenu_Click（）
frmModifyclassinfo。Show
End Sub
Private Sub modifycourseMenu_Click（）
frmModifycourseinfo。Show
End Sub
Private Sub modifypwdMenu_Click(）
frmModifyuserinfo。Show
End Sub
Private Sub modifyresultMenu_Click（）
frmModifyresult。Show
End Sub
Private Sub modifysinfo_Menu_Click(）
frmModifysinfo。Show
End Sub

创建公共模块。在工程资源管理器中为项目添加一个名称为Module的标准模块文件Module。bas。代码如下：
Public fMainForm As frmMain
Public UserName As String
Sub Main()
Dim fLogin As New frmLogin
fLogin。Show vbModal
If Not fLogin。OK Then
'Login Failed so exit app
End
End If
Unload fLogin
Set fMainForm = New frmMain
fMainForm.Show
End Sub
Public Function ConnectString（） _
As String
'returns a DB ConnectString
ConnectString = ”FileDSN=studentinfo.dsn"
End Function
Public Function ExecuteSQL（ByVal SQL _
As String, MsgString As String） _
As ADODB.Recordset
’executes SQL and returns Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens(） As String
On Error GoTo ExecuteSQL_Error
sTokens = Split（SQL）
Set cnn = New ADODB。Connection
cnn.Open ConnectString
If InStr("INSERT，DELETE，UPDATE", _
UCase$(sTokens(0））) Then
cnn。Execute SQL
MsgString = sTokens（0） & _
” query successful"
Else
Set rst = New ADODB.Recordset
rst。Open Trim＄（SQL), cnn， _
adOpenKeyset， _
adLockOptimistic
'rst。MoveLast 'get RecordCount
Set ExecuteSQL = rst
MsgString = ”查询到” ＆ rst。RecordCount ＆ _
” 条记录 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误： " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
Public Function Testtxt（txt As String) As Boolean
If Trim(txt） = "" Then
Testtxt = False
Else
Testtxt = True
End If
End Function
系统用户管理模块的创建
代码如下：
Option Explicit
Public OK As Boolean
’记录确定次数
Dim miCount As Integer
Private Sub Form_Load()
OK = False
miCount = 0
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Private Sub cmdOK_Click（)
Dim txtSQL As String
Dim mrc As ADODB。Recordset
Dim MsgText As String
'ToDo： create test for correct password
’check for correct password
UserName = ””
If Trim（txtUserName。Text = "”） Then
MsgBox "没有这个用户，请重新输入用户名！”, vbOKOnly + vbExclamation, "警告”
txtUserName。SetFocus
Else
txtSQL = ”select * from user_Info where user_ID = '" ＆ txtUserName.Text ＆ "’”
Set mrc = ExecuteSQL（txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有这个用户,请重新输入用户名！”, vbOKOnly + vbExclamation， ”警告"
txtUserName.SetFocus
Else
If Trim（mrc。Fields(1)） = Trim（txtPassword。Text） Then
OK = True
mrc.Close
Me.Hide
UserName = Trim（txtUserName.Text)
Else
MsgBox "输入密码不正确，请重新输入！”， vbOKOnly + vbExclamation, ”警告"
txtPassword。SetFocus
txtPassword.Text = ""
End If
End If
End If
miCount = miCount + 1
If miCount = 3 Then
Me.Hide
End If
Exit Sub
End Sub

成绩管理模块的创建
代码如下：
Private Sub Command1_Click(）
Dim mrc As ADODB。Recordset
Dim MsgText As String
Dim txtSQL As String
If Not Testtxt（txtClassno。Text) Then
MsgBox ”请输入考试编号!”, vbOKOnly + vbExclamation， ”警告"
txtClassno.SetFocus
Exit Sub
End If
If Not Testtxt（comboGrade.Text) Then
MsgBox ”请选择班号!", vbOKOnly + vbExclamation， "警告”
comboGrade。SetFocus
Exit Sub
End If
If Not Testtxt（txtDirector.Text） Then
MsgBox ”请输入姓名！", vbOKOnly + vbExclamation, ”警告"
txtDirector.SetFocus
Exit Sub
End If
if Not Testtxt(txtClassroom.Text) Then
MsgBox "请输入教室房间号!", vbOKOnly + vbExclamation, ”警告"
txtClassroom。SetFocus
Exit Sub
End If
If Not IsNumeric（Trim（txtClassno。Text）） Then
MsgBox "请输入数字！"， vbOKOnly + vbExclamation, ”警告”
Exit Sub
txtClassno.SetFocus
End If
txtSQL = "select ＊ from class_Info ”
Set mrc = ExecuteSQL(txtSQL， MsgText)
mrc.MoveFirst
While （mrc.EOF = False)
If (Trim（mrc.Fields（0)） = Trim(txtClassno。Text)） Then
MsgBox ”班号已经存在,请重新输入班号！”， vbOKOnly + vbExclamation, ”警告"
Exit Sub
txtClassno.Text = ”"
txtClassno。SetFocus
Else
mrc。MoveNext
End If
Wend
mrc。AddNew
mrc。Fields（0) = Trim(txtClassno.Text)
mrc.Fields(1） = Trim(comboGrade。Text)
mrc。Fields（2） = Trim(txtDirector。Text）
mrc.Fields(3) = Trim(txtClassroom。Text)
mrc。Update
mrc。Close
MsgBox "添加成绩信息成功！”， vbOKOnly + vbExclamation, ”添加成绩信息"
End Sub
Private Sub Command2_Click(）
Unload Me
End Sub
修改查询成绩模块
代码如下:

Private Sub Command1_Click(）
If Text1.Text = "" Then
MsgBox "请输入内容！"
Else 输入内容不能为空
Data1。Recordset.Edit
Data1。Recordset.Fields（0） = Text2。Text
Data1。Recordset。Fields(1) = Text3.Text
Data1。Recordset.Fields（2） = text4。Text
Data1.Recordset.Fields（3） = Text5。Text
Data1。Recordset。Fields（4） = Text6。Text
Data1.Recordset.Fields（5） = Text7.Text
Data1.Recordset.Fields(6） = Text8。Text
Text9.Text = Str(（Val(Text6.Text） + Val(Text8.Text） + Val（Text7.Text）） / 3)
Data1.Recordset。Fields（7) = Text9。Text
Data1。Recordset。Update
MsgBox "修改成功” 对数据库进行修改,并将修改后的数据存入数据库
End If
End Sub

Private Sub Command10_Click（）
If Trim(Text1。Text） = ”” Then
MsgBox ”学号不能为空,请重新输入!”， vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else 输入学号不能为空
Data1.Recor