学生学籍管理系统毕业论文1

武威职业学院毕业论文系 别： xxxxxx系 姓 名： xxx 论文题目： 学生学籍管理系统 指导老师： xxx 提交时间： 2021年11月4日 【摘要】学生学籍管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。这次开发我非常注重系统的人性化设计。最讨厌一些系统的不人性化设计，让普通用户不知道如何使用，从而望而却步。即使是我这样的计算机专业人员，也要探索半天才能掌握用法。 我即是此系统的设计开发者，也是此系统的用户，所以我在此系统的人性化设计上下足了功夫。为方便普通用户的操作使用，也为我的毕业设计增添了一份特色。 本系统的用户界面十分简洁、实用，系统编制过程中充分考虑了计算机的优越性，对于不是计算机专业的人员来说，只要阅读了操作说明书，也可以很方便的进入系统和使用本系统提供的功能。【关键字】：控件、窗体、域、学籍管理系统、信息管理系统、VISUAL BASIC。目 录 前 言1第一章 为什么要开发一个学生学籍管理系统？111在中小学中用计算机管理学生学籍的意义112为将来学校上网做好准备213学生学籍的设计分析2第二章 怎样开发一个学生学籍管理系统？221编程环境的选择222关系型数据库的实现223二者的结合（DBA）3第三章 Windows下的Visual Basic 编程环境简介331 告别“hello world”的年代332 面对对象的编程533实现菜单选项634实现工具栏635帮助736关于系统7第四章 使用 Access2000 实现关系型数据库841数据库的概念842新建一个数据库843修改已建的数据库844实现数据库之间的联系8第五章 系统总体规划951系统功能952系统流程图953数据字典10第六章 系统具体实现1061用户界面的实现10611用户登陆界面10612班级信息管理界面11613学生信息管理界面11614学生成绩管理界面1262数据库的实现12621学籍数据库13622成绩数据库13623课程数据库1463 与VB的连接15第七章 结束语15致谢15参考文献15程序清单及注释16前 言学生学籍管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件学籍，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生学籍信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生学籍管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套学生学籍管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。第一章 为什么要开发一个学生学籍管理系统？ 计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全，等等。 11在中小学中用计算机管理学生学籍的意义现在我国的中小学校中学籍的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用的专科生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我三年的所学编制出一个实用的程序来帮助中小学进行更有效的学籍管理。 归纳起来，好处大约有以下几点：1 可以存储历届的学生学籍，安全、高效；2 只需一到二名学籍录入员即可操作系统，节省大量人力；3 可以迅速查到所需信息。 12为将来学校上网做好准备跟据1999年中国电信的调查报告显示我国的上网人数已达到890万，互联网已经十分普及，学校往界的毕业生希望能在世界的任何一个角落查到自己校友的信息，本系统为学校将来的上网作了先期工作，比如数据库的建立。 13学生学籍的设计分析根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。第二章 怎样开发一个学生学籍管理系统？21编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。 22关系型数据库的实现Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 23二者的结合（DBA）微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。第三章 Windows下的Visual Basic 编程环境简介31 告别“hello world”的年代 Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和 方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。BASIC是Beginners All-purpose symbolic instruction Code（初学者通用符号指令代码）的缩写，是国际上广泛使用的一种计算机高级语言。BASIC简单、易学，目前仍是计算机入门的主要学习语言之一。 BASIC语言的问世及发展 BASIC语言自其问世经历了以下四个阶段：第一阶段：（1964年70年代初） 1964年BASIC语言问世。 第二阶段：（1975年80年代中） 微机上固化的BASIC第三阶段：（80年代中90年代初） 结构化BASIC语言。第四阶段：（1991年以来） Visual BASIC 1991年，微软推出了Visual Basic1.0版。这在当时引起了很大的轰动。许多专家把VB的出现当做是软件开发史上的一个具有划时代意义的事件。其实，以我们现在的目光来看，VB10的功能实在是太弱了。但在当时，它是第一个“可视”的编程软件。这使得程序员欣喜之极，都尝试在VB的平台上进行软件创作。微软也不失时机地在四年内接连推出VB20，VB30，40三个版本。并且从VB3开始，微软将ACCESS的数据库驱动集成到了VB中，这使得VB的数据库编程能力大大提高。从VB4开始，VB也引入了面向对象的程序设计思想。VB功能强大，学习简单。而且，VB还引入了“控件：的概念，使得大量已经编好的VB程序可以被我们直接拿来使用，如今，VB已经有了6.0版。通过几年的发展，它已成为一种真真专业化的开发语言和环境。用户认为可用Visual Basic快速创建Windows程序，在现在还可以编写企业水平的客户服务器程序及强大的数据库应用程序，Visual Basic新版中还有更多可用功能。Visual Basic的编程基础 什么是程序 首先需要知道下面这个问题的答案：“程序到底是什么？”计算机程序是指令集，它告诉计算机如何执行特殊的任务。读者也许对许多种指令熟悉，如按菜谱烹调特殊的食物或按指定的方向到达不熟悉的目的地。没有这些特殊的指令，就不能执行预期的任务。计算机也是一样，只是它们需要为执行的每一个任务提供指令。甚至对最简单的任务也需要指令，例如如何取得击键，怎样在屏幕上放一个字母，怎样在磁盘中保存讯息。 幸运的是，许多这样的指令包含在处理器芯片中或内置于操作系统中，因此用户不必担心它们。 相反，应集中于为任务提供指令，如计算雇员工资，创建邻居邮件列表，或设置格式化文本以显示最近的年度报表信息。 虽然我们用自然语言读这些指令，但计算机指令必须是二进制代码，即一系列在计算机内存和处理器中的开或关的状态。有些语言，如汇编程序，可以允许直接写这种类型的代码。但是，以这种方法编程十分困难，因此Visual Basic和其他编程语言使程序员可以用与自然语言有点相近的方式编写指令。然而，即使是这些指令仍有限，并要遵循高度定义的结构。 Visual Basic允许创建反映用户动作和系统事件的程序。这种编程叫事件驱动编程。要了解事件驱动程序是怎样工作的，先要了解过去的程序怎样运行及在Windows环境中有何不同。 在Windows之前（回到往日的DOS和“史前时代”之前），程序以顺序方式运行。也就是说，一旦程序启动，它就一条指令一条指令的向前执行，直到程序结束或出现致命错误。 32 面对对象的编程使创建Windows程序较为容易的关键技术是面向对象编程，或OOP。这种技术可以创建可重用组建，它是程序的组成模块。 几个定义在讨论Visual Basic时，经常可以听到这些术语，因此对这些术语的基本理解十分有帮助。控件 提供程序可见界面的可重用对象。控件的示例有文本框、标签和命令按钮。事件 由用户或操作系统引发的动作。事件的示例有击键、单击鼠标、一段时间的限制，或从端口接收数据。方法 嵌入在对象定义中的程序代码，它定义对象怎样处理信息并响应某事件。例如，数据库对象有打开纪录集并从一个记录移动到另一个记录的方法。 对象 程序的基本元素，它含有定义其特征的属性，定义其任务和识别它可以响应的事件的方法。控件和窗体是Visual Basic中所有对象的示例。 过程 为完成任务而编写的代码段。过程通常用于响应特定的事件。 属性 对象的特征，如尺寸、位置、颜色或文本。属性决定对象的外观，有时也决定对象的行为。属性也用于为对象提供数据和从对象取回信息。BASIC是种易学易用的高级语言,非常适合初学者学习运用。常用的编译软件有True BASIC,Turbo BASIC Quick BASIC,Visual BASIC,CAREALIZER,GFA BASIC,POWER BASIC,等等。Visual Basic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。 33实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic也提供了强大的创建菜单功能是程序更加标准。您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单。 34实现工具栏CoolBar控件与Office97种看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你局可以向用户提供更好的灵活性和义用性。Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。Toolbar也是一个控件容器且具有Style属性，并可以为其增加下拉按钮和平滑按钮等。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其属性及对象如下： 1 Align属性定义工具条在窗体中的位置2 ToolTipText属性是字符串类型，定义控件的提示字符3 Style属性定义按钮外观。4 ImageList属性定义与数据条对应的ImageList控件名，该控件定义工具条按钮显示的图像。5 HotImangeList属性设置一个ImageList控件名，该控件定义按钮获得热点时显示的图像。6 DisabledImageList属性定义工具条按钮无效时显示的图像。创建工具条包括ImageList和Toolbar控件ImageList用于为其他控件提供图像库，将ImageList控件加入到工具箱的操作于前述Toolbar控件相同。 35帮助专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的Help Workshop4.0 是一套独立于Visual Basic 的用来协助我们创建、运行于32位Windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序生成一组帮助文件。 36关于系统为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。Visual Basic允许你使用APP对象来保存这些信息，APP对象是一个预定义对象，不需要在程序中创建它。APP对象的大多数属性被应用程序用来提供常规的信息，通过使用这些APP提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。第四章 使用 Access2000 实现关系型数据库41数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 42新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被标识的字段到表中；3 标识主关键字字段；4 绘制一个简单的数据图表；5 规范数据；6 标识指定字段的信息；7 创建物理表。 43修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 44实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。第五章 系统总体规划 51系统功能1 可以进行文本操作；2 添加一个数据库项目；3 删除一个数据库项目；4 修改一个数据库项目；5 查询信息；6 察看课程表。 52系统流程图本系统流程图如下：学生管理系统数据修改数据录入退出系统打印报表数据查询数据查询数据录入学生注册情况查询学生基本情况查询班级课程查询班主任查询学生成绩查询学生成绩录入班级课程录入班主任录入学生注册录入学生基本情况录入数据修改班级课程修改学生成绩修改班主任修改学生注册情况修改学生基本情况修改图 5-2 53数据字典 数据字典是在需求分析阶段建立，在数据库设计过程中不断修改、充实完善的。明确地需求收集和分析作为数据库设计的第一阶段是十分重要的。第六章 系统具体实现 61用户界面的实现 611用户登陆界面图6-1概述：用户必须输入正确的用户名称（zhanghaiyan）和用户密码（888）后按“确认”或“Enter”键才可进入本系统操作。图6-2 612班级信息管理界面图6-3概述：用户可以添加、修改、删除班级信息 613学生信息管理界面图6-4概述：当查询条件输入完毕后，系统自动在数据库中检索，将满足条件的记录显示在屏幕上。用户可以添加、修改、删除学生信息等。 614学生成绩管理界面图6-5概述：用户可以添加、修改、删除学生成绩信息等。当查询条件输入完毕后，系统自动在数据库中检索，将满足条件的记录显示在屏幕上。 62数据库的实现 621学籍数据库学籍数据库里存储了学生的学籍包括：学号、姓名、性别、出生日期、学生编号、联系电话、入学日期、家庭住址、备注等如下表表6-1student_NO（学号）文本 student_Name（姓名）文本student_Sex（性别）文本student_Bir（出生日期）日期/时间 student_Cla（学生编号）文本student_Tel（联系电话）文本student_Esd （入学日期）日期/时间student_Add（家庭住址）文本student_Rem（备注）备注学籍模块：该模块主要完成学生基本信息的录入、删除 、更新等功能。在此模块中定义了八个域名来进行学生的信息存储。如果用户修改某一纪录中的某一项，可单添加按钮进行学生记录的编辑，此窗口使用数据窗口的FREEDOM风格（典型的录入界面）。该种风格特点是列标题紧挨着数据列在此窗口还可以增加新学生纪录。 622成绩数据库成绩数据库里存储了学生的成绩包括：学号、学生编号、考试课程、成绩等如下表表6-2score_NO（考试编号）文本 score_Per（考试期号）文本 score_Cla （学生班号）文本score_Stu（学生编号） 文本score_Cou （考试课程）文本score_Sco（考试分数）数字成绩模块：该模块主要完成学生成绩的基本信息的录入、删除 、更新等功能。在此模块中定义了四个域名来进行学生的信息存储。 623课程数据库课程数据库利存储了课程的信息：课程名、备注等如下表表6-3course_Name（课程名） 文本 course_Rem（备注）备注课程模块：该模块主要完成存储课程的所有信息及录入、删除 、更新等功能 63 与VB的连接Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic连接数据库的方式有两种：通过使用Visual Basic的 DATA控件。 通过使用由Visual Basic提供的专用的直接与数据库相连的接口第七章 结束语经过三个多月的设计和开发，中小学学籍管理系统基本开发完毕。其功能基本符合用户需求，能够完成学生学籍的存储和成绩的查询以及各类相关报表的打印。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。，对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。 致谢在本次毕业设计中，我从指导老师 身上学到了很多东西。胡老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。另外，在系统开发过程中 师傅也给于我很大的帮助，帮助解决了不少的难点，使得系统能及时开发完成，还有同组的同学同样给与我不少帮助，这里一并表示感谢。 参考文献1 Visual Basic 6.0 使用指南 作者：Bob Reselman , Richard Peasley 出版社：电子工业出版社2 中文版Microsoft Office 97 自学通作者：Ned Snell 出版社：机械工业出版社3 Visual Basic 6.0 中文版控件大全作者：Microsoft 出版社：电子工业出版社4 中文Access 2000 24学时教程 作者：Craig Eddy ，Timothy Buchanan 出版社：机械工业出版社5 Visual Basic6.0程序设计教程作者：李淑华 出版社：高等教育出版社出版6 Visual Basic程序设计作者：王利 出版社：高等教育出版社出版程序清单及注释 用户登陆代码： Private Sub cmdOK_Click() txtSQL = select * from user_Form where user_ID = & txtUserName.Text & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 没有这个用户，请重新输入用户名!, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else If Trim(mrc.Fields(1) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) Else MsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 txtPassword.SetFocus txtPassword.Text = End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd Sub 班级信息管理代码： Private Sub Label2_Click(Index As Integer) Me.Caption = 班级信息 Me.Caption = Me.Caption & - & Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = &HFFFFFF Picture1(Index).Visible = True For i = 0 To 11 Text1(i) = Next Command3.Enabled = False Command5.Enabled = FalseEnd SubPrivate Sub ShowData() Dim txSQL As String Dim mrcc As ADODB.Recordset txSQL = select * from class_Form Set mrcc = ExecuteSQL(txSQL, MsgText) With MSFlexGrid1 .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) = 1200 .ColWidth(3) = 6000 .TextMatrix(0, 0) = 班级编号 .TextMatrix(0, 1) = 班级名称 .TextMatrix(0, 2) = 导员姓名 .TextMatrix(0, 3) = 备注信息 .Rows = 1 Do While Not mrcc.EOF .Rows = .Rows + 1 For i = 0 To mrcc.Fields.Count - 1 .TextMatrix(.Rows - 1, i) = mrcc.Fields(i) & Next i mrcc.MoveNext Loop End With mrcc.CloseEnd SubPrivate Sub MSFlexGrid1_Click() If Picture1(1).Visible = True Then Text1(4) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) Text1(5) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) Text1(6) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) Text1(7) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) Command3.Enabled = True End If If Picture1(2).Visible = True Then Text1(8) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) Text1(9) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) Text1(10) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) Text1(11) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) Command5.Enabled = True End IfEnd SubPrivate Sub Text1_Change(Index As Integer) If Index = 4 Then tSQL = select * from class_Form where class_NO= & Trim(Text1(Index) & Set mrc = ExecuteSQL(tSQL, MsgText) If mrc.EOF = False Then Text1(5) = mrc.Fields(1) Text1(6) = mrc.Fields(2) Text1(7) = mrc.Fields(3) Command3.Enabled = True Exit Sub Else Text1(5) = Text1(6) = Text1(7) = Command3.Enabled = False End If mrc.Close End If If Index = 8 Then tSQL = select * from class_Form where class_NO= & Trim(Text1(Index) & Set mrc = ExecuteSQL(tSQL, MsgText) If mrc.EOF = False Then Text1(9) = mrc.Fields(1) Text1(10) = mrc.Fields(2) Text1(11) = mrc.Fields(3) Command5.Enabled = True Exit Sub Else Text1(9) = Text1(10) = Text1(11) = Command5.Enabled = False End If mrc.Close End IfEnd SubPrivate Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)End SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub 学生信息管理代码： Private Sub Label1_Click(Index As Integer) Me.Caption = 学籍信息- Me.Caption = Me.Caption & Trim(Label1(Index).Caption) Label1(0).BackColor = &HE0E0E0 Label1(1).BackColor = &HE0E0E0 Label1(2).BackColor = &HE0E0E0 Label1(3).BackColor = &HE0E0E0 Label1(Index).BackColor = &HFFFFFF Label2(4).Caption = 在此选择学号 Label2(5).Caption = 在此输入联系电话 Label2(6).Caption = 在此输入入学日期 Command5.SetFocus If Index = 0 Then TextDcolor Command1.Visible = True Command2.Visible = False Command3.Visible = False Command4.Visible = False End If If Index = 1 Then Label2(4).Caption = 在此输入学生学号 Label2(5).Caption = 查询入学日期起始 Label2(6).Caption = 查询入学日期截止 TextDcolor Text1(4).Visible = True Combo1.Visible = False Command1.Visible = False Command2.Visible = True Command3.Visible = False Command4.Visible = False Text1(2).Enabled = False Text1(3).Enabled = False Text1(7).Enabled = False Text1(8).Enabled = False End If If Index = 2 Then TextDcolor Text1(0).SetFocus Command1.Visible = False Command2.Visible = False Command3.Visible = True Command4.Visible = False End If If Index = 3 Then TextDcolor Text1(0).SetFocus Command1.Visible = False Command2.Visible = False Command3.Visible = False Command4.Visible = True Text1(1).Enabled = False Text1(2).Enabled = False Text1(3).Enabled = False Combo1.Enabled = False Text1(4).Enabled = False Text1(5).Enabled = False Text1(6).Enabled = False Text1(7).Enabled = False Text1(8).Enabled = False End IfEnd Sub 23