班级管理信息系统设计与实现.docx

目录摘要11 绪论11.1 引言11.2 国内外研究现状21.3 研究路线22 总体设计32.1 系统分析32.1.1 需求分析32.1.2 可行性分析42.2 系统设计42.2.1 系统目标42.2.2 系统功能分析42.2.3 系统功能结构图42.2.4 开发及运行环境53 数据库设计63.1 班级管理信息系统E-R 图63.2 数据库逻辑结构的设计103.3 数据库的开发过程123.4 数据库与VB 的连接134 模块设计144.1 前台主要功能模块详细设计144.1.1 主模块144.1.2 班级浏览，查询模块154.1.3 学生档案浏览，查询模块184.1.4 学生缴费模块214.1.5 课程查询模块234.1.6 成绩查询模块254.1.7 报表设计264.2 后台主要功能模块详细设计274.2.1 系统管理模块274.2.2 班级管理模块304.2.3 学生档案管理模块314.2.4 学生缴费管理模块324.2.5 课程信息管理模块354.2.6 成绩信息管理模块385 系统测试405.1 性能测试与分析405.2 系统测试策略说明405.3 系统测试方案实施406 总结与展望41参考文献42致谢43Abstract44班级管理信息系统设计与实现摘要：班级管理系统是用计算机管理班级信息的一种计算机应用技术的创新，在计算机还未普及之前班级管理都是由教师以及班干部来承担的方式来操作的。现在一般的学校都采用了信息化管理的方式即采用计算机作为工具来帮助班主任进行更有效的班级管理。班级信息管理系统是典型的信息管理系统(MIS)，本系统包括系统分析，系统设计，数据库设计以及几个主要模块的详细设计。经过分析，我们使用 MICROSOFT 公司的 VISUAL BASIC6.0+ACCESS2003 作为开发工具，利用 VISUAL BASIC 提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。本系统符合班级管理的规定，能够满足管理人员管理的工作需要，并达到操作过程中的直观、方便、实用、安全等要求。本系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于技术维护人员补充、维护，系统还具备数据库维护功能，可以及时根据班级需求进行数据的添加、删除、修改等操作。所以本设计最终形成的是一个界面友好、可执行、操作稳定的系统。关键字：管理信息系统；班级管理；Visual Basic6.0；Access20031 绪论1.1 引言信息在社会和经济的发展中所起的作用越来越为人们所重视。信息资源的开发和利用，已成为衡量一个国家综合国力的重要标志之一。在计算机的三大主要领域（科学计算、数据处理与过程控制）中，数据处理的比重约占 70%左右。计算机作为处理的工具，为适应数据处理需求迅速提高，满足各类信息系统对数据管理的要求，在文件系统的基础上发展起了数据库系统。计算机数据库管理随着计算机硬件（尤其是外存储器）、软件技术和计算机应用范围的发展而不断发展。管理信息系统是一个由人和计算机等组成的，能进行管理信息的收集、传递、加工、保存、维护和使用的系统，它能实测国民经济和企业的各种运行情况；利用历史数据预测未来；从全局出发辅助管理决策； 利用信息控制企业的行为、帮助实现其规划目标。也就是说，管理信息系统不仅是一个能对管理者提供帮助的基于计算机的人机系统，而且是一个社会技术系统。应当将管理信息系统放到社会这个大背景去考察， 在解决技术问题的同时，充分考虑使用信息技术的组织与人，重视系统与组织、环境的交互作用。在计算机高速发展的今天，它已经应用到了各个行业，当然，学校也不例外。以前学校对班级是用人管理，而作为计算机应用的一部分,使用计算机进行班级信息管理,有着手工管理所无法比拟的优点，如: 查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学校对班级管理的效率。因此，开发一套班级管理系统是有必要的。431.2 国内外研究现状目前国内外很多高校已经不仅仅停留在纸质上面，都改用了以计算机为基础的班级信息管理系统，以浙江工商大学为例，采用JSP+ SQL Server 2000 的模式进行开发. JSP 是用来制作动态网页的。又比如华北城市大学用的是采用的JSF+MYSQL 模式进行开发，JSF 类似于 VB，VC，在表示层可以实现拖拉式编辑操作。天津科技大学则采用的 ASP.NET+SQL, ASP.NET是一种嵌入网页中的脚本，可由因特网服务器执行的服务器端脚本技术。这些技术都可实现班级综合测评系统的数据库链接、用户注册与登录、用户密码修改，提高了对班级信息的管理效率。本系统则是采用 VB6.0+Access2003 的模式进行开发。VB6.0 开发一般应用模块,供管理人员在本地机上完成对数据库的各种修改工作。1.3 研究路线本篇论文主要分为六节，第 1 节绪论，绪论包括引言、国内外研究现状、研究路线。第 2 节总体设计， 总体设计包括系统分析（需求分析、可行性分析）、系统设计（系统目标、系统功能分析、系统功能结构图、开发及运行环境）。第 3 节数据库设计，数据库设计包括班级管理信息系统E-R 图、数据库逻辑结构的设计、数据库的开发过程、数据库与 VB 的连接。第 4 节模块设计，模块设计主要分为前台功能模块的详细设计和后台功能模块的详细设计。第5 节系统测试，系统测试主要包括性能测试与分析、系统测试策略说明、系统测试方案实施。第 6 节总结和展望。论文的结构如下图所示：第 1 节 绪论第 2 节总体设计第 3 节数据库设计第 4 节模块设计第 5 节系统测试第 6 节总结与展望图 1.1 论文的结构图第 1 节绪论，绪论包括引言、国内外研究现状、研究路线。第 2 节总体设计，总体设计包括系统分析（需求分析、可行性分析）、系统设计（系统目标、系统功能分析、系统功能结构图、开发及运行环境）。系统分析主要是讲需求分析和可行性分析，需求分析即必要性分析，可行性分析从可能性和有益性两方面讲。系统设计主要讲系统目标、系统功能分析、系统功能结构图、开发及运行环境，其中系统目标主要是管理员即班级中的班主任，管理员可以管理本系统中的一切事务，用户可以实现查询学生信息，班级信息， 缴费信息，课程信息，成绩信息等功能。开发和运行环境是基于vb+access 完成的。第 3 节数据库设计，数据库设计包括班级管理信息系统E-R 图、数据库逻辑结构的设计、数据库的开发过程、数据库与VB 的连接。班级管理信息系统E-R 图主要是采用先分后总的方式完成的，即先画各个子 E-R 图，再画总的 E-R 图。数据库逻辑设计主要是基于几张表完成的，即班级信息管理系统主要使用了以下几张数据表，分别为学生档案表、学生成绩表、班级信息表、课程信息表、学生缴费信息表。数据库与VB 的连接主要是选择vb 控件中的DATA 控件与数据库连接。第 4 节模块设计，模块设计主要分为前台功能模块的详细设计和后台功能模块的详细设计。各功能模块设计主要包括班级管理模块、学生档案管理模块、学生缴费管理模块、课程信息管理模块、成绩信息管理模块。班级管理模块主要实现班级信息的查询、浏览、设置；学生档案管理模块主要实现学生档案的查询、浏览、设置；学生缴费管理模块主要实现学生缴费的查询、浏览、设置；课程信息管理模块主要实现课程信息的查询、浏览、设置；成绩信息管理模块主要实现成绩信息的查询、浏览、设置。其中前台模块设计中还包括报表设计，报表设计主要采用VBA 技术，制作EXCEL 报表。第 5 节系统测试，系统测试主要包括性能测试与分析、系统测试策略说明、系统测试方案实施。系统测试主要是采用黑盒技术。第 6 节总结和展望，主要是总结完成本论文的心得体会。2 总体设计2.1 系统分析2.1.1 需求分析需求分析即必要性分析，随着学生招生规模的不断扩大，班级管理者的管理工作也日趋复杂化，班级管理者要管理班级所有事物包括老师的工作和学生的工作，具体的有学生信息的管理，老师信息的管理， 课程管理，班级事物的管理等，原来的仅靠手工进行的班级管理已日渐显示出其不足之处，那么就有必要建立一套基于计算机的班级管理信息系统，来具体分配班级管理者，任课老师，学生的任务，来减轻班级管理者的负担。具体的要建立一套包括系统管理模块，班级管理模块，学生档案模块，学生缴费模块，课程信息模块，成绩管理模块等在内的班级管理信息系统。系统管理模块完成的是添加用户，修改密码，重新登录的功能。班级管理模块完成班级浏览，添加班级，班级查询的功能。学生档案模块完成档案浏览， 档案添加，档案查询的功能。学生缴费模块完成基本学费设置，学生学费浏览，学生学费添加，学生学费查询的功能。课程管理完成课程查询，基本课程设置，班级课程设置的功能。成绩管理完成考试类型设置， 成绩添加，成绩浏览，成绩查询的功能。2.1.2 可行性分析为了进一步帮助班主任进行科学有效的学生管理工作，现通过对部分用户的调查了解，对建立班级事务管理信息系统进行了以下两方面的可行性分析：1. 可能性，据了解，各个办公室都已具有基本的硬件设备，那么这就为班级事务管理信息系统的实行提供了必要的可能性；加之相关用户都已具备了一定计算机基本操作能力，所以这又为班级事务管理信息系统的实行提供了用户方面的可能性；再从资金成本等方面讲，因为该系统相对而言只是一个小型的管理系统，所需设计人员较少，消耗费用也在用户的承受能力之内。综合上述几方面，班级事务管理信息系统的建立具有很大的可能性。2. 有益性，班级事务管理信息系统一旦建成，那么通过该系统的使用就可以提高信息的使用质量，提高数据的准确性，减轻用户的工作负担和劳动强度，提高用户的信息处理能力，从而进行有效的决策与管理。总之，通过以上两方面的可行性分析，本人认为建立一套班级事务管理信息系统是可行的。通过掌握和调查的相关原始资料，就可以通过小组讨论，对该系统的开发做出相关的计划进度，着手进行系统的分析和设计工作。2.2 系统设计2.2.1 系统目标本系统要实现的是：管理员即班级中的班主任，管理员可以管理本系统中的一切事务，用户可以实现查询学生信息，班级信息，缴费信息，课程信息成绩信息等功能。2.2.2 系统功能分析班级管理信息系统的开发任务是为了减轻班主任管理班级的工作负担，为了教学管理工作能系统化， 规范化和自动化而开发的。这就决定了本系统的各项主要功能，它们分别为：系统管理模块，班级管理模块，学生档案模块，学生缴费模块，课程信息模块，成绩管理模块等。具体如下：系统管理模块完成的是添加用户，修改密码，重新登录的功能。班级管理模块完成班级浏览，添加班级，班级查询的功能。学生档案模块完成档案浏览，档案添加，档案查询的功能。学生缴费模块完成基本学费设置，学生学费浏览， 学生学费添加，学生学费查询的功能。课程管理完成课程查询，基本课程设置，班级课程设置的功能。成绩管理完成考试类型设置，成绩添加，成绩浏览，成绩查询的功能。2.2.3 系统功能结构图班级管理信息系统是一个交互式查询系统，利用该系统学生作为只读用户可以查询自己的信息，修改自己个人信息如进入系统的口令；学校教师作为普通用户则可以录入自己学生的基本信息等，当然条件是在系统允许的情况下；查询所教科目的学生成绩，修改系统口令。系统管理员用户作为超级用户可管理所有用户的权限。1. 系统管理：此项功能权限仅限于超级用户即系统管理员，实现的功能有：用户注册，角色定义，权限分配，用户信息维护等。普通用户的帐号不拥有这些权限。2. 班级管理：班级管理模块主要包括班级浏览、班级查询、添加班级的功能。3. 学生档案管理：学生档案管理模块主要包括档案添加、档案浏览、档案查询的功能。4. 学生缴费管理：学生缴费管理模块主要包括基本学费设置、学生缴费浏览、学生缴费添加、学生缴费查询的功能。5. 课程管理：课程管理模块主要包括基本课程设置、班级课程设置、课程查询的功能。6. 成绩管理：成绩管理模块主要包括考试类型设置、成绩添加、成绩浏览、成绩查询。班级管理信息系统的功能结构如下图2.1 所示：班级管理信息系统系统管理班级管理学生档案管理学生交费管理课程管理成绩管理添加用户班级浏览档案添加基本学费设置基本课程设置考试类型设置修改密码添加班级档案浏览学生交费浏览班级查询档案查询学生交费添加班级课程设置成绩添加重新登陆成绩浏览学生交费查询课程查询成绩查询图 2.1 系统的功能结构图2.2.4 开发及运行环境开发环境：开发语言：VisualBasic6.0现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft 公司的Visual Basic, Microsoft 公司的Visual C, Borland公司的Delphi, Sun 公司的Java 等等。在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的提高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，VB 是一个非常理想选择。VB 因简单易学、功能强大、编译速度快而从众多的软件开发工具中脱颖而出。它提供了灵活的可视化设计工具，将可视化界面与面向对象技术完善、紧密地结合起来，并封装了 Windows 编程的复杂性。程序的规模小到简单的个人数据库应用，大到复杂的企业的多层次分布式系统，都可以使用VB 进行开发，其友好的集成开发界面，可视化的双向开发模式，良好的数据库应用支持高效的程序开发和程序运行，备受广大程序开发人员的好评。尤其是VB 对数据库应用的强大支持，大大提高了数据库应用软件开发的效率，缩短了开发周期，深受广大数据库应用程序设计人员的喜爱。VB 为数据库应用开发人员提供了丰富的数据库开发组件，使数据库应用开发功能更强大，控制更灵活，编译后的程序运行速度更快，VB 是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB 在短短的几年内风靡全球。VB 是极有和功能强大的软件，主要表现在：所见即所得的界面设计， 基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。美国微软公司在 1991 年推出VB1.0 至今已经经历了 6 个版本，VB6.0 运行在win9x 或 winme，win2000， winxp，windowsNT 等操作系统下，是一个 32 位的应用程序开发工具。故而，实现本系统VB 是一个相对好的选择。数据库：MicrosoftAccess2003Access 是微软公司推出的基于Windows 的桌面关系数据库管理系统（ RDBMS ，即 Relational Database Management System ），是 Office 系列应用软件之一。它提供了表、查询、窗体、报表、 页、宏、模块 7 种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。Access 能够存取 Access/Jet 、Microsoft SQL Server 、Oracle( 甲骨文软件公司 )，或者任何ODBC 兼容数据库内的资料。熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的程序员和非程序员的 "进阶用户 "则能使用它来开发简单的应用软件。Access2003 是 Microsoft Office2003 套件产品之一，是世界上最流行的桌面数据库系统之一。相比其他数据库开发系统，Access 的显著优点在于：不用编写一行代码，就可以在很短的时间里开发出一个功能强大的数据库应用程序，并且这一过程是完全可视化的。该软件界面友好，操作简单，功能强大，受到越来越多用户的喜爱。操作系统：WINDOWS XPWINDOWSVISTA运行环境：数据库支持：MicrosoftAccess2003 操作系统：WINDOWS 系列硬件要求：内存最低为 256MB，硬盘空间至少 20G本系统即班级管理信息系统采用上述技术十分合理、可行，VB 简单易学、功能强大、编译速度快，Access2003 能建立功能完善的数据库管理系统，使得普通用户不必编写代码，就可以完成大部分数据管理的任务， 十分方便。因此 vb+Access 是很好的搭档， 示我开发的班级管理信息系统界面友好、操作简单、功能强大。3 数据库设计3.1 班级管理信息系统 E-R 图 用户属性E-R 图包括 username、password、admin、readonly、qx1、qx2、qx3、qx4。用户usernamepasswordadminqx4readonlyqx1qx2qx3图 3.1 用户属性E-R 图 学生档案E-R 图包括学生学号、姓名、性别、班级、入学时间、出生年月、联系电话、邮编、家庭住址等信息，是1：学生邮编入学时间姓名性别出生年月联系电话学号家庭住址班级N 的关系。图 3.2 学生档案E-R 图 成绩信息E-R 图包括学号、学期、类型（期中，期末）、课程名称、分数等信息，是1：N 的关系成绩学号类型学期分数课程名称图 3.3 成绩信息E-R 图 课程信息E-R 图包括年级、专业、年制、学期、课程名称等信息，是1：N 的关系课程年级专业年制学期课程名称图 3.4 课程信息E-R 图 班级信息E-R 图包括年级、班级、教室、年制、班主任、专业、备注等信息，是1：N 的关系班级年级备注班级专业教室年制班主任图 3.5 班级信息E-R 图 学生缴费信息E-R 图包括学号、姓名、班级、学期、本次缴费（元）、本次欠费（元）、累计欠费（元）等信息，是1：N 的关系学生缴费学号累计欠费姓名本次欠费班级学期本次缴费图 3.6 学生缴费信息E-R 图 系统总E-R 图一个管理员可以管理所有信息，具体的是管理员可以管理课程，学生，学生成绩，学生缴费，班级等， 这些都是 1：N 的关系。实体间关系如图所示：课程NN班级管理管理11用户111N管理N成绩管理管理N学生学生缴费图 3.7 总 E-R 图3.2 数据库逻辑结构设计班级信息管理系统主要使用了以下几张数据表，分别为用户属性表、学生档案表、学生成绩表、班级信息表、课程信息表、学生缴费信息表，如下表： 用户属性表主要是设定用户管理的相关信息。表 3.1 用户属性表属性名类型长度备注username文本20用户名password文本20口令admin文本2管理员readonly文本2只读qx1文本2权限 1qx2文本2权限 2qx3文本2权限 3qx4文本2权限 4 学生档案表主要是存储学生档案的相关信息，以学号为主键。表 3.2 学生档案表属性名类型长度备注学号文本5学生学号姓名文本20学生姓名性别文本2性别班级出生年月家庭住址文本日期/时间文本1030所在班级出生年月家庭住址邮政编码数字长整型邮编联系电话入学时间数字日期/时间长整型联系电话学生入学时间备注备注备注 学生成绩表主要是存储学生成绩的相关信息，以学号为主键。表 3.3 学生成绩表属性名类型长度备注学号文本10学生学号学期文本50第几学期类型文本16课程性质课程名称文本20课程名称分数数字单精度型考试成绩 班级信息表主要是存储班级的相关信息，以班级为主键。表 3.4 班级信息表属性名类型长度备注年级文本16所在年级班级文本20所在班级教室文本16所在教室年制文本20几年制专业文本16所学专业班主任备注文本备注8班主任备注说明 课程信息表主要是存储课程的相关信息。表 3.5 课程信息表属性名类型长度备注年级文本16所在年级专业文本12所学专业年制文本8几年制学期文本50第几学期课程名称文本20所学课程 学生缴费信息表主要是存储学生缴费的相关信息，以学号作为主键。表 3.6 学生缴费信息表属性名类型长度备注学号文本16学生学号学期文本12第几学期交费文本8所交学费欠费货币50所欠学费日期日期/时间交费日期操作员文本20操作员3.3 数据库的开发过程打开 Microsoft Access2003，在出现的对话框里选择“空Access 数据库”，数据库命名为“班级管理信息系统”，保存在程序目录下面，在出现的对话框中双击“使用设计器创建表”，如下图所示：图 3.1 使用设计器创建表下图为“学生档案表”，在表设计对话框中的字段名称一栏内，分别填上“学号”，“姓名”，“性别”， “班级”，“出生年月”，“家庭住址”，“邮政编码”，“联系电话”，“入学时间”，“备注”等内容。图 3.2 学生档案表同理可以建立学生成绩表、班级信息表、课程信息表、学生缴费信息表等。3.4 数据库与 VB 的连接1. 与 VB 的连接：Visual Basic 提供了与底层数据库系统紧密的连接。它支持不同的关系数据库管理系统并充分发挥每一个数据库的特长，生成独立应用或脱离服务器运行的应用程序。Visual Basic 连接数据库的方式有两种：方式一，通过使用Visual Basic 的 DATA 控件；方式二，通过使用由Visual Basic 提供的专用的直接与数据库相连的接口。2. JET 数据库引擎：它提供了与数据库打交道的途径，可以通过它以及 Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access 以及其他的软件产品很多都是通过共用JET 数据库引擎的， 这给用户提供了丰富的数据类型。3. DATA 控件的桥梁作用：DATA 在数据库中的信息与将信息显示给用户看的Visual Basic 程序之间架起了一座桥梁。可以设置 DATA 控件的各个属性，告诉它要调用哪个数据库的哪个部分。缺省情况下，DATA 控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的内容改变了以后，该记录集合中的记录也会随之改变。DATA 控件还提供了用来浏览不同记录的各种跳转按钮。将DATA 控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。本系统使用 Visual Basic 的 DATA 控件连接数据库，主要是DATA 控件使用简单，操作方便，其它方法虽然也很好，但是操作起来比较复杂，没有使用DATA 控件操作方便，所以选择这种方法。4 模块设计4.1 前台主要功能模块详细设计4.1.1 主模块主模块是用来导航到系统的各个功能模块的。主模块在班级管理信息系统中占有非常中要的地位，运行班级管理信息系统的程序，进入登陆界面，输入正确的用户名和密码就会出现如下图4.1 主模块所示的内容，包括系统管理、班级管理、学生档案管理、学生缴费管理、课程管理、成绩管理等内容。进入主模块之后才可以实现其他模块的功能。图 4.1 主模块实现该模块功能的主要代码：Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongDim find1 As Integer Dim liulan1 As Integer Private Sub add_Click() qxstr = Executeqx(2)If qxstr = "false" Or qxstr = "readonly" Thenss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")Exit Sub4.1.2 班级浏览，查询模块班级浏览，查询模块在班级管理信息系统中占有非常重要的作用，一个学校是由很多个班级组成的， 一个管理员也要管好几个班级，所以有了班级浏览，查询模块，无论是学生自己，还是管理员本身，亦或是学校领导视察班级，都能带来很多的方便。只要单击班级管理模块中的班级浏览、查询模块，就会出现下图的班级浏览、查询模块。班级浏览、查询模块主要应用于浏览，查询各个班级的信息。如图 4.2 所示， 每个年级里分不同的专业，每个专业包括很多的信息，如学生所在的年级，班级，教室，年制，专业，班主任以及备注等等信息。班级查询模块在查询时是按条件查询，可按年级、班级、专业这些条件查询，可以选择其中任意一项查询，也可全部选择查询，如图4.3 所示，在年级、班级、专业这几个选项里分别填上相应的信息，然后点“确定”按钮，就会出现相应的查询结果，如班级查询结果图4.4 所示。图 4.2 班级浏览图实现班级浏览功能的主要代码：Public printstr As StringPublic Sub classshowtitle() Dim i As Integer MSF1.ClearWith MSF1.Cols = 8.TextMatrix(0, 1) = "年级".TextMatrix(0, 2) = "班级".TextMatrix(0, 3) = "教室".TextMatrix(0, 4) = "年制".TextMatrix(0, 5) = "专业".TextMatrix(0, 6) = "班主任".TextMatrix(0, 7) = "备注".ColWidth(0) = 100.ColWidth(1) = 1300.ColWidth(2) = 1200.ColWidth(3) = 800.ColWidth(4) = 800.ColWidth(5) = 800.ColWidth(6) = 800.ColWidth(7) = 5000.FixedRows = 1For i = 1 To 7.ColAlignment(i) = 0 Next i.FillStyle = flexFillSingle.Col = 0.Row = 0.RowSel = 1.ColSel = .Cols - 1.CellAlignment = 4.Row = 1 End WithEnd Sub图 4.3 班级查询图图 4.4 班级查询结果图实现班级查询模块功能的主要代码：Private Sub Command1_Click() txtsql = ""If Text1(0).Text <> "" Then If txtsql = "" Thentxtsql = "年级='" & Trim(Text1(0).Text) & "'"Elsetxtsql = txtsql & "and 年级='" & Trim(Text1(0).Text) & "'" End IfEnd IfIf Text1(1).Text <> "" Then If txtsql = "" Thentxtsql = "班级='" & Trim(Text1(1).Text) & "'"Elsetxtsql = txtsql & "and 班级='" & Trim(Text1(1).Text) & "'" End IfEnd IfIf Text1(2).Text <> "" Thenaa = 1If txtsql = "" Thentxtsql = "专业='" & Trim(Text1(2).Text) & "'"Elsetxtsql = txtsql & "and 专业='" & Trim(Text1(2).Text) & "'" End IfEnd IfIf txtsql = "" Thenss = MsgBox("你至少要输入一个条件以上才能查询！", , " 警告") Text1(0).SetFocusExit Sub4.1.3 学生档案浏览，查询模块学生档案浏览，查询模块在班级管理信息系统中占有非常重要的地位。一个学校由很多个班级组成， 每个班级又是由很多个学生组成，每个学生的档案信息都不相同，而且学生还分在校生和已经毕业的，要是仍然按照以前的手动查找信息就很麻烦，特别是查找已经毕业的学生的档案，所以学生档案浏览，查询模块十分重要。只要单击学生档案管理模块，选择学生档案浏览、查询模块，就会出现相应的信息。学生档案浏览、查询模块主要实现学生档案浏览，查询，如图4.5 所示，每个年级分不同的班级，每个班级里包含不同的学生信息，只要双击一个学生的名字，就会出现相应的信息，包括学生的学号、姓名、年级、班级、专业、年制、出生年月、家庭住址、邮政编码、联系电话、入学时间等信息。学生档案查询模块在查询时是按条件查询，可按学号、姓名、班级、姓名关键字等这些条件查询，可以选择其中任意一项查询， 也可全部选择查询，如图4.6 所示，在学号一栏里填上相应的信息，然后点“确定”按钮，就会出现相应的查询结果，如学生档案查询结果图4.7 所示。图 4.5 浏览学生档案图实现学生档案浏览功能的主要代码：Public Sub showtitle() MSF1.ClearDim i As Integer With MSF1.Cols = 14.TextMatrix(0, 1) = "学号".TextMatrix(0, 2) = "姓名".TextMatrix(0, 3) = "性别".TextMatrix(0, 4) = "年级".TextMatrix(0, 5) = "班级".TextMatrix(0, 6) = "专业".TextMatrix(0, 7) = "年制".TextMatrix(0, 8) = "出生年月".TextMatrix(0, 9) = "家庭住址".TextMatrix(0, 10) = "邮政编码".TextMatrix(0, 11) = "联系电话".TextMatrix(0, 12) = "入学时间".TextMatrix(0, 13) = "备注".ColWidth(0) = 200.ColWidth(1) = 500.ColWidth(2) = 700.ColWidth(3) = 500.ColWidth(4) = 1000.ColWidth(5) = 800.ColWidth(6) = 700.ColWidth(7) = 800.ColWidth(8) = 800.ColWidth(9) = 3000.ColWidth(10) = 800.ColWidth(11) = 1000.ColWidth(12) = 800.ColWidth(13) = 6000.图 4.6 学生档案查询图图 4.7 学生档案查询结果实现学生档案查询的主要代码：Private Sub Command1_Click()Dim aa As Integer txtsql = ""If Trim(Text1(0).Text) <> "" Then aa = 1If txtsql = "" Thentxtsql = "xj.学号='" & Trim(Text1(0).Text) & "'"Elsetxtsql = txtsql & "and xj.学号='" & Trim(Text1(0).Text) & "'" End IfEnd IfIf Trim(Text1(1).Text) <> "" Then aa = 1If txtsql = "" Thentxtsql = "xj.姓名='" & Trim(Text1(1).Text) & "'"Elsetxtsql = txtsql & "and xj.姓名='" & Trim(Text1(1).Text) & "'" End IfEnd IfIf Trim(Text1(2).Text) <>