六盘水师专成教教务管理信息系统.doc

毕业设计(论文)题 目： 姓 名： 指导教师： 专 业： 层 次： 200年 9 月 20 日摘 要随着我国成人教育的快速发展，办学规模不断扩大，教学资源明显紧缺，使教务管理部门的任务越来越重，不仅增大了工作量，更增大了工作难度，管理稍不到位，便容易出现失误。而在高校中，教务管理工作具有举足轻重的地位，教学质量直接取决十教务管理水平。成人教育学生学习的特点和普通在校生不一样，时间跨度比较大，考试时间和教学时间往往不统一，并且学生多为业余学习，平时交流不力一便。囚此为了适应目前信息时代对管理的制度化、程序化、标准化等力一而的要求，建立一套界而友好，易十学习，非计算机专业人员经过短时间培训即可掌握基木操作，符合成人教育特点的信息化管理系统是非常有必要的。现在，各高校己经习各计算机技术引入到教务管理工作中来，各系部和教务处都配备了计算机，并偿试着应用计算机对学籍、成绩等进行计算机管理，校园网己经建成或正在建设完善之中。各高校教务管理网络化的建设加快了步伐，一些和教务有关的软件正在引进和建设之中，其中较为突出的有清华大学、浙江大学等高校研制开发的针对高校普通教育教务管理系统。成教管理系统也己出现了不同层次的各类系统，成教教务管理力一而也从单纯的录入、查询、统计、分析发展成为具有一定综合处理能力的管理平台。但是，所有这些引进与建设并没有彻底打破以往那种旧的教务管理模式:课大多还是在手动完成;各部门之间文件的交流与传递还是通过人工完成;仅有的几个教务管理软件也只能单机作业，造成教务管理部门与各系部的教务管理各自为阵，只是独立完成自己的工作任务。借助校园网网络环境构建我校成教教务管理信息系统，可以合理地利用Intranet的网络资源和Web跨平台数据访问能力，通过Web进行各种教务、教学信息的共享，交互。广大师生可以通过浏览器力一便地获得各种教务、教学信息。同时基十校园网实现教务工作的二级管理模式，在这种模式中，各种具体的教务管理工作可以被合理地分配到成教院教务利一和各系倍仔)二级教务管理职能部门中去。这样，既清晰地划分了各职能部门的工作范围，又减轻了学院教务利一的工作负担，更卞要的是为管理者提供及时、准确、全而、适用的数据，将工作人员从繁琐的手工劳动中解放出来，减轻工作人员的劳动强度，提高工作效率，从而提高整个学校成教教务管理工作的水平。由十全国高校的成教教务管理没有统一的模式，所以引进的教务管理软件将不具有针对性，也很难保证它的通用性和适用性，这个问题是教务管理人员在实践中必须认真考虑和解决的问题。目前大多数高等院校所采用的软件多为单机版或局域网版，己不能满足工作的需要，也不能更好的利用校园网和Internet更好的服务十教学和管理，这就在很大程度上影响了学校管理工作的效率，甚至影响正常的教学进程。运用现代化的手段进行利一学管理，利用校园网的普及，建立全而的具有通用性、开放性、实用性和灵活性的网络教学管理体系成为必然趋势。关键词：成教教务管理系统、管理信息系统、学生管理、Visual Basic应用。目 录1 前言11.1 系统及需求分析11.1.1 系统需求11.1.2可行性分析11.2系统的功能简介41.2.1 项目规划41.2.2系统管理模块41.2.3班级管理模块41.2.4学生档案管理模块41.2.5课程管理模块41.2.6成绩管理模块51.3系统开发的目标52 系统分析62.1业务流程分析62.2数据流程分析72.2.1数据流程图72.3数据存储分析82.3.1 数据模型设计82.3.2分析三个实体之间的联系82.4功能分析93 系统设计103.1软件模块结构设计103.1.1系统方案确定103.1.2软件结构设计103.2数据库设计103.2.1主要实体数据表113.2.2 各表的物理结构114 系统的功能144.1系统登陆界面144.2系统主界面154.3用户管理模块184.4学生缴费管理模块205 系统测试255.1 系统测试的含义255.2 测试的目标255.3 测试的方法255.3.1 静态测试方法255.3.2 动态测试方法255.4 测试的步骤255.4.1 单元测试255.4.2 组合测试265.4.3 确认测试265.4.4 系统测试265.4.5 用户验收测试26 5.5 测试的成功之处27结 论28致 谢29参考文献30 1 前言本学生信息管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生缴费管理系统等多种功能，因而具有较强的实用性和先进性。1.1 系统及需求分析1.1.1 系统需求通过调查,要求系统需要有以下功能: 由于操作人员的计算机知识普遍较差,要求有良好的人机界面; 由于该系统的使用对象多,要求有较好的权限管理; 原始数据修改简单方便,支持多条件修改 方便的数据查询，支持多条件查询; 在相应的权限下，删除数据方便简单，数据稳定性好； 数据计算自动完成，尽量减少人工干预;1.1.2可行性分析由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。本系统的设计是在Windows 98中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：Visual Basic语言Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。1.2系统的功能简介本系统主要可以实现以下的管理功能：班级管理、学生档案管理、学生交费管理、课程管理、成绩管理等等。1.2.1 项目规划学生信息管理系统是一个典型的数据库应用程序,由班级管理、学生档案管理、学生交费管理、课程管理、成绩管理等模块组成,特规划如下:1.2.2系统管理模块该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户(快捷键：CTRL+A)、修改密码(快捷键：CTRL+B)、重新登录(快捷键：CTRL+F1)等等。1.2.3班级管理模块该模块的功能是实现对全校班级的管理工作，包括：班级游览、班级添加、班级查询等，这三个功能模块各自独立，完成学校的全部班级的管理。1.2.4学生档案管理模块该模块的主要功能是实现对学生的个人信息的管理工作，包括档案添加、档案浏览、档案查询等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。1.2.5课程管理模块该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设计和班级课程设置两个模块。1.2.6成绩管理模块学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括考试类型设置，共有期中考试和期未考试两种类型，还设置了成绩添加、成绩游览、成绩查询等功能模块。1.3系统开发的目标出于本系统是学校学生管理的一个综合性的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。2 系统分析2.1业务流程分析教务处输入计算机班主任教务处学生班级班级输出图2-1班级管理业务流程图教务处输入计算机班主任教务处学生档案档案输出图2-2档案管理业务流程图教务处输入计算机教师教务处学生课程输出课程图2-3课程管理业务流程图教务处输入计算机教师教务处学生成绩教师输出图2-4成绩管理业务流程图2.2数据流程分析2.2.1数据流程图由于本系统的数据模块较多，下面仅以学生成绩管理模块为例来进行编制。如图2-5学籍管理部门教师学生成绩管理系统教务处学生教师教师学生情况学生成绩查询统计分析图2-5 学生成绩管理系统层数据流程图学生管理部门教务处教师1.0学生管理2.0课程管理3.0成绩管理4.0统计分析D1D2D3查询者管理者课程成绩图2-6 学生成绩管理系统1层数据流程图2.3数据存储分析2.3.1 数据模型设计首先来做出学生成绩管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2.3.2分析三个实体之间的联系首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习,这个联系图可画成如图2-7所示:学生课程成绩学习mn图2-7 学生成绩管理系统中学生与课程联系图教师与课程这两个实体之间，是一对多联系；一位教师可以都多门课程，而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教，但对某个固定的学生来说只能有一位教师)。其联系图，如下图所示:n教师课程教学l图2-8 教师与课程联系图教师与课程的联系图组合到一起，得到最后的实体联系图，就可以设计数据库。下图为数据模型图。学生课程教师学习学习课程学生教师实体模型数据模型数据库lnmm学习图2-9 系统实体联系图学生信息管理系统登录系统管理班级管理档案管理打印报表课程管理成绩管理基本课程设置学生缴费浏览班级课程设置学生缴费添加基本学费设置学生缴费查询修改密码添加班级档案浏览添加用户复新登录班级浏览班级查询档案添加档案查询2.4功能分析图2-10 系统功能模块图3 系统设计3.1软件模块结构设计3.1.1系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：班级管理、学生成绩管理、学生交费管理、课程管理、成绩管理、系统管理等功能。3.1.2软件结构设计本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。接受数据处理中心班级管理档案管理交费管理课程管理成绩管理打印报表 图3-1系统结构设计3.2数据库设计数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。3.2.1主要实体数据表 allkecheng表：课程名称，教材cj表：学号，学期，类型，课程名称，分数class表：年级，班级，教室，年制，专业，班主任，备注classkecheng表：年级，专业，年制，学期，课程名称jf表：学号，学期，交费，欠费，日期，操作员kaoshileixing表：类型use表：username,password,admin,readonly,qx1,qx2,qx3,qx4xj表：学号，姓名，性别，班级，出生年月，家庭住址，邮政编码，联系电话，入学时间，备注suefei表：年级，专业，年制，学期，学费3.2.2 各表的物理结构表3-1 allkecheng字段名称类型宽度小数位课程名称文本20教材文本30表3-2 Cj字段名称类型宽度小数位学号文本10学期文本50类型文本16课程名称文本20分数单精度型数字自动表3-3 Class字段名称类型宽度小数位年级文本16班级文本20教室文本5年制文本8专业文本16班主任文本8备注备注表3-4 Classkecheng字段名称类型宽度小数位年级文本16专业文本12年制文本8学期文本50课程名称文本20表3-5 Jf字段名称类型宽度小数位学号文本5学期文本50交费货币自动欠费货币自动日期日期/时间操作员文本10表3-6 Kaosileixing字段名称类型宽度小数位类型文本10表3-7 Use字段名称类型宽度小数位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2表3-8 xj字段名称类型宽度小数位学号文本9姓名文本8性别文本2班级文本10出生年月日期/时间家庭住址文本30邮政编码数字（长整型）联系电话数字（长整型）入学时间日期/时间备注备注表3-9 xuefei字段名称类型宽度小数位年级文本16专业文本50年制文本20学期文本40学费货币自动4 系统的功能本部分主要内容为本系统的运行界面以及主要界面的源代码。4.1系统登陆界面本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用909;909为用户名和密码来登陆本系统。界面如图4-1所示:图4-1系统登录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 = 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(Text2.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 MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End Sub4.2系统主界面本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有6个功能菜单和19个子菜单（功能模块），从而实现了本系统从班级管理、档案管理、缴费管理、课程管理、成绩管理等系统的具体功能，同时，在系统管理模块中可以完成对本系统的安全性管理。如图4-2所示:图4-2 学生管理系统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 liulan1 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 = 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 = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)End SubPrivate Sub classapp_Click()qxstr = Executeqx(2)If qxstr = false Or qxstr = readonly Then ss = MsgBox(对不起，你没有管理本功能的权限，请与管理员联系！, vbInformation + vbOKOnly, 警告) Exit SubEnd IfFormclass1.Show classmodi = False Formclass1.classload Formclass1.ZOrder (0)End SubPublic Sub clabrowse()txtsql = select * from classFormclass2.ZOrder (0)Formclass2.Caption = 浏览班级设置Formclass2.classshowtitleFormclass2.classshowdataEnd Sub4.3用户管理模块本模块是本系统的安全性设置模块，根据学校不同部门以及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。如图4-3所示:图4-3 新增用户Private Sub Command1_Click()If Trim(Text1(0).Text) = Then MsgBox 用户名不能为空！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) = Then MsgBox 密码不能为空！, vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = Then MsgBox 确认密码不能为空！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 确认密码不正确！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit SubEnd IfDim aa As Integeraa = 0If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End IfNext iIf aa = 0 Then MsgBox 普通用户至少要有一项权限！, vbExclamation + vbOKOnly, 警告Exit SubEnd IfEnd IfDim mrc As ADODB.Recordsettxtsql = select * from use where username= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = False Then MsgBox 已存在该用户！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub4.4学生缴费管理模块因为本系统中有些功能模块具有相似之处，因此在本文只用此模块进行一个简单的说明。其它的相似模块的代码可能参阅本模块的设计思路。如图4-4所示:图4-4 交费浏览Public printstr As StringPrivate Sub Command1_Click() Dim dbSource As Database Set dbSource = OpenDatabase(xs.mdb) dbSource.Execute (SELECT * INto 班级一览表 IN 学生管理一览表.xls EXCEL 5.0; FROM class) z = MsgBox(成功！, vbOKOnly, 查询)End SubPublic Sub classshowtitle() Dim i As Integer MSF1.Clear With MSF1 .Cols = 8 .TextMatrix(0, 1) = 年级 .TextMatrix(0, 2) = 班级 .TextMatrix(0, 3) = 教室 .TextMatrix(0, 4) = 年制 .TextMatrix(0, 5) = 专业 .TextMatrix(0, 6) = 班主任 .TextMatrix(0, 7) = 备注 .ColWidth(0) = 100 .ColWidth(1) = 1300 .ColWidth(2) = 1200 .ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 5000 .FixedRows = 1 For i = 1 To 7 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Row = 1 End WithEnd SubPublic Sub classshowdata()Dim j As IntegerDim i As IntegerDim mrc1 As ADODB.Recordset Set mrc1 = ExecuteSQL(Trim(txtsql) If mrc1.EOF = False Then mrc1.MoveFirst With MSF1 .Rows = 1 Do While Not mrc1.EOF .Rows = .Rows + 1 For i = 1 To mrc1.Fields.Count .TextMatrix(.Rows - 1, i) = mrc1.Fields(i - 1) Next i mrc1.MoveNext Loop mrc1.Close End With Else If classfind = True Then Formclass2.Hide Formclass3.Show zzz = MsgBox(对不起，没有此班级的档案记录！, vbOKOnly, 查询) Formclass3.ZOrder (0) Formclass3.Text1(0).SetFocus End If End IfEnd SubPrivate Sub cmddel_Click()qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(对不起，你是只读用户不能删除记录，请与管理员联系！, vbInformation + vbOKOnly, 警告) Exit Sub End If Dim mrc As ADODB.Recordset Dim msgtext As String Dim intcount As Integer If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) = Then sssss = MsgBox(你还没有选择记录！, vbOKOnly + vbExclamation, 警告) Exit Sub End If If MsgBox(确定要删除班级为 & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2) & 的记录吗？ & Chr(13) & Chr(10) & 继续会导致该班级在成绩和学费记录的数据丢失，继续吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班级= & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2) & Set mrc = ExecuteSQL(txtsql) txtsql = delete * from jf where 学号 in (select from xj where 班级= & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2) & ) Set mrc = ExecuteSQL(txtsql) 删除在交费表中的所有该班级的记录 txtsql = delete * from cj where 学号 in (select from xj where 班级= & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2) & ) Set mrc = ExecuteSQL(txtsql) 删除在成绩表中的所有该班级的记录 txtsql = delete * from class where 班级= & Trim(Me.MSF1.TextMatrix(MSF1.Row, 2) & Set mrc = ExecuteSQL(txtsql) 删除该班级的记录5 系统测试5.1 系统测试的含义在精心控制下的系统环境下，采用相应的技术手段，利用一组事先构造好达到测试事例执行程序以发现程序中存在的问题，并确认系统功能、性能符合需求的一个综合过程。5.2 测试的目标以最少的时间和人力找出软件中潜在的各种错误和缺陷，软件测试能够确认软件实现的功能和性能与用户需求说明的一致性。软件测试还能够收集到足够的测试结果为软件提供可靠性评价 5.3 测试的方法5.3.1 静态测试方法这方法是程序员普通采用的一种方法，主要是通过人工模拟软件执行系统的执行方式，以代码会审，走查、办公室的形式分析或核查系统的功能实现、编程过程的正确性。5.3.2 动态测试方法通过输入一组预先按照一定的测试准则构造的实例数据来动态运行程序，而达到发现过程错误的过程5.4 测试的步骤5.4.1 单元测试单元测试也称模块测试或程序测试，单元测试是对每个模块单独进行的，验证模块接口与设计说明书是否一致，对模块的所有主要处理路径进行测试且与预期的结构进行对照，还要对所有错误处理路径进行测试。对源码进行审查，对照设计说明书，表态地检查源程序是否符合功能的逻辑要求，是进行单元测试前的重要工作工。单元测试一般是由程序员完成，也称程序调试。5.4.2 组合测试组合测试也称集成测试或子系统测试，通常采用自顶向下测试和自底向上测试两种测试方法。组合测试的对象是指已经通过单元测试的模块，不是对零散模块进行单个测试，而是用系统化的方法装配和测试软件系统，是一个严格的过程，必须认真地进行，其计划的产生和单元模块测试的完成日。5.4.3 确认测试确认测试是对通过组合测试的软件进行的，这些软件已经存于系统目标设备的介质上，确认测试的目的是表明软件是可以工作的，并且符合“软件需求说明书”中规定的全部功能和性能要求。确认测试是按照这些要求定出的“确认测试计划”进行的。测试工作是由一个独立的组织进行，而且测试要从用户的角度出发。5.4.4 系统测试系统测试是对整体性能的测试，主要解决各子系统之间的数据通信和数据共享问题以及检测系统是否达到用户的实际要求，系统测试的依据是系统分析报告。系统测试应在系统的整个范围内进行，这种测试不只对软件进行，而是对构成系统