《毕业设计学生信息档案管理系统.doc》由会员分享，可在线阅读，更多相关《毕业设计学生信息档案管理系统.doc（57页珍藏版）》请在三一办公上搜索。
1、计算机专业毕业设计学生信息档案管理系统【摘 要】 随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。 本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一学校学生管理的不足，创建了一套行之有效的计算机管理学生的方案。文章介绍了学生管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及
2、代码设计；系统实现部分说明了几个主要模块的算法，并附带了一些主要的窗口和程序。本系统界面友好，操作简单，比较实用。系统主要能完成的功能有：班级管理、学生成绩管理、学生交费管理、课程管理、成绩管理、打印报表、系统管理等功能。【关键字】管理信息系统、学生管理、Visual Basic应用。【Summary】With more and more widespread and profound application of information technology in management, the implement of management information system has b
3、ecome 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 a
4、ny 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 detailed process of exploring a management information system under the environment of visual foxpro, utiliz
5、ing “Top-Bottom” overall plan and a strategy according to “Bottom-Top” application and exploitation. That is to 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.
6、 The system analysis section of student management information includes feasible analysis, management function analysis.The system design section mainly focuses on system function design and data base design and data number design. And the system realization section has provided several major functi
7、on , together with the main windows and programs.This economical and pragmatic system has explicit interface, with simple operation. The function that system mainly can complete have:The class management, student the result management, student hands over the fee management, course management, result
8、 management and prints the functions, such as statement and the system management etc.Keywords MIS、student management、visual basic application目 录第一章系统概述61.1 系统及需求分析61.1.1 系统需求61.1.2可行性分析61.2系统设计的背景91.3系统的功能简介101.3.1 项目规划101.3.2系统管理模块(CTRL+O)10133班级管理模块（CTRL+P）：10134学生档案管理模块（CTRL+T）：10135课程管理模块（CTRL+
9、R）：10136成绩管理模块（CTRL+F）：101.4系统开发的目标11第二章 系统分析122.1业务流程分析122.1.1班级管理业务流程图：12212档案管理业务流程图：12213课程管理业务流程图：12214成绩管理业务流程图：122.2数据流程分析：132.2.1数据流程图：132.3数据存储分析：实体联系图142.4系统逻辑模型的提出152.4.1数据流图（简称为DFD）15242数据字典（简称为DD）172.5功能分析：功能层次图18第三章系统设计203.1软件模块结构设计20311系统方案确定。20312软件结构设计。2032数据库设计20321本系统中所涉及到的主要实体共有九
10、个数据表：21322各表的物理结构如下：21第四章、系统的实现：2541系统登陆界面：2542系统主界面：2743用户管理模块：3744学生缴费管理模块：42第五章、系统的实施5251系统开发环境：525.2系统测试：525.3 系统运行与维护：5554系统的转换方案：56第六章 结束语56【参考文献】：57第一章系统概述本学生档案管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生缴费管理系统等多种功能，因而具有较强的实用性和先进性。1.1 系统及需求分析 1.1.1 系统需求 通过调查,要求系统需要有以下功能: 由于操作人员的计
11、算机知识普遍较差,要求有良好的人机界面; 由于该系统的使用对象多,要求有较好的权限管理; 原始数据修改简单方便,支持多条件修改 方便的数据查询，支持多条件查询; 在相应的权限下，删除数据方便简单，数据稳定性好； 数据计算自动完成，尽量减少人工干预;1.1.2可行性分析由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现
12、。本系统的设计是在Windows 98中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：Visual Basic语言Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开
13、发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：1、可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。
14、有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2、面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程
15、序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。3、结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动
16、进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。4、事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件
17、，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。5、访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，F
18、oxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。6、动态数据交换(DDE)利用动态数据交换(Dynami
19、c Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。7、对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microso
20、ft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。8、动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外
21、，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。1.2系统设计的背景在现今众多的学生管理系统中，最为常见的是学生学籍管理系统和学生课程成绩管理系统。这是对我国现今大多学校对学生管理的需要而开发设计的，但随着学校的发展，这种各自独立的系统远远不能满足学校管理的需要。1.3系统的功能简介本系统主要可以实现以下的管理功能：班级管理、学生档案管理、学生交费管理、课程管理、成绩管理等等。1.3.1 项目规划学生档案管理系统是一个典型的数据库应用程序,由班级管理、学生档案管理、学生交费管理、课程管理、成绩管理等模块组成,特规划如下:1.3.2系统管理模块(CT
22、RL+O)该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户(快捷键：CTRL+A)、修改密码(快捷键：CTRL+B)、重新登录(快捷键：CTRL+F1)等等。133班级管理模块（CTRL+P）：该模块的功能是实现对全校班级的管理工作，包括：班级游览、班级添加、班级查询等，这三个功能模块各自独立，完成学校的全部班级的管理。134学生档案管理模块（CTRL+T）：该模块的主要功能是实现对学生的个人信息的管理工作，包括档案添加、档案浏览、档案查询等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。135课程管理模块（CTRL+R）：该模块对各个班级的课程进行设置，并可在其中设
23、置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设计和班级课程设置两个模块。136成绩管理模块（CTRL+F）：学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括考试类型设置，共有期中考试和期未考试两种类型，还设置了成绩添加、成绩游览、成绩查询等功能模块。1.4系统开发的目标出于本系统是学校学生管理的一个综合性的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。第二章 系统分析2.1业务流程分析2.1.1班级管理业务流程图：教务处输入计算机班主任教务处学生班级班级输出212档案管理业务流程图：教务处输入计算机班
24、主任教务处学生档案档案输出213课程管理业务流程图：教务处输入计算机教师教务处学生课程输出课程214成绩管理业务流程图：教务处输入计算机教师教务处学生成绩教师输出教务处输入计算机班主任教务处学生班级班级输出2.2数据流程分析：2.2.1数据流程图：由于本系统的数据模块较多，下面仅以学生成绩管理模块为例来进行编制。学籍管理部门教师学生成绩管理系统教务处学生教师教师学生情况学生成绩查询统计分析学生成绩管理系统0层数据流程图管理部门教务处教师1.0学生管理2.0课程管理3.0成绩管理4.0统计分析D1学生D2课程D3成绩查询者管理者学生成绩管理系统1层数据流程图2.3数据存储分析：实体联系图1、数据
25、模型设计。首先来做出学生成绩管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。学生课程成绩学习mn2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在二者的联系“学习”边。因为成绩既不是学生独有的，也不是课程独有的；“学生甲70分”或“英语70分”是不完全的，说“学生甲英语
26、70分”才是正确的，因为70分是学生甲和英语课二者共有的。这个E-R图可画成下图。学生成绩管理系统中学生与课程的E-R图教师与课程这两个实体之间，是一对多联系；一位教师可以都多门课程，而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教，但对某个固定的学生来说只能有一位教师)。其E-R图，如下所示。n教师课程教学l教师与课程的E-R图学生课程教师学习学习课程学生教师实体模型数据模型数据库组合到一起，得到最后的E-R图，有了E-R图，就可以设计数据库。下图为数据模型图。lnmm学习2.4 2.4系统逻辑模型的提出系统分析的主要成果是系统的逻辑模型。本系统的逻辑模型主要是以系统的数
27、据流图和数据字典为主要描述工具。即在对学生成绩管理方式和业务流程进行认真分析和研究的基础上，排除现有组织机构和业务分工所造成的信息障碍。完全从业务管理功能和管理对象出发，按照信息系统中应有的数据流和数据结构来勾画系统的概貌。2.4.1数据流图（简称为DFD）数据流图是组织中信息运动的抽象。是在调研的基础上，从系统的科学性、管理的合理性、实际运动的可行性角度出发。将信息处理功能和彼此之间的联系自顶向下，逐层分解，从逻辑上精确地描述系统应具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向（外部实体）等项目。首先，分析学生档案管理的总体情况，划分系统边界，识别系统的数据来源和去处，确定
28、外部实体，得出系统的顶层数据流程图；然后划分出几个主要的信息管理功能，并明确各功能之间的联系，绘制出数据流程图。数据流程图的符号说明如图23所示。学生档案管理系统的顶层数据流程图如图24所示。学生档案管理系统的数据流程图如图25所示 外部实体 处理 数据流 数据存储 图23 数据流程图的符号学生简明情况P学生档案处理 用户 校领导学生档案报表D1 图24 学生档案处理的顶层数据流程图F1打印学生名单录入课程、班级等信息P1 1221学生情况手工报表D1F2P2 1221填写学生情况D2已填好的学生情况F3P3学生档案处理D3学生档案报表F4 图25 系统数据流程图其中P表示数据处理，F表示数据
29、流，D表示数据存储。242数据字典（简称为DD）绘制DFD,只是对数据处理和彼此之间的联系进行了说明。为进一步明确数据的详细内容和数据加工过程,应将数据流图中的全部数据流及其组成部分的数据元素，数据存储，数据加工，通过数据字典描述清楚,以便于此后系统设计的进行。这就需要开发人员编写详细的数据字典,来描述系统开发过程的细节。下面列出本系统中的数据项、数据流、数据存储、加工处理和数据结构的数据字典。1、数据项的DD表列举如下：表21 学生号码的数据字典 数 据 项系统名：学生档案管理系统 编号：I002 名称：学生姓名 别名：姓名 数据项值： 类型：字符型 长度：8个字节 取值范围：简述：每个学生
30、都有唯一的一个姓名，也就是每个学号都对应一个学生名字,但不同的学号的姓名可以相同,也就是说学生号码和姓名是多对一的关系,这是考虑到重名的原因.修改记录：编写日期审核日期 数 据 项系统名：学生档案管理系统 编号：I001 名称：学生号码 别名： 数据项值： 类型：字符型 长度：8个字节 取值范围：简述：为了便于填写分数单及录入分数，每个学生都具有唯一的编号，它是某个学生的唯一标识符，每个学生都有唯一的学号，如“011976”通常用前两位数字表示入学的年份，中间两位表示班级，最后两位表示该学生在该班的序号。如果该班学生数超过100人时，可用“0119A0”表示第100个学生。修改记录：编写日期审
31、核日期表2-2姓名的数据字典其它数据项的数据字典略. 2.5功能分析：功能层次图学生档案管理系统登录系统管理班级管理学生档案管理课程管理成绩管理打印报表添加用户修改密码重新登录班级浏览添加班级班级查询档案添加档案浏览档案查询基本课程设置班级课程设置基本学费设置学生缴费浏览学生缴费添加学生缴费查询第三章系统设计3.1软件模块结构设计311系统方案确定。通过对系统的调研与分析，系统主要应完成的功能如下：班级管理、学生成绩管理、学生交费管理、课程管理、成绩管理、打印报表、系统管理等功能。312软件结构设计。本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询
32、或浏览等操作；总体来说，本系统属于一个事务型管理系统。接受数据处理中心班级管理档案管理交费管理课程管理成绩管理打印报表32数据库设计数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程
33、序的平滑扩展提供了非常有力的条件。 321本系统中所涉及到的主要实体共有九个数据表：allkecheng表：课程名称，教材cj表：学号，学期，类型，课程名称，分数class表：年级，班级，教室，年制，专业，班主任，备注classkecheng表：年级，专业，年制，学期，课程名称jf表：学号，学期，交费，欠费，日期，操作员kaoshilixing表：类型use表：username,password,admin,readonly,qx1,qx2,qx3,qx4xj表：学号，姓名，性别，班级，出生年月，家庭住址，邮政编码，联系电话，入学时间，备注suefei表：年级，专业，年制，学期，学费322各表
34、的物理结构如下：allkecheng表：字段名称类型宽度小数位课程名称文本20教材文本30Cj表：字段名称类型宽度小数位学号文本10学期文本50类型文本16课程名称文本20分数单精度型数字自动Class表：字段名称类型宽度小数位年级文本16班级文本20教室文本5年制文本8专业文本16班主任文本8备注备注Classkecheng表：字段名称类型宽度小数位年级文本16专业文本12年制文本8学期文本50课程名称文本20Jf表：字段名称类型宽度小数位学号文本5学期文本50交费货币自动欠费货币自动日期日期/时间操作员文本10Kaosilixing表：字段名称类型宽度小数位类型文本10Use表：字段名称类
35、型宽度小数位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2xj表：字段名称类型宽度小数位学号文本9姓名文本8性别文本2班级文本10出生年月日期/时间家庭住址文本30邮政编码数字（长整型）联系电话数字（长整型）入学时间日期/时间备注备注xuefei表：字段名称类型宽度小数位年级文本16专业文本50年制文本20学期文本40学费货币自动23各表的联系：第四章、系统的实现：本部分主要内容为本系统的运行界面以及主要界面的源代码。41系统登陆界面：本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在U
36、SE表中，本系统根据不同的用户而设置了不同的权限，可以用909;909为用户名和密码来登陆本系统。Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = select username from use where username= & Trim(Text1.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox 用户名错误！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Text1.SelStart =
37、 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd Ifusername = mrc.Fields(0)txtsql2 = select username from use where password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql2)If mrc.EOF = True Then MsgBox 密码错误！, vbExclamation + vbOKOnly, 警告 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Te
38、xt2.Text) Exit SubEnd Iftxtsql = select username from use where username= & Trim(Text1.Text) & and password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox 用户名称和密码不匹配！, vbExclamation + vbOKOnly, 警告 Exit SubEnd IfMDIForm1.Showfrmcpass.Text1.Text = Text1.TextUnload MeEn
39、d SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1.SetFocusEnd IfEnd Sub42系统主界面：本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有6个功能菜单和19个子菜单（功能
40、模块），从而实现了本系统从班级管理、档案管理、缴费管理、课程管理、成绩管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。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 IntegerDim liul
41、an1 As IntegerPrivate Sub add_Click()qxstr = Executeqx(2)If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系！, vbInformation + vbOKOnly, 警告) Exit SubEnd If Form1.Show modi = False Form1.ZOrder (0)End SubPrivate Sub cjadd_Click()fenshumodi = Falseqxstr = Executeqx(4)If qxstr
42、 = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系！, vbInformation + vbOKOnly, 警告) Exit SubEnd Iffrmcj2.Showfrmcj2.ZOrder 0End SubPrivate Sub cjbrowse_Click()qxstr = Executeqx(4)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系！, vbInformation + vbOKOnly, 警告) Exit SubEnd Iffrmcj1.Showfrmcj1.ZOrder 0End SubPrivate Sub claasfind_Click()qxstr = Executeqx(2)If qxstr = false Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系！, vbInformation + vbOKOnly, 警告) Exit SubEnd If Form4.Show Form4.ZOrder (0) i = SetWind
