学生信息系统毕业设计论文.doc

摘 要随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。本文所设计的是学生信息管理系统。学生信息管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要。本系统适用于高等院校，系统含有登陆、学生档案、课程管理、成绩管理、班级管理、缴费管理等模块，可以进行统一的管理和设置。本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一学校学生管理的不足，创建了一套行之有效的计算机管理学生的方案。后台采用SQL Server 2000来设计数据库，它有着最为灵活的数据库结构，对数据库应用有着良好的支持，这个系统得到了良好的衔接。本文介绍了学生管理信息系统的系统分析部分，包括可行性分析、需求分析等；数据库设计部分主要进行了E-R图分析、逻辑设计；系统设计部分主要介绍了几个主要模块的介绍和部分代码的实现,前台使用VB生成的界面友好，操作简单，比较实用。关键字：SQL Server 2000、数据库，visual basic语言，学生信息管理系统目 录 摘 要.11绪论311项目的背景与意义31.2项目开发的目标42. 系统分析52.1 系统分析的重要性52.2 需求分析52.3 数据库概念结构设计分析（E-R图）82.4系统操作流程图分析122.3 可行性分析133.数据库设计143.1 SQLServer2000简介143.2逻辑设计（数据库设计）164.VB设计194.1开发工具的选择194.2 开发工具Visual Basic的使用194.3 详细设计215.调试45全文总结46致 谢47参考文献481 绪论学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情。11 项目的背景与意义随着我国教育体制改革的深入进行，教育系统得到了前所未有的发展。学生管理正在逐步迈向管理信息现代化。但是我国的学生管理信息化水平还处在初级阶段，主要表现在对学生的交费管理、学生的档案管理还是采用原有的人工管理方式。学校的规模不断扩大,学生数量急剧增加,有关学生的各种信息量也成倍增长。由于大学生类别和专业的设置的多样化，大学生的学籍管理历来是非常繁琐和复杂的工作。面对庞大的信息量, 这时的人工管理几乎无法实现，在这种情况下用数据库进行管理变的尤为必要，这可以发挥计算机的优势，就需要有学生信息管理系统来提高学生管理工作的效率.通过这样的系统,可以做到信息的规范管理,科学统计和快速的查询,从而减少管理方面的工作量和减少人为的错误。1.2 项目开发的目标 建立学生信息管理系统，采用计算机对学生信息进行管理，进一步提高办学效益和现代化水平。帮助广大教师提高工作效率，实现学生信息管理工作流程的系统化、规范化和自动化。在对学生信息进行管理中，要对学生的档案、课程、成绩等模块进行统一的管理，并且要达到功能全面的目的。2. 系统分析在系统分析中，首先要了解系统分析的重要性，对系统进行需求分析和可行性分析，画出E-R图和系统流程图。才能够在各方面都有足够的准备去实现它，完善它。2.1 系统分析的重要性在管理信息系统的生命周期中，紧接系统规划阶段的是系统开发。系统开发阶段的目标是根据系统规划所确定的系统总体结构方案和项目开发计划，按拟定的项目开发出可以运行的实际系统。这是系统建设工作中任务最为繁重、耗费资源最多的一个阶段，这个阶段又可划分为系统分析、系统设计、系统实施三个小阶段，构成系统开发生命周期的三个主要阶段。系统分析阶段的主要活动有：系统初步调查、可行性研究、系统详细调查、新系统逻辑方案的提出。这是管理信息系统开发的起始阶段，也是非常重要的阶段。按照结构化方法严格划分工作阶段，“先逻辑、后物理”的原则，系统分析阶段的目标，就是按系统规划所定的某个开发项目范围，明确系统开发的目标和用户的信息需求，提出系统的逻辑方案。系统分析在整个系统开发过程中，是要解决“做什么”的问题，把要解决哪些问题、满足用户哪些具体的信息需求，调查、分析清楚，从逻辑上，或者说从信息处理的功能需求上提出系统的方案，即逻辑模型，为下一阶段进行物理方案设计、解决“怎么做”提供依据。本阶段主要解决用户要求做什么，该问题值不值得做，是否有可行的解决办法，以防止花费了大量人力、物力、财力和时间后，却发现问题无解，而造成浪费。若有解，且值得做，就应该推荐一个较好的解决方案，并制定一个初步计划。由此，可见系统分析的重要。2.2 需求分析在需求分子这个环节，首先要对用户进行调查，构造系统的逻辑模型，画出流程图，并确定目标系统的功能。2.2.1 用户调查 经过详细的调研，并多次与学生档案管理的老师进行研讨后，首先加深了对学生信息管理业务的深刻了解，其次在充分熟悉学生档案管理业务的同时，将整个学生档案管理的业务流程描述如下： 新生入校，首先报到并进行注册登记，然后到财务部门缴费。根据学生被录取的专业，持缴费单到所在系部注册。 到系部注册后，根据选报专业分配到班级。 进入正常大学生活，参加各种教学活动，学期期末要求每位同学参加各课的期末考试。 考试结束，由各系或部将各位同学的考试成绩及其他一些相关信息纪录至每个同学的档案中。根据以上总结，得到其现行的业务流程如图2-1所示。新生办理登记手续财务处学生处至系部系部分班安排课程教室开始学习活动考试成绩奖惩信息档案信息学生处学生管理图2-1 现行学生信息管理业务流程图2.2.2 构造系统的逻辑模型 构造系统的逻辑模型的工具是数据流图和数据字典。数据流图中没有任何具体的物理元素，只是用来描绘信息在系统中的流动和处理情况。数据流图共有四种基本符号：矩形表示数据的源点和终点（或称为外部项），圆或椭圆表示变换数据的处理，向右开口的矩形表示数据存储，箭头表示数据流，即特定数据的流动方向。根据现行学生信息管理的业务流程，首先确定数据流图中的源点和终点都选定为学生，如此就得到了学生档案管理系统的基本系统模型，如图2-2所示。成绩等信息学生档案管理学生学生基本信息学生 图2-2 学生档案管理系统的基本系统模型根据基本系统模型，对其逐步细化，得到描绘逻辑系统细化后的数据流图，如图2-3所示。学生信息表 课程信息表课程信息学生基本信息基本信息课程确定注册成绩信息成绩汇总新生报道建档分班根据专业确定所修课程学生班级信息成绩信息班级信息表 成绩信息表学生毕业分档处理档案成绩信息图 2-3 学生档案系统数据流图2.2.3 确定目标系统的功能 通过详细的用户调查，在现行的业务处理流程和数据流图的基础上，就可以基本确定目标系统要达到的目标了。需求分析的任务是确定系统必须完成的工作，也就是对目标系统提出完整、标准、清晰、具体的要求。在经过多方了解和调查后，基本清楚了学生档案信息管理的功能需求，学生档案管理系统必须完成以下功能： 数据添加功能：对于新生报道，系统必须具有班级的建立、课程的设置，如果新增专业，则能添加新专业，期末学生的考试成绩及奖惩信息必须能够录入。 数据修改功能：当上述资料发生变化或有错误信息输入时，应能够及时对数据进行修改和补充。 数据查询功能：该系统的主要功能致意即根据用户提供的相关信息，能够及时查找出对应的学生信息，系统应该提供多种查询方法，以便满足用户的不同需求。 数据打印功能：学生基本信息和成绩录入后应可以打印出来形成文字档案，装入学生档案，这也是学生学籍管理系统必须具备的功能。2.3 数据库概念结构设计分析（E-R图）E-R图为实体-联系图，提供了表示实体型、属性和联系的方法，用来描述现实世界的概念模型。构成E-R图的基本要素是实体型、属性和联系，其表示方法为： 实体型：用矩形表示，矩形框内写明实体名；属性：用椭圆形表示，并用无向边将其与相应的实体连接起来； 联系：用菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型（1对1，1对多，多对多）。 2.3.1 学生实体图这幅图是学生档案的图示，里面包括了学号、姓名、性别、籍贯、政治面貌、出生日期、专业、年级、班级、家庭住址、联系电话、邮政编码、入学时间、备注，其中关键字为学号。年级专业学号姓名籍贯性别学生档案民族备注出生年月入学时间联系电话邮政编码图2.3.1 学生档案图2.3.2 课程实体图这幅图是课程实体的图示，里面包括了、专业、学期、教材、任课老师、课时、上课地点、课程名称、课程性质、考试性质、年级，其中关键字是专业。课时教材学期年级 课程上课地点专业考试性质课程性质课程名称图2.3.2 课程实体图2.3.3 用户实体图这幅图是用户实体的图示，里面包括了包括：用户名、密码、身份，其中关键字为用户名。密码身份用户名用户图2.3.3 用户实体图2.3.4 班级实体图这幅图是班级实体的图示，里面包括了包括：专业、年级、辅导员、人数、备注其中关键字为专业。专业年级人数班级备注辅导员图2.3.4 班级实体图2.3.5 交费实体图这幅图是交费实体的图示，里面包括了包括：年级、学号、姓名、专业、学期、日期、本学期应交费用、实际交费、本次欠费，其中关键字为学号。学号姓名年级专业日期学期交费本次欠费实际交费应缴费用图2.3.5 交费实体图2.3.6 成绩实体图这幅图是成绩实体的图示，里面包括了包括：学号、姓名、专业、年级、学期、违纪类型、考试科目、考试时间、考试地点、课程性质、科目分数，其中关键字为学号。学号成绩姓名年级专业学期考试时间考试科目考试地点课程性质科目分数违纪类型图2.3.6 成绩实体图2.4 系统操作流程图分析系统流程图又叫事务流程图，是在计算机事务处理应用进行系统分析时常用的一种描述方法（另一个是数据流图），它描述了计算机事务处理中从数据输入开始到获得输出为止，各个处理工序的逻辑过程。经过上述分析，得到系统的操作流程图： 开 始 登 入N成功Y退出系统打印查询删除修改增加用户操作交费管理档案管理课程管理选择操作 系统管理成绩管理班级管理 N Y 结 束图 2.4 系统流程图在这个流程图中可以看到，开始登陆，如果密码错误，则重回到登陆那个界面。密码正确后进入系统进行选择操作。可以对各个模块惊醒增加、修改、删除、查询、打印功能。选择退出系统时，选择Y直接退出，N则返回系统。2.3 可行性分析23.1 学生信息管理系统设计 学生信息管理系统，需要运用窗体和控件、过程代码、数据库设计等许多知识。学生信息包括学生档案信息、班级信息、成绩信息等。学生信息管理就是将上述的学生信息转变为计算机能接受的数据送入计算机，系统包括学生数据输入、信息查询、信息浏览及报表输出等功能。（1） 数据输入对学生信息的管理，包括学生的档案信息、班级信息、成绩信息等的输入、添加、删除和修改。（2） 信息查询通过查询各个模块的主要内容和信息，将满足查询条件的信息显示在窗体上。（3） 信息浏览将满足信息查询分析条件的数据在报表中显示出来。23.2 技术方面可行性分析开发工具是Microsoft Visual Basic 6.0，它具有开发效率高、设计灵活、生成的软件界面友好美观等特点，非常实用。而作为后台的数据库 SQL Server 2000来说，能够很好的与前台开发工具进行连接。定位是中大型数据库系统的 SQL Server 2000 能够很好的满足存储的容量，不会有时会因为数据过多而造成丢失。23.3 商业方面可行性分析本系统开发费用极低，对于规模不很大，经费有限的单位在经济上是可以接受的，并且本系统实施后可以显著提高效率，很快就可以体现经济效益，比较实用。3. 数据库设计本系统采用了SQLServer2000来做数据库，以下简介SQLServer2000的特点，以及本人在开发本系统时所使用的设计表。3.1 SQLServer2000简介微软的SQLServer2000界面友好，易学易用且功能强大，与Windows2000操作系统完美结合，可以构造网络环境数据库甚至分布式数据库，可以满足企业及internet等大型数据库应用。在本系统的后台开发过程中，很好的利用了SQLServer2000的高度可靠性、可用性、快速调试、简化的管理和调节。以下简单介绍它的特点：1、完全的 Web 支持 SQL Server 2000 提供了以 Web 标准为基础的扩展数据库编程功能。丰富的 XML 和 Internet 标准支持允许您使用内置的存储过程以 XML 格式轻松存储和检索数据。您还可以使用 XML 更新程序容易地插入、更新和删除数据。2、通过 Web 轻松访问数据。有了 SQL Server 2000，您可以使用 HTTP 来向数据库发送查询、对数据库中存储的文档执行全文搜索、以及通过 Web 进行自然语言查询。 3、强大而灵活的基于 Web 的分析。SQL Server 2000 分析服务功能被扩展到了 Internet。您可以通过 Web 浏览器来访问和控制多维数据。 4、高度的可伸缩性和可靠性 使用 SQL Server 2000 可以获得非凡的可伸缩性和可靠性。通过向上伸缩和向外扩展的能力，SQL Server 满足了苛刻的电子商务和企业应用程序要求。5、向上伸缩。SQL Server 2000 利用了对称多处理器 (SMP) 系统。SQL Server Enterprise Edition 最多可以使用 32 个处理器和 64 GB RAM。 6、向外扩展。可以将数据库和数据负载分配给多台服务器。 7、可用性。通过增强的故障转移群集、日志传送和新增的备份策略，SQL Server 2000 达到了最大的可用性。 8、最快的进入市场时间。SQL Server 2000 是 Microsoft .NET Enterprise Server 的数据管理与分析中枢。SQL Server 2000 包括加速从概念到最后交付开发过程的工具。9、集成和可扩展的分析服务。有了 SQL Server 2000，您可以建立带有集成工具的端到端分析解决方案，从数据创造价值。此外，还可以根据分析结果自动驱动商业过程以及从最复杂的计算灵活地检索自定义结果集。 10、快速开发、调试和数据转换。SQL Server 2000 带有交互式调节和调试查询、从任何数据源快速移动和转化数据、以及按 Transact-SQL 方式定义和使用函数等功能。您可以从任意 Visual Studio 工具以可视化方式设计和编写数据库应用程序。 11、简化的管理和调节。使用 SQL Server 2000，您可以很容易地在企业资源旁边集中管理数据库。可以在保持联机的同时轻松地在计算机间或实例间移动和复制数据库。使用SQL Server 2000非常简单，在创建好数据库保存时，可以使用备份数据库或者分离数据库来保存。再次使用的时候直接附加数据库就OK。图为3.1.1附加数据库在分离数据库后，数据自动保存在安装目录的C:Program FilesMicrosoft SQL ServerMSSQLData中。下图2.2.2中为开发本系统所创建的数据表：图3.1.2 数据库表3.2 逻辑设计（数据库设计）上面提到的各种功能的实现都离不开数据库的支持，因此数据库设计作为该系统设计的一部分不可缺少。数据库设计在整个程序设计过程中占据非常重要的地位，也是整个程序设计的基础。用户资料表：表3.2.1 用户资料表班级表： 表3.2.2 班级表成绩表：表3.2.3 成绩表学生档案表：表3.2.4 学生档案表交费表：表3.2.5 交费表课程表：表3.2.6 课程表在以上的表中，是SQL所创建的逻辑表，即每个实体所拥有的属性。4. VB设计4.1 开发工具的选择现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual Basic, Microsoft公司的Visual C, Borland公司的Delphi和 Powersoft公司的PowerBulider以及Java等。在这些程序开发工具中，有的强调程序语言的弹性与执行效率；有的则偏重于可视化程序开发工具所带来的便利性与效率的提高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必定要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点成为了一纸空谈；相反地，如果只强调语言的弹性，却没有便利的工具作配合，会使得一些即使非常简单的界面处理动作，变得复杂和麻烦起来，这样也会浪费程序设计师们的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择，它有效地避免了以上所谈到的诸缺点。具有简单易学,功能强大,软件费用支出低,见效快等特点. 它提供了开发Windows应用程序最迅速,最简捷的方法,不但是专业人员得心应手的开发工具,而且易于被非专业人员掌握使用.数据库技术是MIS设计中的重要支持技术，在MIS开发过程中，如何选择数据库管理也是一个重要的问题。目前，数据库产品可谓琳琅满目，每种产品都具有各自的特点和适用范围，因此，在选择数据库前，我慎重考虑了一下，应数据库应用的特点及适用范围，本系统选用了数据库SQL Server 2000，开发工具当然是非Visual Basic莫属了。4.2 开发工具Visual Basic的使用Visual Basic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等，这些对象和控件中都可在许多程序中重复使用，使其具有了最广大意义上的可通用性和扩展性。使用Visual Basic 的菜单编辑器即可建立菜单或者修改已经存在的菜单。由于大家对菜单等的使用已驾轻就熟，现着重对主要控件的使用作个介绍：首先，选择“工程”下拉菜单中的“部件”选项，显示“控件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”，然后，在工具箱中增加该控件，即可实现控件的添加。1.ToolBar控件：ToolBar控件与Office97中看到的ToolBar是类似的，ToolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在ToolBar中迁入其它控件即可以向用户提供更好应用功能。Toolbar又是一个工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标题，并按功能分组或加入分隔符，还可以设置鼠标停留在其上显示的提示字符。Toolbar还是一个控件容器且具有Style属性，并可以为其增加下拉按钮和平滑按钮等。2.ImageList控件:ImageList用于为其他控件提供图像库，属性定义与数据条对应的ImageList控件名，该控件定义工具条按钮显示的图像。3.Align控件:定义工具条在窗体中的位置。4.ToolTipText控件:是字符串类型，定义控件的提示字。5.Style控件:定义按钮外观。6. HotImangeList控件:设置ImageList控件名，使控件定义按钮获得热点时显示的图像。7.DisabledImageList控件:定义工具条按钮无效时显示的图像。4.3 详细设计本部分主要内容为本系统的运行界面及其分析，根据系统流程图所实现的系统界面，以下是VB构建系统的各模块，它的添加、修改、删除等功能的实现过程和部分代码。4.3.1 登陆界面：图4.3.1-1 登陆验证窗口本模块主要是实现对用户登陆进行验证，通过输入正确的账号和密码才能进入系统。当用户输入账号和密码后，还需选择身份是管理员还是用户，然后系统自动跳转到后台判断数据库中是否有该用户信息，如果正确则进入系统（如下图）。如果账号或密码错误，应反馈给用户账号与密码不正确信息。图4.31-2 登陆界面相关代码：Dim myCon As New ADODB.Connection 连接数据库Dim myRs As New ADODB.Recordset 操作数据Dim zong As IntegerPrivate Sub Command1_Click()Dim sqldl As StringDim sf As StringIf zong = 3 Then 若用户输入的次数超过三次，则自动退出 Unload Me Exit SubEnd If myCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=student.mdb; 打开数据库If Trim(Text1.Text = ) Then MsgBox 没有输入用户名,请输入!, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text2.Text = myCon.Close zong = zong + 1 累加输入次数 Exit SubEnd IfmyRs.CursorType = adOpenKeysetmyRs.LockType = adLockOptimisticsqldl = select * from 用户资料 where 用户名= & Text1.Text & myRs.Open sqldl, myConIf myRs.EOF = True Then MsgBox 没有这个用户,请重新输入用户名!, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.Text = Text2.Text = myRs.Close myCon.Close zong = zong + 1 Exit SubEnd IfIf myRs.Fields(密码) Trim(Text2.Text) Then MsgBox 密码不正确,请重新输入!, vbOKOnly + vbExclamation, 警告 Text2.SetFocus myRs.Close myCon.Close zong = zong + 1 累加输入次数 Exit SubEnd If If myRs.Fields(身份) Combo1.Text Then MsgBox 身份不正确,请重新选择!, vbOKOnly + vbExclamation, 警告 Combo1.SetFocus myRs.Close myCon.Close zong = zong + 1 Exit SubEnd If sf = myRs.Fields(身份)myRs.ClosemyCon.CloseXingMing = Text1.TextUnload MeFrm_Main.ShowIf sf = 管理员 Then Frm_Main.Mun_LiulanUser.Enabled = True admin = 1Else Frm_Main.Mun_LiulanUser.Enabled = False Frm_Main.Mun_DelUser.Enabled = False Frm_Main.Mun_AddUser.Enabled = False Frm_Main.Mun_AddClass.Enabled = False Frm_Main.Mun_AddDangA.Enabled = False Frm_Main.Mun_ShezGrean.Enabled = False Frm_Main.Mun_AddChengJ.Enabled = False Frm_Main.Mun_ChengJWeiG.Enabled = False Frm_Main.Mun_AddJiaoF.Enabled = False Frm_Main.Mun_ClassCount.Enabled = False Frm_Main.Mun_DandACount.Enabled = False Frm_Main.Mun_GreanCount.Enabled = False Frm_Main.Mun_ChengJCount.Enabled = False Frm_Main.Mun_JiaoFCount.Enabled = False admin = 0End IfIf sf = 管理员 Then admin = 1 Else admin = 0 End IfEnd SubPrivate Sub Command2_Click()Dim anw As Integeranw = MsgBox(确定要退出系统吗？, vbYesNo, 请问)If anw = 6 Then Unload MeElse Text1.Text = Text2.Text = Text1.SetFocusEnd IfEnd SubPrivate Sub Form_Load() zong = 0 Text1.Text = Text2.Text = Combo1.Text = Combo1.AddItem (管理员) Combo1.AddItem (用户) End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text2.SetFocusEnd IfEnd Sub在登陆窗口中，需要输入正确的账号和密码才能进入系统。若用户输入的次数超过三次，则自动退出，并予以警告。当用户输入账号和密码后，还需选择身份是管理员还是用户，然后系统自动跳转到后台判断数据库中是否有该用户信息，如果身份错误则要求返回登陆重新选择。正确的话则进入系统，或者直接退出系统。 4.3.2 课程管理模块：图4.3.2 课程管理模块课程管理模块分为课程查询和课程设置。在课程设置中，可以对课程进行增加、修改、删除功能。相关代码如下：Private Sub Command2_Click()Dim ZhuanYe, NianJi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As StringDim n As IntegerZhuanYe = Text1.TextNianJi = Text2.TextXueQi = DTPicker1.ValueKeCheng = Text4.TextJiaoCai = Text5.TextRenKLS = Text6.TextKeShi = Text7.TextShangKeDD = Text8.TextKeChengXZ = Combo1.TextKaoShiXZ = Combo2.TextIf Trim(ZhuanYe) = Or Trim(NianJi) = Or Trim(KeCheng) = Or Trim(JiaoCai) = Or Trim(RenKLS) = Or Trim(KeShi) = Or Trim(ShangKeDD) = Or Trim(KeChengXZ) = Or Trim(KaoShiXZ) = Then MsgBox 请填写要删除基本课程设置的资料！ Combo1.Text = Combo2.Text = Exit SubEnd IfIf myCon.State = 1 ThenmyCon.CloseEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;myRs.Open select * from 课程表 where 专业= & Text1.Text & , myCon, 3, 2n = MsgBox(您确定要删除吗？, vbYesNo, 提示)If n = 6 ThenmyRs.DeletemyRs.ClosemyCon.CloseEnd IfMsgBox 您确定要删除吗？, vbYesNo, 提示Adodc1.RecordSource = select * from 课程表 order by 专业Frm_SheZGrean.Adodc1.RefreshFrm_SheZGrean.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Combo1.Text = Combo2.Text = End Sub这段代码的意思是，当操作员选择一条记录准备删除时，直接点击删除，跳出对话框提示，“您确定要删除吗？”，选择是后，连接数据库，把数据库里的记录删除。4.3.3 成绩管理模块图4.3.3 成绩管理模块在这个模块中，可以分为成绩增加、成绩查询、学生考试违规管理。相关代码：Dim myCon As New ADODB.Connection 连接数据库Dim myRs As New ADODB.Recordset 操作数据Private Sub Command1_Click()Dim XueHao, XingMing, NianJi, ZhuanYe, KaoSKM, KaoSDD, KeCXZ, KeMFS As StringXueHao = Text1.TextXingMing = Text2.TextNianJi = Text3.TextZhuanYe = Text4.TextXueQi = DTPicker1.ValueKaoSSJ = DTPicker2.ValueKaoSKM = Text6.TextKaoSDD = Text7.TextKeCXZ = Combo2.TextKeMFS = Text8.TextIf Trim(XueHao) = Or Trim(XingMing) = Or Trim(NianJi) = Or Trim(ZhuanYe) = Or Trim(KaoSKM) = Or Trim(KaoSDD) = Or Trim(KeCXZ) = Or Trim(KeMFS) = Then MsgBox 成绩资料不能为空,请填写！ Exit SubEnd IfIf myCon.State = 1 ThenmyCon.CloseEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb; 打开数据库myRs.Open select * from 成绩表 where 学号 = & XueHao & , myConIf myRs.EOF = False Then MsgBox 该学生成绩已经存在，请重新输入！ myRs.Close myCon.Close Text1.SetFocus Exit SubEnd IfmyRs.ClosemyRs.Open 成绩表, myCon, 3, 2myRs.AddNew 添加 myRs.Fields(学号) = Text1.Text myRs.Fields(姓名) = Text2.Text myRs.Fields(年级) = Text3.Text myRs.Fields(专业) = Text4.Text myRs.Fields(学期) = DTPicker1.Value myRs.Fields(考试时间) = DTPicker2.Value myRs.Fields(考试科目) = Text6.Text myRs.Fields(考试地点) = Text7.Text myRs.Fields(课程性质) = Combo2.Text myRs.Fields(科目分数) = Text8.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox 添加成功!Adodc1.RecordSource = select 学号,姓名,年级,专业,学期,考试时间,考试科目,考试地点,课程性质,科目分数 from 成绩表 order by 学号Frm_AddChengJ.Adodc1.RefreshFrm_AddChengJ.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = DTPicker1.Value = DTPicker2.Value = Text6.Text = Text7.Text = Combo2.Text = Text8.Text = End Sub4.3.4 档案管理模块图4.3.4 档案管理模块在本模块中，对档案可以进行增加、删除、浏览、查询，也可以直接退出本模块。在这里主要介绍的是对学生档案进行删除。相关代码：Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetPrivate Sub Command1_Click()Dim XueHao, XingMing, NianJi, ZhuanY, XingBie, MZ, JG, ZZMM, JTDZ, YZBM, LXDH, BZ As StringXueHao = Text1.TextXingMing = Text2.TextNianJi = Text3.TextZhuanY = Text4.TextXingBie = Combo2.TextCSNY = Text6.TextMZ = Text7.TextJG = Text8.TextZZMM = Combo1.TextJTDZ = Text9.TextYZBM = Text10.TextLXDH = Text11.TextRXSJ = Text13.TextBZ = Text12.TextIf Trim(XueHao) = Or Trim(XingMing) = Or Trim(NianJi) = Or Trim(ZhuanY) = Or Trim(XingBie) = Or Trim(MZ) = Or Trim(JG) = Or Trim(ZZMM) = Or Trim(JTDZ) = Or Trim(YZBM) = Or Trim(LXDH) = Then MsgBox 学生档案资料不能为空,请填写！ Exit SubEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;myRs.Open select * from 学生档案 where 学号= & Trim(Text1.Text) & and 姓名= & Trim(Text2.Text) & , myConIf myRs.EOF = False Then MsgBox 该学生档案已经存在，请重新输入！ myRs.Close myCon.Close Text1.SetFocus Exit SubEnd IfmyRs.ClosemyRs.Open 学生档案, myCon, 3, 2myRs.AddNew myRs.Fields(学号) = Text1.Text myRs.Fields(姓名) = Text2.Text myRs.Fields(年级) = Text3.Text myRs.Fields(专业) = Text4.Text myRs.Fields(性别) = Combo2.Text myRs.Fields(出生年月) = DTPicker2.Value myRs.Fields(民族) = Text7.Text myRs.Fields(籍贯) = Text8.Text myRs.Fields(政治面貌) = Combo1.Text myRs.Fields(家庭地址) = Text9.Text myRs.Fields(邮政编码) = Text10.Text myRs.Fields(联系电话) = Text11.Text myRs.Fields(入学时间) = DTPicker3.Value