第一篇：学生成绩管理系统(论题报告)
专业：
姓名：
电子邮箱：
联系电话：
学生成绩管理系统
（论题报告）
一、论题提出的背景和意义
在21世纪的科技时代,科学技术突飞猛进,计算机已经不仅是在科技上应用,而且在生活中也是同样得到了广泛应用。在我国，教育是一个影响着国富民强的重要行业，随着改革开放和市场经济的发展，教育得到了国家的大力扶持与社会各界的高度重视，从而使教育业向规范性与现代化的方向高速发展。但是同发达国家相比，我国的教育行业的信息技术的应用程度还很低，只有在大城市中发展较早、规模较大的院校中才使用计算机进行大规模操作，从各方面提高工作效率，取得良好的社会和经济效益。而一些新兴的、规模较小的教育机构还没有全部具备这种功能。因此可见，随着我国教育的迅速发展，信息技术在其上的应用会更加地广泛和深入。学生成绩管理是学校管理中非常重要的一个环节，是整个学校教务管理中的重要一部分，鉴于它的重要性，学生成绩管理系统的开发与应用就逐渐提入议程。运用学生成绩管理系统可以减轻学院教学人员的工作量，加快查询速度，加强管理。
运用学生成绩管理系统可以缩小教学开支，提高工作效率与准确率，学校能够合理安排时间，学生能够尽快的知道考试成绩，以便投入新的课程的学习或复习这次没有考过的课程。而学生成绩管理系统的应用也为今天的民办教育在未来市场的竞争力有所提高。从大的方向说，就是为了加速我国四化建设的发展，实
现全部的自动化，使我国发展成为通讯网络化，决策科学化，办公自动化的国家。
二、目前学生成绩管理存在的现状
在我国，各大中小学校的各类信息管理系统并非一个新的课题，但也有的学校根本就没有任何信息管理系统，所有的工作几乎还是手工操作来完成。计算机技术在日新月异的发展，但是有的很多学校，特别是在西部贫困地区，学校的信息管理都依然由手工操作来完成，这十分落后，效率极低，成本很大，而且极异出错。随着社会的发展，信息化是社会进程的必然趋势，学校管理只有快，准，精才能发挥其价值。所以机器代替人力是必然的历史发展趋势，只有领导的重视和支持才能从人工操作改为计算机的自动化系统。人工操作必将被计算机代替。
纵观目前国内研究现状，在安全性和信息更新化方面存在有一定的不足，各现有系统资料单独建立，共享性差；在以管理者为主体的方式中，信息取舍依赖管理者对于信息的认知与喜好，较不容易掌握用户真正的需求，也因此无法完全满足用户的需求。
三、开发学生成绩管理系统的必要性和可行性
学生成绩管理是各大学的主要日常管理工作之一，涉及到校、系、师、生的诸多方面，随着教学体制的不断改革，尤其是学分制、选课制的展开和深入，学生成绩日常管理工作及保存管理日趋繁重、复杂。迫切需要研制开发一款功能强大，操作简单，具有人性化的学生成绩管理系统。作为学校，学生成绩管理的计算机化是整个学校管理中的重要一部分，能否实现这一步关系到学校办学整体效率的高低，介与它的重要性，学生成绩管理系统的开发与应用就逐渐提入议程，并占着越来越重要的份量。
技术可行性-----本系统将采用ASP.Net4.0+SQL Server 2008进行开发,供管理人员在本地机上完成对数据库的各种修改工作.并且采用了数据访问技术ADO.Net使之能更好地访问本地和远程的数据库;在数据环境方面,允许程序员可视化地创建和操作ADO.Net连接命令等优点,SQL Server 2008是一款非常成熟的数据库管理软件,提供了强大的数据库访问功能,为数据库管理与分析带来灵活性,因此, 对于软件技术要求，C#语言已非常成熟。
经济可行性-----系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。对机器本身没有太高的要求，学校用于学生管理的微机在存储量、速度方面都能满足数据库运行的要求。计算机装上该应用软件，即可使用系统，当系统投入运行后可以为学校节约大量的人力，物力，在经济上完全可行。
操作可行性-----数据录入迅速、规范、可靠；统计准确；制表灵活；适应力强；容易扩充。
四、开发学生成绩管理系统的构想
（一）、系统分析
成绩管理系统的业务总体目标是建立一个先进、高效、安全、可靠的能被有效和应用于学生成绩管理的信息化数据库管理系统。
由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。并且学校用于学生成绩管理的微机在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，借助于网上资料，因此完全可以实现。
本系统用户角色主要有两类：系统管理员与普通用户。其中系统管理员可进行用户管理。普通用户可分为学生、老师等用户。
系统管理员：可进行用户管理，权限分配，信息查询等工作。
教师：可进行学生信息管理，课程信息管理，成绩管理，授课信息管理，信息查询，成绩统计等工作。
学生：可进行成绩查询等操作。
（二）、系统设计
1.开发语言：C#
该系统基于B/S结构，即采用浏览器/服务器模式，服务器端由运行ASP.Net的Web应用程序及运行Microsoft SQL Server2008的数据库服务器组成，Web服务器使用IIS6.0，运行环境为windows平台，可以使用浏览器访问本系统。本信息系统体现了学生成绩管理的业务逻辑行为、大大简化了相关工作的烦琐流
程，同时为管理层提供有力的决策支持。
2.开发工具的选择：
针对目前世界上流行的大量软件和开发工具，经过认真分析其优缺点，结合本系统特点，我们选用Microsoft Visual Studio作为软件开发工具。Visual Studio是一种可视化的、面向对象和调用事件驱动方式的结构化高级程序设计，可用于开发windows环境下的种类应用程序。它简单易学、效率高，而且功能强大。可以高效、快速地开发出windows环境下功能强大、图形界面丰富的应用软件系统。
3.数据库系统的选择：
Microsoft SQL Server 是一个具备完全Web支持的数据库产品，提供了可扩展标记语言核心支持以及Internet上和防火墙外进行查询的能力，具有可伸缩性、灵活性、扩充性好，而且价格便宜的特点。本系统选用Microsoft SQL Server2008作为数据库系统。
五、进度安排
2月15日-20日 系统调查分析、设计
2月21日-29日 系统实施、运行与维护
3月1日 提交论文
3月2日-15日根据指导老师的意见对系统进行调整、修改论文
3月16日以后准备答辩
六、系统预计成果
本系统从功能上划分可分为功能模块管理，组权限管理,学生信息管理,课程信息管理,学生成绩管理,授课信息管理等几大模块。以下将对各子模块进行说明。
1.功能模块管理：
将系统功能模块保存到数据库中以便于动态地进行不同用户组权限的分配等操作。本模块包括功能模块的添加，删除，修改等。
2.组权限管理：
对用户进行分组，并将权限设置到不同的用户组，添加、修改、删除用户信息。
3.学生信息管理：
输入学生基本信息，并可以对学生信息进行添加、查询、修改、删除。还可查询并输出学生基本信息。
4.课程信息管理：
设置课程号，课程名等课程信息。
5.成绩信息管理：
输入成绩信息，并可以对成绩信息进行添加、查询、修改、删除。还可以用关键字查询，并对学生基本成绩信息修改、删除等。输出查询的学生成绩信息，可以打印成绩单。
6.授课信息管理:
对教师授课信息的调度，安排等信息的管理。
主要参考资料：
C#与.NET 4高级程序设计Andrew Troelsen著，朱晔译人民邮电出版社 ADO.NET数据库应用开发张俊崔海波著机械工业出版社 C#开发技术大全明日科技 著人民邮电出版社 ASP.NETWeb程序设计蒋培，王笑敏 著清华大学出版社 SQL学习指南比利 著，张伟超 林青松 译人民邮电出版社 数据库系统原理丁宝康著经济科学出版社
HTML/CSS/JavaScript标准教程：实例版（第3版）电子工业出版社
第二篇：学生成绩管理系统开题报告
学生成绩管理系统开题报告
一． 研究背景、目的、意义
背景：随着经济的快速发展，科技的日益普及。目前我国的信息数字化工作也进入一个全新发展时期，特别是高校的信息化建设已进入了全面的发展阶段，诸多高校充分地认识到，信息化建设己经成为了高校提高自身管理水平、提升综合竞争实力的重要手段。在高校，各种信息管理系统层出不穷。通过本系统，能够实现对学生成绩的有效管理，减少教务人员、教师的工作量，该系统能够很好的满足学校教学、管理方面的要求。
目的：为教务人员、教师提供学生成绩管理系统，以轻松实现学生成绩管理。意义：系统化的成绩管理可以减少教务人员及教师因为工作量大而出现错误，为学校减少不必要的人力、物力、财力，便于学生成绩的增加、删除、修改、查询。
二．研究的主要内容
ASP.NET方向：本系统的开发主要涉及到 Visual Basic编程语言和 Access的运用。对于Visual Basic编程语言我们主要研究图形用户界面（Graphic User Interface，简称GUI）的方法，它与其他编程软件不同的是不需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可。
数据库方向：数据控件的使用主要需要和Access相连接使用，二者的结合使用可以很简单的把数据库的数据呈现给系统用户。对数据库的操作有备份、恢复等，这一类操作就要求对数据库的存储过程进行研究。
三．论文提纲
第一章：绪论（引言）
阐述本论文的书写背景和系统开发的背景。
第二章：系统需求分析
第一节：数据分析，分析系统开发所需数据类型、格式等，并有数据的实现性能。
第二节：功能分析，分析用户需求的功能和在技术可行的情况下能做出的功能。
第三节：性能分析，设计系统运行的期望值，分析出系统实现时的性能需求，给出优质产品。
第三章：系统设计
第一节：功能设计，设计系统所需功能如：
第二节：数据库设计，设计系统运行时所需要的数据库。
第三节：运行平台，说明系统运行所需的软硬件需求。
第四章：系统实施
第一节：编码 阐述各主要模块的编码设计
第二节：程序测试 阐述在程序正确性验证过程中所用到的测试用例第五章：总结
阐述自己在开发系统中所遇到的困难和解决方法，并得出所学的经验。第六章：致谢
致谢自己在开发过程中所得到的帮助即帮助自己的老师和同学
四．参考文献
[1].C#入门经典（第三版）/（美）（Watson,K.），（Nagel,C.）等编著
（至少六篇）
五．进度计划
从10月15到12月13 截止，自己划分自己论文的进程。如：
学生成绩系统开发的进度安排：
1、10-15至10-25 收集，整理与分析资料2、10-26至11-10 系统设计3、11-11至11-30 系统实施4、12-1至12-5 论文初稿5、12-6至12-10 论文第二稿6、12-11至12-13 论文定稿
齐立波 翻译 清华
第三篇：学生成绩管理系统
//*学生成绩管理系统*//
#include
#define N 3
struct student
{
int no;
char name[20];
float english;
float computer;
float math;
float average;
};
void getclass(struct student *class_gishui)
{
int i;
printf(“请输入%d个学生的学号 姓名 英语 计算机 数学n”,N);
for(i=0;i { printf(“第%d个学生”,i+1); scanf(“%d%s%f%f%f”,&class_gishui[i].no,&class_gishui[i].name,&class_gishui[i].english,&class_gishui[i].computer,&class_gishui[i].math); } } void print_class(struct student *class_gishui) { int i; for(i=0;i { class_gishui[i].average=(class_gishui[i].english+class_gishui[i].computer+class_gishui[i].math)/3; } printf(“学生信息表如下：n”); printf(“学号tt姓名tt英语tt计算机tt数学tt平均成绩n”); for(i=0;i printf(“%dtt%stt%ft%ft%ft%fn”,class_gishui[i].no,class_gishui[i].name,class_gishui[i].english,class_gishui[i].computer,class_gishui[i].math,class_gishui[i].average); } void paixu(struct student *class_gishui) { int i,j,flag; struct student t[1]; for(i=0;(i { flag=0; for(j=0;j if(class_gishui[j].average>class_gishui[j+1].average) { t[0]=class_gishui[j]; class_gishui[j]=class_gishui[j+1]; class_gishui[j+1]=t[0]; flag=1; } if(flag==0) break; } printf(“排序后学生成绩为：n”); printf(“学号t姓名t英语tt计算机tt数学tt平均成绩n”); for(i=0;i printf(“%dt%st%ft%ft%ft%fn”,class_gishui[i].no,class_gishui[i].name,class_gishui[i].english,class_gishui[i].computer,class_gishui[i].math,class_gishui[i].average); } void main() { struct student class_gishui[N]; getclass(class_gishui); print_class(class_gishui); paixu(class_gishui); } 郑州轻工业学院 实 训 报 告 实训名称：学生成绩管理系统 姓名： 任彬彬 院（系）： 软件学院 专业班级： 网路管理12-0 1学号： 621213550131 指导教师：马军霞、范乃梅、徐洁、方娜、李辉、冯柳、甘琤 成绩： 时间：2013 年01 月 07 日至 2013 年 01 月11 日 目录 实训任务书…………………………………………………2 实训进度日历……………………………………………… 3实训报告…………………………………………………… 41．软件需求分析… 2．系统详细设计及实现 实训感想……………………………………………………… 5郑州轻工业学院软件学院 学生实训任务书 一、题目 “学生成绩管理系统”设计 二、学生信息 专业 网络管理12-01学号 621213550131 姓名 任彬彬 三、用户需求及约束条件 1、用C语言实现基于Dos操作系统的“学生成绩管理系统”。 2、设计“学生成绩管理系统”的用户界面，系统启动进入后，只能通过界面菜单指令才能退出。 3、“学生成绩管理系统”具有以下功能： 1）系统启动后，弹出一个用户界面，能实现人机交互的功能。而且只能通过界面菜单命令实现各种功能（包括系统退出功能）。 2）管理班级信息（显示、增加、删除、修改）3）管理课程信息（显示、增加、删除、修改） 4）管理班级与课程之间的授课关系（显示、增加、删除、修改）5）管理班级中学生信息（显示、增加、删除、修改）6）管理班级学生成绩（显示、增加、删除、修改）7）显示一个学生的所有成绩 8）所有的数据以文本方式存储在文件中 4、已经提供已编译的样例程序以及数据读写、软件界面有关的源代码，需在已提供资源的基础上完成实训。 四、设计要求、技术参数及设计规格 1、原始成绩由老师统一给出，在 Excel表中； 2、设计的系统能够运行，提交源程序、目标文件和可执行文件； 3、提交实训报告，实训报告中列写：1）软件需求分析或软件说明；3）对数据的管理方案；4）“学生成绩管理系统”设计的思路和整体框架；5）各功能或者模块实现的思路（用文字和流程图予以说明），并交待模块之间的接口关系；6）“学生成绩管理系统”设计的结果。 实训进度日历 实训报告 软件需求分析：管理页面，如图1所示 增加课程信息，然后确认后显示所增加的课程信息 图 1实训感想 在这个星期里，我们专业的学生在专业老师的带领下进行了C语言程序实训的学习。在这之前我们已经学习了一个学期，对其有一定的了解，但是也仅仅是停留在了解的范围，对里面的好多东西感觉还是很陌生，更多的在运用起来的时候还是感到很棘手，毕竟，万事开头难嘛。 由于时间的关系，我们这次实训课程老师给我们简单的介绍了几个比较重要的实际操作。上机时间是学习程序设计语言必不可少的实习环节，特别是C语言灵活简介，更需要通过编程的实习来真正掌握它。对于程序语言的学习目的，可以概括为学习语法规定、掌握程序设计方法、提高程序开发能力，这些都必须通过充分的实际上机操作才能完成。 学习C语言程序设计除了课堂讲授以外，必须保证有不少于课堂讲授学时的上机时间。因为我们可以 有效的利用上机实验，更快的掌握C语言开发程序的能力，为今后的继续学习打下一个良好的基础。课程上机实验的目的，不仅仅是验证教材和讲课的内容、检查自己缩编程序是否正确，熟悉程序开发环境、学习计算机系统的操作方法。一个C语言程序从编辑、编译、连接到运行。通过上机实验，熟练的掌握C语言的开发环境，为以后真正编写计算机程序打下基础。 VB程序设计 课程设计报告 班 级：***** 姓 名：***** 序 号：***** 指导老师：***** 目录 1、课设的目的..............................................................................................................................2 2、界面设计和功能设计............................................................................................................2 3、系统功能实施...................................................................................................................11 4、总结........................................................................................................................................30 一、课设的目的 1.本次课程设计提高了我们的实践动手能力 5.通过本次课程设计，熟悉用户界面的设计 2.通过本次课程设计，进一步理解计算机程序设计的思路与方法 3.本次课程设计之后，达到能熟练使用各种常见的VB控件，理解面向对象的思想 4.经过本次课程设计，我们进一步熟练运用VB的语言元素和流程控制语句 6.经过本次课程设计，熟悉数据访问控件ADO及相关对象的使用，能基于ADO控件实现Access的数据访问与操纵 二、界面设计和功能设计 1、下面的界面为用户登陆界面： 用户名和密码均已设定，用户名为zgzy，密码为11201，只有输入正确，然后点击“登陆“按钮才能进入主界面。如果用户名或密码三次输入错误，则系统自动退出。当你点击“退出“按钮时，弹出一个对话窗，界面如下： 在对话框上点击“是”按钮，则退出系统，如果点击“否”，则该界面不变。 2、当用户名和密码均输入正确，点击“登陆”按钮，进入主界面——“学生成绩管理系统”界面，该界面是其他子界面的入口，界面如下： 3、进入主界面后，点击“学生管理（删除添加）”，进入学生管理界面，界面如下 该界面上有一个ADO控件，用于连接数据库，当用户在六个文本框中输入数据时，点击“添加“按钮，可以将数据录入到数据库中，如果此时点击”删除“按钮，则刚才输入的数据就会被删除，点击”保存“按钮时，输入的数据就会自动保存在数据库里，点击”返回主窗体“按钮，该窗体消失，主窗体出现。 4、在主界面点击“各科成绩查询“按钮，出现如下界面： 该界面有一个ADO控件，用来连接数据库，还有一个DataGrid控件，用来显示学生成绩的查询结果，当用户选择了要查询的科目和条件后，点击“查询“按钮，在DataGrid控件上就会显示出所查询的结果。下面为输入条件后查询的结果—— 5、在主界面点击“姓名查询“按钮后，会出现如下界面： 该界面与上一界面相似，在文本框输入要查询的姓名后，点击“查询“按钮，就会在DataGrid控件上显示所要查询的结果。下面为输入条件后查询的结果—— 5、在主界面点击“班级查询“按钮后，会出现如下界面： 在文版框中输入所要查询的班级，DataGrid控件上就会显示所要查询的结果。下面为输入条件后查询的结果—— 6、在主界面上点击“各科成绩段查询“按钮后，会出现如下界面： 点击“计算分数段统计“按钮后，就会出现所要查询的结果。下面为查询的结果—— 7、在主界面点击“计算总分“按钮后，出现如下界面： 点击“清除总分”按钮后，出现如下界面 8、在主界面点击“排名“按钮后，出现如下界面： 在该界面上点击“排名“按钮后，在DataGrid控件上会显示出按成绩高低排名的结果，点击”清除排名“按钮后，刚才结果消失，显示原来结果。下面为所现实的结果—— 9、在主界面点击“统计直方图“按钮后，出现如下界面： 在该界面点击各个按钮后，就会出现与之相关科目的成绩统计直方图，下面为查询的结果—— 10、在主界面点击“优等生“按钮后，出现如下界面： 点击按钮查询后，结果就会在界面上显示出来。下面为所查询的结果—— 三、系统功能实施 以上展示的是系统的所有界面，怎样才能让这所有的功能实现呢？数据库和ADO控件的使用便是其中的关键。 1、建立如下数据库 (学号、姓名、班级、英语、数学、VB、总分、排名) 2、建立如下图的所有界面： 3、ADO控件和DataGrid控件以及数据库的连接步骤：（这一步在设计界面的同时完成） （1）、如何加载ADO控件： 步骤1： 步骤2： 步骤3： 各个界面的ADO控件如何连接数据库（分两步）： 步骤1： 如下面界面中的5个步骤 步骤2： 选中ADO控件Adodc1，点击鼠标右键选择属性，然后界面设置如下： 控件绑定数据库的字段操作说明： 属性设置说明：下面以学号为例，姓名、班级等都可参考此。将学号对应的文本框Text1连接Adodc1显示数据库中的学号，需要设置DataSource和DataField两个属性,首先选中Text1文本框，并进行下面的两步操作，即可绑定数据库的学号字段。 设置DataSource: 设置DataField: （2）、如何加载DataGrid控件 控件DataGrid，可以实现数据的批量处理，该控件在控件库Microsoft DataGrid Control 6.0中。 说明：DataGrid控件属性设置 以下为各个界面所对应的代码—— 该界面代码如下： Private Sub Command1_Click()If Text1.Text = “zgzy” And Text2.Text = “11201” Then Form1.Show Unload me Else MsgBox “用户名或密码错误,请重新输入”, vbMsgBoxSetForeground, “系统提示！” End If Static t As Integer t = t + 1 If t >= 3 Then End End Sub Private Sub Command2_Click()a = MsgBox(“确定要退出本系统吗？”, 3 + 32 + 256, “系统提示！”) If a = 6 Then Unload Me End If End Sub 该界面代码如下： Private Sub Command1_Click()xsglfrm.Show End Sub Private Sub Command10_Click()ydsfrm.Show End Sub Private Sub Command3_Click()jszffrm.Show End Sub Private Sub Command4_Click() pmfrm.Show End Sub Private Sub Command5_Click() zftjtfrm.Show End Sub Private Sub Command6_Click() cjcxfrm.Show End Sub Private Sub Command7_Click() xmcxfrm.Show End Sub Private Sub Command8_Click() bjcxfrm.Show End Sub Private Sub Command9_Click() gkcjfrm.Show End Sub 该界面代码如下： Private Sub Command1_Click()Me.Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click()If Me.Adodc1.Recordset.RecordCount = 0 Or Me.Adodc1.Recordset.EOF Then Exit Sub End If Me.Adodc1.Recordset.Delete Me.Adodc1.Recordset.MoveNext If Me.Adodc1.Recordset.RecordCount = 0 Then Exit Sub End If If Me.Adodc1.Recordset.EOF Then Me.Adodc1.Recordset.MoveLast End Sub Private Sub Command4_Click()Me.Adodc1.Recordset.Save End Sub Private Sub Command5_Click() Unload Me mainfrm.Show End Sub 该界面代码如下： Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()kc_条件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “ ” + kc_条件 Me.Adodc1.Refresh End Sub Private Sub Form_Load()kc_条件 = “>=92” kc = “vb” End Sub Private Sub Option1_Click() kc = “VB” End Sub Private Sub Option2_Click()kc = “math” End Sub Private Sub Option3_Click()kc = “English” End Sub 该界面代码如下： Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()kc_条件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “='” + kc_条件 + “'” Me.Adodc1.Refresh End Sub Private Sub Form_Load()kc = “name” End Sub 该界面代码如下： Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()kc_条件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “='” + kc_条件 + “'” Me.Adodc1.Refresh End Sub Private Sub Form_Load()kc = “class” End Sub 该界面代码如下： Private Sub Command1_Click() Dim vb_A As Integer Dim vb_B As Integer Dim vb_C As Integer Dim vb_D As Integer Dim vb_E As Integer Dim Math_A As Integer Dim Math_B As Integer Dim Math_C As Integer Dim Math_D As Integer Dim Math_E As Integer Dim English_A As Integer Dim English_B As Integer Dim English_C As Integer Dim English_D As Integer Dim English_E As Integer Me.Adodc1.RecordSource = “select * from stu where vb>=90” Me.Adodc1.Refresh vb_A = Me.Adodc1.Recordset.RecordCount Me.Text1 = vb_A Me.Adodc1.RecordSource = “select * from stu where vb>=80 and vb<90” Me.Adodc1.Refresh vb_B = Me.Adodc1.Recordset.RecordCount Me.Text2 = vb_B Me.Adodc1.RecordSource = “select * from stu where vb>=70 and vb<80” Me.Adodc1.Refresh vb_C = Me.Adodc1.Recordset.RecordCount Me.Text3 = vb_C Me.Adodc1.RecordSource = “select * from stu where vb>=60” Me.Adodc1.Refresh vb_D = Me.Adodc1.Recordset.RecordCount Me.Text4 = vb_D Me.Adodc1.RecordSource = “select * from stu where vb<60” Me.Adodc1.Refresh vb_B = Me.Adodc1.Recordset.RecordCount Me.Text5 = vb_E Me.Adodc1.RecordSource = “select * from stu where math>=90” Me.Adodc1.Refresh Math_A = Me.Adodc1.Recordset.RecordCount Me.Text6 = Math_A Me.Adodc1.RecordSource = “select * from stu where math>=80 and math<90” Me.Adodc1.Refresh Math_B = Me.Adodc1.Recordset.RecordCount Me.Text7 = Math_B Me.Adodc1.RecordSource = “select * from stu where math>=70 and math<80” Me.Adodc1.Refresh Math_C = Me.Adodc1.Recordset.RecordCount Me.Text8 = Math_C Me.Adodc1.RecordSource = “select * from stu where math>=60 ” Me.Adodc1.Refresh Math_D = Me.Adodc1.Recordset.RecordCount Me.Text9 = Math_D Me.Adodc1.RecordSource = “select * from stu where math<60” Me.Adodc1.Refresh Math_E = Me.Adodc1.Recordset.RecordCount Me.Text10 = Math_E Me.Adodc1.RecordSource = “select * from stu where english>=90” Me.Adodc1.Refresh English_A = Me.Adodc1.Recordset.RecordCount Me.Text11 = English_A Me.Adodc1.RecordSource = “select * from stu where english>=80 and english<90” Me.Adodc1.Refresh English_B = Me.Adodc1.Recordset.RecordCount Me.Text12 = English_B Me.Adodc1.RecordSource = “select * from stu where english>=70 and english<80” Me.Adodc1.Refresh English_C = Me.Adodc1.Recordset.RecordCount Me.Text13 = English_C Me.Adodc1.RecordSource = “select * from stu where english>=60” Me.Adodc1.Refresh English_D = Me.Adodc1.Recordset.RecordCount Me.Text14 = English_D Me.Adodc1.RecordSource = “select * from stu where english<60” Me.Adodc1.Refresh English_E = Me.Adodc1.Recordset.RecordCount Me.Text15 = English_E End Sub Private Sub Form_Load() Text1.Text = “" Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ Text5.Text = ”“ Text6.Text = ”“ Text7.Text = ”“ Text8.Text = ”“ Text10.Text = ”“ Text11.Text = ”“ Text12.Text = ”“ Text13.Text = ”“ Text14.Text = ”“ Text15.Text = ”“ End Sub 代码如下 Private Sub Command1_Click()'计算总分 Dim vb As Integer Dim math As Integer Dim english As Integer Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount vb = Me.Adodc1.Recordset.Fields(”vb“).Value math = Me.Adodc1.Recordset.Fields(”math“).Value english = Me.Adodc1.Recordset.Fields(”english“).Value Me.Adodc1.Recordset.Fields(”total“).Value = vb + math + english Me.Adodc1.Recordset.Update Me.Adodc1.Recordset.MoveNext Next i End Sub Private Sub Command2_Click()'清除总分 Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount Me.Adodc1.Recordset.Fields(”total“).Value = Null Me.Adodc1.Recordset.Update Me.Adodc1.Recordset.MoveNext Next i End Sub 该界面代码如下： Private Sub Command1_Click()Me.Adodc1.RecordSource = ”select * from stu order by total desc“ Me.Adodc1.Refresh Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount Me.Adodc1.Recordset.Fields(”mc“).Value = i Me.Adodc1.Recordset.Update Me.Adodc1.Recordset.MoveNext Next i End Sub Private Sub Command2_Click()Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount Me.Adodc1.Recordset.Fields(”mc“).Value = Null Me.Adodc1.Recordset.Update Me.Adodc1.Recordset.MoveNext Next i End Sub 该界面代码如下： Private Sub Command1_Click() Me.Adodc1.Refresh '填充表格数据 MSChart1.RowCount = 1 MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount Me.Adodc1.Recordset.MoveFirst For lngI = 1 To Me.Adodc1.Recordset.RecordCount MSChart1.Column = lngI '用Data属性向MSChart数据网格填充数据 MSChart1.Data = Val(Adodc1.Recordset.Fields(”vb“).Value) MSChart1.ColumnLabel = Adodc1.Recordset.Fields(”name“).Value Adodc1.Recordset.MoveNext Next lngI MSChart1.RowLabel = ”VB成绩直方图“ End Sub Private Sub Command2_Click()Me.Adodc1.Refresh '填充表格数据 MSChart1.RowCount = 1 MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount Me.Adodc1.Recordset.MoveFirst For lngI = 1 To Me.Adodc1.Recordset.RecordCount MSChart1.Column = lngI '用Data属性向MSChart数据网格填充数据 MSChart1.Data = Val(Adodc1.Recordset.Fields(”math“).Value) MSChart1.ColumnLabel = Adodc1.Recordset.Fields(”name“).Value Adodc1.Recordset.MoveNext Next lngI MSChart1.RowLabel = ”Math成绩直方图“ End Sub 该界面代码如下 Private Sub Command1_Click()Dim vb As Integer Dim math As Integer Dim english As Integer Me.Adodc1.RecordSource = ”select * from stu where((math+english+vb)/3>=90)or((math+english+vb)/3>=85 and(math=100 or english=100 or vb=100))or((vb+english+math)/3>=85 and((vb>=95 and english >=95)or(english>=95 and math>=95)or(math>=95 and vb>=95)))and(mc<=3)and(vb>=60 and english>=60 and math>=60)" Me.Adodc1.Refresh End Sub 四、总结和体会 经过好几天的努力我的课程设计终于完成了。在没有做课程设计以前觉得课程设计好难，我可能做不了，但是通过这次做课程设计发现自己错了。课程设计不仅是对前面所学知识的一种检验，而且也是对自己能力的一种提高，它并不可怕。通过这次课程设计使我明白了自己原来知识还比较欠缺，自己要学习的东西还太多，以前上课没怎么认真听，现在知道它重要了，幸好为时不晚，我以后要更加的努力学好vb。在这次课程设计中也使我们的同学关系更进一步了，同学之间互相帮助，有什么不懂的大家在一起商量，听听不同的看法对我们更好的理解知识，所以在这里非常感谢帮助我的同学。此外，还得出一个结论：世上无难事，只怕有心人。 在设计过程中，我通过查阅有关资料，与同学交流经验和自学等方式，使自己学到了不少知识，也经历了不少艰辛，但收获同样巨大。在整个设计中我懂得了许多东西，也培养了我独立工作的能力，树立了对自己工作能力的信心，相信会对今后的学习工作生活有非常重要的影响。而且大大提高了动手的能力，使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。虽然这个设计做的也不太好，但是在设计过程中所学到的东西是这次课程设计的最大收获和财富，使我终身受益。第四篇：学生成绩管理系统实训报告
第五篇：VB学生成绩管理系统课程设计报告
点击咨询 