计算机应用专业毕业作业学生信息管理

云南电大*学院五年制高职教育计算机应用专业毕业作业（毕业设计）题 目：学生信息管理系统 姓 名： 学 号： 学 校： 指导教师： 职 称：系统分析师 作业日期：2010年4月29日 I 云南广播电视大学2005级毕业论文 摘 要Microsoft公司开发工具Visual Basic具有编译速度快，编译后的可执行程序仅次于Basic开发工具的优势，提供强大的数据接口。Visual Basic是在众多数据库管理类软件开发中非常出色的一个，基于这些原因，我选择Visual Basic作为本系统的开发环境。 本程序基本实现了一般学生信息管理的基本功能，在实际实现中，基本涉及都了一般中学中专等学校的整个管理过程中的全部流程，适合于中学、普通中等专业学校的实际情况。后面的章节将对整个系统的功能，设计过程做详细的讲述。Summary Microsoft Visual Basic development tools company has compiled fast, compiled after the executable program after the basic development tools, will provide a powerful data interface. Visual Basic is in many types of database management software development in a very good, for these reasons, I chose this system as a Visual Basic development environment. This procedure basically the general students of the basic information management functions, in actual implementation, involving all the basic general secondary schools and other schools in the course of the entire management of all processes, suitable for secondary schools, ordinary middle professional schools of the actual situation. The section behind the whole system will function, to do the detailed design process on.关键字： VISUAL BASIC 6.0 Access2003 控件目 录1 前 言- 1 -2 系统可行性分析- 2 -2.1、技术可行性- 2 -2.2、经济可行性- 3 -2.3、操作可行性- 3 -3 系统需求分析- 4 -3.1、提供浏览和查询功能- 4 -3.2、信息的录入和修改功能- 4 -3.3、学校工作分析- 4 -3.4、学校具体需求分析- 4 -3.5、系统设计思想- 5 -3.5.1、系统功能分析- 5 -3.5.2、系统辅助功能分析- 6 -3.6、学生信息系统的目标- 6 -3.7、业务流程分析- 6 -3.7.1 学生信息管理系统DFD图，- 6 -3.7.2管理员信息程图- 7 -3.7.3班级信息流程图- 8 -3.7.4课程信息管理流程图- 8 -3.7.5 学籍信息管理流程图- 9 -3.7.6 学生成绩管理流程图- 9 -3.7.7 学生奖惩管理流程图- 10 -3.7.8学生基本信息浏览流程图- 10 -3.8、数据库概念设计- 10 -3.8.1、综合以上ER模型- 11 -3.9、数据库逻辑设计- 13 -3.10、数据库物理设计- 13 -3.11、数据库表的建立过程- 15 -4 系统设计- 16 -4.1总体设计- 16 -4.1.1、处理流程：- 16 -4.1.2、系统模块菜单- 16 -4.1.2.1、系统总体模块图- 16 -4.1.2.2系统管理模块图- 16 -4.1.2.3班级信息管理模块图- 17 -4.1.2.4学籍信息管理模块图- 17 -4.1.2.5、成绩管理模块图：- 17 -4.1.2.6、课程信息管理模块图- 18 -4.1.2.7、奖惩信息管理模块图：- 18 -4.1.2.8个人信息查询：- 18 -4.2、学生信息管理系统所需完成具体的功能- 19 -4.2.1、登录模块块- 19 -4.2.2、班级信息管理模块- 19 -4.2.3、课程信息管理模块- 20 -4.2.4、成绩信息管理模块- 20 -4.2.5、学籍信息管理模块- 21 -4.2.6、学生奖惩管理模块- 21 -4.2.7、学生信息浏览模块- 22 -5 系统的实现- 23 -5.1、登陆窗口- 23 -5.2主操作界面- 24 -5.3学籍信息管理界面- 24 -5.4学生信息浏览介面- 26 -6 系统测试- 28 -6.1、学生学籍信息模块测试- 28 -6.2、成绩录入模块测试- 28 -6.3学生奖惩管理模块测试- 29 -总 结- 30 -参考文献-31-致 谢- 32 - 29 - 1 前 言学生信息管理系统是一个教育单位不可缺少的部分。一个功能齐全、简单易用的信息管理系统不但能有效地减轻学校相关工作人员的工作负担，对于学校的决策者和管理者来说都至关重要。所以学生信息管理系统应该能够为管理员提供充足的信息和快捷的查询手段，但一直以来人们使用传统人工的方式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点,如:效率低、保密性差,人员的大量浪费；另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少困难，随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入各个领域并发挥着重要的作用。 本系统是从管理特点出发，针对学校学生管理现实状况，同时还从学校学生管理的实际出发，对教务管理、信息查询等方面进行需求分析，根据需求分析的结果，确定设计目标、设计方案，主要采用的开发工具是Visual Basic6.0。在开发过程中利用面向对象的程序思想和严格按照软件工程的开发过程来进行分析和设计。本系统所要完成以下几个主要功能，实现学生每年成绩的录入、修改，并对每年学生的成绩、学年评语、违纪情况、奖励情况、处分情况等全部记录存档，直到学生毕业后学校可有选择的对该学生毕业以后是否继续存档进行必要的删除处理，实现学生直接通过计算机查询自己成绩，减少教务处人工对学生成绩查询的负担，实现将学生成绩，学生综合表现，学生基本情况联合查询，生成最终学生档案。使各项管理更加规范化，基本满足了学生成绩管理的功能需要，为学校对学生的管理提供了便利，最终实现学生档案的计算机程序化管理。学生管理系统的设计开发，为学校教学管理工作打下了良好的基础，同时，对于学校行政管理信息系统、后勤管理信息系统开发具有重要的参考价值，可以存储在校学生档案，安全、高效；只需一到二名档案录入员即可操作系统，节省大量人力；可以迅速查到所需信息；代替人工进行许多繁杂的劳动；计算机可以节省许多资源，并且可通过网络实现资源的共享，提高工作效率；计算机可以使敏感文档更加安全等等。提高了学校管理者的工作效率。2 系统可行性分析学生信息，作为一个学校，就有一定的工作量存在，而学生信息，它的工作量可能是其它信息工作量的几倍，班级的增加、班级的查找、班级的修改；学生档案；课程管理；成绩管理；统计等等，每个信息的数据都在不断地变化着，针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到，能够从根本上解决手工管理中信息滞后、资源浪费等问题。在系统开发之前对学校进行了深入的调查研究，下面从几个方面进行分析：21、技术可行性VB是一种可视化的编程语言，具有集成的可视化数据库工具，VB 6.0提供了一整套工具以在任何应用程序集成数据库。它可用来设计和修改Microsoft SQL Server Oracle733或以上及AS400的数据库的工具。数据环境设计器可使用拖放功能来可视化地创建可重用的记录集命令对象，也可用拖放方式创建绑有数据的表格和报告；Visual Basic Web Class设计器，可创建能够在任何平台上，用任何Web浏览器访问的服务器方便应用或构件，提供了更强大的开发功能。在Visual Basic集成开发环境中，管理员可以设计界面，编写代码，调试程序，直至把应用程序代码编译成可执行文件并在Windows中运行，使管理员在友好的开发环境中工作。强大的数值和字符串处理功能；丰富的图形指令，可方便地绘制各种图形，提供静态用动态数组；过程可以递归使用，使程序更简练；支持随机文件访问和程序文件访问；提供了一个可供应用程序调用的包含多种类型的图标库；具有完善的运行出错处理。利用visual basic提供的大量控件，可以方便的设计界面和实现各种功能。本系统的开发利用Access作为系统的数据库，它是一个支持多管理员的新型数据库。使用Visual Basic作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，是一种完全面向对象的编程工具，基于Pasic语言，为开发高性能系统提供的保障可以满足学校管理的要求，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本程序在开发过程中，由于Visual Basic所带的组件较多，所以对编译环境的硬件和软件要求不高，只需要一般的配置即可。系统对硬件、软件的要求:1、硬件资源（1）CPU: Intel Pentium3 800MHz或更高的处理器（3）内存：128MB内存以上。（4）硬盘：至少需要1G空间。2、软件资源本系统适用于MicrosoftWindows98/2000/ XP下开发的，开发工具Vb6.0中文企业版。后台采用Microsoft Access2000数据库。2.2、经济可行性由于在算法上和复杂度上本系统都比较简单，同时又减少了数据的流通环节，不必要花费那么多的时间，也就是说最重要的是就是提高了效率，而又保证了各项数据的准确性，使用本系统可以减少工作量，减少工作人员，提高开展效率，系统交付使用后，不需要多少维护就可以利用很长时间，因此，使用此管理系统可以为学校节约开支，所以在经济上是可行的。为此主要表现有以下几个方面：（1）、本系统的运行可以代替人工进行许多繁杂的劳动；（2）、本系统的运行可以节省许多资源；（3）、本系统的运行可以大大的提高学校的工作效率；（4）、本系统可以使敏感文档更加安全，等等。所以，从经济的角度上分析，开发此系统是可行的。23、操作可行性本系统界面友好，易管理者的操作，对操作人员没什么特别要求，并提供了详细的管理员操作手册。 综合以上的各项分析，开发学生信息管理系统能够使整个系统内部信息的工作简化，提高工作效益，能够快速地查询所需的数据、资料及其它信息的，使信息快速运行，所以开发这个管理系统是可行的。 3 系统需求分析系统所采用的是数据库编程软件Visual Basic作为实现语言，以数据库Microsoft Access2003作为系统的后台操作，其功能在系统内部有源代码直接完成。只需按系统要求输入即可操作。3.1、提供浏览和查询功能在浏览方面，运用树状目录结构，以从学校“年级”为模块，再具体每年级所包含的班级以及所对应的专业，实现以班级为单位的全面浏览。（包括对学生信息、学生各学年度的成绩、班级信息的浏览）而查询方面能够以学号、姓名、性别、年级等分别进行查询。3.2、信息的录入和修改功能能够对学生基本档案信息、班级信息、各学期所学课程及各学期成绩进行添加、修改，删除等必要的功能。3.3、学校工作分析 学校工作总体规划由教务人员在学生信息管理系统中完成对运行教务处所需的基本数据的维护，包括这些信息的增加、修改及对各项信息的变动都将在此进行操作。（1）新入学的学生，教务人员首先加入年级信息，然后编排班级，再对来校学生进行基本的信息录入，新生入学后由教务人员在学生信息管理系统中完成新学生信息的维护。（2）在每个学期开始，教务处根据班级的情况，以班为单位，为每个班级安排一个班主任及对此年级安排一个年级组长。并对各科老师进行安排。（3）每举行一次考试后由任课老师对本科的成绩进行录入。班主任对本班的成绩汇总。并进行排名，然后年级组长再进行汇总，并对本年级各科成绩及总成绩进行排名。（4） 教务处、年级组长、班主任及任课老师跟据实际情况对录入的成绩进行维护，各位同学对以上录入的信息可以跟据自己的需要进行适当的查询。3.4、学校具体需求分析学生：对各科成绩的查询及查看本班成绩排名与年级成绩排名情况。任课老师：输入并维护所教科目的学生成绩，计算本科的成绩排名、本科成绩在班上的排名。输出本班科目的成绩及排名情况。班主任：输入并维护本班的基本信息，对本班的各科成绩汇总，计算各科成绩的总分，排名，本班平均分等需求。输出学生的基本信息，各科的成绩及各科成绩的部分，各科成绩的排名，总分的排名情况。年级组长：对本年级学生基本情况的管理，对各班的成绩汇总，计算年级中各科成绩的排名，总成绩排名等需求。输出年级学生基本信息，各科成绩的年级排名，总成绩在年级中的排名。教务处： 学校全体成员的信息管理，对考试科目，时间及对所考科目的编号等进行具体的管理，并对任课老师，班主任等输入的信息进行存库，对学生的信息进行必要的维护。 3.5、系统设计思想采用现有的资源，先进的管理系统开发方案，充分利用学校现有的资源，减少开发中的时间和财力、物力、提高系统开发的水平和应用效果。系统就满足学校的需求，例如学生信息的录入、查询、更新等。学生录入与排名。系统就具备数据库维护功能，及时根据管理员需求进行数据添加、删除、修改等操作。3.5.1、系统功能分析本系统适用于中小学校，其功能主要分为六大类：管理员信息管理：用于对管理员的添加、删除、修改。班级信息管理：用于对各班的班级编号、班组名称、导员姓名、教室号进行添加、删除、修改。学籍信息管理：用于对每一个学生的基本信息进行添加、删除、修改和查询。课程信息管理：用于每一个班那一个学期的课程设置。成绩信息管理：用于管理学生的每一个学期每一门课的成绩管理。奖惩信息管理：用于记录每一个学期在校期间的奖惩情况。个人信息查询：用于查询学生个人基本信息。本系统性能力求易于使用，具体有较高的扩展性和可维护性。3.5.2、系统辅助功能分析权限功能：只要是本系统的管理人员都能对本系统进行相应修改及删除，修改、删除所有信息。 录入功能：为一般管理员提供相应的录入功能，为管理人员提供对所有信息的录入功能。 查询功能：为所有管理员提供查询的功能，可查询允许范围内的所有信息。 维护功能：为一般管理员提供查询及相应的修改，删除功能， 3.6、学生信息系统的目标3.6.1、节约资源，提高学生信息的精确度 本系统能减少很多不必要的资源，不用象以前那样用冗余的纸张式的管理。大节省了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率，并且还提高了 学籍信息管理的精确度。3.6.2、方便快速操作，合理分配人员，节约开支方便快速的操作，可减少学生信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为学校节约了开支。3.7、业务流程分析本系统从总体上分为管理员息、学籍信息管理、班级管理和成绩管理、课程信息、奖惩信息、个人基本信息，七大部分。每个模块有自己的作用。下面的各模块功能流图就是由各功能之间的关系而得出的。 3.7.1 学生信息管理系统DFD图，如下所示： 学生信息管理系统DFD图3.7.2管理员信息程图，如下所示：管理员信息流程图3.7.3班级信息流程图，如下所示：班级信息流程图3.7.4课程信息管理流程图，如下所示：课程信息管理流程图3.7.5 学籍信息管理流程图，如下所示：学籍信息流程图3.7.6 学生成绩管理流程图。如下所示：学生成绩管理流程图3.7.7 学生奖惩管理流程图学生奖惩管理流程图3.7.8学生基本信息浏览流程图，如下图所示：个人信息个人奖惩信息学生基本信息浏览流程图3.8、数据库概念设计 （1） 管理员信息管理员可以对管理员信息进行添加、修改、删除、浏览等操作。（2）班级信息管理员可以对班级信息进行添加、修改、删除、浏览等操作。（3）课程信息管理修改 管理员可以对班级的课程信息进行添加、修改、删除、浏览等操作。（4）学籍信息管理员可以对学生的学籍信息进行添加、修改、删除、浏览、查询等操作。（5）成绩信息管理员可以对学生的成绩信息进行添加、修改、删除、浏览、查询等操作。（6）奖惩信息管理员可以对学生在校期间奖惩信息进行添加、修改、删除、浏览、等操作。（7）学生基本信息管理员可以对学生在校期间奖惩信息进行浏览、查询等操作。3.8.1、综合以上ER模型，便可得到系统的ER模型，如下图：系统ER模型系统的ER模型分解：管理员E-R图班级信息E-R图课程信息E-R图学籍信息E-R图学生成绩E-R图学生奖惩信息E-R图3.9、数据库逻辑设计。user表模式分解：（用户名，密码）class_form表模式分解:(班级编号，班级，班主任，教室号)class_cour表模式分解(班级，课程名)prize_stud表模式分解：(学号，日期，奖惩名称)score_form表模式分解：(考试日期，学号，班级，考试课程，考试分数) student_form表模式分解：(学号，姓名，性别，出生日期，班级，联系电话，入学日期，家庭住址，备注) 3.10、数据库物理设计Microsoft SQL Access2003 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Microsoft Access2003 的优点在于它非常的可靠、质量好、易用、可伸缩性、简单的管理和调整（能自动运行管理和性能监测，提供了集中的数据库管理。）、灵活的和可扩展的数据转换（能够构建更加坚固的数据转换服务（DTS）软件包）、集成了可扩展的分析服务（提供了数据采集、为生成报表而设计了灵活的向上流动特性，实现单元级和成员安全的功能，还有写回原始大小的能力）。自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然，还提供了排序功能。Microsoft Access2003也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。如上所述， Microsoft Access2003 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 学生信息管理系统数据有六张表，具体设计如下：1、管理员数据表（user），字段字段名类型宽度小数位索引排序Nulls1用户名文本20否2密码文本20否2、班级信息数据表（class_form）字段字段名类型宽度小数位索引排序Nulls1班级编号文本10升序否2班级文本20否3班主任文本20否4教室号文本20否3、课程信息数据表（class_cour）字段字段名类型宽度小数位索引排序Nulls1班级文本10升序否2课程名文本20否4、学生基本信息数据表（student_form）字段字段名类型宽度小数位索引排序Nulls1学号文本10主键升序否2姓名文本20否3性别文本4否4出生日期D10否5班级文本20否6联系电话文本20否7入学日期D20否8家庭住址文本50否9备 注文本70否5、学生成绩数据表（score_form）字段字段名类型宽度小数位索引排序Nulls1考试日期D10升序否2学号文本20主键否3班级文本20否4考试课程文本20否5考试分数数字3否6、学生奖惩信息数据（Prize_stud）字段字段名类型宽度小数位索引排序Nulls1学号文本20主键否2奖惩日期D10否3奖惩名称文本20否3.11、数据库表的建立过程（1）、管理员数据表的建立过程： Create Table user (用户名char(20)，密码char(20)（2）、班级信息数据表建立过程：Create Table class_form (班级编号char(10) Null, 班级char(20), 班主任char(20), 教室号char(20)（3）、课程信息数据建立过程：Create Table class_cour (班级char(10), 课程char(20)（4）、学生基本信息数据表建立过程：Create Table student_form (学号char(10) primary key,姓名char(20),性别char(4),出生日期datetime (10),班级char(20),联系电话char(20),入学日期char(20),入学日期datetime(20),家庭住址char(50),备注 memo(50)（5）、学生成绩数据表建立过程：Create Table score_form (学号char(10) primary key, 考试日期datetime(10), 班级char(20), 考试课程char(20), 考试分数nnmeric(20)（6）、学生奖惩信息数据建立过程:Create Table Prize_stud (学号char(10) primary key, 奖惩日期datetiem(10), 奖惩名称char(20) 4 系统设计4.1总体设计4.1.1、处理流程：（1）.启动系统，激活登陆口令界面。（2）.通过验证后，对系统进行初始化。（3）.系统进入消息循环，通过事件驱动机制激活相应的功能模块，并执行相应的功能；（4）.通过关闭系统事件，激活关闭系统模块，退出系统。4.1.2、系统模块菜单：4.1.2.1、系统总体模块图， 如下所示：4.1.2.2系统管理模块图：提供管理员的添加、删除、修改信息。4.1.2.3班级信息管理模块图：对班级信息进行添加班级信息、修改班级信息、删除班级信。4.1.2.4学籍信息管理模块图:对学生的学籍信息添加学生信息、查询学生信息、删除学生信息、修改学生信息。4.1.2.5、成绩管理模块图：对学生的成绩信息进行添加成绩信息、查询成绩信息、删除成绩信息。4.1.2.6、课程信息管理模块图：添加课程信息、删除课程信息。4.1.2.7、奖惩信息管理模块图：用于记录每一个学期在校期间的奖惩情况。4.1.2.8个人信息查询：浏览学生的各项信息。4.2、学生信息管理系统所需完成具体的功能：4.2.1、登录模块：用户的添加管理员、删除、修改。系统启动后，将首先出现如下所示的用户登陆窗体，用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。流程图如下所示：4.2.2、班级信息管理模块： 输入班级、名称、班主任姓名，教室号并可以对班级信息进行添加、修改、删除。流程图如下所示： 4.2.3、课程信息管理模块：输入课程的基本信息，并可以对课程信息进行添加、修改、删除及课程设置。课程设置能够对各班级的课程进行分类。划分学期所学的课程。输出课程的基本信息、年级及学期中所要学的课程等。流程图如下所示：4.2.4、成绩信息管理模块：输入成绩信息，并可以对成绩信息进行添加、查询、修改、删除。还可以用关键字查询并调出数据库里的学生基本成绩信息的修改、删除等。输出查询的学生成绩信息。流程图如下所示：4.2.5、学籍信息管理模块：输入学籍信息，并可以对学籍信息进行添加、查询、修改、删除。主要是记录新生入学时的一些相关信息，还可以用关键字查询并调出数据库里的学生基本学籍信息的修改、删除等。输出查询的学生学籍信息。流程图如下所示：4.2.6、学生奖惩管理模块：该模块主要记录学在校期间的表现，什么时候受过什么奖励或是受到过学校的惩罚等详细记录，并可以对奖惩信息进行添加、查询、修改、删除。最后输出查询的学生奖惩信息。流程图如下所示：4.2.7、学生信息浏览模块：可以查询出学生的所有相关信息，只要输入学生学号，就可以从数据库里调出的学生信息，输出学生的学号、班级、姓名，考试的成绩，在校期间什么时候受过什么奖励或是受到过学校的惩罚等详细记录，流程图如下所示： 5 系统的实现5.1、登陆窗口：主要负责验证用户是否合法，如合法则创建主操作模块的的对象实例，进入如下的主操作界面方便用户操作。如下图所示：具体代码如下：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 MsgBox 三次输入登录密码不正确,系统将退出！, vbOKOnly + vbExclamation, 退出 Me.Hide End If Exit SubEnd Sub5.2主操作界面：主要综合的显示，常用操作，在主操作界面中接收到用户的信息不同，处理不同的信息，创建对应的窗体对象实例，用于综合管理各个功能模块。5.3学籍信息管理界面：输入学籍信息，并可以对学籍信息进行添加、查询、修改、删除。如下图所示:具体代码如下：Private Sub Command1_Click() Dim txtSQL As String For i = 0 To 7 If i 4 Then If Text1(i) = Label2(i).Caption Then MsgBox 请 & Label2(i).Caption & !, vbOKOnly, 提示 Text1(i).SetFocus Exit Sub End If Else If Text1(i) = Label2(i).Caption Then MsgBox 请 & Label2(i).Caption & !, vbOKOnly, 提示 Combo1.SetFocus Exit Sub End If End If Next If IsDate(Text1(3) = False Then MsgBox 出生日期应为日期格式(yyyy-mm-dd)!, vbOKOnly, 警告 Text1(3).SetFocus Exit Sub End If If IsDate(Text1(6) = False Then MsgBox 入学日期应为日期格式(yyyy-mm-dd)!, vbOKOnly, 警告 Text1(6).SetFocus Exit Sub End If txtSQL = select * from student_Form where student_NO= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 学号不能重复!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = select * from student_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Trim(Text1(2) mrc.Fields(3) = Trim(Text1(3) mrc.Fields(4) = Trim(Text1(4) mrc.Fields(5) = Trim(Text1(5) mrc.Fields(6) = Trim(Text1(6) mrc.Fields(7) = Trim(Text1(7) If Text1(8) = Label2(8).Caption Then mrc.Fields(8) = Else mrc.Fields(8) = Trim(Text1(8) End If mrc.Update mrc.Close MsgBox 学籍信息添加成功!, vbOKOnly, 提示 End Sub5.4学生信息浏览介面：可以查询出学生的所有相关信息，只要输入学生学号，就可以从数据库里调出的学生信息，输出学生的学号、班级、姓名，考试的成绩，在校期间什么时候受过什么奖励或是受到过学校的惩罚等详细记录，如下图所示：具体代码如下：rivate Sub Text1_Change(Index As Integer) If Index = 0 Then txtSQL = select * from student_Form where student_NO= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then For i = 1 To 6 Text1(i) = mrc.Fields(i) Next Else For i = 1 To 6 Text1(i) = Next End If mrc.Close txtSQL = select * from prize_Stud where prize_Stu= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not mrc.EOF .Rows = .Rows + 1 For i = 0 To mrc.Fields.Count - 1 Select Case mrc.Fields(i).Type Case adDBDate .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i) & , yyyy-mm-dd) Case Else .TextMatrix(.Rows - 1, i) = mrc.Fields(i) & End Select Next i mrc.MoveNext Loop End With mrc.Close MSFlexGrid1.Visible = True Else MSFlexGrid1.Visible = False With MSFlexGrid1 .Clear .Cols = 4 .ColWidth(0) = 0 .ColWidth(1) = 0 .ColWidth(2) = 1700 .ColWidth(3) = 1700 .TextMatrix(0, 2) = 奖惩日期 .TextMatrix(0, 3) = 奖惩名称 .Rows = 1 End With End If txtSQL = select * from score_Form where score_Stu= & Trim(Text1(0) & Set mrc = Ex