机房管理系统的设计毕业论文.doc

目录机房管理系统的设计毕业论文目 录目 录1摘 要3Abstract4第一章 系统需求分析51.1系统的初步调查51.2系统可行性分析61.3系统详细调查61.3.1教学安排（机房排课）61.3.2信息操作71.4数据字典7第二章 系统设计92.1系统的总体设计92.1.1系统功能分析92.2系统详细设计102.2.1开发工具的选择软件开发工具与数据库的选择数据库的选择规范化设计方法系统涉及到的实体数据库的物理设计122.2.2软件过程设计数据库概念结构设计教学排课信息操作16第三章 系统实施183.1代码编制规范183.1.1 命名规范183.1.2代码编制思想规范183.2代码实施193.2.1与数据库的连接193.2.2公用模块部分193.2.3系统设置213.2.4班级管理模块233.2.5毕业班级信息删除模块273.2.6机房信息管理模块293.2.7课程设置模块32第四章 系统测试364.1模块测试364.1.1用户登录模块364.1.2系统设置模块364.1.3班级管理模块374.1.4机房信息管理模块374.1.5课程设置模块384.1.6机房排课录入模块384.2集成测试384.3测试小结39第五章 软件使用说明405.1系统的运行环境405.2系统运行的界面405.3机房排课录入40总结报告42参考文献资43附录一：英文文献44Data Binding with Windows Forms and ADO.NET44The Basics of Data Binding and Windows Forms44Summary45Compare the scheme of VB ask the datebase47VB 访 问 数 据 库 的 方 案 比 较5058 摘要摘 要本论文是从计算中心的实际业务出发，针对计算中心的手工管理现状，经过详细的系统分析调查，为计算中心“量体裁衣”开发的一个实用的机房综合管理系统。本系统主要实现的是教学安排功能、班级及个人上机管理功能、机房设备管理功能。我则负责完成教学安排模块，其中详细任务是了解上机班级人数、机房容纳人数、防止班级冲突、教师冲突、添加及修改新班级信息、新课程信息、删除毕业班级信息、班级、课程及机房的信息查询功能。本系统有严格的管理权限功能，管理员可以通过排课要求进行详细的信息录入，从而保证信息的有效性。本论文详细阐述了整个软件的开发过程，在论文的最后我又谈了我毕业设计的收获和感想。在本模块的开发过程中使用了面向对象的分析与设计方法，面向对象技术是目前最流行的软件开发技术，它是当今最有发展前景的软件开发技术，作为新一代的软件开发技术，与传统的生命周期方法相比，有其独特的一面。本论文从软件工程的角度描述了本模块的开发过程，从计划期的问题定义、可行性研究和需求分析一直到开发期的系统设计、详细设计、编码设计及编码调试都进行了比较详细的介绍。将作为今后本模块修改与维护及进一步开发的重要参考资料。本系统的前端开发工具为Microsoft Visual Basic 6.0,后台关系数据库选择的是关系数据库Microsoft Access。关键词：机房管理；教学安排；VB；Access；范式 ABSTRACTAbstractThis system of the computer center, to managing the current situation by hand of the computer center, Analyse and investigate through detailed system , cuts the garment according to the figure a practical comprehensive administrative system of computer lab developed for computer center. What system this realize mainly teaching arrange for function, class, individual operate the computer the functions of management, functions of management of equipment of the computer lab . I am responsible for finishing teaching and arranging the module , Detailed task to understand and operate the computer the class number among them, The computer lab holds the number of people, Prevent class conflict , Teacher conflict, add and revise new class information, new course information, delete and graduate class information, class, course, information inquiry function of computer lab. System this have strict administration authority function, administrator can through arrange lesson demand and carry on detailed message input, Thus guarantee the validity of the information. Thesis this explain whole development course of software in detail, one that is in thesis I discuss I harvest and impressions of graduation project finally. Have used the analysis facing target and design method in the course of development of this module , Face target technology most prevailing software development technology at present, it have software development technology of development prospect most nowadays, As the software development technology of new generation, compare with traditional life cycle method , There is its unique side. Thesis this describe copies of development course of module in terms of soft project, Define from the question of one of the plan, Feasibility study and demand analyse until the fact that system to develop issue design, detailed design, code design and code debugged and introduced the more detailed one. As the important reference material that a copy of module will be revised and be maintained and be developed further in the future. Front developing instrument of system this as 6.0 Basic, Visual of Microsoft, it relations that data base choose backstage supporter have to be relation data base Microsoft Access. Keyword: Computer lab management; Teaching is arranged; VB; Access; Fan type 第一章系统需求分析第一章 系统需求分析1.1系统的初步调查系统的初步调查是系统分析的第一项活动，初步调查阶段的主要目标是从分析人员和管理人员的角度来研究新项目开发有无必要和可能。随着信息化社会的到来，计算机及其网络技术已日益成为现代教学活动中必不可少的学习内容和使用工具，越来越多的单位购置了大量的计算机设备并实现了连网，为教师和学生的学习创造了良好的学习环境，极大地改善了学习条件。目前我院计算中心机房管理采用人工管理，机房的排课相当繁琐，需要准确了解每个班的人数，机房的容纳数，对每门课程的课时数有所了解，同时还要注意班级、教师的冲突情况，防止出现安排一个班（教师）在同一时间，不同机房有课，防止出现班级人数大于机房容纳人数.管理老师为此常常需要查阅大量的表单，且易出错。另外对新班级，新开课程的添加和修改，对毕业班级信息的大批量的删除也比较繁琐。所以开发一个机房管理系统用来实现教学安排的任务是可以满足这种情况的需求的。机房管理教学安排的主要内容如图：机房管理教学安排机房排课课程信息设置机房信息设置系统设置班级信息设置以下是机房常用的一些表格表（一）班级信息表班级编号班级名称班级人数表（二）机房信息表机房号机房容纳数表（三）课程信息表课程编号课程名称课程学时表（四）教学安排表年份学期周次星期节次班级名称课程名称教师机房编号1.2系统可行性分析本阶段主要进行可行性分析，可行性分析的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。可行性分析的目的不是解决问题，而是确定问题是否值得去解决。以及对相关方法的对比。在系统初步调查的基础上，明确了计算中心现有手工操作的主要问题和建立机房综合管理系统的初步设想，进一步对系统目标等因素进行分析研究,根据分析，该系统的开发是切实可行的。1.3系统详细调查1.3.1教学安排（机房排课）排课人员从由教务处印发的班级课程教学安排中获取本学期的教学计划和教学安排情况，根据课程情况、班级人数和机房情况选择机房，在排课的过程中，机房管理人员需要处理以下几个问题：1. 同一班级在同一时间不能有两门及以上的课程安排,否则提示该班级已有安排.2. 同一名教师不能在同一时间给两个不同的班级（即在不同的机房）上课,否则提示该教师已有安排.3班级人数不能大于机房的可容纳人数,否则提示机房人数过多.1.3.2信息操作机房管理人员在班级信息表中对班级可以进行班级人数的查询功能，班级信息的修改功能，对新增班级的班级编号、班级名称、班级人数的添加功能；在课程信息表中对课程进行课程的查询课时数功能，课程信息的修改功能，对新开课程的课程编号、课程名称、课程学时的添加功能；在班级信息表中对班级编号为某一特定值的毕业班的班级信息进行统一的删除功能.1. 4数据字典在数据字典中建立的一组严密一致的定义有助于改进分析员和用户之间的通信，将消除许多可能的误解。数据字典中包含的每个数据元素的控制信息都是很有价值的，它是开发数据库的第一步。名字：班级信息别名：描述：管理人员向班级管理模块中输入需要的信息定义：班级信息 = 班级编号 + 班级名称 + 班主任 + 班级人数位置：输入到指定位置名字：课程信息别名：描述：管理人员向课程设置模块中输入需要的信息定义：课程信息 = 课程编号 + 课程名称 + 任课老师 + 课程学时位置：输入到指定位置名字：机房信息别名：描述：管理人员向机房信息管理模块中输入需要的信息定义：机房信息 = 机房号 + 机房容纳数位置：输入到指定位置名字： 机房排课录入信息别名：班级课程教师安排信息描述：管理人员向机房信息管理模块中输入需要的信息定义：班级课程教师安排表=年份 + 学期 + 周次 + 星期 + 节次 + 班级名称 + 课程名称 + 教师名称 + 机房编号位置：输入到指定位置名字：班级名称别名：描述：唯一地标识库存清单中某个班级的关键域定义：班级编号=50文本50位置：班级信息 机房排课录入信息名字：课程名称别名：描述：唯一地标识库存清单中某一课程的关键域定义：课程编号：50文本50位置：课程信息机房排课录入信息名字：机房编号别名：描述：唯一地标识库存清单中某一机房的关键域定义：机房编号：50文本50位置：机房信息机房排课录入信息数据流图数据的源点/终点 变换数据的处理 数据存储 数据流机房机房管理系统管理员 机房信息 管理 顶层数据流图2机房管理 上下机信息3班级管理 管理要求1登录过程 管理员系统 收费信息 登录 管理要求4课程 管理要求 日常信息 管理要求 报表信息5上机安排1层数据流图 第二章系统设计第二章 系统设计2.1系统的总体设计根据系统分析的结果，按照结构化的系统设计方案，本机房管理系统从功能上可划出子系统：教学安排。2.1.1系统功能分析系统开发的总体任务是实现信息关系的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成的。开发的机房管理系统之教学安排模块需要完成的功能主要有：(1) 班级信息的查询，通过输入班级编号来查询该班的班级级名称、该班班主任及该班人数。(2) 班级信息的修改，先输入需要修改的班级编号，查询到该班的班级信息，再进行信息的修改。(3) 新班级信息的添加，先查询是否有该班级编号，如果没有则可以进行新班级信息的添加，添加新班级编号、新班级名称、新班级班主任和班级人数。(4) 班级信息的删除，输入需要删除的班级编号，再进行信息的删除。(5) 毕业班级信息的整批删除，输入要删除毕业班级的年级号，再进行删除操作。(6) 机房信息的查询，通过输入机房编号来了解机房的容纳人数。(7) 机房信息设置,包括机房信息的修改, 机房信息的添加和机房信息的删除。(8) 课程信息的设置包括课程信息的查询(通过输入课程编号来查询课程名称、任课老师、课程学时)， 课程信息的修改，新课程信息的添加和课程信息的删除。(9) 机房排课录入，输入课程名称、相应地显示教课老师名称；再依次输入年份、学期、周次、星期及节次；再输入机房编号，则相应地显示机房容纳人数；输入班级名称则相应地显示班级人数。(10) 机房排课，避免排课中的冲突情况，修改及删除已排好课程。2.2系统详细设计详细设计的任务不是具体的设计地编写程序，而是设计出程序的“蓝图”，以后将根据这个蓝图写出实际的程序代码。因此详细设计的结果基本上决定了最终的程序代码质量。2.2.1开发工具的选择软件开发工具与数据库的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。数据库的选择关系型数据库的实现Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 二者的结合（DBA） 微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。规范化设计方法构造数据库时，必须遵循一定的规则。在关系数据库中，这种规则就是范式（Normal Form）。或者说，满足一定条件的关系模式，称为范式。在1971年至1972年，E.F.Codd系统提出了第一范式（1NF）、第二范式（2NF）、第三范式（3NF）的概念。1974年Codd和Boyce共同提出了BCNF范式，为第三范式的改进。1. 第一范式(1NF)在任何一个关系数据库中，第一范式(1NF)是对关系模式的基本要求，不满足第一范式的数据库就不是关系数据库。所谓的第一范式是指数据库中的每一列都是不可分割的基本数据项，同一列中不能有多个值，即实体中的每个属性不能有多个值或者不能有重复的属性。2第二范式(2NF)第二范式是在第一范式的基础上建立起来的，即满足第二范式的必定满足第一范式。第二范式要求数据库表中的每个实例或行必须可以被唯一区分。在有些时候可以被唯一区分。在有些时候，为了实现唯一的区分，往往需要为表加上一列，一个实例的只占一个标识。第二范式要求实体的属性必须完全依赖于主关键字。所谓的完全依赖是指不能存在仅依赖于主关键字的一部分的属性。如果存在，那么这个属性和主关键字的这一部分应该分离出来形成一个新的实体，新的实体与原实体丰在一对一的关系。3第三范式（3NF）第三范式是建立在第二范式的基础上的，即满足第三范式的必定要满足第二范式。第三范式要求一个数据库中不包含已在其他表中包含的非主关键字。简单的说，第三范式就是属性不依赖于其他非主属性。系统涉及到的实体机房综合管理系统所涉及到的主要实体及其属性有： 机房排课年份，学期，教学周次，星期，节次，班级，课程，教师，机房 学期课程开始日期 课程课程编号，课程名称，任课老师，总学时 班级班级编号，班级名称，班主任，班级人数 机房机房编号，机房容纳人数数据库的物理设计表的结构设计用户登陆表字段名称数据类型可否为空说明用户名文本（20）NOTNULL（20）主键密码文本（12）NULL（12）班级表字段名称数据类型可否为空说明班级编号文本（50）NOTNULL（50）主键班级名称文本（50）NOTNULL（50）班主任文本（50）NULL（50）班级人数数字（长整型）NULL机房表字段名称数据类型可否为空说明机房编号文本（20）NOTNULL（20）主键机房容纳人数数字（长整型）NULL课程表字段名称数据类型可否为空说明课程编号文本（20）NOTNULL（20）主键课程名称文本（50）NOTNULL（50）任课老师文本（20）NULL（20）课程学时数字（长整型）NULL机房排课表字段名称数据类型可否为空说明年份文本（20）NOTNULL（20）主键学期日期/时间NULL周次文本（50）NULL（50）星期文本（50）NULL（50）节次文本（50）NULL（50）机房编号文本（50）NULL（50）班级名称文本（50）NULL（50）课程名称文本（50）NULL（50）教师名称文本（50）NULL（50）2.2.2软件过程设计软件过程设计的目标不仅仅是在逻辑上实现每个模块的功能，更重要的是设计出的处理过程应该尽可能的简明易懂。结构程序设计技术是实现上述目标的关键技术，因此是软件过程详细设计的逻辑基础。结构程序设计是一种设计程序的技术，它采用单入口单出口的控制结构。由上面对数据流图和实体及其属性的分析现在可以确定此系统中的实体，属性和实体之间的关系，以下就画出各个模块的用户E-R图。下面介绍转化所需要遵守的几条准则： 1E-R模型中的每一个实体都转化成一个同名的关系，实体的属性就是关系的属性，实体集的码就是关系的码 2E-R模型中的每一个联系也用一个关系表示，与该联系相连的各实体集的码以及联系的属性转化为关系的属性。该关系的码有三种情况：若联系为1：1，则每个实体的均是该关系的候选码。若联系为1：N，则关系的码为n端实体集的码。若联系为M：N，则关系的码为各实体集码的组合。3具有相同码的关系模式可以合并数据库概念结构设计得到上面的数据项和数据结构后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本实例根据上面设计规划出的实体有：班级实体、机房实体、课程实体、教学安排（机房排课实体、班级排课实体）。各个实体具体的描述。E-R图如下：班 级班级人数班级名称班级编号 图2-1 班级实体E-R图机 房机房容纳数机房编号图2-2 机房实体E-R图 课 程 学 时 数课程名称课程编号图2-3 课程实体E-R图机房排课星期周次学期年份班级名称节次机房号图2-4 机房排课实体E-R图教学排课机房排课的模块有几个重要的控件，一个是排课录入控件，在此模块中，管理员按照年份、学期、课程名称、机房编号、班级名称等依次录入信息。一个是排课修改控件，在机房排课界面中，选择要修改的排课信息再进行修改。一个是排课删除控件，选择要删除的排课信息进行删除。输入的有效性的验证，要求报错教师安排冲突（如同一个教师在同一时间不同机房上课），还要求报错班级安排冲突（如同一班级在同一时间在不同机房上课），要求报错机房和班级人数的冲突（如上机班级人数大于机房容纳人数）。教务处班级课程机房安排表读取班级信息表课程信息表机房信息表班级人数 教师姓名 机房容纳人数排课录入 输入机房排课表信息操作在班级信息表中对班级可以进行班级人数的查询功能，班级信息的修改功能，对新增班级的添加功能；在课程信息表中对课程进行课程的查询课时数功能，课程信息的修改功能，对新开课程的添加功能；在班级信息表中对班级编号为某一特定值的毕业班的班级信息进行统一删除。查询教学表，如果有新班级则进入到班级信息中进行班级信息的录入；如果有新开课程则进入到课程录入信息中进行课程信息的录入；如果有要删除的毕业班则进入班级信息中进行对毕业班信息的删除；添加新增班级信息如图所示： 查询教学表是否有新班级是否修改信息否是 是 否 进入班级信息表添加或修改新班级信息 退出添加新开课程如图所示： 查询教学表是否有新课程否是否修改信息是 进入课程信息表 否添加或修改新课程信息 退出 毕业班信息的删除如图所示： 查询教学表否是否删除毕业班是 进入班级信息表 退出删除毕业班信息 第三章系统实施第三章 系统实施3.1代码编制规范在从事软件开发过程中，代码编制的规范很重要。特别是在后期的软件维护工作中，若软件编制规范的好，能节省软件维护人员大量的时间。在此所指的代码编制规范一般包括如下两个方面的含义。3.1.1 命名规范在代码的编制过程中，我力求采用匈牙利表示法，但由于是初次进行软件开发，所以对此认识不够深，在开发过程中有时不能够坚持，这对我在开发后期的测试和维护中带来了很大麻烦。下面是我采用的部分命名前缀：数据类型（类）前缀String(字符串)StrInteger(整型)IntTADODatasetADSADOqueryADQTcomboboxCmb/cb3.1.2代码编制思想规范整个代码的编制过程，我们应首先保证其实现过程合乎人的思维方式，在编写组件或类的时候我们应尽量让其自身的数据成员对外屏蔽。同时，在程序的外在表现上，努力采用层进式结构，使代码的层次结构清晰。32代码实施3.2.1与数据库的连接db_path = App.Path & Wonderful1.mdbSet db = OpenDatabase(db_path)Set record = db.OpenRecordset(密码表)db_path = App.Path & Wonderful1.mdbSet db = OpenDatabase(db_path)Set record = db.OpenRecordset(班级信息表)db_path = App.Path & Wonderful1.mdbSet db = OpenDatabase(db_path)Set record = db.OpenRecordset(课程信息表)以上语句用来与数据库连接3.2.2公用模块部分Private Sub Command1_Click()If Text1.Text = Then MsgBox (您没有输入用户名，请重新输入！) Text2.Text = Text1.SetFocus 计算机机房管理教学安排.Show Exit SubEnd IfIf Text2.Text = Then MsgBox (您没有输入密码，请重新输入) Text1.Text = Text1.SetFocus Exit SubEnd Ifrecord.MoveFirstDo While Not record.EOF If Text1.Text = record.Fields(0) Then If Text2.Text = record.Fields(1) Then user_id = Text1.Text username = Trim$(Text1.Text) userpsd = Trim$(Text2.Text) Unload Me 计算机机房管理教学安排.Show Exit Sub Else MsgBox 您的密码错误！请重新输入., vbCritical Text2.Text = Text2.SetFocus Exit Sub End If End If record.MoveNextLoopMsgBox 用户名错误！, vbCriticalText1.Text = Text2.Text = Text1.SetFocusEnd Sub3.2.3系统设置Private Sub Command1_Click()Dim wonderful As Booleanwonderful = False判断是否为空If Trim(Text1.Text) = ThenMsgBox 请输入用户名称！, vbCriticalExit SubText1.SetFocusEnd IfIf Trim(Text2.Text) = ThenMsgBox 请输入用户密码！, vbCriticalExit SubText2.SetFocusEnd IfIf Trim(Text3.Text) = ThenMsgBox 请输入确认密码！, vbCriticalExit SubText1.SetFocusEnd IfIf Text2.Text Text3.Text Then MsgBox 两次输入密码不相符！, vbCritical Text2.Text = Text3.Text = Text2.SetFocus Exit SubEnd Ifrecord.MoveFirstDo While Not record.EOF If Text1.Text = record.Fields(0) Then wonderful = True Exit Sub End If record.MoveNextLoopIf wonderful = False Thenrecord.MoveFirstrecord.AddNewrecord.Fields(0) = Text1.Textrecord.Fields(1) = Text2.Textrecord.UpdateMsgBox (用户添加成功！)Text1.Text = Text2.Text = Text3.Text = End IfEnd Sub以上实现的是添加用户功能3.2.4班级管理模块Private Sub cmdAdd_Click()record.MoveFirstIf Text1.Text = Or Text2.Text = Then MsgBox 请填写完整信息！, vbCritical Exit SubEnd If Do While Not record.EOF If Val(Text1.Text) = record.Fields(0) Then MsgBox 班级编号已存在，请重新输入！, vbCritical Text1.Text = Exit Sub End If record.MoveNext Looprecord.MoveFirstrecord.AddNewrecord.Fields(0) = Text1.Textrecord.Fields(1) = Text2.Textrecord.Fields(3) = Text3.Textrecord.Fields(2) = Text4.Textrecord.UpdateMsgBox (班级信息已添加成功！)Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub以上代码实现的是对新增班级信息的添加功能以下代码实现的是对班级信息的查询功能Private Sub Command5_Click()Dim wonderful As Booleanwonderful = FalseIf Text1.Text = Then MsgBox 请输入班级编号！, vbCritical Exit SubEnd Ifrecord.MoveFirstDo While Not record.EOF If Val(Text1.Text) = record.Fields(0) Then MsgBox (该班级信息已找到！) Text2.Text = record.Fields(1) Text3.Text = record.Fields(3) Text4.Text = record.Fields(2) wonderful = True Exit Sub End If record.MoveNextLoopwonderful = FalseMsgBox 不存在该班级！, vbCritical Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub以下代码实现的是对班级信息的修改功能Private Sub Command4_Click()If Text2 = Or Text2 = Then MsgBox 请先执行查询操作！, vbCritical Text2.Text = Text3.Text = Text4.Text = End Ifrecord.MoveFirstDo While Not record.EOF If Val(Text1.Text) = record.Fields(0) Then record.Edit record.Fields(0) = Text1.Text record.Fields(1) = Text2.Text record.Fields(3) = Text3.Text record.Fields(2) = Text4.Text record.Update MsgBox (班级信息已修改成功！) Text1.Text = Text2.Text = Text3.Text = Text4.Text = Exit Sub End If record.MoveNextLoopEnd sub 以下代码实现的是班级信息删除功能Private Sub Command2_Click()If Text1.Text = And Text2.Text = Then MsgBox 请先进行查询操作！, vbCritical Text1.Text = Text2.Text = Text3.Text = Text4.Text = Exit SubEnd Ifrecord.MoveFirstDo While Not record.EOF If record.Fields(0) = Text1.Text Then record.Edit record.Delete Text1.Text = Text2.Text = Text3.Text = Text4.Text = MsgBox (记录已删除！) Exit Sub End If record.MoveNextLoopEnd Sub3.2.5毕业班级信息删除模块Private Sub Command1_Click()Dim count, i As Integercount = 0Dim Msg, style, TITLE, Help, Ctxt, Response, MyStringMsg = Do you w