毕业设计（论文）-高校学生成绩管理系统的设计与实现.doc

2015届湖北汽车工业学院科技学院毕业设计（论文）湖北汽车工业学院科技学院 毕 业 设 计（论 文）题 目：高校学生成绩管理系统的设计与实现系 别：电气工程系专 业：电子信息工程（汽车电子）班 级：学生姓名：学 号：指导教师：摘 要近年来，计算机技术和网络技术的飞速发展，学校的日常教学和管理已经越来越离不开计算机。一是，计通过计算机来辅助教育和教学是计算机技术应用方面非常重要的一点；二是，计算机与网络互相促进互相帮助，已逐步成为现代教育的一个非常重要而且有效的手段。系统的学生成绩信息系统，使用Visual Basic 6开发，客户端/服务器模型框架。使用SQL Server 2000实现数据库。最好的满足用户的要求在设计过程中，该系统具有较强的实用性和针对性。它具有界面友好，操作简单，可维护性强的特点。本学生成绩管理系统通过软件工程方法进行了系统分析、总体设计、详细设计和软件测试。实现了对学生的成绩管理，同时对学生的班级和课程管理的多项内容，同时系统还支持对各种信息检索，报表导出，对学生成绩信息的排名等功能，系统用户角色分为三层，每层用户角色之间紧密联系，使系统的更加安全，功能更加完善。关键字：成绩查询；班级管理；Visual Basic 6.0；SQL Server2000全套设计加扣3012250582 2015届湖北汽车工业学院科技学院毕业设计（论文） AbstractWith the computer technology in recent years, network technology, multimedia technology and corresponding software technology, the rapid development of the teaching, management, and so has become increasingly inseparable from the computer. On the one hand, computer-aided education, computer technology and computer-aided teaching is a very important application area; the other hand, the application of computer and network to promote more rapid development of both, now they have gradually become a very important modern teaching and effective means.The system - student achievement inquiry system, developed using Visual Basic 6.0, the use of client / server model architecture. Database using SQL Server 2000 to achieve. Possible in the design process to meet the requirements of users, the system has strong practical and purposeful. Have friendly interface, simple operation, maintainability, and other characteristics.The system basically followed the methodology of software engineering, systems analysis, design, detailed design and software testing. Achieve class management, student management, curriculum management, performance management of the content, while the system also supports a variety of information retrieval, report export, the information on the ranking of student achievement and other functions, the system is divided into three user roles, each close contact between the user role, making the system more secure and more feature-complete.Key words: Query results;class management;Visual Basic 6.0;SQL Server20002015届湖北汽车工业学院科技学院毕业设计（论文）目 录第一章 概论11.1 开发目的11.2 设计定义11.3 开发工具 VB 6.0简介11.4 数据库简介2第二章 需求分析42.1可行性分析42.1.1技术可行性42.1.2经济可行性42.1.3管理可行性42.2系统目标52.3 系统开发环境52.4 系统应该具备的功能62.4.1 管理员基本数据维护62.4.2 管理员业务信息管理62.4.3 管理员综合查询管理62.4.4 学生操作菜单72.4.5 教师操作菜单7第三章 系统总体设计83.1 系统结构图83.2 系统详细设计83.2.1 登陆主界面83.2.2 数据库中表的设计93.2.3 数据库逻辑设计ER图113.2.4 功能模块详细设计12第四章 系统程序实现144.1登陆界面144.2系统主界面164.3 班级学生信息维护174.4 教师信息维护194.5 教师课程信息设置214.6 学生信息查询234.7 学生成绩查询244.8 学生课程登记264.9 录入学生成绩28第五章 软件测试305.1软件测试的意义305.2软件测试的重要性305.3软件测试的范围315.4测试方法31结束语33参考文献34致谢352015届湖北汽车工业学院科技学院毕业设计（论文）第一章 概论1.1 开发目的随着社会的不断进步，科学技术的高速发展，在计算机科学方面越来越成熟，电子计算机的强大功能已经被人们认可，它已经进入了社会的各个领域并且发挥着日益重要的作用。计算机不仅能够利用它进行信息管理，而且可以使用计算机进行信息分析，不仅提升了工作效率，而且比较大的提高了安全性。尤其是计算机能充分发挥它的先进科技性来解决复杂的数据处理。学校是培养人才的地方，大量的学生和老师聚集在一起，由此而产生了大量的数据，如学生的身份信息和考试成绩还有课程信息之类。但长久以来人们一直使用着人工方式管理着这些信息，这就造成了这项工作的内容多并且繁琐。并且在今后的查询和记录过程中也是费时费力的。那么就在现在就需要一个管理系统来优化这个工作，学生成绩管理系统就是一个比较好的解决方法。通过计算机的高效性和准确性将学生成绩保存起来，实现了学生成绩管理的方便快捷和准确，为高校发展奠定了坚实的基础。 1.2 设计定义本系统是一套使用简单，使用功能齐全，同时方便管理的学生成绩管理系统。通过前台的VB程序和后台的SQLSERVER数据库进行连接，实现了这一系统。之后对程序进行了权限的划分。后台管理员、教师和学生的功能有着比较大的区别。1.3 开发工具 VB 6.0简介Visual Basic（简称VB）是美国微软的Visual Studio套件的可视化开发工具的一个组件，Windows应用程序开发的强大的开发工具，是一种良好的图形用户界面（图形用户界面，简称GUI）编程语言。它采用面向对象和事件驱动编程的两个新的机制，过程和结构化编程。VB作为最便捷，高效的基于Windows平台的软件开发工具，对于网络应用，多媒体技术目前流行的MIS系统（信息管理系统）的开发都游刃有余。因此，Visual Basic编程工具已成为很多程序员的首选。Visual的原来意思是“视觉”或“可见”，这样在VB开发的图形用户界面，不需要编写大量的代码来描述界面元素的外观和位置，只需要把VB预定义的对象（如工具箱提供了多种控制），拖放到窗体上。换句话说，在屏幕上的用户界面是一个用VB直接“画”，而不是应用程序“写”出来的可视化设计工具。这种直观的编程方法，也就是我们通常所说的可视化编程。基本的BASIC语言，这是初学者的多用途符号指令代码（初学者所有通用符号指令代码）的缩写，较其他高层次的语言，其语法规则相对简单，易于理解和掌握，并有的实用价值，被认为是最好的初学语言。被称为“Visual Basic的”，因为它被开发的BASIC语言的基础上，给定一个新的面向对象的可视化编程。1.4 数据库简介SQL是英文Structured Query Language的英文缩写，是结构化查询语言的意思。本语言的主要功能是实现与各种数据库的联系沟通。按照ANSI（美国国家标准学会）发布的规定，SQL是关系数据库管理系统的标准语言。SQL语句可以用来执行各种操作，比如如更新数据库中的数据或者从数据库中提取出数据等。目前，最常被使用的的关系型数据库管理系统，如Oracle，Sybase，微软SQL Server，ACCESS等都使用SQL语言标准。虽然很多数据库系统都对SQL语句进行了再开发和扩展，但是包括Select, Insert , Update ,Delete ,Create，和Drop在内的标准的SQL命令仍然能被用来完成几乎所有的数据库使用。SQL Server是一个关系数据库管理系统。它最初是由微软，Sybase和Ashton-Tate三家公司协同开发的，在1988年，发行了第一个OS/2版本。此次推出Windows NT之后，微软和Sybase SQL Server的开发分道扬镳，微软的SQL Server移植到Windows NT系统上，专注于开发和推广Windows NT版本的SQL Server。Sybase公司更侧重于UN IX操作系统上的SQL Server应用程序。SQL Server 2000引入的Microsoft SQL Server数据库管理系统，该版本继承了SQL Server 7.0的优势，比它增加了许多更先进的使用和可扩展性的软件集成优势，跨越了运行Microsoft Windows98台笔记本电脑到运行Microsoft Windows2000的大型多处理器的服务器平台。程序的兼容性方面非常强力。微软SQL Server 2005是一个全面的数据库平台，集成的商务智能（BI）工具提供了企业级数据管理。Microsoft的SQL Server2005数据库引擎为关系型数据和结构化数据提供了更安全，更可靠的存储能力，使您能够搭建和管理业务应用的高可用性和高性能的数据程序。SQL SERVER的特点一是上手容易。如果未使用过数据库，主要的原因之一可能是，它是不是容易使用，然后从SQL Server开始吧。毕竟，大多数的日常的数据应用是在Windows平台上的中小企业。因为SQLServer的Windows界面风格完全一样，有许多向导的帮助，易于安装和学习，和SQLserver有关的培训随处可见，MCDBA认证的工程师也有不少。从另一个角度来讲，学习SQLServer是掌握其他平台及大型数据，如Oracle,Sybase,DB/2的基础。因为这些大型数据库对于设备、平台、人员知识的要求往往较高，而并不是每个人都具备这样的条件，且有机会去接触它们。但有了SQLServer的基础，再去学习和使用它们就容易多了。IT行业的实践经验充分证明了这一点。从另一方面，学习SQL Server的高手，在其他平台，Oracle和Sybase，DB/2为基础，并学习大量的数据。这些大型的数据库，对于设备和人员知识的要求很高，而并不是所有人都能具备这样的素质，因为有了基本的SQL Server，这就很容易能够去学习，以了解他们了。在IT行业工作的经验已经证明了这一点。二是兼容性良好。今天，Windows操作系统占据主导位，对于SQL Server的选择将在兼容性方面取得一些优势。 SQLServer2000中除了可扩展性，可靠性，还可以基于互联网系统的快速发展系统。特别是，它可以直接存储XML数据，搜索结果可以输出为XML格式，这是是利于建立异构系统的互操作性的，它面向互联网的企业应用和服务奠定了基石。这些特性从.NET战略中起着非常重要的作用。从电子商务方面来说，MicrosoftSQLServer2000的数据引擎下使用的关系数据库，XML数据可被存储在一个关系表，以XML格式的查询将返回结果。另外，XML支持还简化了的后端系统集成，跨防火墙的无缝数据传输。您也可以使用超文本传输协议（HTTP）访问sqlserver2000的面向SQLServer2000数据库的安全的Web连接，并不需要进行额外的编程的联机分析处理（OLAP）多维数据集。第二章 需求分析2.1可行性分析2.1.1技术可行性我在大学学习过程中学习了VB编程技术，对操作系统和网络技术也有全面的了解，同时学生成绩管理系统在很多高校已经有了一定的应用，有着大量的成功系统可以参考。并且在网络上也有着大量的关于VISUAL BASIC编程的资料和SQL SERVER数据库的资料。从技术角度考虑来讲此系统是可开发的。2.1.2经济可行性随着科学技术的发展，电脑和网络已经非常普遍，这方面的配置费用不用担心，而且本学生成绩管理系统在架构上不是非常复杂，开发周期也不是很长。在本系统开发完成后，真正运行利用之后能大幅度提高学生管理方面的效率，降低工作的难度，这也能带来不小的经济回报。并且最最重要的一点是该软件的开发可以让我对管理系统的完整开发有着一个全面的了解认识。从经济角度考虑，此系统可以开发。2.1.3管理可行性随着社会的进步，人员的素质已经有了显著的提高，对于电脑系统的操作和维护都有一定的了解，同时，对于专业方面的管理还可以配置专业的电脑应用人员来对系统进行维护，解决电脑发生的各种故障。综上所述，此系统开发的目标已经明确，在技术、经济和管理等方面都可行，并且投入少、见效快。因此系统的开发是完全可行的。2.2系统目标一般系统的设计都要完成以下几个要求，以便用户进行系统的操作。这样才能使系统容易使用。（1）合理的数据库设计 尽量合理地降低数据库数据的冗余，使重复的数据维持在最小限度，这样可以降低一定的存储空间，降低产生混乱的危险，还可以提高计算机的运行效率。（2）有一个友好的界面 系统界面的友好与否是一个用户评价软件优劣的重要方面之一，这可以让用户有一个美好的心情。（3）实现基本的功能和一些特殊的功能的操作该系统要求不仅能实现信息的录入，查询，删除等基本功能之外，还要求能够根据用户的需要进行系统操作。2.3 系统开发环境（1）开发环境操作系统要求：Microsoft Windows XP Professional及以上开发工具: VB 6.0数据库选择：SQL SERVER（2）程序运行环境软件配置操作系统要求：Microsoft Windows XP Professional及以上数据库选择： SQL SERVER开发平台： VB 6.0硬件配置要求（以下为最低要求）CPU：AMD Athlon XP, 1000 MHz (5 x 200)内存：256MB或以上（服务器）硬盘：2GB以上（服务器）CPU：AMD Athlon XP, 1000 MHz (5 x 200)或以上（客户机）内存：64MB以上（客户机）硬盘：200MB以上（客户机）显示器：VGA或更高2.4 系统应该具备的功能本系统使用用户角色分为三种，管理员、教师和学生0。具体使用功能分为以下几大模块，如下介绍：2.4.1 管理员基本数据维护（1）班级信息管理：对班级的登记和学生的登记和班级信息的查询。（2）课程信息管理：查询课程信息，对课程的添加或删除。（3）教师信息管理：对教师数据的登记和教师信息的查询。（4）学生信息管理：对学生数据的登记和学生信息的查询。2.4.2 管理员业务信息管理教师课程指定：把不同的课程分配给教师列表里面的教师。2.4.3 管理员综合查询管理（1）班级信息查询：通过班级名称或者学号或姓名对班级或学生的搜索功能。（2）课程信息查询：通过关键字对课程信息的查询。（3）教师信息查询：通过工号或姓名对教师的搜索，可以把教师信息导出到excel中进行编辑。（4）学生信息查询：通过关键字对学生的信息进行查询。（5）学生成绩查询：通过关键字对学生成绩进行查询，可以把成绩单导出到excel中进行编辑。（6）学生成绩排名：选择课程进行学生成绩大排名管理。（7）对不及格学生成绩进行筛选，挑出不及格成绩。2.4.4 学生操作菜单（1）我的课程管理：学生选择自己的课程。（2）查看个人信息：查询学生本人的信息，修改密码等操作。（3）查看个人成绩：查询学生本人课程的成绩2.4.5 教师操作菜单（1）查看个人信息：查询教师本人的信息，修改密码等操作。（2）录入学生成绩：手工录入教师本人学生的成绩，通过固定格式的excel表来批量导入数据到程序中。把数据库中的程序批量导出到excel表中进行打印操作0。- 8 -第三章 系统总体设计3.1 系统结构图学生成绩管理本着软件简洁，操作简单的原则。根据需求分析制定的学生成绩管理系统的结构图如下：教师菜单学生菜单综合查询管理业务信息管理基础数据管理教师课程制定录入学生成绩查看个人信息我的课程管理查看个人信息查看个人成绩学生成绩查询学生成绩排名教师信息查询课程信息查询班级信息查询教师信息管学生信息管理班级信息管理课程信息管理图3.1 系统功能结构图3.2 系统详细设计系统详细设计是整个毕业论文中最重要的部分。下面是详细设计的几个部分：(1) 登陆主界面。 (2)数据库中数据表的设计。(3)数据库逻辑E-R图的设计。(4)功能模块的详细设计。3.2.1 登陆主界面界面的设计是衡量界面友好与否的标准，所以本系统整体功能都在上方菜单栏，点击之后会弹出各个功能模块。功能分类清晰，操作简单。3.2.2 数据库中表的设计（1）数据库名称为 CJ.mdf（2）数据库中的表格设置 主要表格设置如下：表3.1学生序号字段名类型长度索引备注1学号varchar20主键2姓名varchar503性别varchar24年龄varchar105班级代码int关联 班级6密码varchar20默认 0000007民族varchar208生源地varchar1009出生日期datetime10入学日期datetime表3.2课程序号字段名类型长度索引备注1课程代码int主键2课程名称varchar503课时数varchar10表3.3老师课程序号字段名类型长度索引备注1代码varchar主键2工号varchar关联 老师3课程代码int关联 课程表3.4学生成绩序号字段名类型长度索引备注1代码varchar主键2学生课程代码varchar50关联 老师3成绩名称varchar504成绩类型varchar50期中 期末 平时 其他5课程成绩int6姓名varchar507性别varchar508年龄varchar509班级名称varchar5010入学日期datetime11课程名称varchar5012课时数varchar5013任课教师varchar50表3.5学生课程序号字段名类型长度索引备注1代码varchar主键2学号varchar50关联 老师3老师课程代码int关联 课程表3.6老师序号字段名类型长度索引备注1工号varchar20主键2姓名varchar503性别varchar24年龄varchar105介绍varchar1006密码varchar103.2.3 数据库逻辑设计ER图根据需求分析制定出数据库逻辑ER图，如图3.2所示：包含分配教师课程教师班级学生课程包含 1 1 1 NN N 1 1包含选择学生课程N N图3.2数据库的ER图3.2.4 功能模块详细设计班级信息管理（1）班级信息管理流程图：删除班级信息添加班级信息当前班级信息是否已经使用班级名称是否为空 是 是 否 否删除该班级信息新的班级信息添加完成取消图3.3班级信息流程图（2）学生成绩管理流程图学生成绩管理查看此学生成绩显示学生信息列表录入学生成绩学生成绩窗体显示学生成绩列表选择课程信息否是否选择课程是保存学生成绩图3.4学生成绩管理流程图- 36 -第四章 系统程序实现4.1登陆界面进入本系统后会弹出一个登录窗口，输入账号和密码，验证用户信息，点击【确定】按钮，进入系统主界面。在角色选项卡选择登陆权限，根据需求分析和系统功能方面的考虑设计了三个登陆权限。首先是管理员权限。登陆进系统之后会有大部分权限可用，包括全部的数据维护和全部的数据查询。教师权限登陆进系统之后除了查询功能还独有学生成绩录入功能。而学生权限登陆之后就只能查询自己的课程成绩和确定自己的课程信息。界面如图4.1所示：图4.1登陆界面关键程序代码如下：Private Sub Image1_Click()Dim rs As New ADODB.RecordsetSelect Case Me.Combo1.TextCase 管理员 Set rs = ExecSql(select * from 管理员 where 名称= & Trim(Me.Text3(0).Text) & and 密码= & Trim(Me.Text3(1).Text) & ) With rs If .RecordCount 0 Then strRyID = Me.Text3(0).Text strjs = 管理员 frmMain.Show Unload Me Else MsgBox 帐号或密码错误! Exit Sub End If End WithCase 教师 Set rs = ExecSql(select * from 老师 where 工号= & Trim(Me.Text3(0).Text) & and 密码= & Trim(Me.Text3(1).Text) & ) With rs If .RecordCount 0 Then strRyID = Me.Text3(0).Text strjs = 教师 frmMain.Show Unload Me Else MsgBox 帐号或密码错误! Exit Sub End If End WithCase 学生 Set rs = ExecSql(select * from 学生 where 学号= & Trim(Me.Text3(0).Text) & and 密码= & Trim(Me.Text3(1).Text) & ) With rs If .RecordCount 0 Then strRyID = Me.Text3(0).Text strjs = 学生 frmMain.Show Unload Me Else MsgBox 帐号或密码错误! Exit Sub End If End WithEnd SelectEnd Sub4.2系统主界面系统主界面显示系统的各个子模块，方面用户进行各项功能操作。有关整个程序的整个操作界面都显示在程序的菜单栏，方便使用。菜单栏分成基本数据维护，业务信息管理，综合查询管理和退出系统按钮。另外，教师权限会有一个教师操作菜单，包括查看个人信息和录入学生成绩。而学生权限是学生操作菜单，其中包含我的课程管理、查看个人信息和查看个人成绩。管理员权限界面如图4.2所示：图4.2系统主界面4.3 班级学生信息维护此页面用于班级信息登记，以及各个班级的学生信息登记。在界面的左边可以通过列表选择不同的班级。然后在右边表格中会显示出本班学生。如图4.3所示。点击学生登记可以弹出界面对学号姓名等学生信息进行录入，进行新学生账号的添加。初始密码都为000000，然后就保存了学生权限账号。图4.3班级信息维护关键代码如下：班级登记模块：Private Sub btn添加_Click()添加新的班级If ExecSql(select * from 班级 where 班级名称= & Trim(Me.Text2(0).Text) & ).RecordCount 0 Then MsgBox 班级名称不能重复! Exit SubEnd IfCall Exec_SqL(insert into 班级(班级名称) values ( & Trim(Me.Text2(0).Text) & )Unload MeEnd SubPrivate Sub UserControl12_Click()删除当前的班级If ExecSql(select * from 学生 where 班级代码= & Me.Text2(0).Tag & ).RecordCount 0 Then MsgBox 此班级下有学生信息,不能删除! Exit SubEnd IfCall Exec_SqL(delete from 班级 where 班级代码= & Me.Text2(0).Tag & )Unload MeEnd Sub学生登记代码：Private Sub btnDel_Click()删除当前的学生信息If MsgBox(您确实要删除当前学生吗?, 4 + 256 + 64, ) = vbNo Then Exit SubCall Exec_SqL(delete from 学生 where 学号= & Text2.Text & )Unload MeEnd SubPrivate Sub btn添加_Click()根据不同的标志 添加或修改学生信息If Me.btnDel.Enabled = False Then 添加 If ExecSql(select * from 学生 where 学号= & Me.Text2.Text & ).RecordCount 0 Then MsgBox 学号重复 Exit Sub End If Call Exec_SqL(insert into 学生(学号,姓名,性别,年龄,班级代码,密码,民族,生源地,出生日期,入学日期) values( & Me.Text2.Text & , & Me.Text1.Text & , & Me.Combo1.Text & , & Me.Text3.Text & , & Me.Text13.Tag & ,000000, & Me.Combo2(1).Text & , & Me.Text4.Text & , & Me.DTPicker2.Value & , & Me.DTPicker3.Value & )Else 修改 Call Exec_SqL(update 学生 set 姓名= & Me.Text1.Text & ,性别= & Me.Combo1.Text & ,年龄= & Me.Text3.Text & ,民族= & Me.Combo2(1).Text & ,生源地= & Me.Text4.Text & ,出生日期= & Me.DTPicker2.Value & ,入学日期= & Me.DTPicker3.Value & where 学号= & Me.Text2.Text & )End IfUnload MeEnd Sub4.4 教师信息维护此页面主要是对教师信息进行维护，可以增加、修改和删除教师信息。如图4.4所示：图4.4教师信息维护关键代码如下：Private Sub btnAdd_Click()根据不同的标志 添加或修改教师信息If Me.btnDel.Enabled = False Then 添加 If ExecSql(select * from 老师 where 工号= & Me.txtGH.Text & ).RecordCount 0 Then MsgBox 工号重复 Exit Sub End If Call Exec_SqL(insert into 老师(工号,姓名,性别,年龄,介绍,密码) values( & Me.txtGH.Text & , & Me.txtXM.Text & , & Me.cbXB.Text & , & Me.txtNL.Text & , & Me.txtJS.Text & ,000000)Else 修改 Call Exec_SqL(update 老师 set 姓名= & Me.txtXM.Text & ,性别= & Me.cbXB.Text & ,年龄= & Me.txtNL.Text & ,介绍= & Me.txtJS.Text & where 工号= & Me.txtGH.Text & )End IfUnload MeEnd SubPrivate Sub btnCancel_Click()Unload MeEnd SubPrivate Sub btnDel_Click()删除当前的教师信息If MsgBox(您确实要删除当前教师吗?, 4 + 256 + 64, ) = vbNo Then Exit SubCall Exec_SqL(delete from 老师 where 工号= & Me.txtGH.Text & )Unload MeEnd SubPrivate Sub Form_Activate()显示指定的教师信息Me.txtGH.Enabled = TrueIf btnDel.Enabled = True Then Dim tmprs As New ADODB.Recordset Set tmprs = ExecSql(select * from 老师 where 工号= & Me.txtGH.Text & ) With tmprs If .RecordCount 0 Then Me.txtGH.Enabled = False Me.txtXM.Text = .Fields(姓名).Value Call GetComboIndex(Me.cbXB, .Fields(性别).Value) Me.txtNL.Text = .Fields(年龄).Value Me.txtJS.Text = .Fields(介绍).Value End If End WithEnd IfEnd Sub4.5 教师课程信息设置此功能模块是对教师分配课程，左侧是教师列表，右侧是所带的课程列表，通过点击制定课程可以将提前录入的课程分配给教师或双击课程进行删除。如图4.5所示：图4.5教师课程信息设置关键代码如下：Private Sub btnAdd_Click()添加新的课程设置If ExecSql(select * from 老师课程 where 工号= & Me.Text2.Tag & and 课程代码= & Me.Text1.Tag & ).RecordCount 0 Then MsgBox 课程设置重复 Exit SubEnd If Call Exec_SqL(insert into 老师课程(工号,课程代码) values( & Me.Text2.Tag & , & Me.Text1.Tag & )Unload MeEnd SubPrivate Sub btnDel_Click()删除当前的课程设置If ExecSql(select * from 学生成绩 where 老师课程代码= & Me.Tag & ).RecordCount 0 Then MsgBox 当前设置的课程存在学生成绩 Exit SubEnd If Call Exec_SqL(delete from 老师课程 where 代码= & Me.Tag & )Unload MeEnd SubPrivate Sub Form_Activate()显示指定的课程设置If btnDel.Enabled = True Then Dim tmprs As New ADODB.Recordset Set tmprs = ExecSql(SELECT * from 老师课程,课程,老师 where 老师课程.课程代码=课程.课程代码 and 老师课程.工号=老师.工号 and 老师课程.代码= & frmKcSz.Tag & ) With tmprs If .RecordCount 0 Then Me.Text2.Text = .Fields(姓名).Value Me.Text1.Text = .Fields(课程名称).Value End If End WithEnd IfEnd Sub4.6 学生信息查询此页面是一个综合的查询页面，可以通过班级名称关键字或者学号或者姓名来搜索学生信息。可以在表格中显示出想要查询的内容。可以将学生信息导出到excel报表中进行打印。如图4.6所示：图4.6班级学生综合查询关键代码如下：按班级条件查询班级信息列表Call UpdateTree(Me.TreeView1, ExecSql(select 班级代码,班级名称 from 班级 where 班级名称 like % & Me.Text2(0).Text & % ), 6, BJ, 班级列表, 1)Me.TreeView1.Nodes(1).Expanded = TrueMe.TreeView1.SelectedItem = Me.TreeView1.Nodes(1)Call UpdateList()End SubPrivate Sub UserControl11_Click()按学号 姓名过滤学生信息Call UpdateList( and 学号 like % & Me.Text2(1).Text & % and 姓名 like % & Me.Text2(2).Text & %)End Sub4.7 学生成绩查询此功能是本次毕业设计的创新之处。首先可以通过表格形式将各个学生的各科成绩显示出来。其次，可以对姓名或班级名称或课程名称进行检索，然后对检索结果进行成绩排名。还能点击不合格按钮对成绩不合格学生进行显示。通过如图4.7所示：图4.7学生成绩查询关键代码如下：Private Sub btn添加_Click()将选中的列表纪录的内容显示在frmxs的相应的控件上显示If ddd.TextMatrix(ddd.Row, 0) = Then Exit SubfrmXRCJ.Text2.Tag = Trim(ddd.TextMatrix(ddd.Row, 0)frmXRCJ.Show 1Call UpdateListEnd SubPrivate Sub UserControl11_Click()将选中的列表纪录的内容显示在frmxs的相应的控件上显示If ddd.TextMatrix(ddd.Row, 0) = Then Exit SubCall Exec_SqL(update 学生成绩 set 课程成绩= where 代码= & Trim(ddd.TextMatrix(ddd.Row, 0) & )Call UpdateListEnd SubPublic Sub UpdateList()显示列表的样式和标题将查询到的学生信息显示在列表中1Dim arrName() arrName = Array(代码, 学号, 姓名, 性别, 年龄, 班级名称, 入学日期, 课程名称, 课时数, 任课教师, 成绩名称, 成绩类型, 课程成绩)Dim arrColwidth() arrColwidth = Array(0, 1500, 1500, 1500, 1500, 1500, 1500, 1500, 1500, 1500, 1500, 0, ddd.Width - 13800)ddd.Cols = 13ddd.Rows = 2Dim i As LongFor i = 0 To ddd.Cols - 1 ddd.ColWidth(