基于VB的学生成绩管理系统.doc

摘 要 随着网络时代的发展，从信息手段到信息内容的转变，引发了全球性数字校园建设浪潮。为满足为学校服务这一基本功能，数字校园应定位于信息服务，对学生的成绩的高效而准确的管理系统设计的出发点和最终目的，既要能够满足学生和老师的一般需求，又要能够针对用户的类型、需求特征等确定它的的权限以便进行管理，研究面向质量控制的成绩管理系统的设计与实现，以刻不容缓。该系统主要用于学校教务处的关于学生成绩的管理，界面友好，操作简单。一直以来，人们使用人工方式进行成绩管理，效率很低，容易出错，安全性也存在问题。特别是在查询上，由于文件过多，带来很多不便。本系统是基于Visual Basic 6.0开发的成绩管理系统，弥补了人工管理的不足，实现了成绩管理网络化，提高了一定的效率。根据上述要求给出一个合理的解决方按，主要包括以下几个方面：1.将整个系统分为两大模块：前台与后台，其中前台主要是界面的设计以及界面的关联，而后台主要是对数据库的管理以及编码。.对后台数据库的维护和管理，由于数据库有很多的表格，而且几乎上都是相互关联的，所以对表的修改涉及到整个后台的数据体，必须做统一的考虑。3.数据库的合理性要求能够对整个系统起到简化的作用，所以对数据库的规划必须合理。4.对于后台的不断修改以及操作，必须要求数据库的稳定性。如对表格的修改能够准确的进行，且避免死锁的现象。当对数据进行修改时，如进行删除，但此时数据正再用，必须要还原到正确的状态。要不会影响以前的操作！对于系统的维护很难得到保证。为解决这种情况必须要对数据库的操作进行限制以及屏蔽，使用户尽量不要碰到此种情况。5.验证系统的稳定性，对其进行检测。6.按照模块化对成绩管理系统给出一个合理的解决方按。【关键词】 模块 权限 数据库 后台 表格 ABSTRACT With the development of the Internet age, information from the means to change the content of the information, sparked a global wave of digital campus construction. For schools to meet the basic functions of the service, the number should be located in the campus information services, for students of high-performance and accurate management system designed for the starting point and ultimate aim of both students and teachers to meet the general requirements, but also be able to The type of user demand determine the characteristics of its authority for management, research-oriented quality management system to control the results of the Design and Implementation, in order to delay. The system is used Academic schools on student performance management, user-friendly, easy to operate. All along, people use artificial means to carry out performance management, inefficient, error-prone, there are security issues. Especially in the inquiry, due to the file is too large, bring a lot of inconvenience. The system is based on Visual Basic 6.0 to develop the performance management system, to make up for the artificial shortage of management to achieve the performance of network management and improve the efficiency of some. According to the above-mentioned requirements are given a reasonable solution by side, including the following: 1. The whole system will be divided into two modules: front and back, front is the main interface design, as well as the associated interface, and the background is The database management and coding. . Back to the database maintenance and management of the database because of the many forms, and on almost all interrelated, so changes to the table involves the whole background data, consideration must be unified to do. 3. Database of reasonable requirements of the entire system can play a role in a simplified, so the database must be reasonable in the planning. 4. For background, as well as amendments to the continuous operation, the database must be stability. If the form of amendments to the accuracy, and to avoid deadlock. When the data changes, such as delete, but this time the data is used, it is necessary to restore the right of the state. Should not affect the previous operation! For the maintenance of the system is difficult to be ensured. To address this situation it is necessary to restrict the operation of the database as well as the shield, as far as possible so that users do not encounter such cases. 5. Verify the stability of the system, their detection. 6. In accordance with the results of the modular system is given a reasonable solution by side.【Keywords】 authority database module forms the background绪论 11、 成绩管理系统发展及现状学生成绩管理系统是一个学校不可缺少的重要部分，它的内容对于学校的决策者和管理者来说都至关重要，所以学生成绩管理系统应该为用户提供充足的信息和快捷的查询手段。当前成教学院没有一个完善的成绩信息管理平台，计算机使用主要基于Microsoft Office，不能发挥有效的作用。而且随着我国教育改革的不断深入以及自学教育的不断扩招，参加考试的人越来越多，考试科目的多样化，使得成教学院对自学考试成绩的管理越趋繁琐、复杂，工作业务繁杂，工作量大，这种传统的学生管理模式已经暴露出种种弊端：难以统一调配和处理，效率极低，缺乏科学性以及合理性。随着计算机应用的普及与深入，利用计算机能够对所有自学考试成绩进行统一管理，并进行分析，大大减少教学秘书的工作量，提高工作效率，为教学办公带来了极大的方便。通过操作手册，使用者可以了解本软件的基本工作原理及使用说明。操作人员只需输入一些简单的汉字、数字，就可以存储、查找、修改、打印学生成绩信息等。本系统开发的总体任务是实现学生成绩管理的系统化、规范化、自动化、达到提高学生成绩管理效率的目的，本系统本着实用性、通用、开放和安全的原则，使数据库开发软件开发制作，实现了学生信息管理、课程信息管理、学生成绩管理、成绩查询等功能。该设计方法易于推广至其它信息化管理系统的设计，充分利用计算机作为辅助工具，实现学生考试成绩从传统的手工管理到计算机管理，对提高管理效率和节约大量的人力、物力有一定的推动作用。本系统一切从实际出发，充分考虑了成绩的内部管理、信息交流等方面的复杂需求，实现成绩的有效管理，真正为学生成绩管理提供一个电子平台。因此为了充分利用成教学院现有的计算机硬件资源，做好 学生成绩管理工作，提高办事效率，实现全面的、相对集中的办公自动化，开发本系统就成了当务之急，其目的主要为了彻底改变这种繁杂的管理模式，实现全面的、相对集中的、智能化的信息综合管理，为成教学院的教学管理工作带来方便。12 成绩管理系统的发展目标成绩管理系统不同于传统的成绩管理。传统管理最主要的职能是备份，并在对所备份资料分开保存、组织的基础上为用户提供各种服务。成绩管理系统是一个将管理、服务和人集成在一起的一个“多维”环境，数字化资源是成绩管理系统的基本要素。当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。管理信息系统是进行信息的采集、存储、加工、维护和使用的系统。它是随着管理科学和技术科学的发展而形成的。学生档案管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生成绩管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生成绩信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,学生成绩管理系统提供了强大的学生成绩管理管理功能，方便管理员对学生成绩等信息的添加.修改.删除.查询.汇总.统计等操作。更适合大型数据库的管理。13 成绩管理系统的服务整合作为计算机应用的一部分,使用计算机对学生成绩信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情。学生成绩管理系统提供了强大的学生成绩管理管理功能，方便管理员对学生成绩等信息的添加.修改.删除.查询.汇总.统计等操作。更适合大型数据库的管理。把学校带入信息化，培养合格的高科技人才。系统分析2.1开发背景 计算机已经成为我们学习和工作的得力助手： 今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全，等等。 _ 在大中专中用计算机管理学生成绩信息的意义现在我国的大中专校中学生成绩的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用的专科生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我四年的所学编制出一个实用的程序来帮助大中专进行更有效的信息管理。 归纳起来，好处大约有以下几点：1 可以存储学生的基本信息以及历届的学生信息，安全、高效；2 只需一到二名信息录入员即可操作系统，节省大量人力；3 可以迅速查到所需信息。 2.2需求分析21世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用及普及到经济和社会生活的各个领域。使原本的旧的管理方法越来越不适应现在社会的发展。许多人还停留在以前的手工操作。这大大地阻碍了人类经济的发展。为了适应现代社会人们高度强烈的时间观念，学校信息管理系统软件为学校办公室带来了极大的方便。我所开发的这个系统所采用的是当前较为流行的编程软件VISUAL BASIC 6.0作为实现语言，以数据库Microsoft SQL Server2000作为系统的后台操作，其功能在系统内部有源代码直接完成。我们只需按系统要求输入即可操作。为将来学校上网做好准备跟据2007年中国电信的调查报告显示我国的上网人数已达到18000万，互联网已经十分普及，学校往界的毕业生希望能在世界的任何一个角落查到自己校友的信息，本系统为学校将来的上网作了先期工作，比如数据库的建立。根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。设计一个数据库系统，首先必须确认数据库系统的用户和用途。由于数据库系统是一个组织部门的模拟，数据库系统设计者必须对一个组织部门的基本情况有所了解，比如该组织部门的组织机构、各部门的联系、有关事物和活动以及描述它们的数据、信息流程、政策和制度、报表及其格式和有关的文档等。收集和分析这些资料的过程称为需求分析。例如在一个大学，学生是按照系部、班级来进行组织，而课程则是按照专业、任课教师等进行组织。每个学生需要选修自己专业内的课程并取得成绩，而校方则需要统计每门课的平均分和学生的平均成绩，这就是学生和课程之间的联系和需要进行的处理。需求分析的目标是给出应用领域中数据项、数据项之间的关系和数据操作任务的详细定义，为数据库系统的概念设计、逻辑设计和物理设计奠定基础，为优化数据库系统的逻辑结构和物理结构提供可靠依据。设计人员应与用户密切合作，用户则应积极参与，从而使设计人员对用户需求有全面、准确的理解。需求分析的过程是对现实世界深入了解的过程，数据库系统能否正确的反映现实世界主要取决于需求分析，需求分析人员既要对数据库技术有一定的了解，又要对组织部门的情况比较熟悉，一般由数据库系统设计人员和本组织部门的有关工作人员合作进行。需求分析的结果整理成需求分析说明书，这是数据库技术人员与应用组织部门的工作人员取得共识的基础，必须得到有关组织部门人员的确认。2.2.1需求信息的收集需求信息的收集又称为系统调查。为了充分地了解用户可能提出的要求，在调查研究之前，要做好充分的准备工作，要明确调查的目的、调查的内容和调查的方式。1、调查的目的 首先，要了解一个组织部门的机构设置，主要业务活动和职能。其次，要了解本组织部门的大致工作流程和任务范围划分。这一阶段的工作是大量的和繁琐的。尤其是管理人员缺乏对计算机的了解，他们不知道或不清楚哪些信息对于数据库系统设计者是必要的或重要的，不了解计算机在管理中能起什么作用，做哪些工作。另一方面，数据库系统设计者缺乏对管理对象的了解，不了解管理对象内部的各种联系，不了解数据处理中的各种要求。由于管理人员与数据库系统设计者之间存在着这样的距离，所以需要管理部门和数据库系统设计者更加紧密地配合，充分提供有关信息和资料，为数据库系统的设计打下良好的基础。2、调查的内容外部要求：信息的性质，响应的时间、频度和如何发生的规则，以及对经济效益的考虑和要求，安全性及完整性要求。 业务现状：这是调查的重点，包括信息的种类，信息流程，信息的处理方式，各种业务工作过程和各种票据。 组织机构：了解本组织部门内部机构的作用、现状、存在的问题，及是否适应计算机管理。规划中的应用范围和要求。3、调查方式开座谈会；跟班作业；请调查对象填写调查表；查看业务记录、票据；个别交谈。对高层负责人的调查，最好采用个别交谈方式。在交谈之前，应给他们一份详细的调查提纲，以便使他们有所准备。从访问中，可获得有关该组织高层管理活动和决策过程的信息需求、该组织的运行政策、未来发展变化趋势等与战略规划有关的信息。对中层管理人员的访问，可采用开座谈会、个别交谈或发调查表、查看业务记录的方式，目的是了解企业的具体业务控制方式和约束条件、不同业务之间的接口、日常控制管理的信息需求以及预测未来发展的潜在信息要求。对基层操作人员的调查，主要采用发调查表和个别交谈方式来了解每项具体业务的过程、数据要求和约束条件。2.2.2需求信息的整理想要把收集到的信息（如文件、图表、票据、笔记等）转化为下一设计阶段可用形式的信息，必须对需求信息做分析整理工作。业务流程分析业务流程分析的目的是获得业务流程及业务与数据联系的形式描述。一般采用数据流分析法，分析结果以数据流图（DFD）表示。是一个数据流图的示意图。图中有向线表示数据流，圆圈中写上处理的名称、圆圈代表一个处理、带有名字的双线段表示存储的信息。下面是学生成绩管理数据库系统设计的业务流程分析，原始的数据是学生的成绩，系统要求统计学生的成绩，并根据成绩统计的结果由奖学金评委评选出获得奖学金的学生，其数据流图如下图 2.3系统结构功能结构图 通过前面的数据流程图已经对系统的主要功能有了一个初步的了解，下面将系统的功能再作一些深入分析，最后得出系统的功能结构图。学生成绩管理系统是为了利用计算机实现一个学校的学生成绩管理工作。因此，系统应该有一个全局管理功能，以方便实现不同的功能的选择。也就是应具备全局管理功能。这里用总控模块实现。由于要处理的信息包括基本数据管理、学生成绩管理、系统维护等的不同处理，总控模块管理有三种不同的信息的处理。即基本数据管理、学生成绩管理、系统维护的管理。由于每种信息的处理涉及到对信息多方面的不同子功能，所以又涉及到对众多的子功能的管理。在此基础上，总结得到如下的系统功能结构图：系统功能模块结构图第三章、功能介绍信息社会的高科技，商品经济化的高效益，使计算机的应用已普及到经济和社会生活的各个领域。计算机虽然与人类的关系愈来愈密切，还有人由于计算机操作不方便继续用手工劳动。为了适应现代社会人们高度强烈的时间观念，学籍管理系统软件为教学办公室带来了极大的方便。该软件是以汉语编程语言为实现语言，其功能在系统内部有源代码直接完成。通过操作手册，使用者可以了解本软件的基本工作原理。操作人员只需输入一些简单的汉字、数字，学生成绩管理系统主要提供方便高效的管理功能以及网上的信息查阅平台，学生可以通过该系统查阅相关信息，管理员可以管理所有信息。对于本系统，我们需要实现以下一些以下主要功能：1 学生查询功能：为了方便学生查找成绩等信息，将所有信息按照需要进行分类。这样学生就能很方便的找到自己需要的信息。2 添加功能：管理员可以通过填写表格的形式输入学生成绩等相关信息。系统可以自动避免重复信息。3 修改功能：管理员可以对数据库中的信息进行修改。系统能够通过管理员给出的条件查找出所要修改的信息，对修改后的信息进行保存，并自动查找是否是重复信息。4 删除功能：管理员可以对数据进行删除操作。系统能够通过管理员给出的条件查找出要删除的信息，并提示是否确定删除，如果确定删除，则把相关信息从数据库中删除掉。 5 管理员查询功能：管理员可以通过条件选择查询所有信息，并进行排序。 系统应用 启动本系统，系统自动创建一个新成绩表文件。 单击“文件”菜单下的“属性”项，或单击工具条上最右边的按钮-“属性”按钮，弹出属性对话框，按提示设置院系、班级名称、人数，科目名称及该科目的学分数（只允许8个科目），必要时修改总评计算办法。最后单击“确定”。 单击“编辑”菜单下的“按科目输入”项，或单击工具条上的“按列输入”按钮；单击成绩表座号“1”和“姓名”对应的单元，输入1号的姓名，按回车键，光标移如2号的姓名栏，输入2号的姓名，按回车键 姓名输入完后，单击“视图”菜单下的“锁定姓名”，姓名列变为灰色，不再受滚动条影响。 根据实际情况，保持按科目输入，或单击“按成员输入”菜单项（或按行输入按钮），继续输入各科目成绩。 单击“工具”菜单下的“按总评排名次”项，表格最后一列称为“名次”栏，成员按名次排列。可以用“按座号排序”菜单项使其恢复原次序。 连接好打印机，单击“文件”菜单下的“打印机设置”项，设置打印机，最小可使用竖放B5纸大小。（输出的表格包括所有科目成绩、总成绩和名次） 单击“文件”菜单下的“打印”项将成绩表输出。 外部打印准备 单击此菜单项，程序会把全部表格内容复制到剪贴板，以便在其它应用程序中使用。下面介绍几种使用方法： 1、在 WPS 2007 中，应先建立一个列数、行数合适的表格，当表格最左上角的单元处于编辑状态时，使用“粘贴”功能，数据就被复制到 WPS2007 的表格中。 2、在 WORD 20007 中，应先使用“粘贴”功能将数据复制到 WORD 文档中，然后选定全部数据，使用“插入表格”功能，数据就被插入到 WORD 的表格中。 一旦数据被复制到这些编辑软件中，就可以使用它们强大的功能来排出美观大方的报表。 属性 单击此菜单项，弹出成绩表属性窗口。在相应的文本框中填写适当的内容。我们认为： 德育总评的计算方法为 计算后的小分大分 计算后的小分-各院系平时计算的德育分学期结算结果（百分制）大分-干部及其他社会工作者的加分 体育总评的计算方法为 体育课成绩70%平时成绩体育课成绩即体育课考试的成绩，应为百分制，程序会将其乘以70%。平时成绩占体育总分的30%（可调节），多按30-旷操及违纪次数计算，应输入30分制分值。当然大三大四不上体育课时，应将体育课成绩栏全部输入为70分。或将其计算比率设置为0%，并在平时成绩栏内输入百分制成绩。 智育总评的计算方法为 每一科的成绩乘以它的学分值在总学分中的比例，然后求和。总评的计算方法为 德25%智65% 体10%. 注意：1、设置属性是开始工作的第一步，不可漏掉。 2、设置完后只有按“确定”按钮设置才有效，按“取消”或直接关闭窗口则设置无效。 表元编辑、按科目输入和按成员输入 它们是相斥的，区别在于编辑完一个表格单元按回车后当前单元格的位置： 表元编辑，仍在原单元 按成员输入（按行输入），到原单元右边的单元。如果已在最右，则转如下一行第一科目列。 按科目输入（按列输入），的原单元下边的单元。如果已在最下，则转入下一列第一行处。 自动计算 当它前面有“”时，只要表格内容改变，德智体栏和“总评”栏的值会被自动计算出来。单击它会改变“”的有无。如果处在“自动计算”状态，则“工具”菜单下的“计算”项将失效，如果“自动计算”功能被关闭，则只有在单击“计算”菜单项时德智体栏和“总评”栏的值才会被计算出来。 系统默认为自动计算状态。 注意：自动计算功能会降低速度。 自动排序 当它前面有“”时，只要表格内容改变，表格会自动按“总评”排名次，但成员顺序仍按座号排列。单击它会改变“”的有无。如果处在“自动排序”状态，则“工具”菜单下的“按名次”项将失效，如果“自动排序”功能被关闭，则在单击“按名次”菜单项时会排出名次，如果当前列为“总评”也可用“降序”功能实现排名次。 系统默认为非自动排序状态。 注意：自动排序功能会降低速度。 复制 将选定内容（强调显示的内容）复制到剪贴板，供其它应用程序使用。 放大字体、缩小字体 改变表格的显示字号，每单击一次改变 0.75 镑。此项功能不会影响打印输出。 表线类型、表线颜色 用来改变表格线的类型和颜色，这些内容降被保存到文件中。 锁定“姓名” 如果“锁定姓名”前面有“”，“姓名”栏变为灰色，当屏幕滚动时，它将不受影响，既使当前列为最后一列，姓名栏也会像座号一样显示出来。单击它可以改变此项设置。 升序、降序 按当前列排序，同时最后一列成为名次列，显示名次。 按座号排序 按座号由小到大的顺序排列各成员，由于座号栏为灰色，不能成为当前列，所以只能用此项排序。技术支持。*.CJB 文件的内部结构是怎样的？ 成绩表文件（*.CJB）实际上是一个特殊的文本文件，它的各行分别代表如下内容： 行 含义 1 文件名 2 院系名称 3 班级名称 4 体育课成绩计算时乘的比率 5 体育平时计算时乘的比率 613 各科目学分数 14 德育占总评的比例 15 智育占总评的比例 16 体育占总评的比例 17 表格字号 18 表格线型 19 表线颜色 20 表格总行数 21结尾 表格的内容第四章系统界面及源代码设计1系统登陆界面源代码：Private Sub Form_Load() Timer1.Interval = 1000End Sub Private Sub Timer1_Timer() frmMain.Show Unload frmSplashEnd Sub 2系统主界面 源代码：Private Sub MDIForm_Load() Me.Width = Screen.Width * 0.75 Me.Height = Screen.Height * 0.75 Me.Left = Screen.Width * 0.125 Me.Top = Screen.Height * 0.125 Me.Show 总是将工作目录设到应用程序所在目录 ChDir App.Path 初始化文档窗体数组，并显示第一个子窗体 ReDim Doc(1) ReDim FState(1) Doc(1).Tag = 1 FState(1).Dirty = False Doc(1).Caption = 新成绩表：1 Doc(1).Show 读系统注册表并适当地设置最近使用的菜单文件列表控件数组 GetRecentFiles End Sub Private Sub MDIForm_Unload(Cancel As Integer) If Not AnyPadsLeft() Then End End IfEnd Sub Private Sub mnuFileExit_Click() EndEnd Sub Private Sub mnuFileNew_Click() 调用 FileNew 过程 FileNewEnd Sub Private Sub mnuFileOpen_Click() 调用文件打开过程 FileOpenProcEnd Sub Private Sub mnuHelpAbout_Click() frmAbout.Show vbModal, MeEnd Sub Private Sub mnuhelpmain_Click() frmHelp.Show vbModal, MeEnd Sub Private Sub mnuRecentFile_click(Index As Integer) 调用文件打开过程，传递一个对选定文件名的引用 OpenFile (mnuRecentFile(Index).Caption) 更新文件列表 GetRecentFilesEnd Sub Private Sub tbToolBar_ButtonClick(ByVal Button As ComctlLib.Button) 用 Select Case 语句处理 Key 属性， 以确定单击了哪个按钮。 With frmMain.ActiveForm Select Case Button.Key Case new 选择新建 FileNew Case Open 选择打开 FileOpenProc Case Save 选择保存 检测文件是否已经有了文件名 Dim strFilename As String If Left(frmMain.ActiveForm.Caption, 4) = 新成绩表 Then strFilename = GetFileName(strFilename) Else strFilename = .Caption End If If strFilename Then SaveFileAs strFilename 调用文件保存过程 End If Case Print 选择打印 filePrintJ Case Copy 选择复制 a = .ChengJB.Row b = .ChengJB.RowSel c = .ChengJB.Col d = .ChengJB.ColSel CopyThing (a), (b), (c), (d) Case Edit 选择表元编辑 .mnuEditBaoyuan.Checked = True .mnuEditKemu.Checked = False .mnuEditCheng.Checked = False Case Hang 选择按行输入 .mnuEditBaoyuan.Checked = False .mnuEditKemu.Checked = False .mnuEditCheng.Checked = True Case Lie 选择按列输入 .mnuEditBaoyuan.Checked = False .mnuEditKemu.Checked = True .mnuEditCheng.Checked = False Case Big 选择字体放大 FontChang (1) Case Little 选择字体缩小 FontChang (-1) Case Up 选择升序排列 .ChengJB.Sort = 1 Case Down 选择降序排列 .ChengJB.Sort = 2 Case Shuxing 选择成绩表属性 frmShuxing.Show vbModal, frmMain End Select End WithEnd Sub 3.成绩添加源代码： Private Sub TextShuxing_Change(Index As Integer) FState(Me.Tag).Dirty = TrueEnd Sub Private Sub Timer1_Timer() Text1.Visible = Not Text1.VisibleEnd Sub Sub txtEdit_KeyPress(keyascii As Integer) 删除回车符，以消除嘟嘟声。 If keyascii = vbKeyReturn Then keyascii = 0 With ChengJB If frmMain.ActiveForm.mnuEditKemu.Checked Then 按列输入 If .Row .Rows - 1 Then 这一列没有输入完 .Row = .Row + 1 转到此列的下一行 Else 如果这一列已经输入完 .Row = 1 回到第一行 Select Case .Col Case 9 .Col = .Col + 2 跳过 智育 Case 12 .Col = .Col + 2 跳过 德育 Case 15 .Col = 1 .Row = 1 Exit Sub 全部输入完，退出过程 Case Else .Col = .Col + 1 到下一列 End Select End If End If If frmMain.ActiveForm.mnuEditCheng.Checked Then 按行输入 If .Col 15 Then 这一行没有输入完 Select Case .Col Case 9 .Col = .Col + 2 跳过 智育 Case 12 .Col = .Col + 2 跳过 德育 Case Else .Col = .Col + 1 到下一列 End Select Else .Col = 2 If .Row .Rows - 1 Then 如果没有到达最后一行 .Row = .Row + 1 将行号加 1 Else 如果到达了最后一行 .Col = 1 .Row = 1 Exit Sub 退出过程 End If End If End If End With End If End Sub Sub txtEdit_KeyDown(KeyCode As Integer, _Shift As Integer) EditKeyCode ChengJB, txtedit, KeyCode, ShiftEnd Sub Sub EditKeyCode(MSFlexGrid As Control, Edt As _Control, KeyCode As Integer, Shift As Integer) 标准编辑控件处理。 Select Case KeyCode Case 27 ESC:隐藏焦点并将其返回 MSFlexGrid。 Edt.Visible = False MSFlexGrid.SetFocus Case 13 ENTER 将焦点返回 MSFlexGrid。 MSFlexGrid.SetFocus Case 38 向上。 MSFlexGrid.SetFocus DoEvents If MSFlexGrid.Row MSFlexGrid.FixedRows Then MSFlexGrid.Row = MSFlexGrid.Row - 1 End If Case 40 向下。 MSFlexGrid.SetFocus DoEvents If MSFlexGrid.Row MSFlexGrid.Rows - 1 Then MSFlexGrid.Row = MSFlexGrid.Row + 1 End If End SelectEnd Sub Sub ChengJB_GotFocus() Dim lsShu As Integer If mnuEditAuto.Checked Then mnuToolJisuan.Enabled = True mnuToolJisuan_Click mnuToolJisuan.Enabled = False End If If mnuEditAutoP.Checked Then mnuToolJiangT.Enabled = True mnuToolJiangT_Click mnuToolJiangT.Enabled = False lsShu = ChengJB.Col ChengJB.Col = 0 ChengJB.Sort = 1 ChengJB.Col