学生学籍管理系统的设计与实现毕业论文.doc

学生学籍管理系统的设计与实现毕业论文 第一章 系统概述本学生学籍管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生信息管理、班级信息管理、课程信息管理等多种功能，因而具有较强的实用性和先进性。1.1 系统及需求分析 1.1.1 系统需求 通过调查,要求系统需要有以下功能: 由于操作人员的计算机知识普遍较差,要求有良好的人机界面; 由于该系统的使用对象多,要求有较好的权限管理; 原始数据修改简单方便,支持多条件修改 方便的数据查询，支持多条件查询; 在相应的权限下，删除数据方便简单，数据稳定性好； 数据计算自动完成，尽量减少人工干预;1.2 系统开发工具介绍 本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境 Visual Basic6.0 作为主要开发工具，使用Microsoft Access 2003作为关系数据库，并在VB编程语言中采用ADO数据库编程模型，配合功能强大的SQL查询语言实现建立关系数据库，访问数据库，更新数据库，较好地实现了预定的需求功能。 一、Visual Basic 6.0概述1、Visual Basic 6.0 简介无论用户是一个Windows 编程新手，还是已经具有丰富的Windows程序设计经验的专业程序开发人员，利用Visual Basic 6.0提供的良好开发环境，均可以使你快速地完成所需设计任务。所谓Visual ，中文的意思是“可视化”，它提供了一种创建图形用户界面（GUI）的方法，利用这种方法，用户可不必书写复杂的描述界面元素外观和位置的程序代码，而只需将系统提供的对象放到屏幕上的适当位置，并通过属性窗口进行适当的设置或调整，就可以设计出一个优秀的应用程序界面。此外，用户除了可以使用单独的Visual Basic 6.0程序设计环境进行程序设计外。Visual Basic 6.0 程序设计系统还被包括在Excel Access 等众多Windows功能应用软件中，以供用户进行二次开发。目前在编制网页上使用较多的VBScript 脚本语言实际上是Visual Basic 语言的子集。因此，无论从哪方面讲，用Visual Basic 6.0系统开发软件都是一件非常合算的投资。2、Visual Basic 6.0 语言的特点不管你是编制一个小小的应用程序，还是开发一套大型的专业系统软件，甚至是开发一个跨越Internet 的分布式应用系统软件，Visual Basic 6.0 都可以为用户提供合适的工具。利用Visual Basic 6.0的数据访问特性，用户可创建数据库、前端应用程序、适用于大多数流行数据库格式的服务器组件等。利用ActiveX技术允许用户使用其他应用程序提供的功能，如Microsoft Word、Microsoft Excel，甚至可直接使用由Visual Basic 6.0 专业版和企业版创建的应用程序和对象。Visual Basic 的Internet 功能允许用户使用程序方便地通过Internet 访问文档和应用程序，甚至创建Internet应用程序。用Visual Basic 6.0用户创建的是一个真正的EXE文件，该文件可直接运行于操作系统（Windows98/2000/XP或Windows NT系统），完全脱离Visual Basic系统环境。并且，该文件可以自由发布，安装到单机或网络服务器上。此外，Visual Basic 6.0 还增加了一些新的功能，具体如下：增加了ADO数据对象，该数据访问技术是一个简单的数据模型，可更好地与其它Microsoft和非Microsoft技术集成。它还是一个通用接口，可用于访问本地或远程数据、连续和离散记录集、用户可访问的数据绑定接口和分层记录集。提供了数据环境设计器，其中提供了一种创建ADO对象的交互设计环境，数据环境可作为窗体或报表中所有要求数据对象的数据源，或者通过数据环境的方法和属性由等程序访问，数据环境设计器具有用户连接设计器的全部功能和附加特性，如拖放、分层、分组和合计等。数据报表，允许用户使用拖放方法利用任何记录集合快速创建报表。数据源，创建可绑定任何控件的数据源、用户定义控件和类。SQL编辑器，允许用户增加新的存储过程至SQL服务器程序和Oracle数据库中，用户还可以使用编辑器编写触发器。增强数据窗体向导，现在用户不仅可以构造不绑定至数据控件的代码窗体，而且可以使用ADO代码，该向导已经集成到应用程序向导、Chart向导和Flex Grid向导中。文件系统对象，Visual Basic 6.0 提供了改进的文件系统中移动的程序集，并可创建文本文件和目录。Data Grid控件，该控件可帮助用户快速构造观察和编辑记录的程序，它也支持新的ADO数据控件。可视化数据库工具集成（企业版）。在Visual Basic 6.0 中用户可以可视地创建数据库和查询、SQL服务器程序、Oracle数据库表、使用拖放方法创建视图，以及自动改变列数据类型。3、Visual Basic 6.0 的版本目前Visual Basic 6.0有三种版本，各自满足不同的开发需要。其中：Visual Basic 6.0学习版使编程人员可轻松学习和设计一些基本的应用程序。该版本包括所有的内部控件，连同Grid、Tab和Data Bound控件。Visual Basic 6.0专业版为专业编程人员提供了一套进行开发功能完备的工具。该版本包括学习版的全部功能连同ActiveX控件，还包括Internet Application Designer（Internet报务器应用程序设计器）、Integrated Visual Database Tools（集成可视化数据库工具）、Data Environment (数据环境)、ActiveX污染Data Objects（数据对象，简称ADO）和Dynamic HTML Page Designer （动态HTML页面设计器）。Visual Basic 6.0企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能连同Back Office 工具，如SQL Server Microsoft Transaction Server 、Internet Information 、Visual SourceSafe、SNA Server等。二、数据库基础与Access的应用1、数据库基础：数据库一直是计算机软件开发的重要话题。在利用计算机辅助办公的时代，人们很难不和数据库打交道，几乎所有的应用程序都离不开数据的存取操作，而这种存取操作往往是用数据库来实现的。企业的所有信息和管理方面的应用软件，基本上都是一个标准的数据库应用系统。1）数据库的概念和术语在使用计算机处理商业数据信息以前，人们将数据分类保存在一个表格中，然后按照表格的分类将所有的表格存放在不同的文件中，而不同的文件夹又按其分类存放在不同的文件框中；在维护此类文档的工作人员的桌面上有一大堆预先打印好的空白表格，以便随时建立新的表格并在更新内容后取代旧表格，因为所有的信息均是存放在纸张上，而信息的存取和更新等操作均在纸张上进行，所以有人把计算机数据库出现之前的时期称为“纸上办公时代”。从某种意义上来说，数据库技术是一场信息技术的革命。然而最早的数据库结构是非常简单的。其组织方式和传统的信息管理方式相当，都有是以二维表的方式来存放数据，其管理方法也比较落后。数据库最基本的术语有字段（Field）、记录（Record）和表（Table）。2）关系数据库的概念和优点：关系数据库的概念是很早就提出来的概念，并以其强大的优势在微型计算机乃至大型计算机等系统上获得了广泛的应用。目前流行的数据库管理系统几乎都是关系数据库。所谓关系数据库，就是将含有不必要重复数据的复杂数据库进行标准化，使用若干个表，在每一个表中存放仅需要记录一次的数据，然后用关键字段连接或联系表格而组成的数据库就称为关系数据库。使用关系数据库的好处在于可以避免数据不必要的重复。为了避免数据的重复，可以将包含重复数据的表拆分成若干个没有重复数据的表，从而将重复数据分离出来，存放在单独的表中，这就是数据库的标准化，也就是将复杂数据分解到几个简单的表中，并通过建立表与表之间的关系，检索另一个表中的关系记录中的数据；在表与表之间的关系中，习惯上称主表为“父表”，通过关系连接的其它表就称为“子表“。在关系数据库中常用的关系有：一对一关系多对一关系一对多关系多对多关系。常用的术语有：关系、主关键字、外部关键字以及索引。3）Microsoft Access2003简介：Access是Microsoft公司的一个成功的数据库管理系统产品。其核心是Microsoft Jet数据库引擎。早期的Access 2.0在办公自动化中获得了广泛的应用，后续版本的功能得到了不断提高，它与Microsoft Office 套件紧密结合，使之得到越来越广泛的应用。Access 本身是一个可视化的数据库管理系统，它提供了很多非常实用的向导，初学者很容易学会如何用Access建立数据库的各种对象，如创建表、查询和报表，也可创建数据窗体等。Access使用内嵌Visual Basic语言作为开发工具，完全面向对象编程，可以可视化地独创数据库应用于程序。Access的数据库和传统的桌面数据库几乎没有什么不同，但它支持网络环境的应用，如管理应用组和安全性等，所以是一种特殊的桌面数据库管理系统，很多人将其列入客户机/服务器前端，其核心是Microsoft Jet理论系统RDBMS的范畴。Microsoft Access 2003是当前最流行的关系数据库管理系统之一，它与Visual Basic数据库一样，基本的核心是Microsoft Jet数据库引擎，数据库的访问和编程与Visual Basic中访问数据库一样。它操作方便、简单易学，Access 2003能满足小型企业客户/服务器解决方案的要求来组建客户/服务器的数据库应用系统，是一个功能较完备的数据库管理系统，它几乎包含了数据库领域的所有技术和内容，对于初学者学习数据库知识非常有帮助。正因为这些特点，在利用Visual Basic开发数据库应用系统程序时，比较适合采用Access 2003作为后台数据库管理系统。在一个Access 2003数据库应用程序中，用一系列表的集合来存放各种经提取的原始数据。通过表的视图可以直接操作数据，但是为了能够使用户方便又安全地操作数据，应用程序一般不让用户通过表来直接操作数据，而是用通过窗体对象来访问表，这样可以对用户的行为作较好的指导和限制，数据操作外的其他功能则是用窗体来完成的。1.3系统的功能简介本系统主要可以实现以下的管理功能：用户登陆、学生信息管理、班级信息管理、课程信息管理等功能。1.3.1 项目规划学生学籍管理系统是一个典型的数据库应用程序,由用户登陆、学生信息管理、班级信息管理、课程信息管理等模块组成,特规划如下:1登陆模块： 该模块的主要功能是实现用户登陆系统，及用户的权限管理。2学生信息管理模块：该模块的主要功能是实现对学生的个人信息的管理工作，包括信息查询、信息删除、信息修改等功能，从而方便学校管理部门对学生的基本情况的快速查询和了解。3班级信息管理模块：该模块的功能是实现对全校班级的管理工作，包括：班级信息修改、班级信息查询、班级信息删除等，这三个功能模块各自独立，完成学校的全部班级的管理。4课程信息管理模块该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。1.4系统开发的目标出于本系统是学生学籍管理的一个综合性的系统，本系统的设计目标最终定位于完成以上所述的系统主要功能的基本模型上。第二章 系统分析 2.1系统总体分析系统分析包括系统需求分析和系统性能要求两个方面。它是整个系统设计的基础。2.1.1需求分析是指用户对系统的要求，它为系统设计指明了方向。如本系统就要求：能够输入学生的学籍信息和对信息进行查询、修改、删除；能够对班级信息进行查询、修改、删除；能够对课程课程信息进行查询、修改、删除。2.1.2系统性能是指设计出的系统应实现用户要求的特性。本系统中的系统性能要求是：1系统的安全性与可靠性；2系统功能齐全；3系统操作方便，界面美观；4系统易于维护和扩充。系统总体功能1 可以进行文本操作；2 添加一个数据库项目；3 删除一个数据库项目；4 修改一个数据库项目；5 查询信息；6 察看信息表。2.2 数据流程图 学生学籍管理人员学生信息录入班级信息录入课程信息录入学生信息表班级信息表课程信息表数据库2.3系统总体结构设计 本信息管理系统是适合学校使用的学籍管理系统，是运用Visual Basic6.0编写而成的。使用本学生学籍管理系统，可以提高学校的管理水平。学校办公效率可以有很大的提高，为学校的信息管理提供了一个良好的工具，减化了繁琐的工作模式，从而使学校的管理更加合理化和科学化。本系统软件，能帮助教研人员利用计算机，快速方便的对学生学籍管理进行管理， 输入、输出、查找的所需操作，使散乱的人事档案能够具体化，直观化、合理化。 本软件适用于教育界，对学生的学籍可以随时输入、输出、查找、修改。本系统是一个复杂的信息系统，包含了信息录入、信息查询、信息修改等功能，能满足学校学生管理工作方面的基本要求。该系统主要包括学生信息、班级信息、课程信息等方面的信息管理，操作方便，适合广大中、小学及其他中、小规模的学校使用。是一个独立运行的信息管理系统。2.3 系统层次图学生学籍管理系统学生信息管理班级信息管理课程信息管理查询学生信息删除学生信息修改学生信息修改班级信息删除课程信息修改课程信息查询课程信息删除班级信息查询班级信息登录 第三章 系统设计3.1软件模块结构设计3.1.1系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：系统登录、班级信息管理、学生信息管理、课程信息管理等功能。3.1.2软件结构设计本系统在执行时，先根据不同的操作人员的需要来进行相应的操作，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统输入数据处理班管数据库学管课管3.2 数据库设计本系统数据库采用了Microsoft推出的Access 2003数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access 2003具有显著的简易性和有效性，大量的桌面数据库系统都采用Access 2003作为后台数据库。使用Access 2003的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有利的条件。3.2.1本系统中所涉及到的主要实体共有四个数据表：学生信息表学号、姓名、性别、年龄、班号 班级信息表班号、年级、班主任、教室 课程信息表课程编号、课程名称、授课老师 用户信息表用户名、用户密码、用户注释3.2.2 各数据表信息如下： 班级信息表：班号年级班主任教室60106陈平A-50161106张林A-50250105李静B-405学生信息表：学号姓名性别年龄班号1李清女206012王小明男196013黄大鹏男206014王敏女216015刘晨女216016张文斌男196017刘毅男206018李勇男206019张立男2160110王平男22601 课程信息表：课程编号课程名称授课老师10高数洪晓11英语李晓宇12软件工程章建平13计算机原理王时雨 用户信息表：用户名用户密码用户注释adminadmin公共用户mss0902123注册用户3.2.3数据库信息 第四章 系统功能的具体实现根据上几章的分析我们对系统有了深刻的了解，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有以下几项：1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。2、通过系统的流程分析，为模块的细化做好准备。3、对每个模块进行详细的算法设计。4.1数据库与VB的连接 本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“Microsoft Access 2003 Drive（*.mdb）”，点击“完成”按钮，在ODBC Microsoft Access 2003安装对话框在数据源名中输入信息，在数据库这个框中， 单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据链接。在VB中，用ADODC链接数据库，用Data Grid或DATA将库中的数据在界面中显示出来，本系统采用Data Grid。在界面上右击Adodc控制，在弹出的快捷菜单中选择属性，在属性对话框中，在“属性”这一标签中， 选中单选框“Use ODBC Data Source Name”，并在下拉文本框中选择已经配置好的数据源名信息，再在“RecordSoure”标签中，在Command Text（SQL）文本框中输入查询语句，如：select * from 学生档案。同时，将桌面的Data Grid控件选中，在属性框中，将它的DataSoure设为Adodc。我们可以设置Data Grid控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。4.2 系统模块的设计本系统共包括： 欢迎界面 登陆界面 主界面（学生信息管理界面、班级信息管理界面、课程信息管理界面） 学生信息管理界面（查询界面、修改界面、删除界面）班级信息管理界面（查询界面、修改界面、删除界面）课程信息管理界面（查询界面、修改界面、删除界面）4.2.1 欢迎界面（如图4-1所示） 本界面是一个显示欢迎界面没有具体的功能，主要是为了美化系统而设置了这个界面，在设计时我将它设计为点击下鼠标进入到下一界面。 （图4-1）下面为其代码： Public dl As Integer 定义引出form2的条件 Private Sub Form Click () Form2.Show Unload Form1 End Sub Private Sub Form Load () dl = 0.1 End Sub Private Sub Timer1_Timer () If dl = 0.1 Then Form2.Show End If dl = 0End Sub关键介绍：通过增加一个timer控件实现了单击鼠标进入下一界面。4.2.2 登陆界面（如图4-2所示） 本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在用户信息表中，本系统根据不同的用户而设置了不同的权限，可以用admin这个默认账号来登陆本系统。 （图4-2） 其代码如下： Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim rs1 As New ADODB.Recordset Private Sub Command1_Click () rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs1.LockType = adLockOptimistic rs1.CursorType = adOpenKeyset conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App. Path & 学生学籍管理.mdb; If Text1.Text = Then MsgBox 请输入用户名！, vbOKOnly, 提示 Else If Text2.Text = Then MsgBox 请输入密码！, vbOKOnly, 提示 Else conn.Open rs.Open SELECT * FROM 用户信息表 where 用户名= & Text1.Text & , conn If rs.RecordCount = 0 Then MsgBox 用户名或密码错误！, vbOKOnly + vbInformation, 注意 rs.Close conn.Close Else rs1.Open select * from 用户信息表 where 用户密码= & Text2.Text & , conn If rs1.RecordCount = 0 Then MsgBox 密码错误！, vbOKOnly + vbInformation, 注意 rs1.Close conn.Close Else Text2.Text = Unload Form1 Unload Form2 主界面.Show End If End If End If End If End SubPrivate Sub Command2_Click () EndEnd SubPrivate Sub Form Load ()End Sub关键介绍： 通过ADO控件连接到数据库中的用户信息表，通过IF语句实现用户名与密码的核对，使得用户权限得到了管理。4.2.3 主界面（如图4-3所示）本界面是系统的主界面，在本界面上集成了本系统的所有功能，共有4个功能菜单和10个子菜单（功能模块），从而实现了本系统班级信息管理、课程信息管理、学生信息管理等的具体功能，同时，在该模块中可以对本系统中的所有学生信息、班级信息、课程信息进行浏览或者可以退出系统。 （图4-3） 其代码如下：Private Sub Command1_Click () Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click () Set DataGrid1.DataSource = Adodc2End SubPrivate Sub Command3_Click () Set DataGrid1.DataSource = Adodc3End SubPrivate Sub cxbjxx_Click ()Form6.ShowEnd SubPrivate Sub cxkcxx_Click ()Form9.ShowEnd SubPrivate Sub cxxsxx_Click ()Form3.ShowEnd SubPrivate Sub Form Load ()Form1.HideForm2.HideEnd SubPrivate Sub Frame1_DragDrop (Source As Control, X As Single, Y As Single)End SubPrivate Sub scbjxx_Click ()Form8.ShowEnd SubPrivate Sub sckcxx_Click ()Form11.ShowEnd SubPrivate Sub scxsxx_Click ()Form5.ShowEnd SubPrivate Sub tc_Click () EndEnd SubPrivate Sub xgbjxx_Click ()Form7.ShowEnd SubPrivate Sub xgkcxx_Click ()Form10.ShowEnd SubPrivate Sub xgxsxx_Click ()Form4.ShowEnd Sub关键介绍： 通过菜单编辑器创建了级联菜单，使得菜单栏简洁、直观。通过ADO与DATAGRID控件实现了信息的浏览。4.2.4 学生信息查询模块（如图4-4所示） 本界面是学生信息查询界面，实现了输入姓名后可查询该学生的基本信息情况或者返回主界面的功能。 （图4-4）其代码如下：Private Sub Command1_Click ()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App. Path & 学生学籍管理.mdb;Adodc1.CommandType = adCmdTextDim strSQL As StringstrSQL = select * from 学生信息表 where 姓名 like % & Text1.Text & %Adodc1.RecordSource = strSQLAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd SubPrivate Sub Command2_Click ()Unload MeEnd SubPrivate Sub Form Load ()End Sub关键介绍： 通过Select语句实现了条件查询，通过ADO与DATAGRID控件连接数据库将查询得到的记录显示在DATAGRID控件中。4.2.5 学生信息修改模块（如图4-5所示）本界面是学生信息修改界面，通过该模块可以先查询学生信息后再对学生的信息进行修改并保存到数据库中或者返回主界面。 （图4-5）其代码如下：Private Sub Command1_Click ()Adodc1.Recordset.UpdateMsgBox 修改成功！End SubPrivate Sub Command2_Click ()Unload MeEnd SubPrivate Sub Command3_Click ()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App. Path & 学生学籍管理.mdb;Adodc1.CommandType = adCmdTextDim strSQL As StringstrSQL = select * from 学生信息表 where 学号 = & Text1.Text & Adodc1.RecordSource = strSQLAdodc1.RefreshText1.Text = Adodc1.Recordset.Fields(学号)Text2.Text = Adodc1.Recordset.Fields(姓名)Text3.Text = Adodc1.Recordset.Fields(性别)Text4.Text = Adodc1.Recordset.Fields(年龄)Text5.Text = Adodc1.Recordset.Fields(班号)End SubPrivate Sub Form Load ()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App. Path & 学生学籍管理.mdb;Adodc1.CommandType = adCmdTextDim strSQL As StringstrSQL = select * from 学生信息表 Adodc1.RecordSource = strSQLAdodc1.RefreshText1.Text = Adodc1.Recordset.Fields(学号)Text2.Text = Adodc1.Recordset.Fields(姓名)Text3.Text = Adodc1.Recordset.Fields(性别)Text4.Text = Adodc1.Recordset.Fields(年龄)Text5.Text = Adodc1.Recordset.Fields(班号)End Sub关键介绍： 通过Select语句实现了条件查询，通过ADO控件检索text文本对其进行了修改。4.2.6 学生信息删除界面（如图4-6所示） 本界面为学生信息删除界面，所有的学生信息都在下面的控件中显示了出来，可以进行选择删除或者返回主界面。 （图4-6）其代码如下： Private Sub Command1_Click () hxfyn = MsgBox(是否真的删除?, 36) If hxfyn = vbYes Then If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub Command2_Click ()Unload MeEnd SubPrivate Sub Form Load ()End Sub关键介绍： 通过Select语句实现了条件查询，通过ADO与DATAGRID控件连接数据库将查询得到的记录显示在DATAGRID控件中再使用Delete 语句进行了删除。4.2.7 班级信息查询界面（如图4-7所示） 本界面是班级信息查询界面，实现了输入班号后可查询班级基本信息情况或者返回主界面的功能。 （图4-7）其代码如下：Private Sub Command1_Click ()Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App. Path & 学生学籍管理.mdb;Adodc1.CommandType = adCmdTextDim strSQL As StringstrSQL = select * from 班级信息表 where 班号 like % & Text1.Text & %Adodc1.RecordSource = strSQLAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd SubPrivate Sub Command2_Click ()Unload MeEnd SubPrivate Sub Form Load ()End Sub关键介绍： 通过Select语句实现了条件查询，通过ADO与DATAGRID控件连接数据库将查询得到的记录显示在DATAGRID控件中。4.2.8班级信息修改模块（如图4-8所示）本界面是班级信息修改界面，通过该模块可以先查询班级信息后再对班级的信息进行修改并保存到数据库中或者返回主界面。 （图4-8）其代码如下：Private Sub Command1_Click ()Adodc1.Recordset.UpdateMsgBox 修改成功！End SubPrivate Sub Command2_Click ()Unload MeEnd SubPrivate Sub Command3_Click ()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App. Path & 学生学籍管理.mdb;Adodc1.CommandType = adCmdTextDim strSQL As StringstrSQL = select * from 班级信息表 where 年级 = & Text1.Text & Adodc1.RecordSource = strSQLAdodc1.RefreshText1.Text = Adodc1.Recordset.Fields(年级)Text2.Text = Adodc1.Recordset.Fields(班主任)Text3.Text = Adodc1.Recordset.Fields(班号)Text4.Text = Adodc1.Recordset.Fields(教室)End SubPrivate Sub Form Load ()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App. Path & 学生学籍管理.mdb;Adodc1.CommandType = adCmdTextDim strSQL As StringstrSQL = select * from 班级信息表 Adodc1.RecordSource = strSQLAdodc1.RefreshText1.Text = Adodc1.Recordset.Fields(年级)Text2.Text = Adodc1.Recordset.Fields(班主任)Text3.Text = Adodc1.Recordset.Fields(班号)Text4.Text = Adodc1.Recordset.Fields(教室)End Sub关键介绍： 通过Select语句实现了条件查询，通过ADO控件检索text文本对其进行了修改。4.2.9 班级信息删除界面（如图4-9所示） 本界面为班级信息删除界面，所有的班级信息都在下面的控件中显示了出来，可以进行选择删除或者返回主界面。 （图4-9）其代码如下: Private Sub Command1_Click ()hxfyn = MsgBox(是否真的删除?, 36)If hxfyn = vbYes Then If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub Command2_Click ()Unload MeEnd SubPrivate Sub Form Load ()End SubPrivate Sub Label1_Click ()End Sub关键介绍： 通过Select语句实现了条件查询，通过ADO与DATAGRID控件连接数据库将查询得到的记录显示在DATAGRID控件中再使用Delete 语句进行了删除。4.2.10 课程信息查询界面（如图4-10所示）本界面是课程信息查询界面，实现了输入课程编号后可查询课程信息情况或者返回主界面的功能。（图4-10）其代码如下:Private Sub Command1_Click ()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App. Path & 学生学籍管理.mdb;Adodc1.CommandType = adCmdTextDim strSQL As StringstrSQL = select * from 课程信息表 where 编号 like % & Text1.Text & %Adodc1.RecordSource = strSQLAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd SubPrivate Sub Command2_Click ()Unload MeEnd SubPrivate Sub Form Load ()End Sub关键介绍： 通过Select语句实现了条件查询，通过ADO与DATAGRID控件连接数据库将查询得到的记录显示在DATAGRID控件中。4.2.11课程信息修改模块（如图4-11所示）本界面是课程信息修改界面，通过该模块可以先查询课程信息后再对课程的信息进行修改并保存到数据库中或者返回主界面。 （图4-10）其代码如下:Private Sub Command1_Click ()Adodc1.Recordset.UpdateMsgBox 修改成功！End SubPrivate Sub Command2_Click ()Unload MeEnd SubPrivate Sub Command3_Click ()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App. Path & 学生学籍管理.mdb;Adodc1.CommandType = adCmdTextDim strSQL As StringstrSQL = select * from 课程信息表 where 课程编号 = & Text1.Text & Adodc1.RecordSource = strSQLAdodc1.RefreshText1.Text = Adodc1.Recordset.Fields(课程编号)Text2.Text = Adodc1.Recordset.Fields(课程名称)Text3.Text = Adodc1.Recordset.Fields(授课老师)End SubPrivate Sub Form Load ()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App. Path & 学生学籍管理.mdb;Adodc1.CommandType = adCmdTextDim strSQL As StringstrSQL = select * from 课程信息表 Adodc1.RecordSource = strSQLAdodc1.RefreshText1.Text = Adodc1.Recordset.Fields(课程编号)Text2.Text = Adodc1.Recordset.Fields(课程名称)Text3.Text = Adodc1.Recordset.Fields(授课老师)End Sub关键介绍：通过Select语句实现了条件查询，通过ADO控件检索text文本对其进行了修改。