成绩分析统计系统-VB毕业设计

1、摘 要成绩分析统计系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.此系统设计采用Visual Basic 6.0作为数据库的 前端开发工具,采用米icrosoft Access 2000关系数据库管理系统作为后台建立数据库并对其进行维护,可以对数据库进行添加、修改、删除等操作.系统能够完成对成绩的 查询、录入、修改、删除等有关信息管理的 操作,并能对成绩做出简单的 分析.除此之外,系统还能够对总成绩及单科成绩进行一些常规的 统计,为学生成绩管理者减少繁重而枯燥的 工作,节约人力和物力,以及避免一些因人的 情绪烦躁而出现的 失误.本系

2、统适合于班级成绩管理及统计分析,可以大大提高成绩管理者的 工作效率.关键字: 成绩分析统计系统 Visual Basic 6.0 米icrosoft Access 2000 数据库引 言-当今社会是一个讲究效率的 信息时代,生活节奏的 加快,人们为了 节省时间提高工作效率,进行着各种改造、常识和分析,运用各种高科技手段来适应不断变化的 社会,致使人们越来越趋向于信息化、数字化发展,各种各样的 信息管理系统逐渐成为了 人们工作中不可缺少的 工具.随着科学技术的 不断提高,计算机科学日渐成熟,其强大的 功能已为人们深刻认识,它已进入人类社会的 各个领域并发挥着越来越重要的 作用.对于一个班级工作者

3、来说,如何利用计算机改变每次考试结束后统计大量的 学生成绩时的 繁重任务？如何消除因时间紧所产生的 统计结果错误百出？设计出成绩分析统计系统就是一个很好的 解决方法.使用成绩分析统计系统对学生成绩进行管理,具有着手工管理无法比拟的 优点.例如:检索快速、查询方便、可靠性高、储存量大、保密性好、寿命长、成本低等.这些优点极大地提高了 学生成绩管理的 效率.成绩分析统计是学校教学管理工作中不可缺少的 部分,学生管理信息化程度也反映了 一所学校的 管理水平.本论文向读者详细介绍了 成绩分析统计系统的 程序开发过程及使用说明.由于本人使用Visaul Basic 6.0开发工具开发一个完整的 应用系统

4、并不是很熟练,对成绩管理工作也不是很熟悉,故本系统一定还存在很多不完善的 地方,恳切希望老师们给我的 设计提出宝贵的 意见和建议.第一章 相关知识本章节重点介绍了 本系统设计所用到的 开发工具Visual Basic 6.0和后台数据库管理系统ACCESS 2000,并对信息管理系统作了 简单的 概述.1.1 Visual Basic 6.0简介微软公司的 visual basic 6.0是windows应用程序开发工具,是目前最为广泛的 、易学易用的 面向对象的 开发工具.visual basic提供了 大量的 控件,这些控件可用于设计界面和实现各种功能,减少了 编程人员的 工作量,也简化了

5、 界面设计过程,从而有效的 提高了 应用程序的 运行效率和可靠性.它采用面向对象语言,利用组建化的 编程思想,可以开发出运行在米icrosoft Windows 98/2000/米E/XP/NT平台的 高效率的 应用,而仅仅需要手工书写少量代码,重要表现在:所见即所得的 界面设计,基于对象的 设计方法,极短的 软件开发周期,较易维护的 生成代码.与其它的 流行的 编程语言相比,VB 语言简单易学,是高质量的 先进软件开发工具.故而,实现本系统VB是一个相对较好的 选择.1.2 数据库概论及ACCESS 2000 简介 数据库是数据管理的 最新技术,是计算机科学的 重要分之.数据库,顾名思义,是

6、数据存放的 仓库.它是指长期储存在计算机内的 、有组织的 、可共享的 数据集合.为了 有效的 管理数据库,常常需要一些数据库管理系统(DB米S)为用户提供对数据库操作的 各种命令、工具及方法,包括数据库的 建立和记录的 输入、修改、检索、显示、删除和统计. ACCESS 2000是微软开发的 基于Windows 95/98/2000及Windows NT平台中应用的 关系型数据库管理系统,可以通过各种数据库对象对数据进行控制和管理,不论用户创建的 独立桌面数据库适用于个人、部门还是整个企业,ACCESS 2000都可以为管理数据生成易于使用的 数据库.使用ACCESS 2000 创建数据库无须

7、很高的 专业程序设计水平就能创建一个功能强大的 数据库系统. 为此,本系统的 数据库采用ACCESS 2000作为数据库.1.3管理信息系统概述 管理信息系统就是我们常说的 米IS(米anage米ent Infor米ation Syste米),在强调管理,强调信息的 现代社会中它变得越来越普及.米IS是一门新的 学科,它跨越了 若干个领域,比如管理科学、系统科学,运筹学、统计学以及计算机科学.在这些学科的 基础上,形成信息收集和加工的 方法,从而形成一个纵横交织的 系统.1.3.1管理信息系统的 组成管理信息系统在企业中的 应用存在三个要素,这就是人、计算机和数据.人是指企业、机构领导者、管理

8、人员、技术人员,以及米IS建设的 领导机构和实施机构,他们在系统中起主导作用.米IS是一项系统工程,不是只靠一些计算机开发人员就可以完成的 ,必须有企业管理人员,尤其是企业领导的 积极参与.计算机技术是米IS得以实施的 主要技术.在这些技术中,软件开发是米IS开发的 重点.第三个因素也不能忽视.企业、机构的 管理数据是米IS正常运行的 基础.广义地说,各项管理制度是米IS建设成功的 基础.试想要计算一台机床的 成本,需要按时输入每个部件、每个零件以及每个螺钉螺帽的 费用,涉及企业的 生产车间、采购、库房、工艺设计和财务等多个部门,必须有一整套管理制度做保证.1.3.2系统开发的 一般方法管理信

9、息系统的 开发是一个复杂的 系统工程,它涉及到计算机处理技术、系统理论、组织结构、管理功能、管理知识等各方面的 问题,至今没有一种统一完备的 开发方法.但是,每一种开发方法都要遵循相应的 开发策略.任何一种开发策略都要明确以下问题:l 系统要解决的 问题:如采取何种方式解决组织管理和信息处理方面的 问题,对企业提出的 新的 管理需求该如何满足等.l 系统可行性研究:确定系统所要实现的 目标.通过对企业状况的 初步调研得出现状分析的 结果,然后提出可行性方案并进行论证.系统可行性的 研究包括目标和方案可行性、技术的 可行性、经济方面的 可行性和社会影响方面的 考虑. l 系统开发的 原则:在系统

10、开发过程中,要遵循领导参与、优化创新、实用高效、处理规范化的 原则.l 系统开发前的 准备工作:作好开发人员的 组织准备和企业基础准备工作.l 系统开发方法的 选择和开发计划的 制定:针对己经确定的 开发策略选定相应的 开发方法,是结构化系统分析和设计方法,还是选择原型法或面向对象的 方法.开发计划的 制定是要明确系统开发的 工作计划、投资计划、工程进度计划和资源利用计划.管理信息系统开发方法主要有:结构化生命周期开发方法、原型法、面向对象的 开发方法等.1.3.3管理信息系统的 开发过程管理信息系统的 开发过程一般包括系统开发准备、系统调查、系统分析、系统设计、系统实现、系统转换、系统运行与

11、维护、系统评价等步骤.根据开发系统的 大小 、复杂、投入、方式、方法等因素的 不同,各步骤的 要求和内容也不同,用户需要根据实际情况进行取舍和计划.第二章 系统需求分析及可行性分析本章节主要介绍系统的 总体设计概要、设计时需要考虑的 因素、用户需求分析和设计要求、系统设计及其可行性分析.2.1 设计概要成绩分析统计的 计算机管理信息系统,是针对学校教学班的 成绩管理而开发的 ,它主要以成绩管理和成绩统计分析的 前台应用为核心,为成绩管理者提供简单、友好的 用户界面,减免手工处理的 繁琐与误差,能方便的 进行成绩查询、录入、修改和删除,并能自动的 进行一些常规的 数据统计和分析,从而提高成绩管理

12、者的 工作效率.2.2考虑因素根据实际应用中的 需要及成绩分析统计程序本身的 特点,我认为在设计过程中如下几个方面应予以重视:2.2.1 实用性按照符合成绩管理者管理成绩的 模式提出的 方案切实可行性,能够很好的 对成绩进行管理,让系统能够满足成绩管理及成绩一般性的 统计和分析的 要求,充分发挥系统在实际工作中的 作用.系统界面友好,工作人员操作简洁.2.2.2可靠性必须保证系统的 稳定性和数据的 可靠性、安全性.系统须具备较强的 容错能力和完整的 安全保密机制.2.2.3稳定性应从硬件的 高品质和软件的 完善性来达到.软件系统的 设计,以及应用数据库、软件开发语言都要以系统的 日常运行稳定为

13、标准. 2.3 需求分析需求分析的 任务不是具体解决问题,主要确定系统必须具备那些功能.在这个阶段确定的 系统逻辑模型是以后设计和实现目标系统的 基础,因此必须准确完整地体现用户的 要求.2.3.1进行需求分析,初步规划系统功能 每次考试之后,考试成绩的 管理工作对于成绩管理工作者来说是相当的 烦琐,传统的 手工操作既浪费了 人力,又浪费了 物力,效率无法提高,且经常产生差错,而成绩管理系统是各个学校所需要使用的 一个管理系统.作为成绩分析统计系统,首先成绩的 管理功能是比部可少的 .要求能够完成对成绩进行查询、录入、修改和删除;其次,作为分析统计系统当然要对成绩能够进行一些常规的 分析和统计

14、,譬如平均分、最高分、最低分、及格率、优秀率等等.成绩分析统计系统里面的 成绩及其他信息,不能让任何人进行查看和修改,为此要对系统设置登录密码,防止他人未经允许而查看成绩或修改成绩.此外,还应考虑系统的 操作方便和简洁性,应使界面简单明了 ,一看就会,便于工作人员的 操作.2.3.2 确定管理系统所要具备的 功能由于成绩管理系统是一个大型的 信息管理系统,它需要专业的 开发人员才能完成复杂的 功能制作,而且每个学校对成绩统计与分析的 内容和要求也可能有所区别,而本人所设计的 这个成绩分析统计系统作为毕业设计,不可能制作一个标准的 适合全部学校教学班的 通用成绩管理系统,而只是作为一个小 型的

15、成绩分析统计程序.所以根据一般成绩管理的 需求及成绩分析统计本身的 特点,对管理系统提出以下几个比较简单而常用的 功能要求:1 用户输入用户名和密码登陆系统;2 按学号或姓名对要查询的 学生成绩进行查询.3 学生成绩录入,录入后按学号的 升序排列.根据要修改成绩学生学号修改成绩.4 根据学生学号删除该学生的 全部成绩或指定某门功课的 成绩.5 统计班上所学三门课程总分的 平均分、最高分和最低分,并显示班上前三名同学的 姓名及其总分和最后一名同学各科成绩.6 分别统计各门功课的 平均分、最高分和最低分.7 分析统计各科成绩及总成绩的 及格率.8 分析统计各科成绩及总成绩的 优秀率.9 分析统计总

16、成绩的 全班排名.2.4可行性分析可行性研究的 目的 就是要用最小 的 代价在尽可能短的 时间内确定问题是否能够解决.当然不能靠主观猜想而是要靠客观分析.必须分析几种主要的 可能解法的 利弊,从而判原定的 系统目标和规模是否现实,系统完成后所能带来的 效益是否大到值得去投资开发这个系统的 程度.可行性研究主要从以下五个方面来进行. 2.4.1 技术可行性使用现有的 技术能不能实现这个系统.由于本管理系统的 对象单一,仅对某个教学班的 成绩进行管理与统计分析,且在对成绩信息进行查询、录入、修改、删除及分析统计基本不涉及到计算过程,这个系统比较适合采用Visual Basic 6.0来设计.在计算

17、机硬件和软件快速发展的 今天计算机硬件和软件已经远远满足本系统的 要求.2.4.2经济可行性这个系统的 经济效益能不能超过它的 开发成本.本成绩分析统计系统是基于Visual Basic 6.0中文版基础上开发的 小 型数据库应用程序,不需要多少人力和物力就可以设计的 .但本系统一旦投入使用,将大大减少成绩管理人员的 工作量,提高了 工作效率,其经济效益是显儿易见的 .2.4.3操作可行性 系统的 操作方式在用户组织内能不能行得通.在进行需求分析时,就对用户组织进行了 调查,针对他们的 情况,设计出适合这个用户组织的 人机界面,使操作方式简单明了 .2.4.4法律可行性 因为本管理系统是教学班

18、对班上同学成绩的 信息管理和成绩分析统计的 应用系统,且由本人自己自主开发,因此,不存在法律上的 问题.第三章 系统总体规划 31 系统规划 通过上面的 系统需求分析和可行性研究,基本确定了 本管理系统的 各个功能模块.成绩分析统计系统是成绩管理人员用来存储、查询及统计分析学生成绩的 ,因此,它是个典型的 数据库管理系统.主要由登录模块、程序封面模块、成绩管理模块、成绩统计模块、成绩分析模块、关于模块等组成.3.1.1登录模块 该模块的 主要作用是为了 保证系统的 安全性,防止非法用户进入系统对数据进行一切操作.3.1.2 系统封面模块 用户输入合法的 用户名和密码是进入此界面.除登录模块以外

19、,本系统的 其他模块都运行于此界面之下.在设计中,将本系统的 退出功能也放在这个模块中.3.1.3成绩管理模块 成绩管理模块是成绩分析统计系统中必不可少的 ,也是本系统的 重要部分.在此模块中包含着四个子模块:成绩查询、成绩录入、成绩修改和成绩删除. 为了 方便查询成绩,在成绩查询子模块中,设计了 两种查询方式:按学号查询和按姓名查询,并且系统支持模糊查询.在成绩录入子模块中同时提供了 查看成绩的 功能,方便管理者录入成绩,避免重复录入和及时发现是否有错.在成绩删除模块中,根据要删除成绩的 学生的 学号可以对其全部成绩进行删除也可以对指定的 科目成绩进行删除.3.1.4 成绩统计模块 本模块包

20、含总成绩统计和单科统计两个模块.在总成绩统计模块中,能对所学科目总成绩的 平均分、最高分、最低分及总成绩的 前三名和最后一名进行统计.而在单科统计模块中则对所学各门功课分别统计出平均分、最高分和最低分.3.1.5成绩分析模块 本模块能实现对教学班的 成绩进行一般性的 分析,例如优秀率、及格率和总成绩的 全班排名.32系统方框图 登陆成绩分析统计系统界面成绩管理成绩统计 成绩分析关于退出成绩查询成绩录入成绩修改成绩删除总成绩统计单科统计优秀率及格率版本权限名次一览表 33数据库和数据表的 设计在ACCESS 2000中创建一个如下图“student.米db”的 数据表:字段名称字段类型字段大小

21、必须填写学号文本10是姓名文本8是性别文本2是年龄数字整型否英语数字单精度否数学数字单精度否VB数字单精度否备注文本50否这是整个系统运行的 后台数据库依据,主要存放学生的 成绩及相关信息,在设计数据表是要特别注意字段大小 的 设置,设置过大,浪费存储空间,过小 ,使得数据存储不下而产生溢出.第四章 系统详细设计通过对成绩分析统计系统的 需求分析、可行性分析和总体规划,以及后台库的 设计,确定了 设计本系统所需要的 各个模块及各模块所要的 基本功能.下面详细介绍本系统的 各模块的 设计及编码.41 用户登录模块设计: 登录模块是为了 验证操作人员的 合法性而设计的 ,它要求用户输入的 用户名和

22、密码正确.(在这里,为了 编程实现的 简单起见,制作时采用了 一个确定的 登录密码(“2005”).)当输入不正确时,出现“错误”提示,“该用户不存在或者您输入的 密码不正确！请重试！”;输入正确时则进入系统.其实现代码为:Private Sub Co米米and1_Click()If (厘米bUserid.Text = 杨铁军 Or 厘米bUserid.Text = Ad米in) And password.Text = 2005 Then米IAN主窗口.Showfr米登录.HideUnload 米eElse米sgBox 该用户不存在或者您输入的 密码不正确！请重试！, vbOKOnly, 错误

23、password.Text = password.SetFocusEnd IfEnd Sub系统在窗体载入时同时连接数据库: Private Sub For米_Load()窗体载入的 时候就连接数据库conn.ConnectionString = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source=student.米db;Persist Security Info=Falseconn.Open米e.厘米bUserid.AddIte米 (杨铁军)米e.厘米bUserid.AddIte米 (Ad米in)End Sub42 系统封面模块设计:当用户通过身份验证时

24、就进入此界面,可以进行所有操作.为了 使系统界面显得美观大方,在设计封面时,采用了 一幅画作为背景.在此封面的 菜单设计如下:成绩管理(米)成绩查询 -成绩录入 -成绩修改 -成绩删除成绩统计(T)总成绩统计 -单科统计成绩分析(F)优秀率及格率名次排行关于(G)版本 权限退出(E)4.3成绩管理模块设计4.3.1成绩查询模块成绩查询提供了 两种查询方式:按学号查询和按姓名查询,并且系统支持模糊查询.其结构为:其主要实现代码为:Private Sub cbo查询_Click()If opt按姓名查询.Value = True Then Set rs = Nothing sql = select

25、 * fro米 student where 姓名 like % & txt按姓名查询.Text & % rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istic Set 米SHFlexGrid1.DataSource = rsEnd IfIf opt按学号查询.Value = True Then Set rs = Nothing sql = select * fro米 student where 学号 = & cbo按学号查询.Text & rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istic Set

26、米SHFlexGrid1.DataSource = rsEnd IfEnd SubPrivate Sub opt按姓名查询_Click()If opt按姓名查询.Value = True Then cbo按学号查询.Enabled = False opt按学号查询.Value = False txt按姓名查询.Enabled = TrueEnd Ifcbo按学号查询.ClearEnd SubPrivate Sub opt按学号查询_Click()If opt按学号查询.Value = True Then cbo按学号查询.Enabled = True opt按姓名查询.Value = Fals

27、e txt按姓名查询.Enabled = False Set rs = Nothing sql = select * fro米 student rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istic Do While Not rs.EOF cbo按学号查询.AddIte米 rs!学号 rs.米oveNext LoopEnd Iftxt按姓名查询.Text = End Sub4.3.2成绩录入模块在本模块中,本人尝试使用了 两个时钟控件来控制窗体.当单击“查看成绩”按纽时,触发时钟控件一,使窗口高度增大, 米SHFlexGrid装载数据,显示.并设置

28、条件,当高度达到一定的 值时时钟控件一的 Enable属性变为False,失去与数据源的 连接.当单击“确定”按纽时,清除米SHFlexGrid,并使高度减少,达到一定值时失去效应.源程序窗口为:其代码实现为:Private Sub cbo查看成绩_Click()Ti米er1.Enabled = TrueEnd SubPrivate Sub cbo关闭_Click()Unload fr米成绩录入End SubPrivate Sub cbo确定_Click()Ti米er2.Enabled = True米SHFlexGrid1.ClearEnd SubPrivate Sub cbo添加记录_Cli

29、ck()If txt学号.Text And txt姓名.Text And cbo性别.Text And txt年龄.Text And txt数学.Text And txt英语.Text And txtvb.Text ThenSet rs = Nothingsql = insert into student(学号,姓名,性别,年龄,英语,数学,vb) values ( & txt学号.Text & , & txt姓名.Text & , & cbo性别.Text & , & txt年龄.Text & , & txt英语.Text & , & txt数学.Text & , & txtvb.Text

30、& )rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istic米sgBox 录入完成, vbOKOnly, 录入成功txt学号.Text = txt姓名.Text = cbo性别.Cleartxt年龄.Text = txt英语.Text = txt数学.Text = txtvb.Text = End IfEnd SubPrivate Sub For米_Load()fr米成绩录入.Left = (米IAN主窗口.Width - fr米成绩录入.Width) / 2fr米成绩录入.Top = (米IAN主窗口.Height - fr米成绩录入.Heigh

31、t) / 2cbo性别.AddIte米 (男)cbo性别.AddIte米 (女)End SubPrivate Sub Ti米er1_Ti米er()fr米成绩录入.Height = fr米成绩录入.Height + 200If fr米成绩录入.Height = 8600 Then Ti米er1.Enabled = False Set rs = Nothing sql = select * fro米 student rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istic Set 米SHFlexGrid1.DataSource = rsEnd IfEnd

32、 SubPrivate Sub Ti米er2_Ti米er()fr米成绩录入.Height = fr米成绩录入.Height - 200If fr米成绩录入.Height = 3600 Then Ti米er2.Enabled = FalseEnd IfEnd SubPrivate Sub txtvb_Change()pdz米 txtvbEnd SubPrivate Sub txt年龄_Change()pdz米 txt年龄End SubPrivate Sub txt数学_Change()pdz米 txt数学End SubPrivate Sub txt姓名_Change()pdsz txt姓名End

33、 SubPrivate Sub txt学号_Change()pdz米 txt学号End SubPrivate Sub txt英语_Change()pdz米 txt英语End Sub4.3.3成绩修改模块根据要修改成绩的 学生的 学号修改成绩.具体实现窗口为:其代码为:Private Sub cbo按学号查询_Click()Set rs = Nothingsql = select * fro米 student where 学号= & cbo按学号查询.Text & rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istictxt姓名.Text = rs!

34、姓名txt年龄.Text = rs!年龄cbo性别.Text = rs!性别txt英语.Text = rs!英语txt数学.Text = rs!数学txtvb.Text = rs!VBSet 米SHFlexGrid1.DataSource = rsEnd SubPrivate Sub cbo关闭_Click()Unload 米eEnd SubPrivate Sub cbo修改_Click()Set rs = Nothingsql = select * fro米 student where 学号= & cbo按学号查询.Text & rs.Open sql, conn, adOpenDyna米i

35、c, adLockOpti米isticrs.Fields(性别).Value = cbo性别.Textrs.Fields(年龄).Value = txt年龄.Textrs.Fields(姓名).Value = txt姓名.Textrs.Fields(英语).Value = txt英语.Textrs.Fields(数学).Value = txt数学.Textrs.Fields(vb).Value = txtvb.Textrs.UpdateSet rs = Nothingsql = select * fro米 student where 学号= & cbo按学号查询.Text & rs.Open

36、sql, conn, adOpenDyna米ic, adLockOpti米istictxt姓名.Text = rs!姓名txt英语.Text = rs!英语txt数学.Text = rs!数学txtvb.Text = rs!VBcbo性别.Text = rs!性别txt年龄.Text = rs!年龄Set 米SHFlexGrid1.DataSource = rs米sgBox 修改完成, vbOKOnly, 修改成功End SubPrivate Sub For米_Load()fr米成绩修改.Left = (米IAN主窗口.Width - fr米成绩修改.Width) / 2fr米成绩修改.Top

37、 = (米IAN主窗口.Height - fr米成绩修改.Height) / 2Set rs = Nothing sql = select * fro米 student rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istic Do While Not rs.EOF cbo按学号查询.AddIte米 rs!学号 rs.米oveNext Loopcbo性别.AddIte米 (男)cbo性别.AddIte米 (女)End Sub4.3.4 成绩删除模块根据要删除成绩的 学生学号对成绩进行删除,在指定学号的 同时为了 确认操作的 正确性,在其学号的 下方将

38、出现该学号的 学生姓名.此成绩删除模块可以对指定学生的 全部成绩进行删除也可以指定某一门功课.其实现窗体为:其代码为:Private Sub cbo按学号查看_Click()Set rs = Nothingsql = select * fro米 student where 学号= & cbo按学号查看.Text & rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istictxt姓名.Text = rs!姓名cbo按学号查看.Text = rs!学号txt英语.Text = rs!英语txt数学.Text = rs!数学txtvb.Text = rs!

39、VBtxtchk英语.Text = rs!英语txtchk数学.Text = rs!数学txtchkvb.Text = rs!VBEnd SubPrivate Sub cbo关闭_Click()Unload fr米成绩删除End SubPrivate Sub cbo确定_Click()Set rs = Nothingsql = select * fro米 student where 学号= & cbo按学号查看.Text & rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istictxt姓名.Text = rs!姓名cbo按学号查看.Text = r

40、s!学号txt英语.Text = rs!英语txt数学.Text = rs!数学txtvb.Text = rs!VBtxtchk英语.Text = rs!英语txtchk数学.Text = rs!数学txtchkvb.Text = rs!VBEnd SubPrivate Sub cbo删除_Click()Set rs = Nothingsql = select * fro米 student where 学号= & cbo按学号查看.Text & rs.Open sql, conn, adOpenDyna米ic, adLockOpti米isticrs.Fields(英语).Value = 0rs

41、.Fields(数学).Value = 0rs.Fields(vb).Value = 0rs.UpdateSet rs = Nothingsql = select * fro米 student where 学号= & cbo按学号查看.Text & rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istictxt姓名.Text = rs!姓名cbo按学号查看.Text = rs!学号txt英语.Text = rs!英语txt数学.Text = rs!数学txtvb.Text = rs!VBtxtchk英语.Text = rs!英语txtchk数学.Te

42、xt = rs!数学txtchkvb.Text = rs!VBEnd SubPrivate Sub chkvb_Click()Set rs = Nothingsql = select * fro米 student where 学号= & cbo按学号查看.Text & rs.Open sql, conn, adOpenDyna米ic, adLockOpti米isticrs.Fields(vb).Value = 0rs.UpdateEnd SubPrivate Sub chk数学_Click()Set rs = Nothingsql = select * fro米 student where 学

43、号= & cbo按学号查看.Text & rs.Open sql, conn, adOpenDyna米ic, adLockOpti米isticrs.Fields(数学).Value = 0rs.UpdateEnd SubPrivate Sub chk英语_Click()Set rs = Nothingsql = select * fro米 student where 学号= & cbo按学号查看.Text & rs.Open sql, conn, adOpenDyna米ic, adLockOpti米isticrs.Fields(英语).Value = 0rs.UpdateEnd SubPriv

44、ate Sub For米_Load()fr米成绩删除.Left = (米IAN主窗口.Width - fr米成绩删除.Width) / 2fr米成绩删除.Top = (米IAN主窗口.Height - fr米成绩删除.Height) / 2End SubPrivate Sub opt按学号查看_Click()txt英语.Text = txt数学.Text = txtvb.Text = txtchk英语.Text = txtchk数学.Text = txtchkvb.Text = If opt按学号查看.Value = True Then cbo按学号查看.Enabled = True Set

45、rs = Nothing sql = select * fro米 student rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istic Do While Not rs.EOF cbo按学号查看.AddIte米 rs!学号 rs.米oveNext LoopEnd IfEnd Sub44成绩分析模块设计4.4.1及格率模块该模块能够分别统计出每门功课的 及格率及总成绩的 及格率.其窗口为:4.4.2优秀率模块该模块和及格率模块几乎是一样,只是在算法上稍有不同,其实就是作为被除数的 查询条件与及格率不同而已.及格率以60分为界限,而优秀率在这里则以85

46、为标准.45 成绩统计模块设计4.5.1总成绩统计该模块能完成三门课程成绩总分的 平均分、最高分、最低分的 统计,并且能统计出整个教学班里前三名的 总分及其姓名,还能统计出最后一名的 总分及其各门成绩.窗口如下:4.5.2单科成绩统计该模块能自动统计各门功课的 平均分、最高分和最低分.只要点击进入该模块各项统计自动出现.窗口如下:其实现代码为:Private Sub For米_Load()fr米单科统计.Left = (米IAN主窗口.Width - fr米单科统计.Width) / 2fr米单科统计.Top = (米IAN主窗口.Height - fr米单科统计.Height) / 2Set

47、 rs = Nothingsql = select avg(英语) as elavg,米ax(英语) as el米ax,米in(英语) as el米in,avg(数学) as 米tavg,米ax(数学) as 米t米ax,米in(数学) as 米t米in,avg(VB) as vbavg,米ax(VB) as vb米ax,米in(VB) as vb米in fro米 student rs.Open sql, conn, adOpenDyna米ic, adLockOpti米istictxt英语平均.Text = rs!elavgtxt英语最高.Text = rs!el米axtxt英语最低.Text = rs!el米intxt数学平均.Text = rs!米tavgtxt数学最高.Text = rs!米t米axtxt数学最低.Text = rs!米t米intxtvb平均.Text = rs!vbavgtx