VB+access成绩分析统计系统论文

1摘 要成绩分析统计系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。此系统设计采用VisualBasic6.0作为数据库的前端开发工具，采用MicrosoftAccess2000关系数据库管理系统作为后台建立数据库并对其进行维护，可以对数据库进行添加、修改、删除等操作。系统能够完成对成绩的查询、录入、修改、删除等有关信息管理的操作，并能对成绩做出简单的分析。除此之外，系统还能够对总成绩及单科成绩进行一些常规的统计，为学生成绩管理者减少繁重而枯燥的工作，节约人力和物力，以及避免一些因人的情绪烦躁而出现的失误。本系统适合于班级成绩管理及统计分析，可以大大提高成绩管理者的工作效率。关键字：成绩分析统计系统 Visual Basic 6.0MicrosoftAccess 2000 数据库2目录摘要1引言2第一章相关知识1.1 Visual Basic 6.0简介21.2数据库概论及ACCESS 2000简介31.3管理信息系统概述31.3.1管理信息系统的组成1.3.2 系统开发的一般方法1.3.3管理信息系统的开发过程第二章系统需求分析及可行性分析2.1设计概要42.2考虑因素52.2.1实用性2.2.2可靠性2.2.3稳定性2.3需求分析52.3.1进行需求分析，初步规划系统功能2.3.2确定管理系统所要具备的功能2.4可行性分析62.4.1技术可行性2.4.2经济可行性2.4.3操作可行性2.4.4法律可行性第三章系统总统规划3.1系统规划63.2系统方框图73.3数据库和数据表的设计7第四章系统详细设计4.1用户登录模块设计84.2系统封面模块设计94.3成绩管理模块设计104.3.1成绩查询模块4.3.2成绩录入模块4.3.3成绩修改模块4.3.4成绩删除模块4.4成绩分析模块设计194.4.1及格率4.4.2优秀率4.5成绩统计模块设计1934.5.1总成绩统计4.5.2单科成绩统计4.6关于模块的设计第五章软件测试5.1 系统测试环境225.2系统总统测试 22第六章总结语致谢23主要参考文献4引 言当今社会是一个讲究效率的信息时代，生活节奏的加快，人们为了节省时间提高工作效率，进行着各种改造、常识和分析，运用各种高科技手段来适应不断变化的社会，致使人们越来越趋向于信息化、数字化发展，各种各样的信息管理系统逐渐成为了人们工作中不可缺少的工具。随着科学技术的不断提高，计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。对于一个班级工作者来说，如何利用计算机改变每次考试结束后统计大量的学生成绩时的繁重任务？如何消除因时间紧所产生的统计结果错误百出？设计出成绩分析统计系统就是一个很好的解决方法。使用成绩分析统计系统对学生成绩进行管理，具有着手工管理无法比拟的优点。例如：检索快速、查询方便、可靠性高、储存量大、保密性好、寿命长、成本低等。这些优点极大地提高了学生成绩管理的效率。成绩分析统计是学校教学管理工作中不可缺少的部分，学生管理信息化程度也反映了一所学校的管理水平。本论文向读者详细介绍了成绩分析统计系统的程序开发过程及使用说明。由于本人使用Visaul Basic6.0开发工具开发一个完整的应用系统并不是很熟练，对成绩管理工作也不是很熟悉，故本系统一定还存在很多不完善的地方，恳切希望老师们给我的设计提出宝贵的意见和建议。5第一章 相关知识本章节重点介绍了本系统设计所用到的开发工具VisualBasic 6.0和后台数据库管理系统ACCESS2000,并对信息管理系统作了简单的概述。1.1 Visual Basic 6.0简介微软公司的visualbasic 6.0是windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。visual basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。它采用面向对象语言，利用组建化的编程思想，可以开发出运行在Microsoft Windows98/2000/ME/XP/NT平台的高效率的应用，而仅仅需要手工书写少量代码，重要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。与其它的流行的编程语言相比，VB 语言简单易学，是高质量的先进软件开发工具。故而，实现本系统VB是一个相对较好的选择。1.2数据库概论及ACCESS 2000 简介数据库是数据管理的最新技术，是计算机科学的重要分之。数据库，顾名思义，是数据存放的仓库。它是指长期储存在计算机内的、有组织的、可共享的数据集合。为了有效的管理数据库，常常需要一些数据库管理系统（DBMS）为用户提供对数据库操作的各种命令、工具及方法，包括数据库的建立和记录的输入、修改、检索、显示、删除和统计。ACCESS 2000是微软开发的基于Windows 95/98/2000及Windows NT平台中应用的关系型数据库管理系统，可以通过各种数据库对象对数据进行控制和管理，不论用户创建的独立桌面数据库适用于个人、部门还是整个企业，ACCESS2000都可以为管理数据生成易于使用的数据库。使用ACCESS 2000创建数据库无须很高的专业程序设计水平就能创建一个功能强大的数据库系统。为此，本系统的数据库采用ACCESS2000作为数据库。1.3管理信息系统概述管理信息系统就是我们常说的MIS（ManagementInformation System），在强调管理，强调信息的现代社会中它变得越来越普及。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学，运筹学、统计学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。1.3.1管理信息系统的组成管理信息系统在企业中的应用存在三个要素，这就是人、计算机和数据。人是指企业、机构领导者、管理人员、技术人员，以及MIS建设的领导机构和实施机构，他们在系统中起主导作用。MIS是一项系统工程，不是只靠一些计6算机开发人员就可以完成的，必须有企业管理人员，尤其是企业领导的积极参与。计算机技术是MIS得以实施的主要技术。在这些技术中，软件开发是MIS开发的重点。第三个因素也不能忽视。企业、机构的管理数据是MIS正常运行的基础。广义地说，各项管理制度是MIS建设成功的基础。试想要计算一台机床的成本，需要按时输入每个部件、每个零件以及每个螺钉螺帽的费用，涉及企业的生产车间、采购、库房、工艺设计和财务等多个部门，必须有一整套管理制度做保证。1.3.2系统开发的一般方法管理信息系统的开发是一个复杂的系统工程，它涉及到计算机处理技术、系统理论、组织结构、管理功能、管理知识等各方面的问题，至今没有一种统一完备的开发方法。但是，每一种开发方法都要遵循相应的开发策略。任何一种开发策略都要明确以下问题： 系统要解决的问题：如采取何种方式解决组织管理和信息处理方面的问题，对企业提出的新的管理需求该如何满足等。 系统可行性研究：确定系统所要实现的目标。通过对企业状况的初步调研得出现状分析的结果，然后提出可行性方案并进行论证。系统可行性的研究包括目标和方案可行性、技术的可行性、经济方面的可行性和社会影响方面的考虑。 系统开发的原则：在系统开发过程中，要遵循领导参与、优化创新、实用高效、处理规范化的原则。 系统开发前的准备工作：作好开发人员的组织准备和企业基础准备工作。 系统开发方法的选择和开发计划的制定：针对己经确定的开发策略选定相应的开发方法，是结构化系统分析和设计方法，还是选择原型法或面向对象的方法。开发计划的制定是要明确系统开发的工作计划、投资计划、工程进度计划和资源利用计划。管理信息系统开发方法主要有：结构化生命周期开发方法、原型法、面向对象的开发方法等。1.3.3管理信息系统的开发过程管理信息系统的开发过程一般包括系统开发准备、系统调查、系统分析、系统设计、系统实现、系统转换、系统运行与维护、系统评价等步骤。根据开发系统的大小、复杂、投入、方式、方法等因素的不同，各步骤的要求和内容也不同，用户需要根据实际情况进行取舍和计划。7第二章系统需求分析及可行性分析本章节主要介绍系统的总体设计概要、设计时需要考虑的因素、用户需求分析和设计要求、系统设计及其可行性分析。2.1设计概要成绩分析统计的计算机管理信息系统，是针对学校教学班的成绩管理而开发的，它主要以成绩管理和成绩统计分析的前台应用为核心，为成绩管理者提供简单、友好的用户界面，减免手工处理的繁琐与误差，能方便的进行成绩查询、录入、修改和删除，并能自动的进行一些常规的数据统计和分析，从而提高成绩管理者的工作效率。2.2考虑因素根据实际应用中的需要及成绩分析统计程序本身的特点，我认为在设计过程中如下几个方面应予以重视：2.2.1实用性按照符合成绩管理者管理成绩的模式提出的方案切实可行性，能够很好的对成绩进行管理，让系统能够满足成绩管理及成绩一般性的统计和分析的要求，充分发挥系统在实际工作中的作用。系统界面友好，工作人员操作简洁。2.2.2可靠性必须保证系统的稳定性和数据的可靠性、安全性。系统须具备较强的容错能力和完整的安全保密机制。2.2.3稳定性应从硬件的高品质和软件的完善性来达到。软件系统的设计，以及应用数据库、软件开发语言都要以系统的日常运行稳定为标准。2.3需求分析需求分析的任务不是具体解决问题，主要确定系统必须具备那些功能。在这个阶段确定的系统逻辑模型是以后设计和实现目标系统的基础，因此必须准确完整地体现用户的要求。2.3.1进行需求分析，初步规划系统功能每次考试之后，考试成绩的管理工作对于成绩管理工作者来说是相当的烦琐，传统的手工操作既浪费了人力，又浪费了物力，效率无法提高，且经常产生差错，而成绩管理系统是各个学校所需要使用的一个管理系统。作为成绩分析统计系统，首先成绩的管理功能是比部可少的。要求能够完成对成绩进行查询、录入、修改和删除；其次，作为分析统计系统当然要对成绩能够进行一些常规的分析和统计，譬如平均分、最高分、最低分、及格率、优秀率等等。8成绩分析统计系统里面的成绩及其他信息，不能让任何人进行查看和修改，为此要对系统设置登录密码，防止他人未经允许而查看成绩或修改成绩。此外，还应考虑系统的操作方便和简洁性，应使界面简单明了，一看就会，便于工作人员的操作。2.3.2确定管理系统所要具备的功能由于成绩管理系统是一个大型的信息管理系统，它需要专业的开发人员才能完成复杂的功能制作，而且每个学校对成绩统计与分析的内容和要求也可能有所区别，而本人所设计的这个成绩分析统计系统作为毕业设计，不可能制作一个标准的适合全部学校教学班的通用成绩管理系统，而只是作为一个小型的成绩分析统计程序。所以根据一般成绩管理的需求及成绩分析统计本身的特点，对管理系统提出以下几个比较简单而常用的功能要求：1用户输入用户名和密码登陆系统；2按学号或姓名对要查询的学生成绩进行查询。3学生成绩录入，录入后按学号的升序排列。根据要修改成绩学生学号修改成绩。4根据学生学号删除该学生的全部成绩或指定某门功课的成绩。5统计班上所学三门课程总分的平均分、最高分和最低分，并显示班上前三名同学的姓名及其总分和最后一名同学各科成绩。6分别统计各门功课的平均分、最高分和最低分。7分析统计各科成绩及总成绩的及格率。8分析统计各科成绩及总成绩的优秀率。9分析统计总成绩的全班排名。2.4可行性分析可行性研究的目的就是要用最小的代价在尽可能短的时间内确定问题是否能够解决。当然不能靠主观猜想而是要靠客观分析。必须分析几种主要的可能解法的利弊，从而判原定的系统目标和规模是否现实，系统完成后所能带来的效益是否大到值得去投资开发这个系统的程度。可行性研究主要从以下五个方面来进行。2.4.1技术可行性使用现有的技术能不能实现这个系统。由于本管理系统的对象单一，仅对某个教学班的成绩进行管理与统计分析，且在对成绩信息进行查询、录入、修改、删除及分析统计基本不涉及到计算过程，这个系统比较适合采用VisualBasic6.0来设计。在计算机硬件和软件快速发展的今天计算机硬件和软件已经远远满足本系统的要求。2.4.2经济可行性这个系统的经济效益能不能超过它的开发成本。本成绩分析统计系统是基于VisualBasic 6.0中文版基础上开发的小型数据库应用程序，不需要多少人力和物力就可以设计的。但本系统一旦投入使用，将大大减少成绩管理人员的工作量，提高了工作效率，其经济效益是显儿易见的。2.4.3操作可行性系统的操作方式在用户组织内能不能行得通。在进行需求分析时，就对用户组织进行了调查，针对他们的情况，设计出适合这个用户组织的人机界面，使操作方式简单明了。2.4.4法律可行性9因为本管理系统是教学班对班上同学成绩的信息管理和成绩分析统计的应用系统，且由本人自己自主开发，因此，不存在法律上的问题。第三章 系统总体规划31 系统规划通过上面的系统需求分析和可行性研究，基本确定了本管理系统的各个功能模块。成绩分析统计系统是成绩管理人员用来存储、查询及统计分析学生成绩的，因此，它是个典型的数据库管理系统。主要由登录模块、程序封面模块、成绩管理模块、成绩统计模块、成绩分析模块、关于模块等组成。3.1.1登录模块该模块的主要作用是为了保证系统的安全性，防止非法用户进入系统对数据进行一切操作。3.1.2 系统封面模块用户输入合法的用户名和密码是进入此界面。除登录模块以外，本系统的其他模块都运行于此界面之下。在设计中，将本系统的退出功能也放在这个模块中。3.1.3成绩管理模块成绩管理模块是成绩分析统计系统中必不可少的，也是本系统的重要部分。在此模块中包含着四个子模块：成绩查询、成绩录入、成绩修改和成绩删除。为了方便查询成绩，在成绩查询子模块中，设计了两种查询方式：按学号查询和按姓名查询，并且系统支持模糊查询。在成绩录入子模块中同时提供了查看成绩的功能，方便管理者录入成绩，避免重复录入和及时发现是否有错。在成绩删除模块中，根据要删除成绩的学生的学号可以对其全部成绩进行删除也可以对指定的科目成绩进行删除。3.1.4 成绩统计模块本模块包含总成绩统计和单科统计两个模块。在总成绩统计模块中，能对所学科目总成绩的平均分、最高分、最低分及总成绩的前三名和最后一名进行统计。而在单科统计模块中则对所学各门功课分别统计出平均分、最高分和最低分。3.1.5成绩分析模块本模块能实现对教学班的成绩进行一般性的分析，例如优秀率、及格率和总成绩的全班排名。32系统方框图10登陆成绩分析统计系统界成绩管理 成绩统计 成绩分析 关于 退出成绩查询 成绩录入 成绩修改 成绩删除 总成绩统计 单科统计 优秀率 及格率 版本权限名次一览表33数据库和数据表的设计在ACCESS 2000中创建一个如下图“student.mdb”的数据表：这是整个系统运行的后台数据库依据，主要存放学生的成绩及相关信息，在设计数据表是要特别注意字段大小的设置，设置过大，浪费存储空间，过小，使得数据存储不下而产生溢出。字段名称 字段类型 字段大小 必须填写学号 文本 10 是姓名 文本 8 是性别 文本 2 是年龄 数字 整型 否英语 数字 单精度 否数学 数字 单精度 否VB 数字 单精度 否备注 文本 50 否11第四章 系统详细设计通过对成绩分析统计系统的需求分析、可行性分析和总体规划，以及后台库的设计，确定了设计本系统所需要的各个模块及各模块所要的基本功能。下面详细介绍本系统的各模块的设计及编码。41 用户登录模块设计：登录模块是为了验证操作人员的合法性而设计的，它要求用户输入的用户名和密码正确。（在这里，为了编程实现的简单起见，制作时采用了一个确定的登录密码（“2005”）。）当输入不正确时，出现“错误”提示，“该用户不存在或者您输入的密码不正确！请重试！”；输入正确时则进入系统。其实现代码为：PrivateSubCommand1_Click()If (cmbUserid.Text = 杨铁军 Or cmbUserid.Text = Admin) Andpassword.Text=2005ThenMIAN主窗口.Showfrm登录.HideUnloadMeElseMsgBox该用户不存在或者您输入的密码不正确！请重试！,vbOKOnly,错误password.Text=password.SetFocusEndIfEndSub系统在窗体载入时同时连接数据库：PrivateSubForm_Load()12窗体载入的时候就连接数据库conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;DataSource=student.mdb;PersistSecurityInfo=Falseconn.OpenMe.cmbUserid.AddItem(杨铁军)Me.cmbUserid.AddItem(Admin)EndSub42 系统封面模块设计：当用户通过身份验证时就进入此界面，可以进行所有操作。为了使系统界面显得美观大方，在设计封面时，采用了一幅画作为背景。在此封面的菜单设计如下：成绩管理（M）成绩查询-成绩录入-成绩修改-成绩删除成绩统计（T）总成绩统计-单科统计成绩分析（F）优秀率及格率名次排行关于（G）13版本权限退出（E）4.3成绩管理模块设计4.3.1成绩查询模块成绩查询提供了两种查询方式：按学号查询和按姓名查询，并且系统支持模糊查询。其结构为：其主要实现代码为：PrivateSubcbo查询_Click()Ifopt按姓名查询.Value=TrueThenSetrs=Nothingsql = select * from student where 姓名 like % & txt按姓名查询.Text&%rs.Opensql,conn,adOpenDynamic,adLockOptimisticSetMSHFlexGrid1.DataSource=rsEndIfIfopt按学号查询.Value=TrueThenSetrs=Nothingsql=select*fromstudentwhere学号 =&cbo按学号查询.Text& rs.Opensql,conn,adOpenDynamic,adLockOptimisticSetMSHFlexGrid1.DataSource=rsEndIfEndSubPrivateSubopt按姓名查询_Click()14Ifopt按姓名查询.Value=TrueThencbo按学号查询.Enabled=Falseopt按学号查询.Value=Falsetxt按姓名查询.Enabled=TrueEndIfcbo按学号查询.ClearEndSubPrivateSubopt按学号查询_Click()Ifopt按学号查询.Value=TrueThencbo按学号查询.Enabled=Trueopt按姓名查询.Value=Falsetxt按姓名查询.Enabled=FalseSetrs=Nothingsql=select*fromstudentrs.Opensql,conn,adOpenDynamic,adLockOptimisticDoWhileNotrs.EOFcbo按学号查询.AddItemrs!学号rs.MoveNextLoopEndIftxt按姓名查询.Text=EndSub4.3.2成绩录入模块在本模块中，本人尝试使用了两个时钟控件来控制窗体。当单击“查看成绩”按纽时，触发时钟控件一，使窗口高度增大， MSHFlexGrid装载数据，显示。并设置条件，当高度达到一定的值时时钟控件一的Enable属性变为False，失去与数据源的连接。当单击“确定”按纽时，清除MSHFlexGrid，并使高度减少，达到一定值时失去效应。源程序窗口为：15其代码实现为：PrivateSubcbo查看成绩_Click()Timer1.Enabled=TrueEndSubPrivateSubcbo关闭_Click()Unloadfrm成绩录入EndSubPrivateSubcbo确定_Click()Timer2.Enabled=TrueMSHFlexGrid1.ClearEndSubPrivateSubcbo添加记录_Click()Iftxt学号.TextAndtxt姓名.TextAndcbo性别.TextAndtxt年龄.TextAndtxt数学.TextAndtxt英语.TextAndtxtvb.TextThenSetrs=Nothingsql=insertintostudent(学号,姓名,性别,年龄,英语,数学,vb)values(&txt学号.Text&,&txt姓名.Text&,&cbo性别.Text&,&txt年龄.Text&,&txt英语.Text&,&txt数学.Text&,&txtvb.Text&)rs.Opensql,conn,adOpenDynamic,adLockOptimisticMsgBox录入完成,vbOKOnly,录入成功txt学号.Text=txt姓名.Text=cbo性别.Cleartxt年龄.Text=txt英语.Text=txt数学.Text=txtvb.Text=EndIfEndSubPrivateSubForm_Load()frm成绩录入.Left=(MIAN主窗口.Width-frm成绩录入.Width)/2frm成绩录入.Top=(MIAN主窗口.Height-frm成绩录入.Height)/2cbo性别.AddItem(男)cbo性别.AddItem(女)EndSubPrivateSubTimer1_Timer()frm成绩录入.Height=frm成绩录入.Height+20016Iffrm成绩录入.Height=8600ThenTimer1.Enabled=FalseSetrs=Nothingsql=select*fromstudentrs.Opensql,conn,adOpenDynamic,adLockOptimisticSetMSHFlexGrid1.DataSource=rsEndIfEndSubPrivateSubTimer2_Timer()frm成绩录入.Height=frm成绩录入.Height-200Iffrm成绩录入.Height=3600ThenTimer2.Enabled=FalseEndIfEndSubPrivateSubtxtvb_Change()pdzmtxtvbEndSubPrivateSubtxt年龄_Change()pdzmtxt年龄EndSubPrivateSubtxt数学_Change()pdzmtxt数学EndSubPrivateSubtxt姓名_Change()pdsztxt姓名EndSubPrivateSubtxt学号_Change()pdzmtxt学号EndSubPrivateSubtxt英语_Change()pdzmtxt英语EndSub4.3.3成绩修改模块根据要修改成绩的学生的学号修改成绩。具体实现窗口为：17其代码为：PrivateSubcbo按学号查询_Click()Setrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查询.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt姓名.Text=rs!姓名txt年龄.Text=rs!年龄cbo性别.Text=rs!性别txt英语.Text=rs!英语txt数学.Text=rs!数学txtvb.Text=rs!VBSetMSHFlexGrid1.DataSource=rsEndSubPrivateSubcbo关闭_Click()UnloadMeEndSubPrivateSubcbo修改_Click()Setrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查询.Text&18rs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.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.UpdateSetrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查询.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt姓名.Text=rs!姓名txt英语.Text=rs!英语txt数学.Text=rs!数学txtvb.Text=rs!VBcbo性别.Text=rs!性别txt年龄.Text=rs!年龄SetMSHFlexGrid1.DataSource=rsMsgBox修改完成,vbOKOnly,修改成功EndSubPrivateSubForm_Load()frm成绩修改.Left=(MIAN主窗口.Width-frm成绩修改.Width)/2frm成绩修改.Top=(MIAN主窗口.Height-frm成绩修改.Height)/2Setrs=Nothingsql=select*fromstudentrs.Opensql,conn,adOpenDynamic,adLockOptimisticDoWhileNotrs.EOFcbo按学号查询.AddItemrs!学号rs.MoveNextLoopcbo性别.AddItem(男)cbo性别.AddItem(女)EndSub4.3.4成绩删除模块根据要删除成绩的学生学号对成绩进行删除，在指定学号的同时为了确认操作的正确性，在其学号的下方将出现该学号的学生姓名。此成绩删除模块可以对指定学生的全部成绩进行删除也可以指定某一门功课。其实现窗体为：19其代码为：PrivateSubcbo按学号查看_Click()Setrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt姓名.Text=rs!姓名cbo按学号查看.Text=rs!学号txt英语.Text=rs!英语txt数学.Text=rs!数学txtvb.Text=rs!VBtxtchk英语.Text=rs!英语txtchk数学.Text=rs!数学txtchkvb.Text=rs!VBEndSubPrivateSubcbo关闭_Click()Unloadfrm成绩删除EndSubPrivateSubcbo确定_Click()Setrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查看.Text&20rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt姓名.Text=rs!姓名cbo按学号查看.Text=rs!学号txt英语.Text=rs!英语txt数学.Text=rs!数学txtvb.Text=rs!VBtxtchk英语.Text=rs!英语txtchk数学.Text=rs!数学txtchkvb.Text=rs!VBEndSubPrivateSubcbo删除_Click()Setrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.Fields(英语).Value=0rs.Fields(数学).Value=0rs.Fields(vb).Value=0rs.UpdateSetrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt姓名.Text=rs!姓名cbo按学号查看.Text=rs!学号txt英语.Text=rs!英语txt数学.Text=rs!数学txtvb.Text=rs!VBtxtchk英语.Text=rs!英语txtchk数学.Text=rs!数学txtchkvb.Text=rs!VBEndSubPrivateSubchkvb_Click()Setrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.Fields(vb).Value=0rs.UpdateEndSub21PrivateSubchk数学_Click()Setrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.Fields(数学).Value=0rs.UpdateEndSubPrivateSubchk英语_Click()Setrs=Nothingsql=select*fromstudentwhere学号=&cbo按学号查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.Fields(英语).Value=0rs.UpdateEndSubPrivateSubForm_Load()frm成绩删除.Left=(MIAN主窗口.Width-frm成绩删除.Width)/2frm成绩删除.Top=(MIAN主窗口.Height-frm成绩删除.Height)/2EndSubPrivateSubopt按学号查看_Click()txt英语.Text=txt数学.Text=txtvb.Text=txtchk英语.Text=txtchk数学.Text=txtchkvb.Text=Ifopt按学号查看.Value=TrueThencbo按学号查看.Enabled=TrueSetrs=Nothingsql=select*fromstudentrs.Opensql,conn,adOpenDynamic,adLockOptimisticDoWhileNotrs.EOFcbo按学号查看.AddItemrs!学号rs.MoveNextLoopEndIfEndSub2244成绩分析模块设计4.4.1及格率模块该模块能够分别统计出每门功课的及格率及总成绩的及格率。其窗口为：4.4.2优秀率模块该模块和及格率模块几乎是一样，只是在算法上稍有不同，其实就是作为被除数的查询条件与及格率不同而已。及格率以60分为界限，而优秀率在这里则以85为标准。45 成绩统计模块设计4.5.1总成绩统计该模块能完成三门课程成绩总分的平均分、最高分、最低分的统计，并且能统计出整个教学班里前三名的总分及其姓名，还能统计出最后一名的总分及其各门成绩。窗口如下：4.5.2单科成绩统计23该模块能自动统计各门功课的平均分、最高分和最低分。只要点击进入该模块各项统计自动出现。窗口如下：其实现代码为：PrivateSubForm_Load()frm单科统计.Left=(MIAN主窗口.Width-frm单科统计.Width)/2frm单科统计.Top=(MIAN主窗口.Height-frm单科统计.Height)/2Setrs=Nothingsql = select avg(英语) as elavg,max(英语) as elmax,min(英语) aselmin,avg(数学)asmtavg,max(数学)asmtmax,min(数学)asmtmin,avg(VB)asvbavg,max(VB)asvbmax,min(VB)asvbminfromstudentrs.Opensql,conn,adOpenDynamic,adLockOptimistictxt英语平均.Text=rs!elavgtxt英语最高.Text=rs!elmaxtxt英语最低.Text=rs!elmintxt数学平均.Text=rs!mtavgtxt数学最高.Text=rs!mtma