JSJ06-209@vb学生成绩管理系统设计(论文+源代码)
收藏
资源目录
压缩包内文档预览：(预览前20页/共44页)
编号：508465
类型：共享资源
大小：2.51MB
格式：ZIP
上传时间：2015-11-10
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-209@vb学生成绩管理系统设计(论文+源代码),毕业设计论文
- 内容简介：
-
I 中文 摘要 ： 学生成绩管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备 ,容易使用等特点。 本系统主要完成对学生情况和学生成绩的管理，包括数据库中表的添加、修改、删除等。系统还可以完成对各类信息的浏览、查询、添加、删除、修改、报表等功能。 系统的核心是数据库中各个表的联系，每一个表的修改都将联动的影响其它的表，当完成对数据的操作时系统会自动地完成数据库的修改。查询 功能也是系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功能，并具备报表打印功能。 经过分析 ,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具 ,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然后 ,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。 关 键词 ： 管理信息系统；数据库； vb6.0； access2000 nts II ABSTRACT ： Student status result system is development two aspects that typical information management system, MIS( MIS), its development includes primarily the background database creates with support and the front end applies the procedure. Creates to rise to the former request the consistency of data is strong with the integrity, the library that the safeness of data like. But request the latter very much to apply the procedure function complete, easy usage etc. characteristics. This system completes primarily to students circumstance with the management of students score, include the database the inside the watch increase, modify, delete etc. he system can also complete to the browsing of various information, search, increase, delete, modify, report etc. function. System of nucleus is other table in an influence for of relation, each a modification of watch moving in a table in database that modification that operation hour system, be to complete the logarithms according to will complete the database of oneself. Search the function is also one of the nucleus of the system, having namely in system the single condition search to search with many conditions, also having the accurate search to search with blur, system not only contain static condition search, also have the dynamic born condition search, its purpose is all for the sake of the convenient consumer to use. System contain complete consumer increase, delete to modify the function with the password, the union has the report prints the function. Through analysis, we use the MICROSOFT company VISUAL BASIC development tool, making use of its every kind of the tool of development that provide that face to the object, particularly is intelligence that the window of data this on canning be convenient but nts III manipulate the database in brief to turn the object, create in the in a short time first system application prototype, then, start to the beginning the prototype system proceeds to require with the iteration, revising continuously with improve, until forming the consumer is satisfied can row system. Key words: MIS； database； vb6.0； access2000nts IV 目 录 目 录 IV 第一章 绪论 1 1.1 开发背景 1 1.2 开发环境 1 1.2.1 VB6.0 简介 2 1.2.2 Microsoft Access 的使用 2 1.2.3 ADO 的介绍 3 1.3 课题的来源 3 第二章 系统的需求分析 4 2.1 总体需求调查 4 2.1.1 系统总需求概述 4 2.1.2 系统目标 4 2.1.3 业务总体流程调查如图 2.1 5 2 2 系统功能调查 5 2.2.1 系统登陆管理功能 6 nts V 2.2.2 查看和修改 管理功能 6 2.2.3 信息录入模块功能管理 7 2.2.4 查询模块的功能 8 2.2.5 打印模块的功能 8 第三章 概要设计 9 3.1 系统设计思路 9 3.1.1 界面设计 9 3.1.2 用户登陆 9 3.1.3 学生信息信息内容查询和录入 9 3.1.4 数据库分析 9 3.2 设计简述 10 3.2.1 vb 设计的界面简述 10 3.2.2 Access2000 设计数据库 10 3.2.3 系统介绍 10 3.2.4 运行设计 11 3.3 E-R 图 12 3.4 系统环境与软件安装 14 3.4.1 硬件环境要求 14 nts VI 3.4.2 软件环境要求 14 3.4.3 软件安装及运行 14 第四章 详细设计与实现 15 4.1 概述 15 4.2 数据库设计 15 4.2.1 课程表 16 4.2.2 学生情况表 16 4.2.3 学生与课程表 16 4.2.4 用户表 17 4.2.5 建立 ACCESS 数据库 17 4.3 界面的实现 20 4.3.1 登陆界面 20 4.3.2 主界面 23 4.3.3 查看和修改信息 24 4.3.4 成绩录入 27 4.3.5 学生信息的录入 29 4.3.6 信息查询 29 4.3.6 报表输出 32 nts VII 第五章 系统测试 34 5.1 系统功能测试 34 5.1.1 整体模块测试 34 5.2 系统数据 库测试 34 5.3 系统错误处理测试 35 参考文献 36 致 谢 37 nts 1 第一章 绪论 1.1 开发背景 随着经济全球化、管理现代化的到来，信息化建设已提到议事日程。国家机关、高等学校、参与国家竞争的大中型企业等单位，为了提高现代化管理水平、为了在激烈的市场竞争中获胜，纷纷不同程度的加强信息化建设，如组建自己的局域网、实施适用本单位或本部门的企业级 MIS（管理信息系统）项目或 ERP（企业资源计划）项目 1。因此管理系统是十分重要的。整个系统有适应性，先进性，可操作性。对于一个学校来说，学生 成绩 管理系统是必不可少的，它大大方便了学校的各项管理，使之运用起来更方便，更 具体，更有实用性。 在我国的各类学校，尤其是高等院校，近些年由于阔招生员，大大增加了学校的管理体制的负担，因此，学生 成绩 管理系统大大减轻了学校在管理上的负担。给学校带来了很大的方便。学生 成绩管理系统是时代发展的必然产物，能否使一个学校有良好的管理制度，十分完备的管理层次，是一个学校能够办学成功的关键所在。 1.2 开发环境 开发学生信息管理系统的软件主要是 Microsoft Visual Basic 6.0 和 Microsoft Acces。 微软公司的 Visual Basic 6.0 是 Windows 应用程 序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。 Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，nts 2 实现本系统 VB是一个相对较好的选择。 1.2.1 VB6.0 简介 Visual Basic 具有数据库连接和数据处理功能，因此完全有资格作为数据库应用程序的开发环境。 Microsoft 公司把许多新的数据访问功能加到 VB中，使得该产品成为桌面数据库市场中 Access、 FoxPto及 Paradox for Windows的直接竞争者 2。 与普通的数据库系统相比，用 Visual Basic 作为数据库开发平台有以下优点： 简单性 :Visual Basic 提供了数据控件，利用该控件，用户只要编写少量的代码甚至不编写任何代码就可以访问数据库，对数据库进行浏览。 灵活性： Visual Basic 不像一般的数据库 (如 Access)那样局限于特定的应用程序结构，也不需要用某些指令对当前打开的数据库进行操作，因而比较灵活。 可扩充性。 Visual Basic 是一种可以扩充的语言，其中包括在 数据库应用方面的扩充。在 Visual Basic 中，可以使用 ActiveX 控件 (以前版本中称为 VBX 或 OLE 控件 )，这些控件可以由 Microsoft 公司提供，也可以由第三方开发者提供。有了这些控件，可以很容易地在 Visual Basic 中增加新功能，扩充 Visual Basic 数据存取控制的指令系统。在其它数据库开发平台中，目前还不具备 ActiveX 控件 。 1.2.2 Microsoft Access 的使用 Access作为 Microsoft的 office 套件产品 ,目前已经 成为世界上最流行的桌面数据库系统。 Access与许多优秀的关系数据库一样，可以让你很容易地连接相关的信息而且还对其他的数据库系统有所补充 3操作其它来源的资料，包括许多流行的 PC数据库程序（如 Paradox， Microsoft FoxPro）和服务器、小型 机和 大型机上的许多 SQL 数据库。 Access还提供 windows操作系统的高级应用程序开发系统。 Access 与其它数据库开发系统之间相当显著的区别就是：您不用写一行代码，就可以在很短的时间里开发出一个功能强大而nts 3 且相当专业的数据库应用程序，并且这一愉快的过程是完全可视的！如果您能给它加上简 短的 VBA代码，那么您的程序决不比专业程序员潜心开发的程序差。 在本次设计中，需要 建立一个数据库系统， 并且在开发中 希望能够建立一个专业的数据库系统 ，但是去 系统地 去 学习编程 时间和精力上不允许，并且 写SQL语句 ，也是一项比较麻烦的工作。而微软公司开发的 Access软件很好的解决了这方面的问题，所以在本系统的开发中，数据库的建立就是使用了微软公司开发的 Microsoft Access 软件。 1.2.3 ADO 的介绍 ADO(ActiveX Data Object)是 Microsoft 数据库应用程序开发的新接口，一 种基于 COM(组件对象模型 )的自动化接口 (IDispatch)技术，并以 OLE DB(对象连接和镶入的数据库 )为基础，经过 OLE DB 精心包装后的数据库访问技术，利用它可以快速的创建数据库应用程序。 ADO 提供了一组非常简单，将一般通用的数据访问细节进行封装的对象。由于 ODBC 数据源也提供了一般的 OLE DB Privider，所以 ADO 不仅可以应用自身的 OLE DB Privider，而且还可以应用所有的 ODBC驱动程序 4。 1.3 课题的来源 本课题是以某学校的学生成绩管理办公自动化需求为背景，而进 行设计开发的一个学生成绩管理系统。本系统开发后不是为了马上可以应用到实际工作，而是与学院现有应用软件相比较，在开发技术，开发思路以及软件的稳定性，安全性，可用性等等方面进行比较，综合各个方面的优点，以便开发出一套更为完善的学生成绩管理系统。 nts 4 第二章 系统的需求分析 2.1 总体需求调查 2.1.1 系统总需求概述 “学生成绩管理系统”包括登陆模块，查看和修改模块，信息录入模块，查询模块和打印模块。 1. 系统登陆模块： 主要完成对登陆用户名和密码进行有效性验证，当输入的数据合法时，跳转到主菜单页面，进行对应的操作 2. 查看和修改模块：在这个模块中可以对学生的基本信息和学生的成绩进行添加，修改和删除。 3. 信息录入模块：可以添加课程，添加成绩和基本信息。 4. 查询模块：可以对学生的基本信息和学生成绩进行查询。其中学生基本信息的查询可以通过学号，班级，专业院系查询。学生成绩查询可以通过学号，班级和全部进行查询。 5. 打印报表模块：可以打印学生的自然情况，学生的各科成绩和补考学生的名单。 2.1.2 系统目标 采用现有的软件和科学的管理系统开发方案，完成对学生成绩管理的部分功能，实现学生成绩管理系统的开发规范。系统应符合客户的实际需要，并达到操作直观、方便、实用等要求。 nts 5 2.1.3 业务总体流程调查如图 2.1 图 2.1 系统总体流程图 该学生成绩成绩管理系统基本流程如下 ： 数据来源：将在数据库中所创建的各表内数据作为数据来源，可在数据库中直接进行操作或由用户提交的命令进行操作。 数据的输入：由用户直接输入完成。 数据的显示或提交：通过运用 SQL语句连接到数据库完成相应的功能。 2 2 系统功能调查 整个系统从总体上分为系统登陆管理，查看和修改模块，信息录入模块，查询模块，打印报表模块。 每一部分实现的功能如下： 主菜单功能选择 对各模块进行操作 显示或提交数据 数据库数据备份 结束 系统登陆 nts 6 2.2.1 系统登陆管理功能 用户名和密码的有效性验证 ； 根据用户名判断用户是管理员或者普通用户 出错信息提示； 登陆模块的示例如图 2.2： 图 2.2 登陆模块用例图 2.2.2 查看和修改管理功能 显示：学生信息的分页显示，并提供翻页功能； 用户管理：实现灵活的增加成绩信息； 用户管理：实现灵活的修改成绩信息； 用户管理：实现灵活的删除成绩信息； 用户管理：实现灵活的修改和删除学生基本信息。 出错信息提示。 查看和 修改功能如图 2.3: 管理员 系统登陆 系统操作 退出系统 nts 7 图 2.3 查看和修改功能 2.2.3 信息录入模块功能管理 成绩添加：可以添加某门课程的成绩 课程添加：可以添加课程号，名称和授课老师 基本信息添加：可以添加学生名字，学号，性别等信息。 信息录入功能介绍如图 2.4 图 2.4 信息录入功能 管理员 成绩添加 成绩删除 信息修改 信息删除 成绩修改 管理员 学生信息添加 课程添加 成绩添加 nts 8 2.2.4 查询模块的功能 学生基本信息的查询：可以通过学号，班级，专业和院系 查询。 学生成绩的查询：学号，班级和全部查询 2.2.5 打印模块的功能 学生自然状况的打印 学生各科成绩的打印 补考学生名单的打印 nts 9 第三章 概要设计 3.1 系统设计思路 3.1.1 界面设计 用 VB设计基础界面，在初步设计时，可以只对窗体进行设计，而不涉及程序的内容，待窗体设计完毕后，再进行程序编程，这也是 VB的优点之一。 3.1.2 用户登陆 用户登陆时，用户信息进入存放用户名和密码的 db5 数据库，打开超级用户表，可用从中找到用户名和密码。如果用户名或密码错误， 会弹出窗口提示无效的用户名或密码，返回用户登陆界面。 3.1.3 学生信息信息内容查询和录入 查询结果可以通过网格输出，输出时显示各个学生成绩和信息。在管理员进行录入工作时，对所输入信息插入数据库内，并保证其安全和主属性的唯一。 3.1.4 数据库分析 在系统实现时，可以建立一个数据库，但是建立多个表。对用户名和密码，设计一个用户密码表包括“用户名”和“密码”两个字段；建立学生情况、课程情况、学生与成绩情况时，考虑到各专业和班级的课程不相同，建立统一的表比较困难。所以让系统管理员按照实际情况动态的建立数据表，但 要保证所查询出的结果完全满足用户的需求。 nts 10 3.2 设计简述 3.2.1 vb 设计的界面简述 漂亮界面，这个窗体要求让人感觉到舒服、好看。登陆界面，要求管理员输入帐户密码，并根据密码是否正确决定进入主界面。主界面，是一张自己制作的图片，可以通过各个菜单调用各种功能。新建班级，要求可以生成以班级名称命名的成绩表，具体表中的字段由管理员决定。数据输入，可以在这个窗体中对数据库中的任意表进行添加、修改、删除等操作。数据导入，管理员可以把 excel表中的数据导入到数据库中 5。查找向导，可以根据各种条件对学生进行查 找，并显示。成绩查询，对成绩进行单人或者全班查询。打印管理，管理员可以打印单人或者全班成绩，并且对打印的字段进行设置。帮助信息，说明作者，版本信息。 3.2.2 Access2000 设计数据库 课程数据表，包括课程各种基本属性，“课程号”为主属性。学生情况表，包括学生的各种基本属性，“学号”为主属性。学生与课程联系表包括学生与课程的各种基本属性，“学号”与“课程”为主属性。用户权限表包括“用户”和“密码”两个属性，“用户”为主属性。其余成绩表由管理员建立，包括“学号”，“姓名”和以课程名字命名的属性，“学号 ”为主属性。 3.2.3 系统 介绍 系统登陆成功后进入主界面，可以进行学生成绩查询，学生基本信息的查询，还可以对打印报表操作，并且可以添加，删除和修改学生的成绩，学生的基本信息和课程。如果登陆失败，则退出系统。 系统简图如图 3.1 nts 11 图 3.1 系统简图 3.2.4 运行设计 1运行模块的组合：具体软件的运行模块组合为程序多窗口的运行环境，各个模块在软件运行过程中能较好的 交换信息，处理数据 6。 2运行控制：软件运行时有较好的界面，基本能够实现用户的数据处理要求 。 3.运行时间 :系统的运行时间基本可以用户所提出的要求 . 学籍管理系统 用户登陆 主界面 退出 登陆成功 成绩输入 课程输入 信息输入 学生查询 成绩查询 打印报表零 退出 输入 输入 输入 输入 输入 输入 学 籍 信 息 库 nts 12 3.3 E-R 图 3.3.1 课程管理 E-R 图如图 3.2 图 3.2 课程管理 E-R图 3.3.2 学生与课程 E-R 图如图 3.3 图 3.3 学生与课程管理 E-R图 课程号 课程管理 课程名称 授课教师 学生与课程 学生与课程 学生与课程 学生与课程 学生与课程 学生与课程 nts 13 3.3.3 学生信息 E-R 图 如图 3.4 图 3.4 学生信息 E-R 图 3.3.4 用户管理 E-R 图如图 3.5 图 3.5 用户管理 E-R 图 学号 班级 附注 地址 父母姓名 名字 专业 邮政编码 性别 出生年月 民族 院系 电话号码 学生信息 用户管理 用户编号 用户密码 用户名称 nts 14 3.4 系统环境与软件安装 3.4.1 硬件环境要求 奔腾 3处理器以上版本或赛扬处理器， 20GB硬盘以上， 64MB以上内存（建议使用 128MB内存） 。 3.4.2 软件环境要求 本系统采用 Microsoft Access数据库 ，用 Visual Basic 6.0 做数据库前台，可在 Windows95/98 /2000（ server） /XP操作系统下运行 . 3.4.3 软件安装及运行 建议用户在系统上安装 Microsoft公司的 Visual Basic 6.0企业版和 运行程序。打开 Visual Basic 6.0企业版 ， 运行 “ student.vbp” 工程 ， 或执行 “ student.exe” 文件 7。 nts 15 第四章 详细设计与实现 根据需求分析、概要设计的结果，采用 Microsoft Visual Basic 6.0 作为开发工具， Microsoft Access 作为后台数据库实现 学生成绩 管理系统各个模块的功能。 4.1 概述 整个系统从总体上分为系统登陆管理，查看和修改模块，信息录入模块，查询模块，打印报表模块。 各个部分通过运行在 Windows XP 上的 Microsoft Access数据库统一管理。 通过 Microsoft Visual Basic 6.0 画出几个模块的界面，然后通过添加程序代码实现各个模块的功能 。 4.2 数据库设计 本系统的后台数据库为 Microsoft Access,既方便操作，又达到系统设计的目 的。通过对系统登陆管理，查看和修改模块，信息录入模块内容的分析，因此本系统中的数据库表应设计的实体和属性如下： 登陆信息（用户 ID，用户密码，用户编号） 2.学生与课程信息包括 （课程名称，课程号，学号，备注，成绩） 3.课程信息（课程号，课程名称，授课教师） 4.学生情况信息（学号，班级，名字，性别，出生日期，民族，父母姓名，自制，邮政编码，专业，院系，电话号码，附注） nts 16 4.2.1 课程表 表 4.1 课程表 4.2.2 学生情况表 表 4.2 学生情况表 字段名 类型 是否为空 说明 学号 文本 否 主键，学号 班级 文本 名字 文本 性别 文本 出生日期 时间 民族 文本 父母姓名 文本 地址 文本 邮编编码 文本 电话号码 文本 院系 文本 专业 文本 备注 文本 4.2.3 学生与课 程表 字段名 类型 是否为空 说明 课程号 文本 否 主键，课程编号 课程名称 文本 否 授课教师 文本 否 nts 17 表 4.3 学生与课程表 字段名 类型（长度） 是否为空 说明 课程号 文本 否 主键，课程编号 课程名称 文本 否 学号 文本 否 备注 文本 否 成绩 数字 4.2.4 用户表 表 4.4 用户表 字段名 类型 是否为空 说明 用户名 文本 否 用户密码 文本 否 用户编号 文本 否 主键 4.2.5 建立 ACCESS 数据库 启动 ACCESS，建立一个空的数据库 db5.mdb; 如图 4.1建立数据库 db5.mdb。 nts 18 图 4.1建立数据库 db5.mdb 根据上面的表格，使用程序设计器建立系统需要的表格如图4.2,4.3,4.4,4.5 所示。 nts 19 图 4.2 超级用户表 图 4-3 课程表 图 4.3 课程表 图 4.4 学生表 nts 20 图 4.5 学生与课程表 4.3 界面的实现 4.3.1 登陆界面 第一个出现在用户面前的就是这个界面，因此要求漂亮、简洁。本界面的picture属性被设置成一个图片，还放有几个 ICO图标，全图片式的登陆界面使显得更美观。本界面一共有 label 控件 2个，两个 textbox控件，两个commandbutton（ 并加上了图片）。控件上设置 caption属性有提示作用， text控件可以储存用户输入的数据。设置全局变量 Public LoginSucceeded As BooleanInteger 并初始化。 在 button1_click 中添加代码， db 与数据库连接， rs 打开表“用户密码”。当 rs.eof为 flase 的时候，循环，判断 rs.fields(0)和 text1.text，rs.fields(1)和 text2.text是否相等，只有当两个都相等（用户密码都正确）nts 21 的 时候 flag变量为 1，当 flag为 1的时候调用“主界面”，否则给出提示。在 timer_timer中添加代码，判断 label1.left 是否为 0，如果为 0则变量rightlabel为 0，变量 leftlabel为 1， label1以一定速率向右移动；如果label1.left等于 form的长度减去 label1 的长度则变量 rightlabel为 1，变量 leftlabel为 0， label1向左移动。 在 button2_click 中添加代码，卸载整个系统（退出系统）。 登陆界面如图 4-6： 图 4.6 登陆界面 主要代码： Private Sub cmdOK_Click() On Error GoTo errh: Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set rs = cn.Execute(SELECT UserName , Password FROM 超级用户 ) If rs.EOF Then rs.Close Set rs = Nothing Unload Me nts 22 Load FrmMain Exit Sub End If rs.MoveFirst Dim i As Integer 校验是否为超级用户 Do If rs.Fields(UserName) = txtUserName.Text Then If rs.Fields(Password) = txtPassword.Text Then UserType = True LoginSucceeded = True rs.Close If txtPassword.Text = Admin Then IsAdmin = True Unload Me Load FrmMain Exit Sub Exit Do End If End If rs.MoveNext Loop Until rs.EOF 校验是否为普通用户 Set rs = cn.Execute(SELECT 学号 FROM 学生 WHERE 学号 = & & txtPassword.Text & ) If rs.EOF Then MsgBox 无效密码或用户名请重试 !, , Login txtPassword.SetFocus SendKeys Home+End Else nts 23 rs.Close UserType = False LoginSucceeded = True Unload Me Load FrmMain End If Exit Sub 4.3.2 主界面 “主界面”包括菜单和经过处理的图片组成。在各个菜单中包含子菜单，各个菜单里添加显示其功能的窗体的代码，并且使“主界面”的 enabled属性为 true（主界面可用）。 在 Form_Load()中根添加代码，是登录用的根据用户的级别限制某些菜单可用或者不可用。 UserType = True为超级用户，否则为一般用户。如果是一般用户系统管理、信息录入、打印报表菜单将不可用。 在 Form_QueryUnload 添加代码，就是退出的时候释放掉所有窗口的资源免得造成内存泄漏， cn.Close是关闭 ADO连接， For Each frm In Forms 是销毁所有窗口，如图 4.7 nts 24 图 4.7 主界面 4.3.3 查看和修改信息 本界面包括 14个 label控件， 12 个 textbox控件， 5个 combo控件， 12个 commandbutton 控件，一个 datagrid 控件和一个 Timer 控件。通过 combo可以选择具体表， datagrid可以显示选择表， 14个 label 分别为“学号”、姓名、性别、父母姓名、出生年月、地址、邮政编码、班级、专业、院系、电话号码、附注， 12 个 button 分别是“第一个”、前一个、下一个、最后、修改（对基本信息）、更新、取消修改、删除（对基本信息）、添加、修改（对成绩）、删除（对成绩）、关闭。定义全局变量 Option Explicit Dim rs As ADODB.Recordset Dim rs1 As ADODB.Recordset Dim txtSQL As String Dim MsgText As String nts 25 Dim mybookmark As Variant Dim mcclean As Boolean。 在 Timer1_Timer 中添加代码对变量 db， rs进行初始化， db连接数据库，rs打开“课程表”表。在 combo中用方法 combo4.additem 选择数据库中的课程号和课程名。 Combo3 中添加文本 优异 、 良 好 、 中等 、 及格 、 不及格 。循环 rs.recordcount 次，在 combo2 中用方法 combo2.additem 添加文本rs.fields， rs记录集使用方法 rs.Fields(0)打开文件中的记录。这样 combo中有所有的信息，管理员可以任意选择想对应的课程和课程号。 在 command1_click（添加）中添加代码。在这里用到了多个 IF条件语句可以添加学生的成绩，课程号（ Combo4）和课程名称（ Combo2）在数据库已给出对并建立的连接， Adodc1.Recordset.Update MsgBox 添加成功 ! Else MsgBox 备注不能为空 ,请输入备注 !。添加的成绩可以在 DataGrid2显示出来。 在 command7_click（修改（对成绩）中添加代码。 Set rs = cn.Execute(select 成绩 from 学生与课程 where 课程号 = & Trim(Combo1.Text) & and 课程名称 = & Trim(Combo2.Text) & and 学号 = & Trim(Text2.Text) & )，根据变量 rs的属性 rs.state 判断 rs是否已经存在，如果已存在，设置 datagrid 的属性 datagrid2.enabled（由于已经设置了 rs 的属性所以 datagrid 支持修改）；如果不存在则根据各个IF条件语句 msgbox 给出提示“成绩和备注不匹配 ,请核对 !”、“没有该课程成绩 ,不能修改 !”、“ 该项不能为空 ,请输入备注 !”、“ 该项不能为空 ,请输入课程名称 !”、“ 该项不能为空 ,请输入课程号 !”、“ 该项不能为空 ,请输入成绩 !”。 在 command8_click（删除）中添加代码。输入以给成绩的课程号和课 程名称，根据变量 rs的属性 rs.state 判断 rs是否已经存在，调用 rs的方法rs.delete；给出提示 If MsgBox(你的操作将会删除当前的纪录，你确信吗？ )， rs1.Close MsgBox 没有这条记录 ,无法删除 !。 在 command9_click（关闭）中添加代码。显示“主界面”，隐藏本界面，nts 26 关闭 rs集合，断开 db连接。 在 command2_click（第一个）中添加代码。用 go to 语句跳转第一条学生学生信息的基本信息。 在 command3_click（最后）中添 加代码。用 go to语句 Adodc2.Recordset.MoveLast 跳转最后一条信息。 在 command4_click（下一个）中添加代码。 Adodc2.Recordset.MoveNext 转到下一条信息。 在 command5_click（前一个）中添加代码。Adodc2.Recordset.MovePrevious go to 语句转到前一条信息。 在 command6_click（修改（对基本信息）中添加代码。使 Command2、Command3、 Command4、 Command5、 Command10 的 Enabled 为 False， text1致text12、 Combo1 和 DataCombo1为 True。 在 CmdUpdata_Click（更新）中添加代码。更新是用于修改之后，使用 IF条件语句，根据条件设置 MsgBox，给出提示提示（ 请先修改学生信息信息 ），若有信息示输入，提示（ 请输入学号 !） 。 在 CmdBolish_Click（取消修改）中添加代码。使 Command2、 Command3、Command4、 Command5、 Command10的 Enabled 为 true， text1 致 text12、 Combo1和 DataCombo1为 False。 MsgBox 什么也没修改 ,无所谓取消不取消 !。 在 command10_click（删除 (对基本信息 )）中添加代码。 MsgBox Err.Description 提示 (“ 你确信删除吗 ?” )。选是删除当前的一条记录。 查看和修改信息功能的截图如图 4-8 nts 27 图 4.8 查看和修改信息 界面 4.3.4 成绩录入 成绩录入模块的界面包括五个 个 label控件，四个 command 控件，三个combo控件，两个 adodc控件。 Label 主要起提示作用， command的 caption属性分别为“添加”，“更改”，“删作”，“退出”。定义全局变量 Dim rs As New ADODB.Recordset，设置 db， rs， db1， rs1的属性为可以修改。 在 Command1（添加）中添加代码。使用八个 IF条件语句设置各种条件，若符合条件则提示“添加成功 !”否则谈出各种不匹配的窗口。 在 Command2（更改）中添加代码。 Set rs = cn.Execute(select 成绩 from 学生与课程 where 课程号 = & Trim(Combo1.Text) & and 课程名称 = & Trim(Combo2.Text) & and 学号 = & Trim(Text2.Text) & )，课程号和课程名称必须匹配，同样用到多个 IF条件语句，例如成绩为 80分的，备注中不能选不及格， MsgBox 提示 成绩和备注不匹配 ,请核对 ! 。 nts 28 在 Command3（删除）中添加代码。 If MsgBox(你的操作将会删除当前的纪录，你确 信吗？ , vbOKCancel, 警告 ) = vbOK Then，信息必须与学生信息信息相同才能删除学生成绩。若没有记录则提示“没有这条记录 ,无法删除 !” 。 rs.Open 打开数据库中的连接（用来连接课程号和课程名） 在 Command4（退出）中添加代码。 Unload Me 退出连接，显示“主界面”。 成绩录入功能模块的截图如图 4.9 图 4.9 成绩录入 界面 nts 29 4.3.5 学生信息的录入 通过此功能模块可以加入学生的基本信息，包括学号，班级，名字，性别，出生年月，民族，父 母姓名，地址，邮政编码，专业院系，电话号码，附注。学生信息录入功能模块的截图如 4.10 图 4.10 学生基本信息录入 4.3.6 信息查询 本界面包括两个 frame控件，一个 label控件，一个 text控件，四个 option控件，一个 Adodc 控件，一个 datagrid 控件。 Frame控件可以乘放其他控件，使界面美观， label 文字提示作用， datagrid 控件显示记录集， option控件是单选框，分别为查询依据“学号”、“班级”、“专业”、“院系”。 用户选择查询的依据，并在文本 框中输入要查询的关键字，单击“查询”按钮，就可以查询到指定内容。查询结果以列表的形式显示在 datagrid控件中。单击“退出”按钮，则退出基本信息查询窗体，返回到主界面中。基本信息功能截图如 4.11 系统还
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号