毕业设计（论文）-VB6.0学生成绩管理系统.doc

学校代码：12904学 号：0804109130中图分类： 密 级：无吉林农业工程职业技术学院毕 业 论 文学生成绩管理系统学生姓名：指导教师：所在学院（系）：信息工程系学科专业：计算机信息管理吉林农业工程职业技术学院中国四平2011年5月学生成绩管理系统摘 要对于一所学校来说，如何利用计算机改变每次考试结束后老师们统计大量的学生成绩时的繁重任务？如何消除因时间紧所产生的统计结果错误百出？设计出学生成绩管理系统就是一个很好的解决方法。本文通过用VB面向对象的编程环境编写学生成绩管理系统，利用软件工程原理，采用生命周期方法学，根据3NF的关系模式设计数据库表，用模块化设计方式将系统的各个功能模块层层分解，设计出系统的模块化结构，并根据系统的具体要求和需要实现的功能，详细地定义了各个模块的具体功能。 开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，实现了学生成绩数据库的创建及学生成绩的输入、浏览、维护和统计，使得系统具有功能强大，界面友好的特点。在设计学生成绩管理系统过程中，得到了各位老师的指导，在此表示感谢。由于本人水平有限，程序中不足之处在所难免，敬请各位老师批评指正。关键字： 成绩管理，软件工程，vb6.0Abstract In will it be information age now, quickening , life of speed, make people more and more to informationize , is it develop to digitize, the management information system (MIS ) is a collection , transmission , system stored , processed , maintained and used that be able to carry on information made up of person , computer ,etc., can replace a large amount of , miscellaneous and done by hand of the past . To a school, How utilize computer change each examination teacher count a large number of student strenuous task at the score? How dispel because time full of mistakes statistics produced closely? Designing students achievement administrative system is a very good solution. This text, through writing students achievement administrative system with vb target -oriented programming environment, Utilize the soft project principle, adopt the cycle method of the life to study , design the database form according to the relation mode of 3NF, resolve each systematic function module ring upon ring with module design, design systematic module structure, and according to concrete to demand and function that need realize of system, have defined the concrete function of each module in detail . Develop two respects of main development including setting-up and maintenance and front application program of backstage supporters database , have realized the establishment of students achievement database and introduction of students achievement, had a look around, maintaining and counting , is it have the characteristics that powerful , an interface is friendly systematically to make. In the course of designing students achievement administrative system , have got the guidance of kings prosperous teacher, express thanks here. Because ones own level is limited, the weak point is unavoidable in the procedure, please offer a teacher make a comment.Key word: The achievement is managed, soft project , vb6.0目 录第一章 前言1.1开发背景1.2 编程环境的选择1.3 Visual Basic 6.0简介1.4 Microsoft Access 的使用第二章 系统的需求分析2.1总体需求调查2.1.1 系统总需求概述2.1.2 系统目标2.1.3 业务总体流程图2.2 系统功能调查2.2.1 系统登录模块功能2.2.2 系统管理模块功能2.2.3 学生信息管理功能2.2.4 班级信息管理功能2.2.5 课程信息管理功能2.2.6 学生成绩管理功能2.2.7 学生成绩查询功能第三章 概要设计3.1 系统设计思路3.1.1界面设计3.1.2 用户登录3.1.3 系统管理3.1.4基本成信息管理3.1.5 学生成绩管理3.2 系统设计简述3.3 Access数据库设计概述3.3.1 use表3.3.2 student表3.3.3 course表3.3.4 class表3.3.5 chengjibiao表第四章 详细设计与实现4.1 数据库设计与实现4.2 建立Access数据库4.3 界面的实现4.3.1 欢迎界面4.3.3 主界面4.3.4 用户添加界面4.3.5 修改用户密码界面4.3.6 删除用户界面4.3.7 添加学生信息4.3.8 修改/删除学生成绩界面4.3.9 学生信息查询界面4.3.10 班级信息添加/删除/查询界面4.3.11 课程添加、删除、查询界面4.3.12添加学生成绩信息4.3.13修改学生成绩信息4.3.14成绩信息查询4.3.15关于第五章 结束语5.1 论文总结5.2 展望未来参考文献致谢5吉林农业工程职业技术学院（论文）第一章 前言1.1开发背景随着经济全球化、管理现代化的到来，信息化建设已提到议事日程。国家机关、高等院校、参与国家竞争的大中i型企业单位，为了提高现代化管理水平、为了在激烈的市场竞争中获胜，纷纷不同程度的加强信息化建设，如组建自己的局域网、实施适用本单位或本部门的企业级MIS（管理信息系统）项目或ERP（企业资源计划）项目。因此管理系统的开发时十分有必要的。整个系统有适应性，先进性，可操作性。对于一个学校来说，学生成绩管理系统更是不可缺少的，它能更有效的改善学校复杂的操作流程，提高学校的管理水平，实现学校的信息化，现代化。在我国的各类学校，尤其是高等院校，近些年由于扩招生员，大大增加了学校在管理方面的负担，能否使学校建立良好的管理制度，完备的管理流程，减轻学校的负担，已经成为学校面对的主要问题，因此开发一套学生成绩管理系统已经势在必行。1.2 编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。开发软件是： Microsoft Visual Basic 6.0 数据库：Microsoft acces1.3 Visual Basic 6.0简介Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：1. 可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2. 面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。3. 结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。4. 事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。5. 访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。6. 动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。7. 对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。8. 动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。1.4 Microsoft Access 的使用Access作为Microsoft的office套件产品，目前已经成为世界上最流行的桌面数据库系统。Access与许多优秀的关系数据库一样，可以让你很容易地连接相关的信息而且还对其他的数据库有所补充操作其他资源的资料，包括许多流行的PC数据库程序（如 Paradox, Microsoft Foxpro）和服务器、小型机和大型机上的许多SQL数据库。Aceess与其他数据库开发系统之间有相当显著的区别是：您不用写一行代码，就可以在很短的时间里开发出一个功能强大而且相当专业的数据库应用程序，并且这一愉快的过程是可视的。如果您能给它加上简短的VBA代码，那么您的程序绝不比专业潜心开发的程序差。在本次设计中，需要建立一个数据库系统，并且在开发中希望建立一个专业的数据库系统，而微软公司开发的Aceess软件能很好的解决这个问题，所以在本系统的开发中，数据库的建立将使用微软公司开发的Microsoft Aceess软件完成。第二章 系统的需求分析2.1总体需求调查2.1.1 系统总需求概述“学生成绩管理系统”包括用户登录模块，系统管理模块，学生信息模块，班级信息模块，课程信息模块，学生成绩模块，查询模块。1. 用户登录模块：主要完成对登录用户名和密码进行有效的验证，判断用户名和密码是否正确及用户所对应的操作权限，当输入的数据合法时，跳到主菜单界面，进行相应的操作。2. 系统管理模块：在这个模块中可以对用户进行添加、修改、删除及系统重新登录 等操作3. 学生信息模块：主要完成学生信息的录入、修改、删除、查询等功能。4. 班级信息模块：主要完成班级信息的录入、删除和查询功能。5. 课程管理模块：主要实现课程的添加、删除、修改、查询功能6. 学生成绩模块:主要实现成绩的添加和修改功能7. 查询模块：主要实现对学生成绩的查询功能，分为班级成绩查询，班级单科成绩查询，个人成绩查询三种查询方式。2.1.2 系统目标采用现有的软件和科学的管理系统开发方案，完成对学生成绩管理的部分功能，实现学生管理系统的开发规范。系统应符合客户的实际需求，并达到操作直观、方便、实用等要求。2.1.3 业务总体流程图该学生成绩管理系统基本流程如下：数据来源：将在数据库中所见的各表内数据作为数据来源，可在数据库中直接操作或由用户提交命令进行操作，建议不要在数据库中更改数据。数据输入：部分数据用户直接输入完成，部分数据从数据库中查询。数据提交：通过运用SQL语句链接到数据库完成相应的操作。实现书库的更改2.2 系统功能调查2.2.1 系统登录模块功能 1. 用户名和密码的有效性验证 验证用户名是否存在，密码是否正确，如果正确则进行相应操作，否则提示“用户名或密码错误，请重新输入”。 2. 验证用户类别和用户权限 根据用户名验证用户类别，判断是高级管理员，普通用户还是只读用户。用户所对应权限如下： 高级管理员 ：同时具有系统管理、学生成绩管理、学生成绩查询三种权限。 普通用户 ：只能同时具有系统管理、学生成绩管理、学生成绩查询三种权限中的一种。 只读用户 ：只具有学生成绩查询权限。 权限分布图系统管理用户管理学生信息管理班级信息管理课程信息管理 系统管理权限学生成绩管理管理添加学生成绩学生成绩查询 学生成绩管理权限学生成绩查询班级成绩查询班级单科成绩查询个人成绩查询 学生成绩查询权限2.2.2 系统管理模块功能系统管理包括：添加用户、修改密码、删除用户、重新登录、退出系统系统管理添加用户修改密码删除用户重新登录退出系统2.2.3 学生信息管理功能学生信息管理包括：添加学生信息 、修改学生信息学生信息管理班级成绩查询班级单科成绩查询2.2.4 班级信息管理功能班级信息管理包括：添加班级信息 、删除班级信息 、查询班级信息班级信息管理添加班级信息删除班级信息查询班级信息2.2.5 课程信息管理功能课程信息管理功能：添加课程信息、修改课程信息、删除班级信息、查询课程信息课程信息管理添加课程信息修改课程信息删除课程信息查询课程信息2.2.6 学生成绩管理功能学生成绩管理添加学生成绩修改学生成绩2.2.7 学生成绩查询功能学生成绩查询班级成绩查询班级单科成绩查询个人成绩查询第三章 概要设计3.1 系统设计思路3.1.1界面设计本系统采用控件设计与代码结合的方式设计基础界面。在初步设计时，只通过现有控件对窗体进行布局规划，而不涉及程序的内容，待窗体设计完毕后，再进行程序编程，完成界面设计。3.1.2 用户登录用户登录时，将用户信息与Access数据库user表中的数据进行比较，如果存在则判断用户权限并进行相应操作，否则弹出提示信息，提示“用户名或密码错误，请重新输入”并返回登陆界面（登录时主要判断用户名和密码是否正确及用户名所对应的权限信息）。3.1.3 系统管理主要完成用户的建立及用户权限的管理，实现用户的添加、删除及密码的修改，实现优化用户管理的目的。3.1.4基本成信息管理 主要指学生信息、班级信息、课程信息的的管理，在输入学生成绩前必须完成学生信息、班级信息、课程信息及学期信息的添加，并确保数据准确。（由普通用户负责添加）3.1.5 学生成绩管理主要指学生成绩的输入和查询，包括学生承接添加、修改、删除及三种成绩查询（包括班级成绩查询、班级单科成绩查询、个人成绩查询）3.2 系统设计简述 1. 由高级管理员建立普通用户，并指定用户所具有的权限。 2. 由具有系统管理权限的用户依次向数据库中添加学生信息，班级信息，课程信息，学期及课程信息，并确认信系的准确性，并保存所输入的信息。 3. 由具有学生成绩管理权限的用户从数据库中读取学生姓名、班级、学期、课程等相关信息并向学生成绩表中输入学生成绩，之后通过学生成绩查询确认学生成绩信息。 4. 由具有学生成绩查询权限的用户查看学生成绩信息，确认学生信息并统计分析各个班级或个人的学习状况。并打印成绩单。5. 学生具有只读权限，可以看到自己在校期间的所有的学习成绩，了解自己的学习情况。 学生成绩管理系统用户登录普通用户系统管理员只读用户退出添加用户修改密码删除用户重新登录退出系统添加学生信息修改学生信息删除学生信息查询学生信息添加班级信息删除班级信息添查询班级信息添加课程信息kecheng 删除课程信息查询班级信息添加学生成绩修改学生成绩删除学生成绩班级成绩查询班级单科查询个人成绩查询3.3 Access数据库设计概述1. 该系统数据库使用Access开发完成，通过vb环境实现对数据库信息的增加、删除、改改、查询等相关操作。2. 学生成绩管理系统数据库主要包括:use表，student表，course表，class表，chengjibiao表。3.3.1 use表字段名数据类型是否为空说明ZhChar(10)Not null账号mmChar(14)Not null密码LdChar(14)Not null 类别DjChar(14)Not null等级3.3.2 student表字段名数据类型是否为空说明XsbhChar(10)Not null学生编号XsxmChar(14)Not null学生姓名XsxbChar（14）Not null学生性别CsrqChar（14）Not null出生日期ZzmmChar（14）Not null政治面貌RxsjChar(14)Not null入学时间3.3.3 course表字段名数据类型是否为空说明KcmcChar(10)Not null课程名称BjmcChar(14)Not null班级名称XqmcChar(14)Not null 学期名称RkjsChar(14)Not null任课教师3.3.4 class表字段名数据类型是否为空说明BjmcChar(10)Not null班级名称XbmcChar(14)Not null系别名称3.3.5 chengjibiao表字段名数据类型是否为空说明XsbhChar(10)Not null学生编号XsxmChar(14)Not null学生姓名KcmcChar（14）Not null课程名称XscjChar（14）Not null学生成绩BjmcChar（14）Not null班级名称XqmcChar(14)Not null学期名称第四章 详细设计与实现 根据需求分析、概要设计的结果，采用Microsoft Visual Basic 6.0 作为开发工具，Microsoft Access作为后台数据库实现学生成绩管理系统各个模块功能。4.1 数据库设计与实现本系统的后他数据库为Microsoft Access数据库，具有易操作，易实现、易维护的特点。通过对用户需求的分析，具体实现如下：4.2 建立Access数据库启动Access，建立一个空数据库student.mdb；如下图：在student数据库中分别建立use表,student表,course表,class表,chengjibiao表具体实现如下图：Class表Use表Student表Course表Chengjibiao表4.3 界面的实现4.3.1 欢迎界面 在窗体中显示“欢迎使用学生成绩管理系统”并显示当前的日期和时间，并不断更新当前时间，当单击窗体或显示时间超过1分钟，则跳转到登录界面，欢迎界面如下图：程序代码如下：Private Sub Form_Activate()DrawWidth = 6Label2.Caption = Mid(Str(Now), 1, 10)Label3.Caption = Mid(Str(Now), 14, 8)hyjm.Scale (0, 0)-(100, 100)hyjm.Circle (50, 20), 10, RGB(255, 0, 0)hyjm.Circle (50, 20), 10, RGB(0, 0, 255), , , 2.5hyjm.FillStyle = 1hyjm.Circle (50, 20), 10, RGB(0, 255, 0), , , 0.4Label2.Caption = Mid(Str(Now), 1, 10)Label3.Caption = Mid(Str(Now), 14, 9)End SubPrivate Sub Form_Click()denglu.ShowUnload MeEnd SubPrivate Sub Label1_Click()denglu.ShowUnload MeEnd SubPrivate Sub Timer1_Timer()Label2.Caption = Mid(Str(Now), 1, 10)Label3.Caption = Mid(Str(Now), 14, 9)End SubPrivate Sub Timer2_Timer()denglu.ShowUnload MeEnd Sub4.3.2 登陆界面 用户登录系统的主要方式，要求登陆界面美观、简洁、实用。登陆界面在设计时定义一个公共变量kk用于存放用户的用户类别，用于区别用户的权限。在用户登录时，首先用户输入用户名和密码，单击登录按钮，如果用户名和密码正确则从数据库中读取用户权限信息并赋值给kk，最后显示主菜单，否则弹出对话框，提示“用户名或密码错误，请重组新输入”并返回登录界面。当单击关闭按钮则退出系统。程序代码如下：Private Sub nn()Dim mrc As ADODB.RecordsetIf Text1.Text = Or Text2.Text = Then MsgBox 请正确的输入账号和密码If Text1.Text Then aa = Text1.TexttxtSQL = select * from use Set mrc = ExecuteSQL(txtSQL)hh = 0 用于标记用户名和密码是否正确，正确1，否则为0For i = 0 To mrc.RecordCount - 1 If Trim(Text1.Text) = mrc.Fields(0) And Trim(Text2.Text) = mrc.Fields(1) Then kk = mrc.Fields(lb).Value kk = mrc.Fields(dj).Value hh = 1 End If mrc.MoveNextNextIf hh = 0 Then MsgBox 用户名或密码错误！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text2.Text = Exit SubEnd IfMDIForm1.ShowUnload MeEnd SubPrivate Sub Command1_Click()nnEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Activate()Text1.SetFocusEnd SubPrivate Sub Text1_Change()Dim mrd As RecordsettxtSQL = select * from use Set mrd = ExecuteSQL(txtSQL)If mrd.RecordCount = 1 Then Text2.Text = mrd.Fields(1)End IfEnd 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 nnEnd Sub4.3.3 主界面主界面是该系统中最重要的界面，他不仅用于显示该系统的主要功能，实现其他窗体的调用，还实现了用户权限的区分。该界面通过隐藏和显示菜单来实现用户权限的管理，对不具有的功能进行隐藏。在主界面加载中首先判断kk的值，如果是0 则为高级管理员，1为普通用户（具有系统管理权限），2为普通用户（具有学生成绩管理权限），3为普通用户（具有学生成绩查询权限），4为只读用户（只具有个人成绩查询权限），最终能够实现权限控制。在主界面底端会显示用户名，用户名和用户的类别，来区分用户。该界面还添加一张图片作为整个系统的背景，改变了界面单调的问题。程序代码如下Private Sub about_Click()xjabout.ShowEnd SubPrivate Sub add_Click()bjxx.Showbjxx.Frame1.Visible = Truebjxx.Frame2.Visible = FalseEnd SubPrivate Sub banjichaxunyufenxi_Click()bjcjcxyfx.Command3.Visible = Falsebjcjcxyfx.MSFlexGrid1.Top = bjcjcxyfx.MSFlexGrid1.Top - bjcjcxyfx.Frame2.Heightbjcjcxyfx.MSFlexGrid1.Height = bjcjcxyfx.MSFlexGrid1.Height + bjcjcxyfx.Frame2.Heightbjcjcxyfx.Frame2.Visible = Falsebjcjcxyfx.andanke.Visible = Falsebjcjcxyfx.anzongfen.Enabled = Falsebjcjcxyfx.bianhao.Enabled = Falsebjcjcxyfx.Showbjcjcxyfx.Caption = 班级成绩查询End SubPrivate Sub banjidankechaxunyufenxi_Click()bjcjcxyfx.Command1.Visible = Falsebjcjcxyfx.anzongfen.Visible = Falsebjcjcxyfx.andanke.Enabled = Falsebjcjcxyfx.bianhao.Enabled = Falsebjcjcxyfx.Caption = 班级单科成绩查询/分析bjcjcxyfx.ShowEnd SubPrivate Sub chongxindenglu_Click() If MsgBox(若重新登录，所有窗体都将关闭！是否重新登录？, _ vbQuestion + vbYesNo + vbDefaultButton2, 重新登录) = vbYes Then Unload Me denglu.Show End IfEnd SubPrivate Sub dankepaixu_Click()cjpx.Option1(0).Value = Truecjpx.Option1(1).Value = Falsecjpx.ShowEnd SubPrivate Sub cxbjxx_Click()bjxxcx.ShowEnd SubPrivate Sub cxkcxx_Click()kcxxcx.ShowEnd SubPrivate Sub cxxsxx_Click()xsxxcx.ShowEnd SubPrivate Sub del_Click()bjxx.Showbjxx.Frame2.Left = 0bjxx.Frame2.Top = 0bjxx.Frame1.Visible = Falsebjxx.Frame2.Visible = TrueEnd SubPrivate Sub gerenchaxun_Click()grcjxs.ShowEnd SubPrivate Sub MDIForm_Load()StatusBar1.Panels(3).Text = Format(Now, dddddd)StatusBar1.Panels(2).Text = 当前操作员： & aaStatusBar1.Panels(4).Text = 当前状态： & kk MDIForm1.xitongguanli.Visible = True MDIForm1.xsxxgl.Visible = True MDIForm1.chengjiguanli.Visible = True MDIForm1.chengjichaxunyufenxi.Visible = True MDIForm1.about.Visible = True MDIForm1.class.Visible = TrueIf cc = 1 Then MDIForm1.xitongguanli.Visible = True MDIForm1.kcgl.Visible = True MDIForm1.xsxxgl.Visible = True MDIForm1.chengjiguanli.Visible = False MDIForm1.chengjichaxunyufenxi.Visible = False MDIForm1.class.Visible = True Exit SubEnd IfIf cc = 2 Then MDIForm1.tianjiayonghu.Visible = False MDIForm1.shanchuyonghu.Visible = False MDIForm1.kcgl.Visible = False MDIForm1.xsxxgl.Visible = False MDIForm1.chengjiguanli.Visible = True MDIForm1.chengjichaxunyufenxi.Visible = True MDIForm1.class.Visible = False Exit SubEnd IfIf cc = 3 Then MDIForm1.tianjiayonghu.Visible = False MDIForm1.shanchuyonghu.Visible = False MDIForm1.kcgl.Visible = False MDIForm1.xsxxgl.Visible = False MDIForm1.chengjiguanli.Visible = False MDIForm1.chengjichaxunyufenxi.Visible = True MDIForm1.class.Visible = False Exit SubEnd IfIf cc = 4 Then MDIForm1.tianjiayonghu.Visible = False MDIForm1.shanchuyonghu.Visible = False MDIForm1.kcgl.Visible = False MDIForm1.xsxxgl.Visible = False MDIForm1.chengjiguanli.Visible = False MDIForm1.chengjichaxunyufenxi.Visible = True MDIForm1.banjichaxunyufenxi.Visible = False MDIForm1.banjidankechaxunyufenxi.Visible = False MDIForm1.class.Visible = False Exit SubEnd IfEnd SubPrivate Sub quite_Click()EndEnd SubPrivate Sub sckc_Click()kcsc.ShowEnd SubPrivate Sub scxsxx_Click()xsxxjbgl.Frame5.Visible = Falsexsxxjbgl.Caption = 学生成绩信息删除xsxxjbgl.Frame6.Left = xsxxjbgl.Frame5.Leftxsxxjbgl.Frame6.Top = xsxxjbgl.Frame5.Topxsxxjbgl.Frame6.Enabled = Falsexsxxjbgl.Frame6.Visible = Truexsxxjbgl.Width = xsxxjbgl.Width - xsxxjbgl.Frame6.Widthxsxxjbgl.Command5.Visible = Falsexsxxjbgl.Command6.Left = xsxxjbgl.Command5.Leftxsxxjbgl.Command6.Top = xsxxjbgl.Command5.Topxsxxjbgl.ShowEnd SubPrivate Sub shanchuchengji_Click()cjxg.Frame2.Visible = Falsecjxg.Caption = 学生成绩信息删除cjxg.Frame3.Top = cjxg.Frame2.Topcjxg.Frame3.Enabled = Falsecjxg.ShowEnd SubPrivate Sub shanchuyonghu_Click()yhsc.ShowEnd SubPrivate