学生成绩管理系统VB706学生成绩管理论文

分类号 密级 UDC 毕 业 设 计 论 文 学生成绩管理系统设计与实现 作 者 姓 名 指导导师姓名 申请学位级别 班级 学科专业名称 论文提交日期 论文答辩日期 评阅人 摘 要 随着学校规模的不断扩大，学生数量的急剧增加，有关学生的各种信息量也在不断成倍增长。面对庞大的信息量，就需要有学生成绩管理系统来提高学生管理工作的效率。通过这样的系统，我们可以做到信息的 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 管理和快速查询，从而减少了管理方面的工作量。 第一章简要介绍了本系统的设计总体线路。第二章概述了管理信息系统的相关理论，第三章对本系统进行了系统分析和设计，包括功能需求描述、数据库设计等内容。第四章介绍了本系统的具体实现。最后一章对本系统开发过程中结论及使用过程中的体会进行了总结。 关键词： 管理信息系统；设计；开发 目 录 I摘 要 II目 录 1第一章 导言 11.1问题的提出 11.2本文研究路线 2第二章 管理信息系统研究概述 22.1管理信息系统的发展历史 22.2管理信息系统的特点 42.3管理信息系统的开发方式 52.4管理信息系统的开发过程 8第三章 学生成绩管理系统分析与设计 83.1学生成绩管理系统功能需求简介 83.2功能需求描述 103.3目标系统要求 103.4系统平台选择 113.5数据库设计 113.5.1数据库介绍 123.5.2数据库需求分析 133.5.3数据库概念结构设计 153.5.4数据词典设计 163.5.5使用ADO数据控件访问数据库 18第四章 学生成绩管理系统的功能实现 184.1登陆界面编码设计 204.2教师管理界面编码设计 314.3发布应用程序 314.3.1编译应用程序 324.3.2打包应用程序 334.3.3发布应用程序的步骤 34第五章 结论及体会 35参考文献 第一章 导言 1.1问题的提出 随着学校规模的不断扩大，学生数量的急剧增加，有关学生的各种信息量也在不断成倍增长。面对庞大的信息量，就需要有学生成绩管理系统来提高学生成绩管理工作的效率。 传统手工的学生成绩管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了学生成绩管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。 1.2本文研究路线 本文的研究路线如下图1.1所示。 图1.1 本文的研究路线 第二章 管理信息系统研究概述 2.1管理信息系统的发展历史 信息作为生产力中最活跃的因素，很早就在人类经济生活中发挥着不可替代的作用，但把信息纳入企业经营管理系统中高效处理和应用是在计算机发明以后的50年代末。 目前人们所提到的管理信息系统，通常是指以计算机为工具，对管理信息进行收集、存贮、检索、加工和传递，使其应用于组织机构及企业管理领域的“人－机系统”，该系统是70年代初“后工业经济”时代的产物，在企业管理信息系统在其发展的初期，是单一的人—机系统，系统功能简单，效率低，对管理的作用有限。 进入2 0世纪80年代末，随着计算机网络和通信技术的大力发展，企业管理信息系统进入网络化的发展时期。世界发达国家已建立起了完善的先进的管理信息系统体系，在其社会经济发展领域中发挥着巨大的作用。 我国的管理信息系统大发展是在80年代末90年代初，国家相继建立起了“金卡”、“金关”、金桥“工程，多数企事业单位建立了局域网和广域网管理信息系统。随着世界经济和我国经济逐步向知识经济迈进，无论是基于工业经济的管理信息系统，还是面向少数专家和管理人员的专家系统 (ES)或决策支持系统 (DSS)，其处理对象和服务对象，自身的系统结构，处理能力，都有了进一步的发展。 2.2管理信息系统的特点 1、管理信息系统的组成 管理信息系统在企业中的应用存在三个要素，这就是人、计算机和数据。 人是指企业领导者、管理人员、技术人员，以及MIS建设的领导机构和实施机构，他们在系统中起主导作用。MIS是一项系统工程，不是只靠一些计算机开发人员就可以完成的，必须有企业管理人员，尤其是企业领导的积极参与。 计算机技术是MIS（管理信息系统）得以实施的主要技术。在这些技术中，软件开发是MIS开发的重点。 第三个因素也不能忽视。企业的管理数据是MIS正常运行的基础。广义地说，各项管理制度是MIS建设成功的基础。试想要计算一台机床的成本，需要按时输入每个部件、每个零件以及每个螺钉螺帽的费用，涉及企业的生产车间、采购、库房、工艺设计和财务等多个部门，必须有一整套管理制度作保证。 2、管理信息系统的界面特点 在计算机软件技术中，人机界面已经发展成为一个重要的分支。MIS人机界面设计一般遵循以下一些基本原则： （1）以通信功能作为界面设计的核心 人机界面设计的关键是使人与计算机之间能够准确地交流信息。一方面，人向计算机输入信息时应当尽量采取自然的方式：另一方面，计算机向人传递的信息必须准确，不致引起误解或混乱。另外，不要把内部的处理、加工与人机界面混在一起(人机界面程序只是通信)，以免互相干扰，影响速度。 设计MIS时，针对每一个功能，都要按照模块化思想，使输入、处理与输出“泾渭分明”，充分体现人机界面的通信功能。这样设计出来的程序不易出错，而且易于维护。 报表打印是MIS必备的功能之一，而且打印之前常常需要计算。计算与打印分开设计，虽然消耗时间，但易于整个MIS系统的维护。 （2）.界面必须始终一致 统一的人机界面不至于会增加用户的负担，让用户始终用同一种方式思考与操作。最忌讳的是每换一个屏幕用户就要换一套操作命令与操作 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 。 例如在整个系统可以以问号图标表示帮助，以磁盘图标表示存盘，以打印机图标表示打印等。 （3）.界面必须使用户随时掌握任务的进展情况 人机界面应该能够告诉用户软件运行的进度。特别是在需要较长时间的等待时，必须让用户了解工作进展情况，如可以设计已经完成了百分之几的任务进度条等。目前，Windows下的应用软件无论大小，其安装程序几乎均做到了这一点。开发MIS软件时，这一点很值得借鉴。 （4）.界面友好。使用方便 多数MIS软件的数据输入量较大。对于一些相对固定的数据，不应让用户频频输入(特别是汉字)，而应让用户用鼠标轻松选择。例如，人事管理系统中的“文化程度”是相对固定的数据，其值一般取“小学”、“初中”、“高中”、“大专”、“大本”、“硕研”、“博研”等。录入这类数据之前，MIS软件应在相应位置弹出一个列表框，待用户以鼠标点击，而不应让用户每次都输入这些汉字。 总之，所开发的MIS在使用过程中，应使用户的数据输入量降至最低限度减少用户的干预量。实践证明，用户干预愈少，MIS系统的满意程度愈高。 2.3管理信息系统的开发方式 管理信息系统的开发方式主要有独立开发方式、委托开发方式、合作开发方式、购买现成软件方式等4种。这4种开发方式各有优点和不足，需要根据使用单位的技术力量、资金情况、外部环境等各种因素进行综合考虑和选择。不论哪种开放方式都需要有单位的领导和业务人员参加，并在管理信息系统的整个开发过程中培养、锻炼、壮大该系统的维护队伍。 1.独立开发 独立开发适合于有较强的管理信息系统分析与设计队伍和程序设计人员、系统维护使用队伍的组织和单位，如大学、研究所、计算机公司、高科技公司等单位。独立开发的优点是开发费用少，实现开发后的系统能够适应本单位的需求且满意度较高，最为方便的是系统维护工作。缺点是由于不是专业开发队伍，容易受业务工作的限制，系统优化不够，开发水平较低，且由于开发人员是临时从所属各单位抽调出来进行管理信息系统的开发工作，这些人员在其原部门还有其他工作，所以精力有限，容易造成系统开发时间长，开发人员调动后，系统维护工作没有保证的情况。因此，一方面需要大力加强领导，实行“一把手”原则，另一方面可向专业开发人士或公司进行咨询，或聘请他们作为开发顾问。 2.委托开发 委托开发方式适合于使用单位无管理信息系统分析、设计及软件开发人员或开发队伍力量较弱、但资金较为充足的单位。双方应签订管理信息系统开发项目协议，明确新系统的目标和功能、开发时间与费用、系统 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 与验收方式、人员培训等内容。委托开发方式的优点是省时、省事，开发的系统技术水平较高。缺点是费用高、系统维护需要开发单位的长期支持。此种开发方式需要使用单位的业务骨干参与系统的论证工作，开发过程中需要开发单位和使用单位双方及时沟通，进行协调和检查。 3.合作开发 合作开发方式适合于使用单位有一定的管理信息系统分析、设计及软件开发人员，但开发队伍力量较弱，希望通过管理信息系统的开发建立完善和提高自己的技术队伍，便于系统维护工作的单位。双方共享开发成果，实际上是一种半委托性质的开发工作。优点是相对于委托开发方式而言节约了资金，并可以培养、增强使用单位的技术力量，便于系统维护工作，系统技术水平较高。缺点是双方在合作中沟通易出现问题，需要双方及时达成共识，进行协调和检查。 总之，不同的开发方式有不同的长处和短处，需要根据使用单位的实际情况进行选择也可综合使用各种开发方式。 2.4管理信息系统的开发过程 管理信息系统的开发过程一般包括系统开发准备、系统调查、系统分析、系统设计、系统实现、系统转换、系统运行与维护、系统评价等步骤。根据开发系统的大小、复杂、投入、方式、方法等因素的不问，各步骤的要求和内容也不同，用户需要根据实际情况进行取舍和 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载 。 1、系统开发准备 系统开发准备工作主要包括提出系统开发要求、成立系统开发小组、制订系统开发计划等工作。 2、系统调查 新系统的系统分析与系统设计工作都要建立在对现行系统调查的基础上，即必须调查现行系统的运行情况、问题等，明确用户的需求，特别是合作开发和委托开发方式。 调查的主要内容有： (1)现行系统概况：该组织的发展历史、目前组织的规模、工作状况、管理水平、与外界的主要联系等。调查该项内容的目的主要是为了划分系统界限、系统与外界的输入输出接口等。 (2)组织机构：画出组织的组织结构图，弄清组织的行政关系、人员编制、工作范围、地理位置等，发现不合理问题及新系统启动后可能对现有组织的影响。 (3)业务流程：按照业务种类的不同和处理时间的先后不同，深入了解现行系统的业务流程，画出现行系统业务流柞图，并与业务人员反复讨论，得到认可。调查中要注意定性与定量相结合，注意人、财、物、信息的流向、规格、频率、要求以及需要解决的问题等。 (4)报表、数据处理：了解各种统计报表、数据的格式、内容、处理时间及上报时间、频率、规律，存在的问题，对新系统的要求、希望等并收集各种报表。 (5)问题：现行系统中存在的主要问题和薄弱环节，可以按照严重程度分成不同的等级。新系统的建立应能解决大部分问题，并改善薄弱环节。 (6)新系统的功能和目标：了解各级领导和各类业务工作人员对新系统功能的要求， 系统分析(又称逻辑设计)是管理信息系统开发的关键环节，要求在系统调查的基础上，对新系统的功能进行细致的分析，并建立一个新系统的逻辑模型。 新系统的逻辑模型由系统数据流程图、概况表、数据字典、物理逻辑表达式及有关说明组成。最后要完成系统分析报告(也称为系统逻辑设计说明书)。系统逻辑模型就像在根据需要建设一座学校前，按照学校教育的层次(初等、中等、高等)、规模、投资、地理环境、技术水平等条件的要求和约束，先由建筑设计院进行设计，保证学校建成后的各种功能得以实现，之后才能进行工程设计和施工一样。在系统设计阶段要做认真、细致的分析、研究工作，避免新系统在功能上存在先天不足或缺陷。 因为新系统模型是建立在对现行系统的分析及要求的基础上的，所以系统调查工作要进行得深入、细致、全面。用户可以对新系统的逻辑模型提出意见，双方经过讨论、修改，最后达成共识，并完成系统分析报告(系统逻辑设计说明书)，经有关领导审批通过之后，转入系统设计(又称系统物理设计)阶段。 4、系统设计 系统设计又称系统物理设计。系统设计要根据系统分析报告中的系统逻辑模型综合考虑各种约束，利用一切可利用的技术手段和方法进行各种具体设计，确定新系统的实施 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 ，解决“系统怎么做”的问题。 结构化系统设计是指利用一组标准的图表工具和准则，确定系统有哪些模块，用什么方法连接，如何构成良好的系统结构，并进行系统输入、输出、数据处理、数据存储等环节的详细设计。这一阶段的重点是设计好系统的总体结构，选择最经济合理的技术手段。系统设计阶段的文件是系统设计报告(又称系统物理设计说明书)。 5、系统实施与转换 系统实施阶段的主要工作包括：系统硬件的购置与安装、程序的编写(购买)与调试、系统操作人员的培训、系统有关数据的准备和录入、系统调试和转换。 在系统实施阶段要成立系统实施工作量到小组，组织各专业小组组长和有关部门的领导共同编制新系统实施计划。可以应用各种项目管理的软件和方法进行管理，实行项目经理负责制，保证系统实施工作的顺利进行和成功。 硬件的购置和安装包括计算机硬件、外设、网络、电源、机房、环境等有关设备的购买、验收、安装与调试工作等，这些工作主要由专业技术人员完成。 数据准备与录入工作主要是指由手工操作转入计算机处理所需的各种数据的整理、录入及计算机系统中为新系统所用数据的转换工作。数据准备与录入工作要注意数据的准确性，在整理、录入、校验等各个环节把好关，为系统的顺利转换打好基础。 在进行以上各个环节的同时展开人员培训工作，包括管理信息系统只是的普及教育、新制度的学习、计算机操作训练等。使所有人员了解新系统的基本功能、新系统对使用人员的要求、建立管理信息系统的目的、管理信息系统的建设可以为组织和个人带来的帮助和便利、个人在新系统中应该承担的工作等，是用户关心、支持新系统的实现。 6.系统维护和评价 管理信息系统是一个复杂的人机系统。系统外部环境与内部因素的变化，不断影响系统 的运行，这时就需要不断地完善系统，以提高系统运行的效率与服务水平，这就需要从始至终地进行系统的维护工作。 系统评价主要是指系统建成后，经过一段时间的运行后，要对系统目标与功能的实现情况进行检查，并与系统开发中设立的系统预期目标进行对比，及时写出系统评价报告。 系统维护与评价阶段是系统生命周期中的最后一个阶段，也是时间最长的一个重要阶段。 第三章 学生成绩管理系统分析与设计 3.1学生成绩管理系统功能需求简介 学生成绩管理系统对学校加强学生成绩管理有着极其重要的作用。由于各个大学都在持续扩招，学生的数量日益庞大，传统的手工成绩管理不仅工作量大，而且容易出现问题。另外，学生的成绩要用到学校教务管理的各个方面，所以一旦学生成绩管理出现了错误，后果往往是非常严重的。就一所学生数量较大的学校来说，它的设计内容非常复杂而且繁多，比如拥有成绩录入管理、教师权限管理、学生成绩的查询和修改等等，而且设计的模块也很多，比如信息统计模块，报表设计模块，打印输出模块，模糊查询模块等等。 由于本软件主要是为我系定制开发的，因此针对我系学生成绩管理的实际工作而言，我们经过了反复地论证，最终确定了学生成绩管理系统的设计方案。该学生成绩管理系统的主要功能为： 1、掌握每个学生每一门课的成绩信息，并记录在数据库中以便其他管理信息系统的使用； 2、分权限的管理。在成绩管理中，教师可以对任何一个学生的成绩进行查询和管理；但是对学生类用户，它只能对自己的成绩进行查看，而且不能对其进行更改。 3、教师类用户可以对成绩按照课程进行管理，可以对每一门课所修的学生进行添加、删除和修改； 4、教师类用户可以对成绩按照学生进行管理，可以对每一门课所修的学生进行添加、删除和修改； 5、可以针对某一门课的学生列表及其成绩生成报表，并打印； 6、可以针对某一个学生所选课程及其对应的成绩生成报表，并打印。 3.2功能需求描述 1、用户管理功能 用户分为教师用户和学生用户两类。不论是教师用户，还是学生用户都需要通过用户名和口令进行登录。教师用户可以对所有的学生成绩进行增加、删除和修改。学生用户只能看到自己的学习成绩，并且不能修改。由于教师用户和学生用户较为固定，所以对教师自身信息和学生自身信息的管理可以由系统管理人员直接操作数据库完成。 2、教师对成绩的管理功能 教师对成绩的管理可以从两个角度管理：按照课程角度进行管理和按照学生角度进行管理。教师登陆该系统以后，可以对这两种方式进行选择。 （1）按照课程角度进行管理 按课程角度管理教师可以看到课程信息和成绩信息。课程信息包括课程编号、课程名称、学时和课程类型。当教师用鼠标双击某一课程时，可以自动显示出该课程的所有学生的成绩信息，成绩信息包括选修这门课的学生的学号、姓名、班级和考试成绩。并同时自动计算出所有学生的人数，以及所有学生的平均成绩。在成绩信息中，教师可以对学习成绩进行增加、修改和删除。并能够打印报表。 （2）按照学生角度进行管理 按学生角度管理教师可以看到学生信息和成绩信息。学生信息包括学号、姓名、班级、生日、性别、地址、电话和简历。当教师用鼠标双击某一学生信息时，可以自动显示出该课程的这个学生所有课程的学习成绩，并同时自动计算出这个学生的总分和平均分。在成绩信息中，教师可以对学习成绩进行增加、修改和删除。并能够打印报表。 3、学生对成绩的查看功能 学生用户登录后，学生可以看到自己的学生信息和成绩信息。学生信息包括学号、姓名、班级、生日、性别、地址、电话和简历。成绩信息包括这个学生的所有课程的成绩信息、总分及平均分。学生可以打印成绩报表。 学生成绩管理系统功能模块图如图3.1所示。 图3.1 学生成绩管理系统功能模块图 3.3目标系统要求 目标系统应该达到以下要求： 1、时间经济性。优化逻辑设计与物理设计，使系统运行效率高，反映速度快。 2、可靠性。能连续准确的处理业务，有较强的容错能力。 3、可理解性。用户容易理解和使用该系统。 4、可维护性和适应性。系统应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。 5、可用性。目标系统功能齐全，能够完全满足业务需求。 6、安全保密性。保证系统的物理安全、数据存储和存取的安全与保密、数据传输的安全与保密，做好使用人员的授权管理。 3.4系统平台选择 选择微软平台作为主导，一方面考虑目前微软的飞速发展，越来越多的企业在规划内部网络时，将微软平台作为首选方案；另一方面从技术角度来讲，微软平台上的应用无论是在开发上，还是在软件的部署上都非常容易，而且性能优越。 操作系统：Windows 2000 数据库为：MS Access 2000 开发工具与语言: Visual Basic 6.0中文版 3.5数据库设计 3.5.1数据库介绍 所谓数据库（Database）就是指按一定组织方式存储再一起的，相互有关的若干个数据的结合，数据库管理系统（Database Management System）就是一种操纵和管理数据库的大型软件，简称DBMS,他们建立在操作系统的基础上，对数据库进行统一的管理和控制，其功能包括数据库定义，数据库管理，数据库建立和维护，于操作系统通信等。DBMS通常由数据字典，数据描述语言及其编译程序，数据操纵（查询）语言及其编译程序，数据库管理例行程序等部分组成。 关系数据库是以关系模型为基础的数据库，是根据表、记录和字段之间的关系进行组织和访问的一种数据库，它通过若干个表（Table）来存取数据，并且通过关系（Relation）将这些表联系在一起，关系数据库提供了成为机构化查询语言（SQL）标准接口，该接口允许使用多种数据库工具和产品，关系数据库是目前最广泛应用的数据库。 在Visual Basic中，关系型数据库一般可以分为两类：一类是桌面数据库，例如Access、Paradox、FoxPro、Dbase,另一类就是客户/服务器数据库，例如SQL Server、Oracle和Sybase等。 一般而言，桌面数据库主要应用于小型的、单机的数据库应用程序。也是初学者常用的数据库类型。实现起来比较方便，但同时也只能提供数据的存取功能。它主要用于小型的、单机的、单用户的数据库管理系统。 该学生成绩管理系统的数据库选用Microsoft公司的Access产品作为数据库应用程序。目前的Access 2000是Microsoft强大的桌面数据库平台的第六代产品，是3 2位Access的第三个版本。Access有以下一些基本定义： ·数据库是一个包含各种Access “对象”(表、查询、窗体、报表、宏和模块)的文件，Access中所有工作都是建立在此基础之上的。 ·表是存放数据的容器，被设计成行和列的格式，就像电子表中的那样。每一列叫做一个“字段”，包含特定类型的信息，如姓名或学历。每一行称为一个“记录”，包含与单个实体有关的所有信息，如某个员工的姓名、性别、所在部门、学历等。对于像Access这样的关系数据库管理程序，一个数据库通常包含几个存放相关数据的不同表。 ·查询是一个Access对象，它询问数据库中有关数据的问题。根据设计方法的不同，查询能够在数据库中检索并组合来自不同表的数据。例如，可以设计一个查询来告知在公司中工作超过1年的职员有多少。查询还可以对一组数据执行操作，如更新或删除某组记录。 ·窗体是一个窗口，它提供一种很方便的途径来查看数据库中已有记录或向数据库中增添新记录。在Access中，可以创建一个窗体，用来同时查阅单个表或多个表中的数据，还可以打印和显示窗体。 ·报表是一个Access对象，设计来显示数据，其作用类似于窗体，但主要是用于数据打印，不能输入数据。 · 页是一种特殊类型的窗体，它使用户能够利用Web浏览器查看和编辑Access的表。 ·宏用来保存Access中的一系列操作。可自动执行一些日常的任务，以便简化在Access中的工作。 · 模块是用Visual Basic for Applications(VBA) 编写的过程，VBA是Access的基础程序设计语言。利用VBA可以编写程序代码来完成Access宏所不能完成的特定任务。 3.5.2数据库需求分析 数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完善和一致。同时，合理的数据库结构也将有利于程序的实现。 用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，可以为后面的具体设计和开发打下坚实的基础。 仔细分析调查有关学生成绩管理信息需求的基础上，将得到本系统所处理的数据流程。学生成绩管理系统数据流程图如图3.2所示。 图3.2 学生成绩管理系统数据流程图 针对一般学生成绩管理信息系统的需求，通过对成绩管理过程的内容和数据流程分析，可以设计出该系统的数据项和数据结构： 1、“学生信息”的数据项有：学号、姓名、班级、生日、性别、地址、电话和简历等； 2、“课程信息”的数据项有：课程编号、课程名称、学时和课程类型等 3、“学生成绩信息”的数据项有：学号、姓名、班级、选修课程、考试成绩等。 3.5.3数据库概念结构设计 得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的数据字典设计打下基础。 根据上面的设计可以规划出的实体有：学生实体、课程实体和学生成绩信息实体。各个实体具有的描述E-R图如3.3至图3.5所示。 1、学生实体E－R图 图3.3 学生实体E-R图 2、课程实体E－R图 图3.4 课程实体E-R图 3、学生成绩信息实体E－R图 图3.5 学生成绩信息实体E-R图 3.5.4数据词典设计 该软件的数据库名称为“Score.mdb”，该数据库主要由下述三张表构成： score：成绩表 student：学生信息表 course：课程信息表 1、score：成绩表 字段名称 内 容 类 型 长 度 备注 id ID 号 自动编号 长整型 studentID 学 号 文 本 为主键之一，对应于student表的Serial字段 CourseID 课程编号 文 本 为主键之一，对应于Course表的Serial字段 Score 分 数 数 字 整 型 2、student：学生信息表 字段名称 内 容 类 型 长 度 备注 Serial 学号 文本 7 主关键字 Name 姓名 文本 10 Class 所属班级 文本 5 Birthday 生日 日期时间 Sex 性别 文本 2 Address 家庭住址 文本 30 Tel 电话 文本 15 Resume 简历 备注 500 3、course：课程信息表 字段名称 内 容 类 型 长 度 备注 Serial 课程编号 文 本 50 主关键字 Name 课程名称 文 本 50 Period 学时数 数 字 长整型 typeid 课程类型 文本 50 3.5.5使用ADO数据控件访问数据库 ADO(Active Data Objects)是一种新的数据访问方式，具有以下特征： · 有一个简化的对象模型 · 与其他Microsoft和非Microsoft技术更加紧密的集成。 · 是一个本地和远程数据访问、远程和断开连接的记录集、用户可以访问的数据绑定接口以及层次化的记录集的通用接口。 学生成绩管理系统通过ADO这个数据控件来访问数据库，首先，安装ADO 控件要在简体中文VISUAL BASIC6.0企业版中注册后才能使用。ADO(ActiveX Data Object)是微软提出的数据访问接口，它实现了RDO的绝大多数功能，另外还增加了一些用户以前没有接触到的特征。Visual Basic 6.0可以很好地支持ADO和OLE DB数据访问模式。 在ADO2.0中包含了数据绑定、可视化设计工具以及OLE DB数据源书写模板等新的内容。在Visual Basic6.0中，ADO的数据环境设计器(Data Environment Designer)取代了Visual Basic 5.0中的RDO的用户连接设计器(User Connection Designer)。User Connection对象只支持ODBC数据源，而Data Environment对象可以连接所有的OLE DB数据源o ADO对象模型定义了一个可编程的分层的对象集合，它支持部件对象模型(COM)和OLE DB数据源。与其他的数据访问对象相比，包含在ADO的对象少得多，也更加容易使用。 ADO对象模型中包含了3个一般用途的对象：Connection、Command和Recordset。程序开发人员可以创建这些对象并且使用这些对象访问数据库。在ADO对象模型中还有其他几个对象，例如Field、Property、Error和Parameter，它们是作为前面3个对象的子对象进行访问的。 1、ADO数据控件的功能 ADO data控件使用ActiveX数据对象（ADO）来快速建立数据约束控件和数据提供者之间的连接，并快速创建记录集，然后将数据通过数据约束控件提供给用户，其中数据约束控件可以是任何具有“数据源”属性的控件，而数据提供者可以是符合OLE DB规范的数据源。使用Visual Basic的类模块也可以很方便的创建子集的数据提供者。在Visual Basic6.0中，可以使用ADO数据控件实现下面一些功能： · 连接一个本地数据库或远程数据库。 · 打开一个指定的数据库表，或定义一个基于结构化查询语言(SQL)的查询、存储过程或者是该数据库中表的视图的记录集合。 · 将数据字段的数值传递给数据绑定的控件，可以在这些控件中显示或更改这些数值。 · 添加新的记录，或者根据对显示在绑定的控件中的数据的任何更改来更新一个数据库。 2、 ADO数据控件的属性 ADO数据控件与Visual Basic的内部数据控件(Data)和远程数据控件(RDC)很相似，它允许使用ADO快速地创建与数据库的连接。 与Data控件类似，为了实现对数据库的访问，ADO数据控件提供了几个属性，这些属性定义了怎样连接数据库以及同什么样的数据库相连接。 Connection String属性：是一个字符串，可以包含进行一个连接所需的所有设置值，在该字符串中所传递的参数是与驱动程序相关的。例如，ODBC驱动程序允许该字符串包含驱动程序、提供者、默认的数据库、服务器、用户名称以及密码等。 ADO支持Connection String属性的4个参数，而且这4个参数将不经过ADO的处理直接送到数据源。这四个参数的属性如下表3.1所示： 表3.1 Connection String属性的4个参数 参数 描述 Provider 指定数据源的名称 File Name 指定基于数据源的文件名称 Remote Server 指定在打开一个客户端连接时使用的数据源名称 Remote Server 指定打开客户端连接时使用的服务器的路径与名称 第四章 学生成绩管理系统的功能实现 下面给出系统开发出来的详细界面以阐述学生成绩管理系统的具体功能。 4.1登陆界面编码设计 首先是进入登陆界面，如图4.1所示 图4.1 登陆界面 Private Sub cboUserType_Change() gnUserType = cboUserType.ListIndex End Sub Private Sub cboUserType_Click() gnUserType = cboUserType.ListIndex End Sub Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() ''取得用户输入的用户名和密码 Dim user As String, pwd As String user = txtUser pwd = txtPwd ''根据不同的身份，选择不同的表用以查询 Dim r As New ADODB.Recordset Dim strSQL As String Select Case gnUserType Case 0: '选择身份为教师 strSQL = "select * from teacher where name='" & user & "' and serial='" & pwd & "'" Case 1: '选择身份为课程 strSQL = "select * from student where name='" & user & "' and serial='" & pwd & "'" End Select '打开记录集 r r.Open strSQL, DataEnv.Con.ConnectionString, adOpenStatic ''用户密码错误的次数，如果错误次数超过3次，则退出系统 Static nTryCount As Integer If r.EOF Then ''登录失败 MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误" txtUser.SetFocus txtUser.SelStart = 0 txtUser.SelLength = Len(txtUser) nTryCount = nTryCount + 1 If nTryCount >= 3 Then MsgBox "您无权操作本系统!再见！", vbCritical, "无权限" Unload Me End If Else ''登陆成功 ''显示MDI窗体, 并将用户类型和用户名传到MDI窗体中 gnUserType = cboUserType.ListIndex gsUserName = txtPwd ''注意调用顺序 Unload Me MDIMain.Show End If End Sub Private Sub Form_Load() cboUserType.ListIndex = 0 End Sub 4.2教师管理界面编码设计 本节以按学生角度进行管理为例，介绍教师管理的编码设计。教师用户进入“成绩管理”中的“按学生进行管理”功能，出现如图4.2所示界面。 图4.2“按学生进行管理”学生信息功能界面 教师用户用鼠标双击学生信息后，系统会显示出该学生的成绩信息。如图4.3所示。 图4.3“按学生进行管理”成绩信息功能界面 Option Explicit '''当改变记录集时，需要刷新整个网格控件 Sub RefreshGrid() grdScan.DataMember = "" grdScan.Refresh If DataEnv.rssqlStudent.State <> adStateClosed Then DataEnv.rssqlStudent.Close DataEnv.rssqlStudent.Open grdScan.DataMember = "sqlStudent" grdScan.Refresh ''刷新各个绑定控件 Call grdScan_Change End Sub '''用以在浏览时，根据当前记录所出的位置不同，来改变个浏览按钮的状态 Sub ChangeBrowseState() With DataEnv.rssqlStudent ''如果没有任何记录，则清空显示目录；并且使浏览部分和管理部分的按钮无效 If .State = adStateClosed Then .Open '''假如处于记录的头部 If .BOF Then If Not .EOF Then DataEnv.rssqlStudent.MoveFirst cmdPrevious.Enabled = False cmdFirst.Enabled = False Else cmdPrevious.Enabled = True cmdFirst.Enabled = True End If '''假如处于记录的尾部 If .EOF Then If Not .BOF Then DataEnv.rssqlStudent.MoveLast cmdNext.Enabled = False cmdLast.Enabled = False Else cmdNext.Enabled = True cmdLast.Enabled = True End If End With End Sub ''通过当前学生的成绩，来得到该学生的总成绩和平均成绩 Sub Calculate(sSerial As String) Dim rs As New ADODB.Recordset Dim str str = "select avg(score) as avg_score, sum(score) as sum_score from score where studentid='" & sSerial & "'" rs.Open str, DataEnv.Con, adOpenStatic If Not rs.EOF Then txtSum.Text = FormatNumber(rs("sum_score"), 2) txtAverage.Text = FormatNumber(rs("avg_score"), 2) End If End Sub ''刷新学生号为sSerial的成绩的网格控件grdScore Sub RefreshScore(sSerial As String) With DataEnv.rsOneScore If .State <> adStateClosed Then .Close Dim str If sSerial = "" Then str = "select course.*, score.score from score, course where course.serial=Score.courseid" Else str = "select course.*, score.score from score, course where course.serial=Score.courseid " & _ " and Score.studentid = '" & sSerial & "'" End If .Open str ''根据DataEnv.rsOneScore的记录状态，来改变管理grdScore的各个按钮的状态 If .BOF And .EOF Then cmdAdd.Enabled = True cmdEdit.Enabled = False cmdDelete.Enabled = False cmdReport.Enabled = False Else cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDelete.Enabled = True cmdReport.Enabled = True End If End With grdScore.DataMember = "oneScore" grdScore.Caption = "学号：" & grdScan.Columns(0).CellText(grdScan.Bookmark) & _ " 姓名：" & grdScan.Columns(1).CellText(grdScan.Bookmark) grdScore.Refresh ''计算该学生的总成绩和平均成绩 Call Calculate(grdScan.Columns(0).CellText(grdScan.Bookmark)) End Sub Private Sub cmdAdd_Click() On Error GoTo errHandler With frmAddCourse Load frmAddCourse .Caption = "添加成绩信息" .Show vbModal ''如果用户没有点击确认按钮，则退出处理过程 If Not .mbAdded Then Unload frmAddCourse Exit Sub End If ''添加成绩记录 Dim str str = "insert into score(StudentID, CourseID, Score) values('" str = str & grdScan.Columns(0).CellText(grdScan.Bookmark) & "','" & .dcbSerial.Text & "','" & .txtScore.Text str = str & "')" DataEnv.Con.Execute str Unload frmAddCourse End With Unload frmAddCourse ''刷新整个网格控件 Call RefreshScore(grdScan.Columns(0).CellText(grdScan.Bookmark)) Exit Sub errHandler: MsgBox Err.Description, vbCritical, "错误" End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() On Error GoTo errHandler If MsgBox("确实要删除此成绩记录？", vbYesNo + vbQuestion + vbDefaultButton2, "确认") = vbYes Then Dim sSerial sSerial = grdScore.Columns(0).CellText(grdScore.Bookmark) Dim stuSerial stuSerial = grdScan.Columns(0).CellText(grdScan.Bookmark) Dim str str = "delete from score where studentid = '" & stuSerial & "' and courseid='" & sSerial & "'" ''使用con来删除所选的记录 DataEnv.Con.Execute str DataEnv.rsOneScore.Requery ''刷新grdScore控件 grdScore.DataMember = "OneScore" grdScore.Refresh Call Calculate(grdScan.Columns(0).CellText(grdScan.Bookmark)) End If Exit Sub errHandler: MsgBox Err.Description, vbCritical, "错误" End Sub Private Sub cmdEdit_Click() ''修改当前所选的成绩信息 On Error GoTo errHandler With frmAddCourse Load frmAddCourse .Caption = "修改成绩信息" ''将当前所定位的课程信息写入到frmAddCourse的dcbSerial和dcbName控件中 .dcbSerial.Text = grdScore.Columns(0).CellText(grdScore.Bookmark) .dcbName.Text = .dcbSerial.BoundText ''将当前所定位的课程的成绩写入到frsScore.txtScore中 .txtScore.Text = grdScore.Columns(grdScore.Columns.Count - 1).CellText(grdScore.Bookmark) .cmdOK.Enabled = True .Show vbModal ''如果用户没有点击确认按钮，则退出处理过程 If Not .mbAdded Then Unload frmAddCourse Exit Sub End If ''添加成绩记录 Dim str str = "update score set score=" & .txtScore.Text str = str & " where studentid='" & grdScan.Columns(0).CellText(grdScan.Bookmark) & "'" str = str & " and courseID='" & .dcbSerial.Text & "'" DataEnv.Con.Execute str Unload frmAddCourse End With Unload frmAddCourse ''刷新整个网格控件 Call RefreshScore(grdScan.Columns(0).CellText(grdScan.Bookmark)) Exit Sub errHandler: MsgBox Err.Description, vbCritical, "错误" End Sub Private Sub cmdFirst_Click() DataEnv.rssqlStudent.MoveFirst Call ChangeBrowseState End Sub Private Sub cmdLast_Click() DataEnv.rssqlStudent.MoveLast Call ChangeBrowseState End Sub Private Sub cmdList_Click() ' On Error Resume Next ''针对所选的班级，列出班级中所有的学籍信息 Dim strSQL If cboClass.Text = "全部" Then strSQL = " from student order by serial" Else strSQL = " from student where class='" & cboClass & "' order by serial" End If DataEnv.rssqlStudent.Close DataEnv.rssqlStudent.Open "select * " & strSQL ''刷新网格控件 Call RefreshGrid Call ChangeBrowseState Call grdScan_Change End Sub Private Sub cmdNext_Click() DataEnv.rssqlStudent.MoveNext Call ChangeBrowseState End Sub Private Sub cmdPrevious_Click() DataEnv.rssqlStudent.MovePrevious Call ChangeBrowseState End Sub Private Sub cmdReport_Click() On Error Resume Next Dim rpt As New rptStudentScore Load rpt rpt.Caption = "学生" & grdScan.Columns(1).CellText(grdScan.Bookmark) & "的成绩信息" rpt.Show 1 End Sub Private Sub cmdSeek_Click() With frmFind Dim i As Integer '显示查找窗口 Load frmFind ''填充查找窗体的字段列表框 .lstFields.Clear For i = 0 To DataEnv.rsStudent.Fields.Count - 1 .lstFields.AddItem (DataEnv.rsStudent(i).Name) Next i .lstFields.ListIndex = 0 .Show 1 If .mbFindFailed Then Exit Sub Dim sTemp As String If LCase(.msFindOp) = "like" Then sTemp = .msFindField & " " & .msFindOp & " '%" & .msFindExpr & "%'" Else sTemp = .msFindField & " " & .msFindOp & " '" & .msFindExpr & "'" End If sTemp = "select * from student where " & sTemp & " order by serial" Unload frmFind End With ''查找数据，并刷新用以导航的网格控件 DataEnv.rssqlStudent.Close DataEnv.rssqlStudent.Open sTemp Call RefreshGrid Exit Sub errHandler: MsgBox "没有符合条件的纪录！", vbExclamation, "确认" End Sub Private Sub Form_Load() ' On Error Resume Next Dim rsDep As New ADODB.Recordset, rsClass As New ADODB.Recordset Set rsDep = DataEnv.rsDepartment Set rsClass = DataEnv.rsClass '''从class中读取数据，填充到cboClass复合框中 If rsClass.State = adStateClosed Then rsClass.Open cboClass.Clear cboClass.AddItem "全部" While Not rsClass.EOF cboClass.AddItem rsClass("Name") rsClass.MoveNext Wend cboClass.ListIndex = 0 cmdList.Value = True If gnUserType = 0 Then ''教师身份登录 fraManage.Enabled = True fraBrowse.Enabled = True fraSeek.Enabled = True grdScan.Enabled = True Else ''学生身份登录 fraManage.Enabled = False fraBrowse.Enabled = False fraSeek.Enabled = False If DataEnv.rssqlStudent.State = adStateOpen Then DataEnv.rssqlStudent.Close DataEnv.rssqlStudent.Open "select * from student where serial ='" & gsUserName & "'" grdScan.DataMember = "sqlStudent" grdScan.Refresh End If Call grdScan_Change End Sub Private Sub grdScan_Change() If grdScan.ApproxCount > 0 Then Call RefreshScore(grdScan.Columns(0).CellText(grdScan.Bookmark)) End If End Sub Private Sub grdScan_DblClick() sstMain.Tab = 1 End Sub Private Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer) ''当前行改变，则动态改变所要显示的记录 If LastRow <> grdScan.Bookmark Then If grdScan.ApproxCount > 0 Then Call RefreshScore(grdScan.Columns(0).CellText(grdScan.Bookmark)) End If End If End Sub 4.3发布应用程序 在Visual Basic的集成开发环境中创建好学生成绩管理系统后，并无意味着全部工作已完成，此时生成的应用程序只能在Visual Basic的集成环境中运行，要想使应用程序能够脱离Visual Basic的集成开发环境，首先要对学生成绩管理程序进行编译并且生成.exe或其他类型的文件，然后调用打包和展开向导创建安装程序。 4.3.1编译应用程序 编译学生成绩管理程序就是将创建的应用程序以及它的工程文件合并成一个可执行文件。在发布学生成绩管理应用程序之前，首先应该使用测试和调试工具对改应用程序进行前面测试，在排除了所有可能的错误后，才可以开始对应用程序进行编译。 编译应用程序的主要目的如下； · 使应用程序转入和运行更快。 · 给发布应用程序作准备。 · 使用应用程序更安全。 将应用程序进行编译后，Visual Basic将工程中的所有文件进行组织并将这些工程文件转化成一个可执行的文件.exe。 Visual Basic提供APP对象来存储应用程序的有关信息属性，例如，公司名，产品名，版本以及其他相关信息。在设计中，可以通过这些属性来告诉用户一些重要的信息，在应用程序运行时用Visual Basic代码读出这些属性值，也可以在Windows资源管理器中观察应用程序对象的版本信息属性值。右击编译过的.exe文件，然后从快捷菜单中选择“属性”命令打开“属性”对话框的版本标签，就可以看到应用程序的版本信息。 当完成当前工程的APP对象的属性后，就可以编译代码了。Visual Basic6.0支持两种编译格式：P代码和本地代码。选择P代码格式编译的应用程序生成的可执行文件较小，选择本地代码编译的应用程序生成的可执行文件要大的多，但是可执行文件的运行速度比较快。 因此，学生成绩管理系统采用的视本地代码的编译格式。 4.3.2打包应用程序 创建Visual Basic应用程序后，可以将创建的学生成绩管理应用程序通过磁盘，关盘，网络等途径自由发布，一般来说，发布应用程序必须经过下面的两个步骤： 1、打包 必须将应用程序文件打包为一个或多个可以部署到选定位置的.cab文件（.cab文件是一种压缩文件），对于某些类型的软件包，还必须为其创建安装程序。 2、部署 必须将打包的应用程序放置到适当的位置，以便用户来安装应用程序。 可以使用两种工具来打包和发布应用程序。 · 打包和展开向导（Package and Deployment） · Visual Basic安装软件提供的安装工具包。 打包和展开向导通过提供有关如何配置.cab文件的选项，使发布应用程序所包含的许多步骤得以自动运行，这是用户一般所采用的方法。 使用打包和展开向导进行打包的第一个步骤就是选择一个工程，然后单击打包按钮，开始创建一个可以发布的应用程序。第三步，如果没有编译工程，打包和展开向导会要求编译工程。工程编译完成后，向导询问想制作什么类型的包，我们这里使用向导制作安装程序。当向导完成制作安装包以后，它会自动生成一个带有很多重要信息的报告。 4.3.3发布应用程序的步骤 将学生成绩管理系统打包后，制作安装程序的过程并没有结束，必须将打包后的应用程序发布到一个媒体上，比如软盘，光盘等，发布学生成绩管理系统的主要步骤如下：选择“学生成绩管理系统”这个包，然后指定把这个包发布到指定文件夹中，选择发布的媒体，就可以完成“学生成绩管理系统”的发布工作了。 第五章 结论及体会 随着学校规模的不断扩大，学生数量的急剧增加，有关学生的各种信息量也在不断成倍增长。面对庞大的信息量，就需要有学生成绩管理系统来提高学生管理工作的效率。 传统手工的学生成绩管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了学生成绩管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。 在软件的编写过程中，我充分体会了软件编程工作者的辛苦，因为每一个细微的细节都必须十分的注意，如果稍有不慎，就会全盘皆输，而且往往很多的时候，程序我自己觉得非常的正确，但是就是编译通不过，在查找错误的过程中，面临着否认自己的过程，非常的痛苦，而且由于自己的经验及各方面的能力的不足，所以进展的速度非常的缓慢，往往几天的时间还没有一点进展。 在开始编写程序的时候，我看到别人的软件功能非常的详细，而且界面非常的漂亮，总希望自己的软件也非常的完善，但是，经过二个月的学习，发现编一个优秀的软件决不是一蹴而就的事情，需要长时间的积累和经验，而这个方面又是我的弱项，因此，在朋友的帮助下，我终于认清自己的不足及劣势，不要贪图大而全，只要尽我所能，编制一个实用简单的软件也是件很不容易的事情。 在反反复复的学习及不耻下问之下，我的辛勤努力有了汇报，终于做出了一个简单的软件，虽然这个软件的功能非常的简单，而且我想，在实际的运用中，肯定会有所不足，因为学生成绩管理工作的内容非常的丰富，我涉及到的仅仅是学生管理的一部分简单内容，离实际的客户需求肯定还有一定的差距。但是，它毕竟代表了我二个月辛勤的结晶。 由于我的知识浅薄，经验不足及阅历颇浅，因此，在该系统的设计方面还有很多不足，比如功能过少，界面不够醒目等问题，我会在工作的使用过程中，根据工作的具体要求不断的修改，完善，争取使该系统慢慢趋向完美。 在本系统的设计过程和论文编写过程中，很多老师、同事和朋友都给与了我许多无私的帮助，尤其是我的导师给我的论文提出了很多宝贵的修改意见，在这里，我向这些无私帮助我的人表示衷心的感谢。 参考文献 1、《Visual Basic 6.0数据库开发指南》 王福成、周铁柱、黄淼云等编著 清华大学出版社 2000年6月第一版 2、《ASP.NET入门经典：VB.NET编程篇》 崔洪斌等译 清华大学出版社 2002年05月第一版 3、《VB.NET编程实例详解(含盘)》 王华杰编著 中国铁道出版社 2002年04月第一版 4、《VB.NET高级编程》 康博译 清华大学出版社 2002年03月第一版 5、《Instant VB.NET实例解析VB.NET应用编程》 张龙卿编写 北京希望电子出版社 2002年01月第一版 6、《XML 编程--使用 VB 和 ASP》 [美]Mark Wilson,[美]Tracey Wilson著, 健莲科技译 中国电力出版社 2001年06月第一版 7、《数据库设计与编程实例详解》 电子工业出版社 2001年02月第一版 8、《编程技巧及故障排除即时通 (VB 篇)》 清华天则工作室编著 兵器工业出版社 2001年02月第一版 9、《引人入胜 Install Shield 6.x/VB/VC/Delphi 安装程序设计与制作 （含盘）》 张君编著 上海书店 2000年11月第一版 10、《VB6.0中文版教程》 新智工作室编著 电子工业出版社 2000年03月第一版 11、《企业管理的计算机化》 威廉·谢尔 上海科学技术文献出版社 2000年 打 印 报 表 查询自己的考试成绩 用户登录 学生角度管理 打 印 报 表 按学生角度进行增删改 按课程角度进行增删改 学生用户 学生用户 教师用户 用户类别 学生角度管理 学生实体 学生成绩管理系统 教师用户 个人成绩查询 学号 姓名 班级 简历 … … … 课程实体 编号 名称 学时 类型 … … … 学生成绩信息实体 学号 姓名 课程 成绩 … … … 资料查询 熟悉开发环境 定 题 调查研究 数据库设计 系统分析与设计 打包发布 功能实现 PAGE 11