学生成绩管理系统毕业设计论文.doc

学生成绩管理系统毕业设计论文

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

2

个人收集整理 勿做商业用途
本科毕业论文
学生成绩管理系统
【摘　要】学生成绩是教育单位不可或缺的一部分,应该能够为用户提供充足的信息和快捷的查询方式.传统的人工方式来管理学生的成绩存在着许多缺点，如:保密性差而且效率低，产生大量的文件和数据,对数据的查找、更新和维护带来困难。
   随着计算机科学逐步成熟以及完善,其渗透到人类社会的各个领域并发挥着重要的作用.运用计算机对学生信息进行管理,具有手工管理所无法比拟的优点.例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高管理者对学生成绩管理的效率,使学校的管理科学化、正规化。
【关键词】学生成绩管理系统；数据库；access；数据词典。
目 录
1。引 言…………………………………………………………………………1
1.1项目开发的背景 ……………………………………………………………1
1.2项目开发的目标 ……………………………………………………………1
1。3 项目开发的意义…………………………………………………………………………… 1
2.可行性研究报告与需求分析……………………………………………………1
2.1可行性研究……………………………………………………………………1
2.2需求分析…………………………………………………………………………2
2.2.1 概述……………………………………………………………………………2
2。2。2 系统需求………………………………………………………………………2
2.2。3 数据词典………………………………………………………………………2
2.2。4 数据流程图…………………………………………………………………2
3.系统总体设计………………………………………………………………3
3。1 系统结构设计…………………………………………………………………3
3。2 数据库结构设计……………………………………………………………6
3.3 系统E-R图…………………………………………………………………………………7
4.系统详细设计……………………………………………………………9
4。1系统开发工具及运行环境…………………………………………………9
4.2系统各功能模块的设计及实现……………………………………………9
4.2.1系统管理模块设计 ………………………………………………………12
4。2。2信息录入模块设计…………………………………………………………13
4。2。3信息查询模块设计…………………………………………………………21
4.2.4信息打印模块设计…………………………………………………………22
5.系统测试与维护……………………………………………………………24
5。1 系统测试……………………………………………………………………24
5。1。1软件测试的目的…………………………………………………………24
5.1.2系统的测试环境…………………………………………………………24
5.1。3测试方案设计………………………………………………………………25
5.1.4测试结果的评价……………………………………………………………25
5.2 系统维护……………………………………………………………………26
6。 用户手册………………………………………………………………………………………26
6.1 软件的安装…………………………………………………………………………………26
6.2 登陆界面……………………………………………………………………………………26
6。3 系统主界面…………………………………………………………………………………26
6。4 信息的查询…………………………………………………………………………………27
6。5 各种信息的录入……………………………………………………………………………29
6。6 相关资料的打印……………………………………………………………………………29
7. 总结………………………………………………………………………………29
8。 致谢…………………………………………………………………………………29
参考文献 ……………………………………………………………………………30

- 30 -

1. 引 言
1.1  项目开发的背境
几年前，各个学校对于学生成绩的管理还是停留在运用手工操作，随着各个学校的规模不断壮大,学生人数逐年增加。关于学生成绩管理工作所涉及的数据量越来越大，有的学校不得不靠增加人力、物力来进行学生成绩管理。但人工管理又有着许多缺陷，比如：效率底、易出错、检索信息慢、对学校的管理提供决策信息较为困难等。学校不能完全掌握每一个学生的学习情况，这样对学校的教学工作及其不利，使学校的教学质量一直停滞不前,所以我想借本次毕业设计之际，开发一个不仅适用于各校的通用高校学生成绩管理系统,使学校能够充分掌握学生的学习情况，便于学校教学工作的进行和改革。
1。2 项目开发的目标
建立学生成绩管理系统，采用计算机对学生成绩进行管理，进一步提高办学效率和现代化水平.使学校对学生的成绩能够快速并准确的录入、修改和查询，更好地掌握每个学生的各科成绩，便于教师的管理。使学生对个人的学习成绩进行更快的查询。让老师能够更好、更快的了解学生的学习情况，使学校的教学质量进一步的提高。
1.3 项目开发的意义
现在我国的一些院校的学生成绩管理水平普遍不高，有的还停留在纸介质基础上，这种管理手段已不能适应时代的进展，因为它浪费了太多的人力和物力。在当今的信息时代，这种传统的管理方法必然被计算机为基础的信息管理系统所取代.如果本系统能被学校所采用，将会改变以往靠手工管理学生成绩的状况,可以树立良好的办学形象,提高工作效率，节省人力和物力。
2。 可行性研究与需求分析
2.1 可行性研究
随着学校规模的不断扩大，学生人数逐年增加，学校对学生成绩管理的工作量也越来越大.学生成绩管理涉及大量的数据处理,如果用手工来完成庞大的数据处理，将费时费力，还容易出错，为了满足学校对学生成绩管理的需要，急需要一套学生成绩管理系统来完成这项工作。作为计算机应用的一部分，使用计算机对学生成绩信息加以管理，将拥有着手工管理所无法比拟的优点。例如：输入迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生成绩管理的效率，也是学生成绩的科学化、正规化管理的重要条件.同时还要注意下列几点：
1 由于各方面的限制，如人员不够、技术缺乏等原因，开发时应本着循序渐进，逐步完善的原则，不能贪大求全，盲目开发。
2 要注意信息的准确、及时、适用、经济,只有及时、准确的信息才能保证系统开发的质量和效率。
3 从全局出发注意系统开发的整体优化性，同时还要注意系统的可扩展性和可延伸性.
4 尽量采用学校现有的软硬件环境，及先进的管理系统开发方案,从而达到充分利用学校现有资源、提高系统开发水平和应用效果的以及减少开发成本的目的。
5 系统应符合学校对学生成绩管理的规定，满足学生成绩管理的工作需要,并达到操作过程中的直观、方便、实用、安全等要求。
2.2 需求分析
2。2。1 概述
1．系统分析的原则
分析高校成绩管理的要求，确定管理系统的逻辑功能,以满足高校成绩的要求。第一阶段完成后,该系统应具备较高的可扩充性，便于在此基础上完成第二阶段.
2． 分析方法
采用结构化分析方法，建立新系统的逻辑模型，这个逻辑模型尽可能避免计算机的专业术语。
2.2。2 系统需求
经过一段时间对学校学生成绩管理的调研与分析，以及认真研究了几位老师的意见，所开发的学生成绩管理系统应分成以下几个阶段开发：
第一阶段建立的成绩管理系统由以下5个子系统组成：
1．系统信息的管理，能添加用户、修改用户信息、删除用户。
2．学生基本信息的管理，能对学生基本信息进行添加、删除、修改。
3．班级信息的管理，能对班级基本信息进行添加、删除、修改。
4．学生成绩信息的管理，能对学生成绩基本信息进行添加、删除、修改.
5．对数据的备份、恢复,对学生数据的及时备份。
第二阶段建立的成绩管理系统主要在上次基础上对其功能进行修改以及扩充。在功能扩充上应该使系统更具实用性.
2.2。3 数据词典
经过分析，所开发的学生成绩管理系统应有五个数据表，分别是:
1．系统用户数据:高校老师以及管理人员使用成绩管理系统的身份数据，包含的数据项有用户编号、登录口令、权限代码。
2．学生基本信息数据：学生基本信息数据，包含的数据项有学号、姓名、性别、出生日期、文化程度、籍贯、民族、入学日期、身份证号等。
3．课程数据:课程信息数据.
4．班级数据:用于班级信息记录数据.
5．学生成绩数据:学生的成绩数据，包含的数据项考试编号、选择班号、选择学号姓名、选择课程以及输入分数等。
2。2。4 数据流程图
学生成绩管理系统数据流程图如下：
用户
主界面
欢迎界面
用户登陆
管理系统
系统管理
信息打印
信息录入

信息查询
用户登陆
退出
管理系统
打印信息表
查询信息
录入信息

图2-1 系统数据流程图
3。 系统的总体设计
3。1系统结构设计
1．系统设计目标
本系统既要满足用户的设计目标，也要满足设计员的设计目标.
（1) 用户的观点看,要求系统能够达到以下目标
1） 对信息的收集和保存信息。例如：输入学生的成绩信息,学生的基本信息等。
2)速的传递信息，对那些共享的数据进行快速的传递。
3）供准确的信息,要求比手工作业提供的更加准确和细致的数据，例如学生的各科分数。
4） 现有的报表自动生成.
5） 共享现有的数据
（2) 设计员从技术观点看，要求系统能达到以下的目标：
1) 用户使用，具有较高的用户友好性。
2） 有较高的可靠性,将系统发生故障的概率控制在2。0％以下，并具有快速恢复的能力
3) 具有较高的运行效率，应比人工作业提高效率10倍以上。
4）具有较强的可维护性和扩充性，能够适应用户的业务要求变化。
(3)设计策略
本系统的结构是自顶向下扩展的,层次化的暗盒模块结构.
对高层模块,将运用以事务为中心的设计策略，将一个复杂的系统逐步分解成为几个较小的相对简单的暗合模块；对低层模块，采用以变换为中心的设计策略。
此外，为了提高模块的内聚性，降低模块间的偶合程度,数据库 的设计原则是把他作为模块间的邮政信箱，从而既实现数据共享有提高模块的独立性，使系统具有很高的可修改性。［1］
2．系统总体功能
本说明主要是为了对学生成绩管理系统进行使用和维护.
该系统充分利用计算机的现有的功能来实现对系统管理、信息录入、信息查询，信息打印等的自动化控制，将会使学生成绩管理工作大大减轻，方便友好的信息管理用户界面,简便的操作，完善的数据库管理，将会使得信息管理系统极大限度地应用于现代化学生成绩管理，成为管理人员的得力助手.
对系统信息的修改、添加、删除
对学生基本信息的修改、添加、删除、查询
对班级信息的添加、修改、查询
对学籍信息的添加、修改、查询
对学生成绩信息的添加,修改，查询
对数据的备份、恢复
3．系统结构图
学生成绩管理系统结构图，以下所示,这些结构图是根据系统分析说明书的数据流程图画出的。实际上它有 四个模块组成。
学生成绩管理系统
系统管理
信息录入
信息查询
信息打印

图3—1 学生成绩管理系统

系统管理
用户权限设置
数据备份

图3-2 系统管理
信息录入
班级信息录入
学生信息录入
课程信息录入
成绩录入
补考信息录入

图3—3 信息录入
信息查询
按学号查询学生成绩
班级课程成绩查询
班级学期成绩查询
补考学生查询

图3-4 信息查询
信息打印
学生成绩打印
班级课程成绩打印
班级学期成绩打印
补考学生名单打印

图3-5 信息打印
3.2数据库结构设计
1． 数据库总体结构
本系统采用关系型数据库Acess实现，数据库由、若干个二维表构成。本系统的表分为两类。一类是目录,即索引.另一类是实际数据.其中数据表包括:学生信息表、 班级信息表、课程信息表、成绩信息表和用户信息表。[2]
2．数据库表
表3—1 学生信息表
数据字段名
数据类型
数据长度
是否允许为空
学号
int
4
否
姓名
Char
10
否
性别
char
2
是
生日
datetime
8
是
本人成分
Int
4
是
文化程度
char
10
是
籍贯
Varchar
8
是
民族
varchar
50
是
入学注册
varchar
200
是
身份证号
Varchar
200
是
邮政编码
varchar
18
是
工作单位及地址
Varchar
200
是
单位电话
Varchar
200
是
家庭住址
Varchar
200
是
家庭电话
Varchar
20
是
毕业时间
Datatime
5
是
成绩毕业
Int
4
是
表3—2 班级信息表
数据字段名
数据类型
数据长度
是否允许为空
班号
Int
4
否
年级
char
10
是
班主任
Char
10
是
教室
char
10
是
表3-3 课程信息表
数据字段名
数据类型
数据长度
是否允许为空
课程编号
Int
10
否
课程名称
char
10
是
课程类型
Char
10
是
课程描述
char
50
是
表3-4 成绩信息表
数据字段名
数据类型
数据长度
是否允许为空
考试编号
Char
10
否
选择班号
Int
4
否
选择学号
Int
4
是
姓名
Char
10
是
选择课程
char
10
是
输入分数
float
8
是
表3-5 用户信息表
数据字段名
数据类型
数据长度
是否允许为空
输入用户名
Char
10
否
输入密码
Char
10
是
确认密码
Char
10
是
3。3 系统E—R图
1. 局部E-R图
课程实体
课程

图3—6 课程E-R图
班级
班级实体

图3—7 班级E—R图
成绩实体
学期
考勤成绩
随堂成绩
期末成绩
总评成绩
平时成绩
课程
班级
姓名
学号

图3—8 成绩E-R图

学生信息实体
姓名
学号
学制
性别
出生年月
文化程度
籍贯
民族
入学时间
身份证号
邮编
工作单位
单位电话
家庭住址
家庭电话
成绩
记录编号
答辩日期
指导教师
设计题目
毕业证编号
毕业时间
家庭成员
学习工作经历
答辩评语

图3-9 学生信息E-R图
2.系统全局E—R图
班级
班级
就读
学号
学生信息
选课
课程
课程
总评
总评
成绩
1
1
n
1
1
姓名
学期
平时
随堂
期末
考勤
性别
籍贯
入学时间
指导老师
身份证
民族
家庭住址
姓名
设计题目

图3—10 系统全局E—R图
4。 系统详细设计
4.1系统开发工具及运行环境
1. 系统开发工具
本系统利用VB6.0全套开发工具做程序开发,利用Acess数据库作为学生成绩管理系统的后台数据库。VB6。0在数据库开发方面功能很强大，大量使用可视化的界面操作工具,支持面向对象的程序设计，其以简便、灵活、高效等优点著称。而Acess数据库以功能比较强大，由于VB6。0中无需另外安装其支持环境也能正常打开数据库，具有很强的适应性,更重要的是利用Acess做数据库开发,在数据备份方面很优势,方法简单,可靠。[3]
2 ．系统运行环境
软件环境：系统环境win2000及以上 + Acess数据库
硬件环境:CPU P4 2。4G、256MB内存、80G硬盘
4。2系统各功能模块的设计及实现
执行程序后,首先进入的是学生成绩管理系统的登录界面，用户通过输入正确的信息后,就进入系统主界面。 如图4—1所示

图4-1 登陆界面
以下是登陆模块的代码：
Private Sub Command1_Click()
Text1.Text = DBCombo1.Text
Data1.Recordset。FindFirst ”name=" ＆ "’” & Text1.Text ＆ "'”
If Data1.Recordset。NoMatch Then
MsgBox （”没有此用户”）
DBCombo1.Text = ""
Text2.Text = ""
Exit Sub
End If
If Text4.Text = Text2。Text Then
main。Show
Unload denglu
Exit Sub
End If
If Not (Text4。Text = Text2。Text） Then
MsgBox (”密码错误"）
Text2.Text = ”"
Exit Sub
End If
End Sub

Private Sub Command2_Click（）
End
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App。Path & "\DATABASE\USER1。mdb"
End Sub[4]
进入主界面后,用户可以进行学生信息添加、删除、修改、查询和打印以及对数据库的备份等操作。如图4-2所示

图4-2 系统主界面
下面是主界面模块的代码：
Private Sub bklr_Click（)
bukao.Show
End Sub

Private Sub bkxshchx_Click()
chaxun_bukao。Show
End Sub

Private Sub bkxshmddy_Click()
dayin_bukao。Show
End Sub
Private Sub chjlr_Click(）
chengji.Show
End Sub

Private Sub gyrj_Click()
frmAbout。Show
End Sub

Private Sub kchxxlr_Click（）
kecheng。Show
End Sub

Private Sub MDIForm_Load()
End Sub

Private Sub shjbf_Click（)
beifen。Show
End Sub

Private Sub tch_Click（）
End
End Sub

Private Sub xshxxlr_Click()
xuesheng.Show
End Sub

Private Sub yhqx_Click（)
quanxian.Show
End Sub
4.2。1系统管理模块设计
在这里管理员可以进行添加用户、修改用户和删除用户等操作.如图4—3所示

图4-3 用户权限设置
用户权限设置代码如下:
Private Sub Command1_Click()
Data1。Recordset。AddNew
Command1。Enabled = False
Command2。Enabled = False
Command3.Enabled = True
Command4。Enabled = True
End Sub

Private Sub Command2_Click（)
Data1。Recordset。Edit
Command1。Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4。Enabled = True
End Sub

Private Sub Command3_Click（)
Data1.Recordset.Update
Data1.Refresh
Command1.Enabled = True
Command2.Enabled = True
Command3。Enabled = False
Command4。Enabled = False
End Sub

Private Sub Command4_Click()
Data1。UpdateControls
Data1.Refresh
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
End Sub

Private Sub Command5_Click（)
answer = MsgBox("确定删除数据吗？", 305, ”核对框"）
If answer = 1 Then
Data1。Recordset。Delete
Data1。Refresh
End If
End Sub

Private Sub Form_Load（)
Data1。DatabaseName = App。Path ＆ "\DATABASE\user1.mdb”
End Sub
4.2.2信息录入模块设计
包括对班级信息、学生基本信息、课程信息、学生成绩信息、学生补考信息的录入、修改和删除
1. 班级信息录入
用户在班级输入框中输入要添加的班级信息，点击添加按钮,如果班级信息出现在右侧的表格中就说明信息添加成功.用户也可以对已经添加的信息进行修改和删除,具体操作是选中要修改或者删除的班级信息点击修改或者删除按钮执行相应的操作,如果已经添加的班级信息很多，你可以通过模糊查找来帮你找出比较匹配的班级信息并将查询结果显示在右侧的表格中，便于用户进行修改或删除.如图4-4所示

图4-4 班级信息
班级信息录入的代码:
Private Sub Command1_Click（）
Data1.Recordset。AddNew
Command1。Enabled = False
Command2.Enabled = False
Command3。Enabled = True
Command4。Enabled = True
End Sub

Private Sub Command2_Click（)
Data1。Recordset.Edit
Command1。Enabled = False
Command2。Enabled = False
Command3.Enabled = True
Command4.Enabled = True
End Sub

Private Sub Command3_Click(）
Data1。Recordset。Update
Data1.Refresh
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4。Enabled = False
End Sub

Private Sub Command4_Click（）
Data1.UpdateControls
Data1.Refresh
Command1.Enabled = True
Command2.Enabled = True
Command3。Enabled = False
Command4。Enabled = False
End Sub

Private Sub Command5_Click（）
answer = MsgBox("确定删除数据吗?", 305, ”核对框"）
If answer = 1 Then
Data1.Recordset.Delete
Data1。Refresh
End If
End Sub

Private Sub Command6_Click（）
Dim bm
bm = Data1。Recordset。Bookmark
Data1.Recordset。FindFirst "班级 Like " & "'＊" & Text2。Text ＆ "＊'”
If Data1.Recordset。NoMatch Then
MsgBox ("没有符合条件的记录”）
Data1.Recordset.Bookmark = bm
End If
End Sub
Private Sub Form_Load（）
Data1.DatabaseName = App.Path & ”\DATABASE\stu1.mdb"
End Sub
2. 学生基本信息录入
在此输入学生的基本信息包含班级学号、姓名、性别、出生日期、文化程度、籍贯、民族、入学日期、身份证号等,主要是对学生信息的登记。
管理员还可以在右侧表格中对已经选中的学生信息进行修改或者删除,如果学生信息比较多，而你要进行操作的学生的信息没有显示出来，你可以通过查找进行快速定位，查找分为按学号查找和按姓名查找。如图4-5所示：

图4-5 学生信息
学生信息模块的代码:
Private Sub Command1_Click()
Dim bm
bm = Data1。Recordset.Bookmark
Data1.Recordset。FindFirst ”学号 Like ” & "'*" ＆ Text27。Text & ”*’"
If Data1。Recordset。NoMatch Then
MsgBox （”没有符合条件的记录")
Data1。Recordset。Bookmark = bm
End If
End Sub

Private Sub Command2_Click(）
Dim bm
bm = Data1.Recordset.Bookmark
Data1.Recordset.FindFirst ”姓名 Like ” ＆ ”'*" & Text28.Text & ”*'"
If Data1.Recordset。NoMatch Then
MsgBox (”没有符合条件的记录”）
Data1.Recordset.Bookmark = bm
End If
End Sub

Private Sub Command3_Click()
Dim bm
bm = Data1。Recordset。Bookmark
Data1。Recordset.FindNext ”姓名 Like " ＆ ”'＊" & Text28。Text ＆ "＊’"
If Data1.Recordset。NoMatch Then
MsgBox （"没有符合条件的记录")
Data1.Recordset。Bookmark = bm
End If
End Sub

Private Sub Command4_Click()
Data1.Recordset.AddNew
Command4。Enabled = False
Command5。Enabled = False
Command6。Enabled = True
Command7.Enabled = True
End Sub

Private Sub Command5_Click（）
Data1.Recordset。Edit
Command4。Enabled = False
Command5.Enabled = False
Command6.Enabled = True
Command7.Enabled = True
End Sub

Private Sub Command6_Click（)
Data1。Recordset.Update
Data1。Refresh
Command4。Enabled = True
Command5。Enabled = True
Command6.Enabled = False
Command7.Enabled = False
End Sub

Private Sub Command7_Click（)
Data1.UpdateControls
Data1.Refresh
Command4。Enabled = True
Command5。Enabled = True
Command6。Enabled = False
Command7。Enabled = False
End Sub

Private Sub Command8_Click（)
answer = MsgBox(”确定删除数据吗?"， 305, ”核对框"）
If answer = 1 Then
Data1。Recordset.Delete
Data1。Refresh
End If
End Sub

Private Sub DBGrid1_Click(）
End Sub

Private Sub Form_Load（)
Data1.DatabaseName = App。Path ＆ ”\DATABASE\stu1。mdb"
Data2.DatabaseName = App.Path ＆ ”\DATABASE\stu1。mdb"
End Sub
3.课程信息录入.
主要是对学生所学课程信息进行添加、修改和删除。管理员在课程名输入框中输入要添加的课程名称，点击添加按钮，如果课程信息出现在右侧的表格中，就说明信息添加成功。在这里也可以选中右侧表格中的信息对课程信息进行修改或者删除，管理员也可以通过利用查找功能快速定位你想要操作的课程信息，便于管理。如图4—6所示：

图4—6 课程设置
4。成绩信息录入
管理员在此窗口输入要输入学生所属班级，学生所学的课程和学期后，点击“确定”按钮，在下面的表格中就会列出班级所有学生的学号和姓名,如果某位学生这门学科已经输入成绩则显示该学生的成绩情况.选中要进行成绩录入的学生，在窗口下面就会显示选中学生的“学号”和“姓名”，在后面的输入框中输入相应的信息，点击“确定并输入下一成绩"按钮，该学生的成绩就添加成功了。如果点击“对已输入成绩进行删除”按钮,则将已经输入的成绩信息删除。如图4-7所示

图4-7 成绩信息录入
成绩录入代码如下：
Private Sub Command1_Click（)
MsgBox (”注意，学期一定要输入正确")
SQLStr = ”SELECT 学号，姓名 FROM 学生”
SQLStr = SQLStr + " WHERE 班级 like ” & ”'” & DBCombo1。Text ＆ "’"
SQLStr = SQLStr + "order by 学号"
Data3。RecordSource = SQLStr
Data3.Refresh
Text1。DataField = ”学号"
Text2。DataField = ”姓名”
sSQLStr = ”SELECT 学号，姓名,随堂，平时，考勤,期末，总评，学期 from 成绩"
sSQLStr = sSQLStr + ” where 班级 like " ＆ ”’" ＆ DBCombo1.Text & "’"
sSQLStr = sSQLStr + " and 课程 like " ＆ ”'” & DBCombo2.Text & "’"
sSQLStr = sSQLStr + ”order by 学号"
Data5。RecordSource = sSQLStr
Data5。Refresh
Label10。Caption = Str$（Data3.Recordset.RecordCount）
Label11.Caption = Str＄(Data5.Recordset。RecordCount)
End Sub

Private Sub Command2_Click()
If Data3。Recordset。EOF Then
MsgBox （”已输入完成！”)
Exit Sub
End If
If Text3.Text = "” Or Text4.Text = ”” Or Text5。Text = ”" Or Text6.Text = "” Then
MsgBox ("数据有误”）
Exit Sub
End If
sui = Val（Text3.Text)
ping = Val（Text4.Text)
kaoqin = Val（Text5.Text)
qimo = Val(Text6.Text）
zongping = sui ＊ 0.05 + ping ＊ 0。1 + kaoqin ＊ 0.05 + qimo * 0。8
Text7。Text = Str＄（Int(zongping + 0。5)）
Data4。Recordset。AddNew
Text8.Text = Text1。Text
Text9。Text = Text2.Text
Text10。Text = DBCombo1。Text
Text11.Text = DBCombo2。Text