教学管理系统毕业论文.doc

呼伦贝尔学院计算机科学与技术学院本科生毕业论文(设计)题 目：教学管理系统 学生姓名：贺乐 学 号： 2008121210 专业班级： 计算机科学与技术本二班 指导教师： 谢春丽 完成时间： 摘要IAbstractII第1章 绪 论11.1选题背景11.2 开发教学管理系统的意义11.3系统实现的目标1第2章 系统开发环境的介绍32.1 开发环境32.2VB.NET的介绍32.2.1 VB.NET的简介32.2.2 VB.NET的特点42.2.3 VB.NET的语言特点：42.3 ACCESS 2003 技术简介5第3章 系统总体分析63.1 系统需求分析63.2 系统的可行性分析63.3系统的功能分析63.4 系统的总体功能模块63.5系统流程图73.6 数据库设计83.6.1 数据库表83.7 数据库概念结构设计113.7.1教学管理系统的E-R图11第4章 系统的具体的实现124.1系统的登录页面124.2老师模块的实现16第5章 系统测试和总结335.1 测试准备335.2 测试的目标335.3 测试方法335.3.1 功能测试335.3.2 性能测试345.3.3 界面测试345.4 系统开发的总结345.4.1系统开发的不足34结论35参考文献36致谢37摘要在信息社会发展的今天一切工作都在计算机的帮助下得到了长足的发展和进步。本系统主要提供了对学生的成绩、班级管理、教师管理、课程管理等信息进行查询、修改、删除、录入等功能的实现。开发教学管理系统能更好的实现老师对学生平常信息的管理，能使老师对学生进行充分的了解，有助于提高老师的工作效率。系统的开发采用了VISUAL BASIC.NET编程语言和ACCESS 2003 数据库相结合。本论文从软件设计和开发的角度提出了系统的总体设计目标和基本原则，阐述了系统的单体结构设计，对每个模块的实现过程做了详细介绍。该系统能为老师的工作提供有利和帮助，是一个适用面广、功能较完善的教学管理系统。关键词教学管理；VB.NET；ACCESS 2003；系统开发AbstractAs the information development nowadays,all work made great strides in development and progress with the computer systems help. This system mainly provide the students result, class management, teacher management, curriculum management information query, modify, remove, and the realization of the function of recording etc. Development teaching management system can better realize teacher to student common information management, can make the teacher to student fully understand, which helps to improve the teachers work efficiency. System developed the VISUAL BASIC.net programming language and ACCESS 2003 database combined. This paper from the software design and development point of view, the design of the whole system target and basic principle of the system, elaborated single structure design, each module of the realization process of makes a detailed introduction. This system can provide favorable and teachers help, is a widely applicable, the function is more perfect teaching management system. Keywords teaching management, V,ACCESS 2003, System development II 第1章 绪 论1.1选题背景当今时代是飞速发展的信息时代，在各行各业中离不开信息管理处理，这正是计算机被广泛应用于管理系统的原因。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行管理控制，不仅提高了工作效率，而且大大的提高了其安全性，尤其对于复杂的管理，计算机能够充分发挥它的优越性。管理系统是进行信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的发展而形成的。教学管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，所以教学管理系统能为用户提供充足的管理手段，对学生来说可以轻松的查阅自己在校的各种信息。随着学校规模的不断扩大，学生数量急剧增加，有关学生的各科成绩信息量也成倍增长。面对庞大的学生信息，需要教学管理系统来提高学生管理工作的效率。通过这样的系统可以做到学生信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。本系统主要用于学生的一般信息管理，总体任务是实现学生信息管理的系统化、规范化和自动化。其主要任务是用计算机对学生各种信息进行管理，如修改、增加、删除。基于上述考虑，开发适合本学校的教学管理系统能够利用计算机处理学生的在校信息的任务，大大提高老师的工作效率的系统是非常有必要的。学生可以利用本系统查询自己各方面的成绩。老师也可以通过本系统对学生的各种信息进行查询和管理。1.2 开发教学管理系统的意义教学管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都是至关重要的，所以教学管理系统应该能够为用户提供充足的信息和快捷的查询手段，如：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不可必免的麻烦。目前，我国学生信息管理大多数是以学籍册的形式保管在各校各班的档案处，学籍册上学生的基本情况数据是原始数据，没有作统计分析处理，教育行政部门、教研部门和学校无法及时跟踪学生情况。对于学生的现实情况和每次考核后成绩，由于数据量大，又没有采用计算机进行数据处理，所以开发教学管理系统是非常有意义的。1.3系统实现的目标教学管理系统的开发主要实现的目标有以下几个方面：(1)界面设计友好、美观。(2)数据存储安全、可靠。(3)信息分类清晰、准确。(4)强大的查询功能，保证数据查询的灵活性。(5)实现对学生的各方面全程数据信息跟踪。(6)提供学生的各方面信息，为老师提供了真实的数据信息。(7)提供灵活、方便的权限设置功能，使整个系统的管理分工明确。(8)具有易维护性和易操作性。第 7 页 （共 37页） 第2章 系统开发环境的介绍2.1 开发环境开发环境的选择会影响到数据库的设计，所以图书馆管理系统开发与运行环境的选择如下：系统开发环境：Microsoft Visual Studio 2005系统开发语言：VB.NET运行平台：Windows XP数据库：Access 2003本系统采用VB.NET技术，VB是Windows环境下简单、易学、高效的一种编程语言。借助于.NET Framework，VB不仅实现了向VB.NET的转变，而且实现了很多功能，如支持继承、支持服务等。这些新的功能使得VB成为一种真正的面向对象的编程语言。同时，VB.NET完全支持xml,能快速开发Web应用程序的以及高性能的本地应用程序。由此只可以看出，VB.NET的功能更强大，操作更简捷。Access 2003是微软公司最新推出的办公自动化套装软件Office2003中的一个重要组件关系数据库管理系统软件，主要进行数据库创建和修改，为数据库管理提供了简单易用、功能强大的平台。与其他数据库管理系统相比，Access具有界面规范易于掌握的特点。2.2VB.NET的介绍2.2.1 VB.NET的简介是Visual B的简称。提到，就不能不先提一下vb（Visual Basic）。Visual Basic是Windows环境下的一种简单、易学的编程语言，由于其开发程序的快速、高效，深受程序员的喜爱。严格地来说，Visual Basic只是半面向对象的语言，其面向对象的能力及程序的执行效率往往不能一些程序员的需要，因此，大的项目很少使用Visual Basic来开发。Visual Basic的最后一个版本是Visual Basic 6.0。在Visual Basic 6.0之后，微软公司推出了全新的“.NEt构架”，在其第一个版本-Visual Studio.NET 7.0中，集成了Visual Basic 7.0、Visual C+ 7.0及C#，其中的Visual Basic 7.0（vb 7.0），即是的第一个版本。VB.net是微软最新平台技术，是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。VB.net的版本号是VisualBasic7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。2.2.2 VB.NET的特点1.真正成为面向对象以及支持继承性的语言。2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。2.2.3 VB.NET的语言特点：1.代码托管。被托管的代码享受.netframework提供的安全保障和垃圾回收机制，但是这也同时表明，你的程序被框在Framework里面了。API变得不太方便。2.强大的面向对象特性。现在VB7已经是一个完全的面向对象程序。现在VB7已经支持类的各种特性：继承，函数的覆盖，重载，虚拟，隐藏3.功能强大，程序界面更标准。4.程序代码结构化更强，开发环境舒适体贴。VB.net常常被人称为VB7.0即对VB6的升级是不对的，几乎在.net中的思想已经完全改变了，VB6中是基于事件和对象的思想，而在.net中由于使用了.net框架，并且MS为了将新的编译环境与潮流接轨，面对对象在.net中尤为突出，用过6的朋友们都很清楚，在6中过程的思想还能运用，但是在.net中过程的思想已经完全的被OOP的思想取代了。也许这样说你也不太明白，我用一句话来解释，就是VB6及其以前的产品是DOS时代到Windows可视化时代的一个转变，VB.Net是为建造基于因特网的分布式计算的新时代的解决方案提供基础构造的一个转变。因此，对于目前的仍比较普遍的win32环境来讲VB.net并没有比VB6有什么进步。如何得到VB.net：由于集成在Visual Studio.NET之中，你只需安装Visual Studio.NET，就可使用集成在其中的相应版本的。建议安装最新版本-Visual Studio 2005，现在的电脑配置，基本都能满足其安装要求，操作系统可以是windows xp、windows 2000或以上版本，同时要求有IE 6.0或更高版本以及Windows Installer 3.1或更高版本。2.3 ACCESS 2003 技术简介Access是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。 Access是一种关系型数据库管理系统，其主要特点如下： （1）存储方式单一 Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件中，便于用户的操作和管理。 (2)面向对象 Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。 （3）界面友好、易操作 Access是一个可视化工具，其风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。 （4）集成环境、处理多种数据信息 Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。 （5）Access支持ODBC（开发数据库互连，Open Data Base Connectivity） 利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet的应用。 Access2003力求体系完整，结构清晰，实例丰富，图文并茂，精编精讲，易读易懂，由一组系统化的、围绕一个数据库应用系统的相关例子贯穿，具有普遍适用性。第3章 系统总体分析3.1 系统需求分析要开发一个软件系统，首先要对软件系统的需求进行分析，要做的工作是深入描述目标系统的功能和性能，确定软件设计限制和软件同其他系统元素间的接口细节，定义软件的其他有效性需求。教学管理系统是典型的信息管理系统。教学工作繁琐，又得处理大量学生数据，因此就需要一个完善的教学管理系统来实现对数据的有效管理，完成对学生的各种信息的处理。该系统主要分为两个部分：老师部分和学生部分。老师部分主要是对日常教学工作的录入，包括对学生学籍、学生成绩、班级信息、课程信息的管理。学生部分主要是对自己的成绩、课程、学籍信息的查询。3.2 系统的可行性分析可行性分析的目的是用最小的代价在尽可能短的时间内问题是否能够解决。通过对该系统的各个方面进行了具体的了解之后，现在对教学管理系统进行可行性分析。(1)技术可行性：处理速度快、准确通过权限的设置，数据的安全性好、方便查询、修改管理等。 (2)经济可行性：系统建设不需要很大的投入、可缩减人力投入。(3)运行上可行性：本系统作为一个小型系统，所耗费的资源非常的小。 (4)从各种社会因素可行性分析：可降低工作人员工作强度，提高效率，会得到学校工作人员的一致同意的。综上所述通过可行性分析认为新系统的开发方案切实可行，可进行开发。3.3系统的功能分析经过实际考察和分析，本教学管理系统大致包括五个大模块，相应能实现以下功能：用户管理：用于对用户的添加，赋于不同权限及对用户的修改功能。课程管理：用于对各学年、各学期、各种课程类型的课程信息成绩的录入、修改与删除等功能。成绩管理：用于对各学年、学期和课程性质的成绩信息的录入、修改、删除等功能。信息管理：用于对老师和学生的基本信息及入学后的各种信息的录入、修改与删除等功能。数据查询：包括学生档案信息的查询和学生个人成绩查询等功能。3.4 系统的总体功能模块针对高校学生管理的实际情况，可以将教学管理系统划分为学生模块和老师模块两大部分。各个部分的具体功能的系统结构图如图3-1所示。教学管理系统学生管理老师管理学生查询成绩信息修改的用户密码学生查询学籍信息教师添加课程信息教师添加成绩信息教师维护课程信息教师添加学生信息教师添加班级信息图3-1 学籍管理系统功能框架3.5系统流程图系统流程图是概括地描绘物理系统的传统工具。它的基本思想是用图形符号以黑盒子形式描绘组成系统的每个部件(程序，文档，数据库等)。系统流程图表达的是数据在系统各部件之间流动的情况，而不是对数据进行加工处理的控制过程，因此尽管系统流程图的某些符号和程序流程图的符号形式相同，但是它却是物理数据流图而不是程序流程图。教学管理系统的流程是用户先选择自己用户和用户密码进入系统，如有一项不符合则不能进入系统，成功登录系统后系统根据登录的用户级别与数据库中的用户信息表中的用户级别进行对比判断是学生或是教师，如果是学生则进入学生主页，能进行查询成绩，学籍信息等，及修改自己的进入口令，查询到自己所需要的信息就能进行各种操作。如果说是教师，那就进入教师管理界面，可以在课程表中添加相应的自己的课程，添加自己所带学生的成绩。可以进行班级的管理、添加删除学籍及维护学生的学籍的所有信息，如图3-2 教学管理系统流程图所示。开始选择账号、密码及职称判断登陆信息判断职称学生界面教师界面正 确不 正 确是老师学生结束图3-2教学管理系统流程图3.6 数据库设计3.6.1 数据库表根据教学管理系统的设计需求，为本系统服务的信息存储表共有7张。数据库设计的好坏，直接关系到整个程序的好坏，数据库的结构是否合理，能不能满足现有的要求，今后系统的升级过程中是不是方便，能不能把数据库的结构直接移植到其它的数据库中使用，这些都是非常重要的，下面列出数据库中的每一个表，包括表中的字段的含意。本系统使用一个数据库文件 ：学生信息.mdb，各数据表的结构如下所示：班级表：用于存放各个老师所管理的班级。如表3-3所示。成绩表：用于存放学生在上学期间的各门课程的成绩。如表3-4所示。登录表：是用来存放用户的用户名和密码的。如表3-5所示。教师表：用来存放老师的基本信息和自己所带的课程。如表3-6所示。课程表：用来存放课程的基本信息。如表3-7所示。学生表：用来存放学生的基本信息。如表3-8所示。表3-3班级表字段名字段类型字段长度（字符）字段说明班级编号文本50班级的编号年级文本50说明是那个年级班主任文本50班主任备注文本50对班级的说明表3-4成绩表字段名字段类型字段长度（字符）字段说明学号文本50学生的学号姓名文本50学生的姓名课程类型文本50是必修还是选修成绩数字20成绩课程名称文本50课程的名称班级文本50所在的班级学期文本50那年的那个学期表3-5登录表字段名字段类型字段长度（字符）字段说明用户名文本50用户的名称密码文本50用户的密码权限文本50用户的权限表3-6教师表字段名字段类型字段长度（字符）字段说明教师编号文本50教师编号教师姓名文本50教师姓名性别文本50性别出生年月日期50出生年月联系电话文本50联系电话学历文本50学历任教年限长整型50任教年限政治面貌文本50政治面貌家庭住址文本50家庭住址所带课程编号文本50所带课程编号备注文本50备注表3-7课程表字段名字段类型字段长度（字符）字段说明课程编号文本50课程编号课程名称文本50课程名称课程类型文本50课程类型教师编号文本50教师编号课程描述文本50课程描述表3-8课程表字段名字段类型字段长度（字符）字段说明学号文本50学号性别文本50性别出生日期日期50出生日期班级文本50所在班级电话号码文本50联系电话入学时间文本50入学时间学制文本504年制还是3制学历文本50本科还是专科政治面貌文本50政治面貌家庭住址文本50家庭住址3.7 数据库概念结构设计 数据库概念结构设计是在需求分析的基础上，设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这个阶段不用考虑所采用的数据库管理系统、操作系统类型、机器类型等问题。这阶段可用的工具很多。用的最多的是E-R图(Entity-Relation,实体-关系图)，另外还有很多计算机辅助工具(Computer Aided Software Engineering, CASE)可以帮助进行设计。本系统采用E-R图的方法进行数据库概念结构设计。E-R图是描述数据实体关系的一种直观描述工具。这种图中有：(1)实体：用方框表示，方框内为实体的名称。(2)实体的各种属性：用椭圆表示，椭圆内为属性名称。使用线段将其和响应的实体连接起来。(3)实体之间的联系：用菱形表示,菱形内为联系的名称。实体和实体之间的联系较多，比较常见的联系有1 ：1,1 ：和 ：三种。3.7.1教学管理系统的E-R图教学管理系统的系统ER图，如图3-9所示图3-9教学管理系统的E-R图班级课程学号管理老师管理姓名性别学生班级删除修改添加n管理nn修改添加删除删除添加修改类型班级编号年级名称n第4章 系统的具体的实现4.1系统的登录页面该教学管理系统分成二个模式登录分别如下图所示：1 老师登录2 学生登录用户首先选择用户权限然后输入用户名，输入密码。当用户选择了老师，而且在数据库中存在此用户，则在你成功登录到系统中后，可以实现对学生信息管理、教师信息管理等操作，当你选择了学生类型用户，而且你输入的用户存在，且输入的密码正确，则当你进入到系统中就可以对各项基本信息进行查询，同时还可以对你自己的登录时的密码进行修改，此功能与管理员修改密码一样，在下次登录时输入的密码就是修改后的密码。如图5-1所示：第 34 页 （共 37页）图4-1用户登录主界面用户登录代码如下所示：Public Class 用户登录 Public sname As String Dim CurrentDir As String = System.IO.Directory.GetParent(System.IO.Directory.GetParent(Application.StartupPath).ToString).ToString & database Dim sProvider As String = Provider=Microsoft.Jet.OLEDB.4.0; Dim sDataSource As String = Data Source= & CurrentDir & 学生信息.mdb Dim sConnString As String = sProvider & sDataSource Dim conn As New OleDbConnection Dim cmd As New OleDbCommand Dim da As New OleDbDataAdapter Dim ds As New DataSet Dim dr As OleDbDataReader Dim i As Integer Dim log As String Private Sub 用户登录_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn.ConnectionString = sConnString cmd.Connection = conn ds.Clear() t1.Focus() cmd.CommandText = select * from 登录 cmd.Connection = conn da.SelectCommand = cmd da.Fill(ds, dl) t1.DataSource = ds.Tables(dl) t1.DisplayMember = 用户名 conn.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dr1 As OleDbDataReader Dim t As String If rb教师.Checked Then t = 老师 ElseIf rb学生.Checked Then t = 学生 End If Try conn.Open() cmd.CommandText = select 用户名 from 登录 where 用户名= & t1.Text & sname = cmd.ExecuteScalar cmd.Connection = conn cmd.CommandText = select * from 登录 where 用户名= & t1.Text & dr1 = cmd.ExecuteReader If dr1.Read Then If dr1.Item(密码) = t2.Text Then If t = dr1.Item(权限) Then If t = 老师 Then 教学管理系统.yhm = t1.Text Me.Hide() 教学管理系统.Show() ElseIf t = 学生 Then 教学管理系统.yhm = t1.Text Me.Hide() 教学管理系统.Show() 教学管理系统.添加用户ToolStripMenuItem.Enabled = False 教学管理系统.删除用户ToolStripMenuItem.Enabled = False 教学管理系统.添加学籍ToolStripMenuItem.Enabled = False 教学管理系统.删除学籍ToolStripMenuItem.Enabled = False 教学管理系统.添加班级ToolStripMenuItem.Enabled = False 教学管理系统.修改班级ToolStripMenuItem.Enabled = False 教学管理系统.添加课程ToolStripMenuItem.Enabled = False 教学管理系统.修改课程ToolStripMenuItem.Enabled = False 教学管理系统.删除课程ToolStripMenuItem.Enabled = False 教学管理系统.添加成绩ToolStripMenuItem.Enabled = False 教学管理系统.修改成绩ToolStripMenuItem.Enabled = False 教学管理系统.删除成绩ToolStripMenuItem.Enabled = False 教学管理系统.教师管理ToolStripMenuItem.Enabled = False End If t1.Text = t1.Focus() t2.Text = Else MsgBox(身份不否！) End If Else : t2.Text = t2.Focus() MsgBox(密码错误! ) End If Else : t1.Text = t1.Focus() t2.Text = MsgBox(用户名错误! ) End If conn.Close() Catch ex As Exception End TryEnd Sub4.2老师模块的实现老师过输入管理员编号和密码登录到管理员模块界面，此模块的建立依然利用框架构造而成，采用树型结构，各个结点都被设置成为一个按扭，单击按钮则会出现该按钮所对应功能实现的结果并显示。老师模块的作用主要包括所有教师信息管理、学生信息管理、班级信息管理以及个人密码修改等基本功能。教师信息管理：老师登录系统后，进入教师管理可以对教师信息进行管理。点击添加可以添加教师的信息。如图4-2所示：图4-2添加教师信息界面老师权限下的添加教师信息代码如下：Imports System.Data.OleDbImports System.DataPublic Class 添加教师信息 Dim CurrentDir As String = System.IO.Directory.GetParent(System.IO.Directory.GetParent(Application.StartupPath).ToString).ToString & database Dim sProvider As String = Provider=Microsoft.Jet.OLEDB.4.0; Dim sDataSource As String = Data Source= & CurrentDir & 学生信息.mdb Dim sConnString As String = sProvider & sDataSource Public conn As New OleDbConnection(sConnString) Public cmd As New OleDbCommand Public daap As New OleDbDataAdapter Public ds As New DataSet Public dr As OleDbDataReader 定义OleDbDataReader控件 Private Sub 添加教师信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmd.Connection = conn OleDbCommand与conn的链接 cmd.CommandText = select * from 教师 OleDbCommand执行的语句 conn.Open() 打开数据库 daap.SelectCommand = cmd OleDbDataAdapter与OleDbCommand执行相同的语句 daap.Fill(ds, js) 向临时表中添加数据 conn.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Try conn.ConnectionString = sConnString conn.Open() Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand() cmd.Connection = conn cmd.CommandType = CommandType.Text cmd.CommandText = insert into 教师(教师编号,教师姓名,性别,出生年月,联系电话,学历,任教年限,政治面貌,家庭住址,所带课程编号,备注) values( & t1.Text & , & T2.Text & , & T3.Text & , & t4.Text & , & T5.Text & , & T6.Text & , & T7.Text & , & T8.Text & , & T9.Text & , & T10.Text & , & T11.Text & ) cmd.ExecuteNonQuery() cmd = Nothing conn.Close() MsgBox(教师信息添加成功！) Catch ex As Exception MsgBox(输入错误!) End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End SubEnd Class教师信息管理：老师登录系统后，进入教师管理可以对教师信息进行管理。点击删除可以删除教师的信息。如图4-3所示：图4-3删除教师信息界面老师权限下的删除教师信息代码如下：Public Class 删除教师信息 Dim CurrentDir As String = System.IO.Directory.GetParent(System.IO.Directory.GetParent(Application.StartupPath).ToString).ToString & database Dim sProvider As String = Provider=Microsoft.Jet.OLEDB.4.0; Dim sDataSource As String = Data Source= & CurrentDir & 学生信息.mdb Dim sConnString As String = sProvider & sDataSource Public conn As New OleDbConnection(sConnString) Public cmd As New OleDbCommand Public daap As New OleDbDataAdapter Public ds As New DataSet Public dr As OleDbDataReader 定义OleDbDataReader控件 Private Sub 删除教师信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmd.Connection = conn cmd.CommandText = select * from 教师 conn.Open() daap.SelectCommand = cmd daap.Fill(ds, js) db1.DataSource = ds.Tables(js) conn.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Try If MsgBox(确定删除么，单击确定删除，否则取消！, MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then Dim str_del As String str_del = delete from 教师 where 教师编号= & TextBox1.Text & conn.Open() cmd.CommandText = str_del cmd.ExecuteNonQuery() d