学生信息管理系统 毕业论文.docx

山东大学高等教育自学考试本科毕业论文（设计）课 题 名 称 学生信息管理系统 姓 名 专 业 计算机及应用 准 考 证 号 016811500415 指 导 教 师 2014 年 3 月 11 日学生信息管理系统摘要：随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。本文介绍了在Visual Basic 6.0 环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一学校学生管理的不足，创建了一套行之有效的计算机管理学生方案。文章介绍了学生管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个模块的算法。本系统界面友好，操作简单，比较实用。【关键字】：学生管理系统、信息管理系统、Visual Basic 应用。毕业设计论文外文摘要学生信息管理系统Abstract：With more and more widespread and profound application of information technology in management，then implement of management information system has become mature in technology step by step。Managing information system is a new subject.Enterprise needs existence and development ,so enterprise activities should be organized efficiently and organically ,which means tightening up the enterprise management and strengthening effective management of any resource (staff ,finance,property,etc.)internal the enterprise ,and also establishing a management information system fitting in with its own characteristics. This article introduces the detail process of exploring a management information system under the environment of visual foxpro ,utilizing “Top-Bottom”overall plan and a strategy according to “Bottom-Top”application and exploitation .That is establish a set of effective scheme for student management by computer ,through analyzing disadvantages of student management by human resources .This article emphasizes on three sections .The system analysis section of student management information includes feasible section of student management information includes feasible analysis ,management function analysis .The system design section mainly fouses on system function design and data base design and data number design .And the system realization section has provided several major function ,together with the main windows and programs .This economical and pragmatic system has explicit interface with simple operation .【Keywords】：MIS 、student managenment 、visual Basic application 目录1 绪论41.1 背景51.2现有系统存在问题分析61.3 系统开发目标与意义61.3.1 系统开发的目标61.3.2 系统开发的意义72 可行性分析72.1 经济可行性分析72.2 技术可行性分析72.3 法律可行性分析82.4 操作可行性分析83 战略规划 84 开发工具的简介84.1 Visual Basic 6.0简介84.2 ACCESS 数据库简介115 系统的总体设计115.1 系统结构分析115.2 系统数据流程图116 系统的详细设计116.1 系统程序流程分析126.2 数据库设计126.3 系统E-R图126.4 系统登录的详细设计136.4.1 系统的登录窗体136.4.2 学生信息管理系统主界面166.4.3 用户权限修改窗体196.4.4 学生信息查询窗体226.4.5 添加学生信息窗体236.4.6 班级信息查询窗体306.4.7成绩信息修改窗体326.4.8 教师信息查询窗体35全文总结39致谢39参考文献401、绪论信息管理系统（MIS）的概念是1961年美国人J.D.GALLAGHER首先提出来的，是一门新兴的、集管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是企业中信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行现代化管理。信息管理系统具备数据处理、计划、控制、预测和辅助决策功能，用统一标准处理和提供信息，排除使用前后矛盾的不完整的数据。完整及时提供在管理及决策中需要的数据。向各级管理机构提供不同详细程度的报告，缩短分析和解释时间。用最低的费用最短的时间提供尽可能精确、可靠的信息。学生信息管理系统是用于学校内部管理学生基本信息的一个不可缺少的部分，它的功能对于校内学生信息管理部门和管理者，组织和管理学生信息至关重要，所以学生信息管理系统应该能为管理者提供有效和快捷的管理方式。一直以来学校内部使用传统的人工录入学生信息的管理方式，这种方式存在着许多缺点，如：效率低，不准确，而且时间长了，对于查询、更新和维护这些学生信息都带来一定的困难。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已被人们深刻认识，它已经进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对学生信息进行管理，具有手工管理所无法比拟的优点。例如：检索迅速，查找方便，可靠性高，存储量大，保密性好，寿命长，成本低等。这些优点能够极大的提高学生信息管理部门的工作效率，也是校园的科学化、正规化管理信息，与时代接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情。系统设计采用功能模块化设计，结合当前的数据库技术，使得管理系统虽然功能强大，但操作并不复杂，这正迎合了软件发展的需要，即简单易用。使得信息管理者从以前的繁忙的工作中解脱出来，轻松完成学生信息的管理。本毕业论文是以学校学生管理信息系统开发为背景，论述了管理信息系统的概念、结构及系统开发的基本原理和方法，全文共分为绪论、系统分析、概要设计、详细设计、系统实现、开发总结、致谢、参考文献等。1.1 背景随着计算机技术的发展，特别是计算机网络技术与数据库技术的发展，使人们的生活与工作方式发生了很大的改观。网络技术的应用使得计算机之间通信、信息共享成为可能，而数据库技术的应用则为人们提供了数据存储、信息检索、信息分析等功能，从而使得工作更高效的进行。在我国，教育是一个影响着国富民强的重要行业，随着改革开放和市场经济的发展，根据中国特有的国情发展，教育得到了国家的大力支持与社会各界的高度重视，从而使得教育业向规范性与现代化的方向高速发展，但是同发达国家相比，我国的教育行业的信息技术的应用程度还很低，只有在大城市中发展较早，规模较大的院校中才使用计算机进行大规模的操作，从各方面提高工作效率，取得良好的社会和经济效益，而一些新兴的、规模较小的教育机构还没有全部具备这种功能。因此可见，随着我国教育的迅速发展，信息技术在其上的应用会更加地广泛和深入。1.2 现有系统存在问题的分析在我国，各大中小学校的各类信息管理系统并非一个新的课题，但也有的学校根本就没有任何信息管理系统，所有的工作几乎还是手工操作来完成。计算机技术在日新月异的发展，但是有很多学校，特别是在西部贫困地区，学校的种类管理都依然由手工操作来完成，这十分落后，效率极低，成本很大，而且极易出错。随着社会的发展，信息化是社会进程的必然趋势，学校管理只有快、准、精才能发挥其价值。所以机器代替人力是必然的历史发展趋势，只有领导的重视和支持才能从人工操作改为计算机的自动化系统。人工操作必将被计算机代替。有些学校虽使用了计算机，甚至管理系统，但是仍然存在很多问题，问题一日不解决，效率就一日提不上去。还有，有的系统很不完善到处是漏洞，可以说是千疮百孔，这样极不完善的系统对管理来说是没有任何保障的。1.3 系统开发目标与意义1.3.1系统开发目标本系统是将现代化的计算机技术和传统的教学、教务工作相结合，按照学院的工作流程设计完成的。为了使系统在学院的管理中发挥更大的作用，实现工作过程的计算机化，提高工作效率和工作质量，现提出如下的系统开发目标： a.系统应具有实用性、可靠性和适用性，同时注意到先进性。 b.对各个数据库进行动态管理，防止混乱。 c.能够按照用户选择的不同的条件进行简单查询和复合查询。 d.能够对查询结果进行分类汇总，实现报表打印。 e.注意数据的安全性，具有数据备份和恢复的功能。 f.方便用户的操作，尽量减少用户的操作。1.3.2 系统开发的意义学生信息管理是学校管理中异常重要的一个环节，作为学校，除了育人，就是育知，学生信息管理的计算机化是整个学校教务管理中的重要一部分，能否实现这一步关系到学校办学整体效率的高低，介与它的重要性，学生信息管理系统的开发与应用就逐渐提入议程，并占着越来越重要的份量。运用学生信息管理系统可以减轻学院教学人员的工作量，缩小开支，提高工作效率与准确率，能够合理安排时间，能够尽快的知道自己的考试成绩，投入新的课程的学习或复习这次没有考过的课程。而学生信息管理系统的应用也为今天的民办教育在未来市场的竞争力有所提高。从大的方向说，就是为了加速我国四化建设的发展，实现全部的自动化，使我国发展成为通讯网络化，决策科学化，办公自动化的国家。在现代，高科技的飞跃发展，人们工作习惯的改变，特别是电脑的大量普及，人们生活节奏越来越快，怎样提高工作效率是人们首先考虑的问题。学生信息管理是一个非常繁琐与复杂的一项工作，一个原因就是工作量大，不好管。对于一个学校而言，更应该运用一些本地资源，提高管理的力度，对学生负责，对国家负责。2、可行性分析 2.1 经济可行性分析 经济可行性分析中最重要的内容之一是成本效益分析。对于一个基于计算机系统的研制项目要在经济方面评价其是否合理，成本效益分析要估计出系统研制开发的花销与收益（包括有形的可以用货币计数的以及无形的利益）衡量比较。作为毕业设计，我们所收到的效益，应该说是收益终生，而花费则寥寥无几，因为学校提供实验室。 2.2技术可行性分析硬件平台主要包括计算机、通讯设备、外部设备、辅助设备等功能、效率、可靠性等方面的能力、质量是否满足建设的要求。学生信息管理系统对网络环境和计算机要求不高，商场中一般的计算机、通讯设备都能满足。软件平台主要包括系统软件和应用软件。现有的系统软件和应用软件都能满足小型的学生信息管理系统。技术人员在IT技术普及的今天，对拥有技术的人力资源和大量的技术培训机构而言满足小型学生信在IT技术普及的今天，对拥有技术的人力资源和大量的技术培训机构而言满足小型学生信。 2.3法律可行性分析法律可行性是考虑要开发系统是否存在任何侵犯、妨碍和责任问题，用户操作可行性考虑待开发软件的运行方式在用户组织内是否行得通，现行管理制度、人员素质、操作知识是否可行。作为毕业设计所需要的仅仅是人员素质和操作知识的要求。2.4操作可行性 操作可行性主要是指用户使用的舒适性，因此界面设计时要充分考虑管理人员的习惯，使得操作简单便宜；数据录入迅速、规范、可靠；统计准确，制表灵活，适应力强，容易扩展。具有易用性、灵活性、开放性与可视性等，这些可以实现。 由于以上经济、技术、法律、操作四方面的分析可以看出，本系统的开发时机成熟，从多种角度考虑，都是可行的，采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采用统一的数据信息，使相关资料能够快速的查询所需的数据、资料及其他信息，使信息快速高效运行。3、战略规划 实现目标的战略： <1>.通过改善数据的提供方式提高管理者的决策能力。 <2>.通过改善数据的提供方式提高管理者的决策能力。 <3>.通过网络渠道为学生提供更多的及时的服务。4、开发工具的简介 4.1 Visual Basic 6.0 简介 Visual Basic 6.0 是Microsoft公司开发的面向对象程序设计平台，它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。 总的来说，Visual Basic具有以下特点： 可视化编程 用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。 面向对象的程序设计 4.0以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。 结构化程序设计语言 Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。 Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。 事件驱动编程机制 Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。 在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。 访问数据库 Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。 Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。 动态数据交换（DDE） 利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。 对象的链接与嵌入（OLE） 对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。 动态链接库（DLL） Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。4.2 ACCESS数据库的简介Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软Office的一个成员，在包括专业版和更高版本里被单独出售。MS ACCESS以它自己的格式将数据存储在基于Access Jet的数据库引擎里。它还可以直接导入或者链接数据(这些数据存储在其他应用程序和数据库)。5、系统总体设计系统结构分析系统特色：功能的实现具有人性化、科学性、先进性和实用性；操作上简单、方便、明了；可靠性好且可维护性好。系统的结构功能模块，见图5.1学生信息管理系统用户学生信息课程班级及专业成绩教师宿舍6.系统的详细设计6.1、系统程序流程分析系统程序流程：对于管理信息系统，需要入口管理，即用户登录管理。判断密码是否正确输入用户名和密码退出登录并进行查看修改等操作结束开始6.2、数据库设计数据库设计的好坏，直接关系到系统能否有效地存储和管理数据。当然并不是说，没有冗余的数据库就是好的数据库，数据的冗余还要看我们的数据表能否尽可能的独立、安全。即数据冗余尽量小，数据表尽量相对独立、安全。根据用户的需求设计数据库，必须尽可能的罗列出系统中所需的实体以及实体的属性等，根据系统的数据流程图，得到所需的实体。本综合作业中遇到的实体有：班级及专业、课程、教师、宿舍、学生、成绩等。班级及专业的属性：班号、班级名称、专业号、专业名称、所属院系 教师；教师编号、姓名、性别、职称、电话 课程：课号、学分、课程名称、属性 宿舍：宿舍号、宿舍电话、宿舍人数 学生：姓名、学号、性别、准考证号、籍贯、专业、身份证号、班号、班级、宿舍号、政治面貌、民族成绩：姓名、学号、准考证号、班级、课程名、成绩6.3、系统E-R图班级课程学生宿舍成绩教师上课教学考试住宿属于6.4、系统登录的详细设计 （1）系统的登入窗体系统首页是很重要的，用户打开网站首先进入登录界面，所以界面一定要简洁、直观，操作简单。整体界面设计美观，布局合理，采用校园一角作为背景图片，从视觉效果上给人一种清新舒畅的感觉。系统登录用户分系统管理员与普通用户，选择管理员用户登录，正确的输入用户名admin及密码123点击确定即可进入系统，登录界面的程序说明如表6-4-1所示，页面的处理程序说明如表6-4-2所示：任何企业的管理信息系统，安全与可靠是极为重要的，通常开机后都有一个系统登录界面，验证用户的身份合法后才能进入系统，以确保系统的安全。在本系统中，系统设计了登录窗口让授权用户输入用户名、密码，只有系统登入检查通过的用户可以使用该系统授权的功能。图6-4-1是设计的登录窗口。代码如下： Private Sub Command1_Click() Static interr As Integer '静态变量累加出错次数 adouser.Refresh '刷新记录集(关键语句) Set rs = adouser.Recordset '设置记录集变量 '检查用户名(利用记录集的Find方法，不区分大小写) rs.Find "用户名='" & Text1.Text & "'" If Not rs.EOF Then '若用户名正确 '检查密码 If rs("密码") = Text2.Text Then '若密码正确gstruser = Text1.Text '存用户名If rs("权限") = "管理员" Then '存用户权限gblnpurview = True Else gblnpurview = False End If frmmain.Show '显示主窗体 Unload Me '卸载本窗体 Else interr = interr + 1 '若密码错误 If interr = 3 Then '错误数+1 Set rs = Nothing '若出错3次，退出系统 Unload Me Else '若出错不足3次，重新输入 MsgBox "密码输入错误，请重新输入！", vbExclamation With Text2 '焦点返回密码框 .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With End If End If Else '若用户名错误 interr = interr + 1 '错误数+1 If interr = 3 Then '若出错3次，退出系统 Set rs = Nothing Unload Me Else '若出错不足3次，重新输入 MsgBox "用户名输入错误，请重新输入！", vbExclamation With Text1 '焦点返回用户框 .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With End If End IfEnd Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Command1.Default = True '"确定"按钮为回车键缺省按钮 Dim sql As String sql = "select * from 用户" 'SQL语句用于创建动态记录集 adouser.RecordSource = sql '设置记录源为动态记录集End Sub（2）学生信息管理系统的主界面 输入用户名和密码之后进入学生信息管理系统界面，之后可以对各个表进行操作，登录系统后的界面如下图6-4-2代码如下： Private Sub A1_Click() stusearch.ShowMe.HideEnd Sub Private Sub A2_Click() alterstu.Show Me.Hide End Sub Private Sub B1_Click() kechengchaxun.Show Me.Hide End Sub Private Sub B2_Click() kecheng.Show Me.Hide End Sub Private Sub C1_Click() gradesearch.Show Me.Hide End Sub Private Sub C2_Click() chengjixiugai.Show Me.Hide End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub D1_Click() jiaoshichaxun.Show Me.Hide End Sub Private Sub D2_Click() jiaoshi.Show Me.Hide End Sub Private Sub E1_Click() adduser.Show Me.Hide End Sub Private Sub E2_Click() alteruser.Show Me.Hide End Sub Private Sub E3_Click() denglu.Show Me.Hide End Sub Private Sub E4_Click() Unload Me End Sub Private Sub F1_Click() banjichaxun.Show Me.Hide End Sub Private Sub F2_Click() banjixiugai.Show Me.HideEnd Sub（3）用户权限修改窗体 对用户的修改如图6-4-3，管理员既可以修改用户权限，也可以对相应的用户进行密码的修改。而普通用户则不可以。经常定期的对系统进行密码的修改，有助于增强系统内资料的安全性，防止了系统信息的泄漏。代码如下： Dim Mrc As ADODB.Recordset Dim strsql As String Private Sub Combo1_DropDown() '找出所有班级Combo1.Clear Set Mrc = New ADODB.Recordset strsql = "select distinct 用户名 from 用户" Set Mrc = ExecuteSQL(strsql) If Mrc.EOF = False Then Mrc.MoveFirst Do While Not Mrc.EOF Combo1.AddItem Mrc.Fields(0) Mrc.MoveNext Loop End If End Sub Private Sub Command1_Click() If Option1.Value Then Adodc1.Recordset("权限") = Option1.Caption End If If Option2.Value Then Adodc1.Recordset("权限") = Option2.Caption End If End Sub Private Sub Command2_Click() Dim cmd As New ADODB.Command cmd.ActiveConnection = Adodc1.ConnectionStringcmd.CommandText = "update 用户 set 密码='" & Text1.Text & "' where 用户名 ='" & Combo1.Text & "'" cmd.Execute If Adodc1.Recordset.State = 1 Then Adodc1.Recordset.Close Adodc1.Recordset.CursorLocation = adUseClient Adodc1.Recordset.Open cmd, , , adLockReadOnly Adodc1.Refresh Me.Refresh Combo1.Text = "" Text1.Text = "" End Sub Private Sub Command3_Click() Dim ResponseResultResponseResult = MsgBox("确定退出吗？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") If ResponseResult = vbYes Then Cancel = 0 Me.Hide frmmain.Show End Sub Private Sub Command4_Click() If UCase$(Adodc1.Recordset("用户名") = "ADMIN" Then MsgBox "不能删除“admin”用户。", vbExclamation, "提示" Exit Sub End If Dim intrsp As Integer Dim strqst As String strqst = "删除用户“" & Adodc1.Recordset("用户名") & "”吗？" intrsp = MsgBox(strqst, vbQuestion + vbYesNo, "询问") If intrsp = vbYes Then Adodc1.Recordset.Delete End If End Sub Private Sub Form_Unload(Cancel As Integer) Dim ResponseResultResponseResult = MsgBox("确定退出吗？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") If ResponseResult = vbYes Then Cancel = 0 frmmain.Show End Sub（4）学生信息