基于VB的机房管理系统设计与开发

1、类型：课程设计题目：基于VB的机房管理系统设计与开发简介：本系统主要实现的是教学安排功能、班级及个人上机管理功能、机房设备管理功能。我则负责完成教学安排模块，其中详细任务是了解上机班级人数、机房容纳人数、防止班级冲突、教师冲突、添加及修改新班级信息、新课程信息、删除毕业班级信息、班级、课程及机房的信息查询功能。第一章系统需求分析1.1 系统的初步调查系统的初步调查是系统分析的第一项活动，初步调查阶段的主要目标是从分析人员和管理人员的角度来研究新项目开发有无必要和可能。随着信息化社会的到来，计算机及其网络技术已日益成为现代教学活动中必不可少的学习内容和使用工具，越来越多的单位购置了大量的计算机设

2、备并实现了连网，为教师和学生的学习创造了良好的学习环境，极大地改善了学习条件。目前我院计算中心机房管理采用人工管理，机房的排课相当繁琐，需要准确了解每个班的人数，机房的容纳数，对每门课程的课时数有所了解，同时还要注意班级、教师的冲突情况，防止出现安排一个班（教师）在同一时间，不同机房有课，防止出现班级人数大于机房容纳人数.管理老师为此常常需要查阅大量的表单，且易出错。另外对新班级，新开课程的添加和修改，对毕业班级信息的大批量的删除也比较繁琐。所以开发一个机房管理系统用来实现教学安排的任务是可以满足这种情况的需求的。机房管理教学安排的主要内容如图：机房管理教学安排系统设置班级信息设置机房信息设置

3、课程信息设置机房排课以下是机房常用的一些表格表（一）班级信息表班级编号班级名称班级人数表（二）机房信息表机房号机房容纳数表（三）课程信息表课程编号课程名称课程学时表（四）教学安排表年份学期周次星期节次班级名称课程名称教师机房编号1.2 系统可行性分析本阶段主要进行可行性分析，可行性分析的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。可行性分析的目的不是解决问题，而是确定问题是否值得去解决。以及对相关方法的对比。在系统初步调查的基础上，明确了计算中心现有手工操作的主要问题和建立机房综合管理系统的初步设想，进一步对系统目标等因素进行分析研究，根据分析，该系统的开发是切实可行的。1.3

4、 系统详细调查1.3.1 教学安排（机房排课）排课人员从由教务处印发的班级课程教学安排中获取本学期的教学计划和教学安排情况，根据课程情况、班级人数和机房情况选择机房，在排课的过程中，机房管理人员需要处理以下几个问题：1 .同一班级在同一时间不能有两门及以上的课程安排，否则提示该班级已有安排.2 .同一名教师不能在同一时间给两个不同的班级（即在不同的机房）上课，否则提示该教师已有安排.3 .班级人数不能大于机房的可容纳人数，否则提示机房人数过多.1.3.2 信息操作机房管理人员在班级信息表中对班级可以进行班级人数的查询功能，班级信息的修改功能，对新增班级的班级编号、班级名称、班级人数的添加功能；

5、在课程信息表中对课程进行课程的查询课时数功能，课程信息的修改功能，对新开课程的课程编号、课程名称、课程学时的添加功能；在班级信息表中对班级编号为某一特定值的毕业班的班级信息进行统一的删除功能.1.4数据字典在数据字典中建立的一组严密一致的定义有助于改进分析员和用户之间的通信，将消除许多可能的误解。数据字典中包含的每个数据元素的控制信息都是很有价值的，它是开发数据库的第一步。名字：班级信息别名：描述：管理人员向班级管理模块中输入需要的信息定义：班级信息=班级编号+班级名称+班主任+班级人数位置：输入到指定位置名字：课程信息别名：描述：管理人员向课程设置模块中输入需要的信息定义：课程信息=课程编号

6、+课程名称+任课老师+课程学时位置：输入到指定位置名字：机房信息别名：描述：管理人员向机房信息管理模块中输入需要的信息定义：机房信息=机房号+机房容纳数位置：输入到指定位置名字：机房排课录入信息别名：班级课程教师安排信息描述：管理人员向机房信息管理模块中输入需要的信息定义：班级课程教师安排表二年份+学期+周次+星期+节次+班级名称+课程名称+教师名称+机房编号位置：输入到指定位置名字：班级名称别名：描述：唯一地标识库存清单中某个班级的关键域定义：班级编号=50文本50位置：班级信息机房排课录入信息名字：课程名称别名：描述：唯一地标识库存清单中某一课程的关键域定义：课程编号：50文本50位置：课

7、程信息机房排课录入信息名字：机房编号别名：描述：唯一地标识库存清单中某一机房的关键域定义：机房编号：50文本50位置：机房信息机房排课录入信息第二章系统设计2.1系统的总体设计根据系统分析的结果，按照结构化的系统设计方案，本机房管理系统从功能上可划出子系统：教学安排。2.1.1系统功能分析系统开发的总体任务是实现信息关系的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成的。开发的机房管理系统之教学安排模块需要完成的功能主要有：(1)班级信息的查询，通过输入班级编号来查询该班的班级级名称、该班班主任及该班人数。(2)班级信息的修改，先输入需要修改的班级编号，查询到该班的班级

8、信息，再进行信息的修改。(3)新班级信息的添加，先查询是否有该班级编号，如果没有则可以进行新班级信息的添加，添加新班级编号、新班级名称、新班级班主任和班级人数。(4)班级信息的删除，输入需要删除的班级编号，冉进行信息的删除。(5)毕业班级信息的整批删除，输入要删除毕业班级的年级号，再进行删除操作。(6)机房信息的查询，通过输入机房编号来了解机房的容纳人数。(7)机房信息设置，包括机房信息的修改，机房信息的添加和机房信息的删除。(8)课程信息的设置包括课程信息的查询(通过输入课程编号来查询课程名称、任课老师、课程学时)，课程信息的修改，新课程信息的添加和课程信息的删除。(9)机房排课录入，输入课

9、程名称、相应地显示教课老师名称；再依次输入年份、学期、周次、星期及节次；再输入机房编号，则相应地显示机房容纳人数；输入班级名称则相应地显示班级人数。(10)机房排课，避免排课中的冲突情况，修改及删除已排好课程。2.2系统详细设计详细设计的任务不是具体的设计地编写程序，而是设计出程序的“蓝图”，以后将根据这个蓝图写出实际的程序代码。因此详细设计的结果基本上决定了最终的程序代码质量。2.2.1 开发工具的选择 软件开发工具与数据库的选择微软公司的VisualBasic6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大

10、量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。 数据库的选择关系型数据库的实现Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其

11、他网络用户共享数是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。二者的结合（DBA微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及VisualBasic来访问数据库并对其进行各种操作。VisualBasic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA控件在数据库中的信息与将信息显示给用户看的VisualBasic程序之间架起了一座桥梁。我们可以设置DATA空件的各个属性，告诉它要调

12、用那个数据库的哪个部分。缺省情况下,DATA空件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA空件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。 规范化设计方法构造数据库时，必须遵循一定的规则。在关系数据库中，这种规则就是范式（NormalForm）。或者说，满足一定条件的关系模式，称为范式。在1971年至1972年，E.F.Codd系统提出了第一范式（1NF%

13、第二范式（2ND、第三范式（3NF）的概念。1974年Codd和Boyce共同提出了BCNFFE式，为第三范式的改进。1 .第一范式（1NF）在任何一个关系数据库中，第一范式（1NF）是对关系模式的基本要求，不满足第一范式的数据库就不是关系数据库。所谓的第一范式是指数据库中的每一列都是不可分割的基本数据项，同一列中不能有多个值，即实体中的每个属性不能有多个值或者不能有重复的属性。2 .第二范式（2NF）第二范式是在第一范式的基础上建立起来的，即满足第二范式的必定满足第一范式。第二范式要求数据库表中的每个实例或行必须可以被唯一区分。在有些时候可以被唯一区分。在有些时候，为了实现唯一的区分，往往需

14、要为表加上一列，一个实例的只占一个标识。第二范式要求实体的属性必须完全依赖于主关键字。所谓的完全依赖是指不能存在仅依赖于主关键字的一部分的属性。如果存在，那么这个属性和主关键字的这一部分应该分离出来形成一个新的实体，新的实体与原实体丰在一对一的关系。3 .第三范式（3NF）第三范式是建立在第二范式的基础上的，即满足第三范式的必定要满足第二范式。第三范式要求一个数据库中不包含已在其他表中包含的非主关键字。简单的说，第三范式就是属性不依赖于其他非主属性。 系统涉及到的实体机房综合管理系统所涉及到的主要实体及其属性有：?机房排课年份，学期，教学周次，星期，节次，班级，课程，教师，机房?

15、学期课程开始日期?课程课程编号，课程名称，任课老师，总学时?班级班级编号，班级名称，班主任，班级人数?机房机房编号，机房容纳人数 数据库的物理设计表的结构设计用户登陆表字段名称数据类型可含为空说明用户名文本(20)NOTNULL20)主键密码文本(12)NULL(12)班级表字段名称数据类型可含为空说明班级编号文本(50)NOTNULL50)主键班级名称文本(50)NOTNULL50)班主任文本(50)NULL(50)班级人数数字(长整型)NULL机房表字段名称数据类型可含为空说明机房编号文本(20)NOTNULL20)主键机房容纳人数数字(长整型)NULL课程表字段名称数据类型

16、可含为空说明课程编号文本(20)NOTNULL20)主键课程名称文本(50)NOTNULL50)任课老师文本(20)NULL(20)课程学时数字(长整型)NULL机房排课表字段名称数据类型可含为空说明年份文本(20)NOTNULL20)主键学期日期/时间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软件过程设计软件过程设计的目标不仅仅是在逻辑上实现每个模块的功能，更重要的是设计出的处理

17、过程应该尽可能的简明易懂。结构程序设计技术是实现上述目标的关键技术，因此是软件过程详细设计的逻辑基础。结构程序设计是一种设计程序的技术，它采用单入口单出口的控制结构。由上面对数据流图和实体及其属性的分析现在可以确定此系统中的实体，属性和实体之间的关系，以下就画出各个模块的用户E-R图。下面介绍转化所需要遵守的几条准则：1 .E-R模型中的每一个实体都转化成一个同名的关系，实体的属性就是关系的属性，实体集的码就是关系的码2 .E-R模型中的每一个联系也用一个关系表示，与该联系相连的各实体集的码以及联系的属性转化为关系的属性。该关系的码有三种情况：若联系为1:1,则每个实体的均是该关系的候选码。若

18、联系为1:N,则关系的码为n端实体集的码。若联系为MN,则关系的码为各实体集码的组合。3 .具有相同码的关系模式可以合并 数据库概念结构设计得到上面的数据项和数据结构后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本实例根据上面设计规划出的实体有：班级实体、机房实体、课程实体、教学安排（机房排课实体、班级排课实体）。各个实体具体的描述。E-R图如下：班级图2-1班级实体E-R图机房图2-2机房实体E-R图课程图2-4机房排课实体E-R图 教学排课机房排课的模块有

19、几个重要的控件，一个是排课录入控件，在此模块中，管理员按照年份、学期、课程名称、机房编号、班级名称等依次录入信息。一个是排课修改控件,在机房排课界面中，选择要修改的排课信息再进行修改。一个是排课删除控件，选择要删除的排课信息进行删除。输入的有效性的验证，要求报错教师安排冲突（如同一个教师在同一时间不同机房上课），还要求报错班级安排冲突（如同一班级在同一时间在不同机房上课），要求报错机房和班级人数的冲突（如上机班级人数大于机房容纳人数）班级人数教师姓名机房容纳人数课录e输入机房排课表 信息操作在班级信息表中对班级可以进行班级人数的查询功能，班级信息的修改功能，对新增班级的添加功能；

20、在课程信息表中对课程进行课程的查询课时数功能，课程信息的修改功能，对新开课程的添加功能；在班级信息表中对班级编号为某一特定值的毕业班的班级信息进行统一删除。查询教学表，如果有新班级则进入到班级信息中进行班级信息的录入；如果有新开课程则进入到课程录入信息中进行课程信息的录入；如果有要删除的毕业班则进入班级信息中进行对毕业班信息的删除；添加新增班级信息如图所示：添加新开课程如图所示:毕业班信息的删除如图所示:删除毕业班信息退出第三章系统实施3.1 代码编制规范在从事软件开发过程中，代码编制的规范很重要。特别是在后期的软件维护工作中,若软件编制规范的好，能节省软件维护人员大量的时间。在此所指的代码编

21、制规范一般包括如下两个方面的含义。3.1.1 命名规范在代码的编制过程中，我力求采用匈牙利表示法，但由于是初次进行软件开发，所以对此认识不够深，在开发过程中有时不能够坚持，这对我在开发后期的测试和维护中带来了很大麻烦。下面是我采用的部分命名前缀：数据类型（类）前缀String（字符串）StrInteger（整型）IntTADODatasetADSADOqueryADQTcomboboxCmb/cb3.1.2 代码编制思想规范整个代码的编制过程，我们应首先保证其实现过程合乎人的思维方式，在编写组件或类的时候我们应尽量让其自身的数据成员对外屏蔽。同时，在程序的外在表现上，努力采用层进式结构，使代码

22、的层次结构清晰。3. 2代码实施3.1.1 与数据库的连接db_path=App.Path&"Wonderful1.mdb"Setdb=OpenDatabase(db_path)Setrecord=db.OpenRecordset瘠码表")db_path=App.Path&"Wonderful1.mdb"Setdb=OpenDatabase(db_path)Setrecord=db.OpenRecordset(®级信息、表")db_path=App.Path&"Wonderful1.mdb&

23、quot;Setdb=OpenDatabase(db_path)Setrecord=db.OpenRecordset牌程信息、表")以上语句用来与数据库连接3.1.2 公用模块部分PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox("您没有输入用户名，请重新输入！")Text2.Text=""Text1.SetFocus'计算机机房管理教学安排.ShowExitSubEndIfIfText2.Text=""ThenMsgBox（“您没有输入密码，

24、请重新输入"）Text1.Text=""Textl.SetFocusExitSubEndIfrecord.MoveFirstDoWhileNotrecord.EOFIfText1.Text=record.Fields(0)ThenIfText2.Text=record.Fields(1)Thenuser_id=Text1.Textusername=Trim$(Text1.Text)userpsd=Trim$(Text2.Text)UnloadMe计算机机房管理教学安排.ShowExitSubElseMsgBox”您的密码错误！请重新输入.”,vbCriticalT

25、ext2.Text=""Text2.SetFocusExitSubEndIfEndIfrecord.MoveNextLoopMsgBox”用户名错误!",vbCriticalText1.Text=""Text2.Text=""Text1.SetFocusEndSub3.1.3 系统设置PrivateSubCommand1_Click()DimwonderfulAsBooleanwonderful=False判断是否为空IfTrim(Text1.Text)=""ThenMsgBox"请输入用户名称

26、！",vbCriticalExitSubText1.SetFocusEndIfIfTrim(Text2.Text)=""ThenMsgBox”请输入用户密码！",vbCriticalExitSubText2.SetFocusEndIfIfTrim(Text3.Text)=""ThenMsgBox"请输入确认密码！",vbCriticalExitSubTextl.SetFocusEndIfIfText2.Text<>Text3.TextThenMsgBox"两次输入密码不相符！",vb

27、CriticalText2.Text=""Text3.Text=""Text2.SetFocusExitSubEndIfrecord.MoveFirstDoWhileNotrecord.EOFIfText1.Text=record.Fields(0)Thenwonderful=TrueExitSubEndIfrecord.MoveNextLoopIfwonderful=FalseThenrecord.MoveFirstrecord.AddNewrecord.Fields(0)=Text1.Textrecord.Fields(1)=Text2.Textre

28、cord.UpdateMsgBox("用户添加成功！")Text1.Text=""Text2.Text=""Text3.Text=""EndIfEndSub以上实现的是添加用户功能3.1.4 班级管理模块PrivateSubcmdAdd_Click()record.MoveFirstIfText1.Text=""OrText2.Text=""ThenMsgBox"请填写完整信息！",vbCriticalExitSubEndIfDoWhileNotrecor

29、d.EOFIfVal(Text1.Text)=record.Fields(0)ThenMsgBox"班级编号已存在，请重新输入！",vbCriticalText1.Text=""ExitSubEndIfrecord.MoveNextLooprecord.MoveFirstrecord.AddNewrecord.Fields(0)=Textl.Textrecord.Fields(l)=Text2.Textrecord.Fields(3)=Text3.Textrecord.Fields(2)=Text4.Textrecord.UpdateMsgBox(&qu

30、ot;班级信息已添加成功！")Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSub以上代码实现的是对新增班级信息的添加功能以下代码实现的是对班级信息的查询功能PrivateSubCommand5_Click()DimwonderfulAsBooleanwonderful=FalseIfText1.Text=""ThenMsgBox"请输入班级编号！",vbCriticalExitSubEndIfreco

31、rd.MoveFirstDoWhileNotrecord.EOFIfVal(Text1.Text)=record.Fields(0)ThenMsgBox("该班级信息已找到！")Text2.Text=record.Fields(1)Text3.Text=record.Fields(3)Text4.Text=record.Fields(2)wonderful=TrueExitSubEndIfrecord.MoveNextLoopwonderful=FalseMsgBox"不存在该班级！",vbCriticalTextl.Text=""T

32、ext2.Text=""Text3.Text=""Text4.Text=""Text1.SetFocusEndSub以下代码实现的是对班级信息的修改功能PrivateSubCommand4_Click()IfText2=""OrText2=""ThenMsgBox"请先执行查询操作！",vbCriticalText2.Text=""Text3.Text=""Text4.Text=""EndIfrecord.MoveF

33、irstDoWhileNotrecord.EOFIfVal(Text1.Text)=record.Fields(0)Thenrecord.Editrecord.Fields(0)=Text1.Textrecord.Fields(1)=Text2.Textrecord.Fields(3)=Text3.Textrecord.Fields(2)=Text4.Textrecord.UpdateMsgBox("班级信息已修改成功！")Text1.Text=""Text2.Text=""Text3.Text=""Text4.T

34、ext=""ExitSubEndIfrecord.MoveNextLoopEndsub以下代码实现的是班级信息删除功能PrivateSubCommand2_Click()IfText1.Text=""AndText2.Text=""ThenMsgBox"请先进行查询操作！",vbCriticalText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""ExitSubEndIfrecord.M

35、oveFirstDoWhileNotrecord.EOFIfrecord.Fields(0)=Text1.TextThenrecord.Editrecord.DeleteText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""MsgBox("记录已删除！")ExitSubEndIfrecord.MoveNextLoopEndSub班纵管理框查询修改添加删除退出3.1.5 毕业班级信息删除模块PrivateSubCommand1_Click()Dim

36、count,iAsIntegercount=0DimMsg,style,TITLE,Help,Ctxt,Response,MyStringMsg="Doyouwanttocontinue?"'定义信息style=vbYesNo+vbCritical+vbDefaultButton2TITLE="删除提示框"Help="DEMO.HLP"Ctxt=1000IfText1.Text=""ThenMsgBox("请输入删除的年级编号！")ExitSubEndIf定义按钮定义标题定义帮助义件定义

37、标题mfg1.Clearmfg1.Cols=4mfg1.TextMatrix(0,0)=record.Fields(0).Namemfg1.TextMatrix(0,1)=record.Fields(1).Namemfg1.TextMatrix(0,2)=record.Fields(2).Namemfg1.TextMatrix(0,3)=record.Fields(3).Namemfg1.FixedRows=1mfg1.Rows=2record.MoveFirstDoWhileNotrecord.EOFIfVal(Left(record.Fields(1),2)=Val(Text1.Text)

38、Thenmfg1.TextMatrix(mfg1.Rows-1,0)=record.Fields(0)mfg1.TextMatrix(mfg1.Rows-1,1)=record.Fields(1)mfg1.TextMatrix(mfg1.Rows-1,2)=record.Fields(2)mfg1.TextMatrix(mfg1.Rows-1,3)=record.Fields(3)mfg1.Rows=mfg1.Rows+1EndIfrecord.MoveNextLoopEndSubPrivateSubCommand2_Click()IfMsgBox("真的需要删除当前记录？"

39、;,vbYesNo,"信息提示")=vbYesThenrecord.MoveFirstDoWhileNotrecord.EOFIfVal(Left(record.Fields(1),2)=Val(Text1.Text)Thenrecord.Editrecord.DeleteEndIfrecord.MoveNextLoopmfg1.ClearEndIfEndSub毕业班皴信息删除钝编号;退出鹿纺编号班皴人敷才宜机一现30才篁机二班40颊3三十篁机屈29990499外语1班309905I哪卜语班22990S34确定3.1.6 机房信息管理模块PrivateSubCommand3

40、_Click()record.MoveFirstIfText1.Text=""OrText2.Text=""ThenMsgBox"请填写完整的信息！",vbCriticalExitSubEndIfDoWhileNotrecord.EOFIfVal(Text1.Text)=record.Fields(0)ThenMsgBox"机房编号已存在，请重新输入！",vbCriticalText1.Text=""Text2.Text=""ExitSubEndIfrecord.MoveNe

41、xtLooprecord.MoveFirstrecord.AddNewrecord.Fields(0)=Textl.Textrecord.Fields(l)=Text2.Textrecord.UpdateMsgBox("机房信息已添加成功！")Text1.Text=""Text2.Text=""EndSub以上代码实现的是机房信息的添加功能PrivateSubCommand2_Click()IfText1=""OrText2=""ThenMsgBox”请先执行查询操作！",vbCrit

42、icalText1.Text=""Text2.Text=""EndIfrecord.MoveFirstDoWhileNotrecord.EOFIfVal(Text1.Text)=record.Fields(0)Thenrecord.Editrecord.Fields(0)=Text1.Textrecord.Fields(1)=Text2.Textrecord.UpdateMsgBox("机房信息已修改成功！")Text1.Text=""Text2.Text=""ExitSubEndIfrecor

43、d.MoveNextLoopEndSub以上代码实现的是机房信息修改功能PrivateSubCommand5_Click()DimwonderfulAsBooleanwonderful=FalseIfTextl.Text=""ThenMsgBox”请输入机房编号！",vbCriticalExitSubEndIfrecord.MoveFirstDoWhileNotrecord.EOFIfVal(Text1.Text)=record.Fields(0)ThenMsgBox("该机房已找到！")Text2.Text=record.Fields(1)w

44、onderful=TrueExitSubEndIfrecord.MoveNextLoopwonderful=FalseMsgBox”不存在该机房编号！",vbCriticalText1.Text=""Text2.Text=""EndSub以上代码实现的是对机房信息的查找功能以下代码实现的是机房信息删除功能PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""ThenMsgBox"请先进行查询操作！",vbCriticalTex

45、t1.Text=""Text2.Text=""ExitSubEndIfrecord.MoveFirstDoWhileNotrecord.EOFIfrecord.Fields(0)=Textl.TextThenrecord.Editrecord.DeleteText1.Text=""Text2.Text=""MsgBox（"记录已删除！"）EndIfrecord.MoveNextLoopEndSub3.1.7 课程设置模块PrivateSubCommand4_Click()Dimwonderful

46、AsBooleanwonderful=FalseIfText1.Text=""ThenMsgBox”请输入课程编号！",vbCriticalExitSubEndIfrecord.MoveFirstDoWhileNotrecord.EOFIfVal(Textl.Text)=record.Fields(0)ThenMsgBox("该课程已找到！")Text2.Text=record.Fields(1)Text4.Text=record.Fields(2)Text3.Text=record.Fields(3)wonderful=TrueExitSub

47、EndIfrecord.MoveNextLoopwonderful=FalseMsgBox"不存在该课程！",vbCriticalText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSub以上代码实现的是课程查询功能PrivateSubCommand3_Click()vbCriticalIfText2=""OrText2=""ThenMsgBox"请先执行查询操作!Text2.Text=&

48、quot;"Text3.Text=""Text4.Text=""EndIfrecord.MoveFirstDoWhileNotrecord.EOFIfVal(Text1.Text)=record.Fields(0)Thenrecord.Editrecord.Fields(0)=Textl.Textrecord.Fields(l)=Text2.Textrecord.Fields(2)=Text4.Textrecord.Fields(3)=Text3.Textrecord.UpdateMsgBox("课程已修改成功！")Text

49、1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""ExitSubEndIfrecord.MoveNextLoopEndSub以上代码实现的是课程修改功能PrivateSubCommand1_Click()record.MoveFirstIfText1.Text=""OrText2.Text=""ThenMsgBox”请填写完整的信息！",vbCriticalExitSubEndIfDoWhileNotrecord.EOF

50、IfVal(Text1.Text)=Val(record.Fields(0)ThenMsgBox"课程编号已存在，请重新输入！",vbCriticalText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""ExitSubEndIfrecord.MoveNextLooprecord.MoveFirstrecord.AddNewrecord.Fields(0)=Text1.Textrecord.Fields(1)=Text2.Textrecord.Fi

51、elds(2)=Text4.Textrecord.Fields(3)=Text3.Textrecord.UpdateMsgBox("课程信息已添加成功！")Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSub以上代码实现的是课程添加功能退出询修改添加册赊第四章系统测试软件测试贯穿整个系统，测试的目的是查找错误，而不是证明软件没明错误。包括模块测试和系统测试，模块测试采用“白盒”的路径测试技术，而集成测试采用基于“黑盒”的事务处理流程

52、测试技术。4.1 模块测试模块测试也叫单元测试，它的依据是详细设计描述，模块测试应对模块内所有重要的控制路径设计测试用例。4.1.1 用户登录模块1）在登录窗体中，当输入错误用户信息时，显示结果：给出提示“您输入的帐号不存在，请检查后重新输入！”。测试通过2）当在登陆窗体写错密码，显示结果：给出提示“密码错误，请重新输入密码”。测试通过4.1.2 系统设置模块1）添加用户模块中，当输入用户名，没有输入密码时，则显示结果：给出提示“请输入用户密码”。测试通过2）在添加用户模块中，当输入用户名，输入用户密码没有输入用户确认密码时，则显示结果：给出提示“请输入确认密码”。测试通过3）当输入了用户名输入了密码和确认密码后，但两次密码不正确，则显示结果：给出提示“两次输入密码不相符”测试通过4）当添加用户成功后，用此用户名和此用户密码重新登录，测试结果：正确4.1.3 班级管理模块1）查询班级信息模块中，输入班级编号，点击“查询”按纽，显示该班级信息。测试结果：正确输入不存在的班级编号，则显示结果：给出提示“不存在该班级”测试通过2）修改班级信息模块中，先输入班级编号再执行查询操作，修