教务管理系统(vb)

教务管理系统的设计与实现摘要

教务管理是学生管理信息的统计、上报、查询工作费时费力，并且数据保密性、准确性难以保证。因此，开发出一套高效、实用的教务管理系统，提高学生管理工作的自动化水平成为当务之急。本设计在分析了教务管理现状和工作特点的根底上，以实际应用为核心，以微软公司的MicrosoftOfficeAccess2003作为数据开发平台，根据数据库原理和数据库，并且运用面向对象的编程语MicrosoftVisualBasic6.0及其它计算机应用技术，集成开发了一套符合学生管理工作实际的教务管理系统。该系统实现的主要功能模块包括用户登录模块，用户注册模块，文件管理模块，系统管理管理员模块，课程管理模块，及教师查询模块等。本文详细介绍了该系统分析、概要设计、系统的数据库的逻辑结构设计、模块界面和功能设计、系统测试和分析等设计与实现过程，最后表述了一下个人的心得体会。关键词：教务管理；数据库；MicrosoftOfficeAccess2003,MicrosoftVisualBasic6.0一系统分析1.1开发背景

现如今高等院校的招生人数越来越多，必然就会有大量的学生信息、教师信息及课程信息需要处理。如果只靠人力来完成，这将会变成一项非常繁琐、复杂的工作，而且还有可能出现很多意想不到的错误，给管理这些数据带来了极大的不便，越来越不适合高校的开展需要。因此，为了提高教务管理工作的效率，减少错误的出现，节约大量的人力资源，教务管理也已经从手工操作转到计算机自动化信息处理阶段，所有高校都迫切需要计算机技术来进行教务信息的辅助管理。在使用了教务管理系统后，可以提高各类信息的准确性和及时性，将信息准确无误地输入计算机并在数据库中存储起来。按照标准设定标准代码，大大保证了统计原始数据的准确性，在进行课程的分析设计时可以最大限度地减少人为影响，大大提高工作效率。

教务管理系统是一个庞大而复杂的系统，它包括对教师信息的管理，对课程资料的管理，对学生信息的管理和对学生成绩的管理等主要功能。教务管理系统是每所高校的一项必不可少的内容，它的好坏直接影响到学校的主要工作，此系统一旦瘫痪，不仅会影响到学校的每一位学生，学校也会因此受到非常严重的损失。随着我校近几年来的快速开展，办学模式多元化，在校学生规模不断扩大，为了加速对教务管理的计算机化，我校需要开发出符合我校实际的教务管理系统，为学校教学管理提供一个快速、简单标准的管理平台，同时也方便教员查询相关信息，提高信息传播速度，扩大信息共享范围。所以，现在设计一个功能完整、操作简单以及界面友好的教务管理系统变得非常重要。

通过这个系统，管理员能够对教师信息、课程信息、学生信息和学生成绩进行查询、添加、修改和删除等操作，用户也可以对自己的根本信息进行修改，学生还可以用该系统进行网上选课和成绩查询，非常的方便。

因此，本系统开发的总体目标就是在教务管理中实现信息管理的系统化、自动化，减少工作繁琐度，增加效率、方便性。1.2需求分析这次开发的教务管理系统大大提高了学校管理工作的效率，使用户能够方便的对院系信息、课程信息、学生信息以及成绩信息进行管理。本系统对具有不同权限的用户所开放的功能是不同的，最高级用户的权限是“管理员”，它能使用系统的所有功能，另一种用户的权限是“用户”，它只能使用系统的局部功能。1.3系统的实现目标〔1〕登录管理模块：为了保证系统的平安性，可以根据不同的用户权限来提供不同的效劳。分为用户登录和注册两个子模块。〔2〕教务管理模块：分为文件管理、系统管理、课程管理、成绩管理和教师查询五个子模块。其中：文件管理包括个人信息和信息修改。系统管理包括返回登录界面、关于、管理员和推出系统。课程管理包括课程查询和课程管理。二概要设计2.1系统功能分析不同权限的用户能使用的功能如下：用户管理：此项功能只能由管理员使用个人信息修改：用户使用管理员使用，用户不能使用，只能是管理员使用。课程查询：管理员和用户都能使用成绩查询：管理员和用户都能使用教师查询：管理员和用户都能使用2.2系统模块设计本系统并不复杂，模块划分也比拟清楚。通过对不同的功能进行分析，就可以得到系统的模块划分。〔1〕登录管理模块：为了保证系统的平安性，可以根据不同的用户权限来提供不同的效劳。分为用户登录和注册两个子模块。〔2〕教务管理模块：分为文件管理、系统管理、课程管理、成绩管理和教师查询五个子模块。其中文件管理包括个人信息和信息修改。系统管理包括返回登录界面、关于、管理员和推出系统。课程管理包括课程查询和课程管理。2.3系统结构图〔1〕登陆界面模块结构图登陆界面模块登陆界面模块登陆用户注册〔2〕．系统总体功能模块结构图系统总体功能模块：教务管理系统教务管理系统文件系统管理课程管理成绩管理教师查询图2-1系统总体功能结构图1〕．文件管理文件模块文件模块个人信息信息修改复制黏贴图2-2文件模块2〕系统管理系统管理返回登录界面系统管理返回登录界面关于管理员退出系统图2-3系统管理模块3〕课程管理课程管理课程查询课程管理图2-4课程管理模块三系统的数据库的逻辑结构设计由用户的需求分析和概念结构设计，最终设计了名为教务管理数据库的数据库，数据库中的表如下所示：表1：登录信息表记录号字段名称数据类型字段大小属性〔是否可为空〕1UserID文本10否2Password文本10否3UserName文本16否4Description备注表2：系别信息表记录号字段名称数据类型字段大小属性〔是否可为空〕1DepartID文本4主键2Telephone文本20否3Description文本13否4DepartName文本20否5Telephone文本8否表3：学生信息表记录号字段名称数据类型字段大小属性〔是否可为空〕1StudentID文本10主键2Name文本50否3Sex文本10否4ClassID文本4否5Birthday日期/时间50否6Native文本50否表4：课程信息表记录号字段名称数据类型字段大小属性〔是否可为空〕1CourseID文本10主键2CourseName文本20否3Credit数字长整型否4Period数字长整型否5Teacher文本10否6Description文本16否表5：成绩信息表记录号字段名称数据类型字段大小属性〔是否可为空〕1ID自动编号10主键2CourseID文本4否3StudentID文本8否4Score数字8否表6：班级信息表记录号字段名称数据类型字段大小属性〔是否可为空〕1ClassID文本10主键2ClassName文本4否3DepartID文本8否4BeginDate日期/时间中日期否5Master文本8否6MasterTel文本13否7Description文本否表7：教师表记录号字段名称数据类型字段大小属性〔是否可为空〕1教师编号文本5主键2姓名文本8否3性别文本2否4出年日期日期/时间中日期否5职称文本8否6单位文本20否7工资数字单精度型否四模块界面和功能设计4.1登录界面的设计本系统的登录界面上主要有用户名、密码两局部内容。如果用户输入的用户名不存在或者密码与用户名不一致或者与用户权限不一致，都会给出相应的提示信息，告诉用户出现的错误输入。其界面设计如下列图所示：4.2用户注册局部设计用与给新的用户注册，其中包括用户所需要注册的详细信息。如果用户输入的用户信息不符合相关规定，会给出相应的提示信息，告诉用户如何注册信息。其界面设计如下列图所示：4.3教务管理模块的设计：教务管理模块的以下操作，主要是文件、系统管理，课程管理、成绩管理、教师查询五大功能。其中主要界面设计如下列图：1〕文件操作包括个人信息和修改信息。个人信息操作用于查看个人的信息情况，其界面设计如下列图所示：修改信息操作用于对自己的信息进行修改，其界面设计如下列图所示：2〕系统管理操作包括返回登入界面、管理员和推出系统。返回登入界面操作用于如果用户需要进行其他操作时，可以用这个操作，其界面设计和登入界面一样。管理员操作用于管理员对全部用户的管理，其中设有密码为：01，其界面设计如下列图所示：推出系统操作用于推出整个系统。3〕课程管理包括课程查询和课程管理课程查询用于用户可以对自己的课程进行查询操作，其界面设计如下列图所示：课程管理用于对所有课程的操作，其界面设计如下列图所示：4〕成绩管理主要是学生可以查询自己的成绩，其界面设计如下列图所示：教师查询主要的功能是学生对教师的查询操作，其界面设计如下列图所示：五系统测试和分析5.1系统环境此系统是在系统平台：Windows7,数据库效劳器：Microsoftaccess2003,开发工具：MicrosoftVisualBasic6.0中文版的环境下开发的，实现了教务管理系统的根本操作。5.2数据库的平安性、完整性、并发控制和恢复信息数据是企业中非常重要的资源，因此保证数据库的平安可靠、正确有效是非常重要的问题。一般的数据库管理系统〔DBMS〕都有提供了一定的数据保护功能。数据库保护也称为数据控制，主要包括数据的平安性、完整性、并发控制和数据库的恢复等。1〕数据库的平安性数据库的平安性是指保护数据库以防止不合法的使用所造成的数据泄露、更改或破坏。由于数据库系统中存放着大量的数据，且为许多用户所共享，因此平安性问题是必须首先要解决的。一般计算机系统中的平安措施是按照“用户标识和鉴别”、“DBMS存取控制”、“OS级平安控制”、“DB密码存储”来一级一级设置的。在现在流行的数据库系统中一般都提供以下两种控制：用户标识和鉴别、数据存取控制。2〕数据完整性为了保证数据库数据的正确性和相容性，数据库管理系统〔DBMS〕都提供了一种机制来检查数据库中的数据，看它是否满足语义的规定条件，DBMS称这种机制为“数据完整性检查”。一般的DBMS中是通过完整性约束和数据库触发器来实现这一机制的。3〕并发控制在多用户数据库环境中，多个用户程序可并行存取数据库中的数据，为了以正确的方式调度该并发操作，防止造成“丧失修改”、“不能重读”、“读脏数据”等不一致的情况，DBMS引入了“并发控制”这一机制。并发控制的主要方法是采用封锁机制，一般采用两种封锁机制：共享机制和排它机制来实现。4〕数据库后备与恢复主要使用转储、日志等方法进行数据库的恢复。5.3程序调试过程中出现的问题及解决方案问题一：再添加或修改记录时，当把原来的记录修改时，即使取消了添加与修改操作，虽然数据库中的数据没有改变，但是当前数据集中显示的记录会发生改变。解决方案：添加一个刷新的功能，使数据集中的数据重新被填充，可以防止类似错误的产生。问题二：在编写登录窗体的时候，当代码没有任何错误时，运行时，输入用户名跟密码后，仍然显示“用户名与密码不匹配，请重新输入”。解决方案：经过查阅资料后发现，用早Windows登录窗体中的数据类型必须是文本类型才可以，其余的类型都不会显示正确的输入。问题三：再添加Timer控件时，编写的代码正确时，仍然不显示时间，也不控制一行字的滚动，没有起到作用解决方案：原来时Timer的一个属性，我们必须把它设为TRUE，上面的问题就解决了。5.2系统在开发环境下实现的功能以及结果5.4各个程序设计模块代码见附录。六心得体会通过这两周的课程设计，我学到了很多从书本上学不到的知识。在此次课程设计中，我对这门课有了更加深刻的认识，把所学的理论知识和实践联系起来。在做这次课程设计之前，我对它了解的很少，也从来没想到我能完成这么一个程序。但是经过两周的时间，我终于弄出了一个完整的程序。在这次课程设计中，我觉得我最大的收获就是学会了为了做出这个程序，我该如何去寻找有用的资料，在短时期内学到尽量多而且有用的知识和本领。这两周的时间里，我从原来的模糊认识，到现在编出这个程序，中间也遇到了很多困难和挫折。在程序的编写过程中，也出现了很多错误，经过我认真修改，查阅资料，向老师和同学们请教，终于把那些错误都改正过来，最终使程序能够正确的运行。程序中还有蛮多可以改良的地方如在用户登录的时候如果连续三次用户名或密码错误，系统就会自动退出，但是并没有把此用户锁定，这点会带来一定得平安隐患，所以为了增强系统的平安性，如果连续三次输入错误，就应该把此用户给锁定住，只有它与管理员联系后，完成解锁前方可继续使用；在网络功能上没有提供很好的接口和支持，根本上术语单机版状态；本系统的数据库一旦被更改，就是永久性的，所以为了防止一些问题的发生，应该适时的进行数据库备份。所以可以在系统中添加备份数据库的功能，这样就可以及时备份数据库，当数据库遭到破坏的时候，可以复原数据库。当然还有蛮多可以扩充的功能及设计实现设想如可以在学生资料中添加照片这一属性，为每一位学生设置一张图片，当浏览每一位学生的记录时，都能看到这位学生的照片；可以在学生资料中增加出生年月这一属性，利用相关控件，当输入、修改日期数据时，都会弹出一个框供选择；还可以在系统中添加备份数据库的功能，这样就可以及时备份数据库，当数据库遭到破坏的时候，可以复原数据库。所以说，这次课程设计不仅是让我学到了一门面向对象的编程方法，更重要的是它提高了我接受新事物的能力，让我以后遇到新事物时，不再感到茫然，感到无从下手。当下次我接触到新知识时，我会知道我该做些什么，该去看那些书籍资料，心中就会有一个明确的目的。 参考文献[1]刘智斌，刘玉萍，数据库原理.重庆：重庆大学出版社，2006.7。[2]张智毅.VisualBasic数据库编程技术与实例，北京：人民邮电出版社，2004.6。[3]李勇帆，VisualBasic6.0程序设计与应用，北京：人民邮电出版社，2006.2。附录附件1:登录界面的设计PrivatecnnAsNewADODB.ConnectionPrivateRsAsNewADODB.RecordsetPrivateSubCommand1_Click(IndexAsInteger)Dima$Dimb$'Data1.Recordset.FindFirst"UserName="&"'"&Text4.Text&"'"SelectCaseIndexCase0Text2.Text=""Text1.Text=""Text1.SetFocusCase1Setcnn=NewADODB.Connectioncnn.Open"DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="&App.Path&"\db2.mdb"SetRs=NewADODB.RecordsetRs.Open"select*fromUserswhereUserName='"&Text1.Text&"'andPassword='"&Text2.Text&"'",cnn,3,3IfText1.Text=""OrText2.Text=""ThenMsgBox"用户名或者密码不能为空",vbOKOnlyText1.SetFocusExitSubEndIfIfRs.RecordCount=0ThenMsgBox"用户名或者密码错误，请重新输入",vbOKOnlyText1.SetFocusExitSubEndIfIfRs.RecordCount<>0ThenRs.Closecnn.CloseForm1.HideForm2.ShowEndIfCase2Form1.HideForm3.ShowEndSelectEndSubPrivateSubCommand2_Click(IndexAsInteger)SelectCaseIndexCase0Form1.WindowState=1Case1Form1.WindowState=0Case2Form1.WindowState=2EndSelectEndSubPrivateSubLabel3_Click()IfLabel1.Font.Size<40ThenLabel1.Font.Size=Label1.Font.Size+1ElseLabel1.Font.Size=Label1.Font.Size-1EndIfEndSubPrivateSubText2_Change()Text2.PasswordChar="*"EndSubPrivateSubForm_Load()'rs.Open"select*fromUsers",cnn,3,3Text2.Text=""Text1.Text=""'Label4.Left=Form1.Width-Label4.Width'Label4.Top=Form1.Height-Label4.HeightEndSubPrivateSubTimer1_Timer()IfLabel3.Left>=Form1.WidthThenLabel3.Left=0EndIfIfLabel3.Left=0ThenLabel3.Left=Label3.Left+20IfLabel3.Left<>0AndLabel3.Left<Form1.WidthThenLabel3.Left=Label3.Left+20EndSubPrivateSubTimer2_Timer()Label4.Caption=NowEndSub附件2：用户注册PrivatecnnAsNewADODB.ConnectionPrivateRsAsNewADODB.RecordsetPrivateSubCommand1_Click(IndexAsInteger)Dima%a=1SelectCaseIndexCase0IfText5.Text=""OrText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""ThenMsgBox"UserIDPasswordUserName不能为空，请输入",vbOKOnlya=0Text1.SetFocusExitSubEndIfIfText2.Text<>Text5.TextThenMsgBox"Password和Passwordagain不一致，请正确输入",vbOKOnlya=0Text2.SetFocusExitSubEndIfIfa=1Thencnn.Execute"insertintoUsersvalues('"&Text1.Text&"','"&Text2.Text&"','"&Text3.Text&"','"&Text4.Text&"')"MsgBox"注册成功",vbOKOnlyEndIfCase1Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Case2Rs.Closecnn.CloseForm3.HideForm1.ShowEndSelectEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Setcnn=NewADODB.ConnectionSetRs=NewADODB.Recordsetcnn.Open"DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="&App.Path&"\db2.mdb"'cnn.OpencnnRs.Open"select*fromUsers",cnn,3,3EndSub附录3：教务管理模块〔1〕文件操作1〕个人信息OptionExplicitPrivatecnnAsNewADODB.ConnectionPrivateRsAsNewADODB.RecordsetPrivateSubCommand1_Click()Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueForm5.HideForm2.ShowEndSubPrivateSubForm_Load()Setcnn=NewADODB.ConnectionSetRs=NewADODB.Recordset'cnn.Opencnncnn.Open"DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="&App.Path&"\db2.mdb"Rs.Open"select*fromUserswhereUserName='"&Form1.Text1.Text&"'andPassword='"&Form1.Text2.Text&"'",cnn,3,3CallShowDataRs.Closecnn.CloseEndSubPrivateSubShowData()Text1.Text=Rs.Fields(0).ValueText2.Text=Rs.Fields(1).ValueText3.Text=Rs.Fields(2).ValueText4.Text=Rs.Fields(3).ValueEndSub信息修改OptionExplicitPrivatecnnAsNewADODB.ConnectionPrivateRsAsNewADODB.RecordsetPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0IfText1.Text=""OrText2.Text=""OrText3.Text=""ThenMsgBox"UserIDPasswordUserName不能为空，请输入",vbOKOnlyEndIfRs.UpdateMsgBox"修改成功！"Case1Rs.CancelCase2Rs.Closecnn.CloseForm6.HideForm2.ShowEndSelectEndSubPrivateSubForm_Load()Setcnn=NewADODB.ConnectionSetRs=NewADODB.Recordsetcnn.Open"DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="&App.Path&"\db2.mdb"'cnn.OpencnnRs.Open"select*fromUserswhereUserName='"&Form1.Text1.Text&"'andPassword='"&Form1.Text2.Text&"'",cnn,3,3CallShowDataEndSubPrivateSubShowData()Text1.Text=Rs.Fields(0).ValueText2.Text=Rs.Fields(1).ValueText3.Text=Rs.Fields(2).ValueText4.Text=Rs.Fields(3).ValueEndSub系统管理操作1〕主界面：PrivateSuba1_Click()Form2.HideForm5.ShowEndSubPrivateSuba2_Click()Form2.HideForm6.ShowEndSubPrivateSubb1_Click()Form2.HideForm1.ShowEndSubPrivateSubb3_Click()Dima$a=InputBox("请输入管理员的密码","密码")Ifa<>"01"ThenMsgBox"密码错误，请重新输入",vbDefaultButton1a=InputBox("请输入管理员的密码","密码")ElseForm2.HideForm4.ShowEndIfEndSubPrivateSubb4_Click()EndEndSubPrivateSubc1_Click()Form2.Hideform8.ShowEndSubPrivateSubc2_Click()Form2.Hideform7.ShowEndSubPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0Form2.WindowState=1Case1Form2.WindowState=0Case2Form2.WindowState=2EndSelectEndSubPrivateSubd1_Click()Form2.Hideform9.ShowEndSubPrivateSubf1_Click()Form2.Hidejiaoshi.ShowEndSubPrivateSubForm_Load()'Label1.Left=Form2.Width-Label1.Width'label1.Top=Form2.Height-Label1.HeightEndSubPrivateSubTimer1_Timer()Label1.Caption=NowEndSub管理员PrivatecnnAsNewADODB.ConnectionPrivateRsAsNewADODB.RecordsetPrivateSubCommand2_Click()Rs.Closecnn.CloseForm4.HideForm2.ShowEndSubPrivateSubForm_Load()Setcnn=NewADODB.ConnectionSetRs=NewADODB.Recordset'cnn.Opencnncnn.Open"DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="&App.Path&"\db2.mdb"Rs.Open"select*fromUsers",cnn,3,3calldatashow1(rs,msflexgrid)EndSub课程管理1〕课程查询OptionExplicitPrivatecnnAsNewADODB.ConnectionPrivateRsAsNewADODB.RecordsetPrivateRs1AsNewADODB.RecordsetPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0Rs.Open"select*fromCoursewhereCourseIDlike"&"'"&Text1.Text&"'",cnn,3,3IfRs.RecordCount=0ThenMsgBox"不存在这个编号！，请重新输入"Text1.Text=""Text1.SetFocusElseCallShowDatacalldatashow1(rs,msflexgrid)EndIfRs.Close'Data1.Recordset.FindFirst"CourseIDlike"&"'"&Text1.Text&"'"Case1Rs1.Closecnn.Closeform8.HideForm2.ShowEndSelectEndSubPrivateSubForm_Load()Setcnn=NewADODB.ConnectionSetRs=NewADODB.Recordsetcnn.Open"DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="&App.Path&"\db2.mdb"'cnn.OpencnnRs.Open"select*fromCourse",cnn,3,3Rs1.Open"select*fromCourse",cnn,3,3calldatashow1(rs,msflexgrid1)CallShowDataRs.CloseEndSubPrivateSubShowData()lblCourseID.Caption=Rs.Fields(0).ValuelblCourseName.Caption=Rs.Fields(1).ValuelblCredit.Caption=Rs.Fields(2).ValuelblPeriod.Caption=Rs.Fields(3).ValuelblTeacher.Caption=Rs.Fields(4).ValueEndSub课程管理PrivateSubForm_Load()Setcnn=NewADODB.ConnectionSetRs=NewADODB.Recordsetcnn.Open"DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="&App.Path&"\db2.mdb"'cnn.OpencnnRs.Open"select*fromCourse",cnn,3,3IfRs.AbsolutePosition=Rs.BOFThenCommand2(0).Enabled=FalseIfRs.AbsolutePosition=Rs.EOFThenCommand2(2).Enabled=FalseCallShowDatacalldatashow1(rs,msflexgrid)EndSubPrivateSubShowData()Text1.Text=Rs.Fields(0).ValueText2.Text=Rs.Fields(1).ValueText3.Text=Rs.Fields(2).ValueText4.Text=Rs.Fields(3).ValueText5.Text=Rs.Fields(4).ValueText6.Text=Rs.Fields(5).ValueEndSubPrivateSubupdata()Rs.Fields(0).Value=Text1.TextRs.Fields(1).Value=Text2.TextRs.Fields(2).Value=Text3.TextRs.Fields(3).Value=Text4.TextRs.Fields(4).Value=Text5.TextRs.Fields(5).Value=Text6.TextEndSub成绩管理OptionExplicitPrivatecnnAsNewADODB.ConnectionPrivateRsAsNewADODB.RecordsetPrivateRs1AsNewADODB.RecordsetPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0Rs.Open"selectStudent.StudentID,Student.Name,Student.Sex,Student.Birthday,Department.DepartName,Class.ClassName,Class.MasterfromStudent,Class,DepartmentwhereStudent.ClassID=Class.ClassIDandClass.DepartID=Department.DepartIDandStudent.StudentID='"&Text1.Text&"'",cnn,3,3IfRs.RecordCount=0ThenMsgBox"不存在这个学号，请重新输入！"Text1.SetFocusExitSubRs.CloseElseCallShowDatacalldatashow1(rs,msflexgrid)Rs.CloseRs.Open"selectcount(*)fromScorewhereScore.Score<60andScore.StudentID='"&Text1.Text&"'groupbyStudentID",cnn,3,3'Label12(0).Caption=Rs.Fields(0).ValueRs.CloseRs.Open"selectmax(Score),avg(Score),min(Score)fromScorewhereScore.StudentID='"&Text1.Text&"'",cnn,3,3IfRs.RecordCount=0ThenMsgBox"不存在这个学号，请重新输入！"Text1.Text=""Text1.SetFocusExitSubRs.CloseElseLabel12(1).Caption=Rs.Fields(0).ValueLabel12(2).Caption=Rs.Fields(1).ValueLabel12(3).Caption=Rs.Fields(2).ValueRs.CloseEndIfEndIf'Data1.Recordset.FindFirst"StudentIDlike"&"'"&Text1.Text&"'"'Data2.Recordset.FindFirst"ClassIDlike"&"'"&Text2.Text&"'"'Data3.Recordset.FindFirst"DepartIDlike"&"'"&Text3.Text&"'"Case1Rs1.Closecnn.Closeform9.HideForm2.ShowEndSelectEndSubPrivateSubForm_Load()Setcnn=NewADODB.ConnectionSetRs=NewADODB.Recordsetcnn.Open"DRIVER=MicrosoftAccessDriver(*.mdb);DBQ="&App.Path&"\db2.mdb"'cnn.OpencnnRs.Open"selectStudent.StudentID,Student.Name,Student.Sex,Student.Birthday,Department.DepartName,Class.ClassName,Class.MasterfromStudent,Class,DepartmentwhereStudent.ClassID=Class.ClassIDandClass.DepartID=Department.DepartID",cnn,3,3Rs1.Open"selectStudent.StudentID,Student.Name,Student.Sex,Student.Birthday,Department.DepartName,Class.ClassName,Class.MasterfromStudent,Class,DepartmentwhereStudent.ClassID=Class.ClassIDandClass.DepartID=Department.DepartID",cnn,3,3calldatashow1(rs,msflexgrid1)CallShowDataRs.CloseRs.Open"selectcount(*)fromScorewhereScore.Score<60andScore.StudentID='"&lblStudentID.Caption&"'groupbyStudentID",cnn,3,3Label12(0).Caption=Rs.Fields(0).ValueRs.CloseRs.Open"selectmax(Score),avg(Score),min(Score)fromScorewhereScore.StudentID='"&lblStudentID.Caption&"'",cnn,3,3Label12(1).Caption=Rs.Fields(0).ValueLabel12(2).Caption=Rs.Fields(1).ValueLabel12(3).Caption=Rs.Fields(2).ValueRs.CloseEndSubPrivateSubShowData()lblStudentID.Caption=Rs.Fields(0).ValuelblName.Caption=Rs.Fields(1).ValuelblSex.Caption=Rs.Fields(2).ValuelblBirthday.Caption=Rs.Fields(3).ValuelblDepart.Caption=Rs.Fields(4).ValuelblClass.Caption=Rs.Fields(5).ValuelblMaster.Caption=Rs.Fields(6).ValueEndSub教师查询OptionExplicitPrivatecnnAsNewADODB.ConnectionPrivateRsAsNewADODB.RecordsetPrivateSubCommand1_Click(IndexAsInteger)Rs.Open"select*from教师表","DSN=db1;UserID=;pwd=",3,3Dimn%n=Val(Text8.Text)SelectCaseIndexCase0Rs.MoveFirstCallShowDataCommand1(1).Enabled=FalseCommand1(2).Enabled=TrueCommand1(3).Enabled=TrueCase1Rs.MovePreviousCallShowDataCommand1(0).Enabled=TrueCommand1(1).Enabled=TrueCommand1(2).Enabled=TrueCommand1(3).Enabled=TrueCase2Rs.MoveNextCallShowDataCommand1(0).Enabled=TrueCommand1(1).Enabled=TrueCommand1(2).Enabled=TrueCommand1(3).Enabled=TrueCase3Rs.MoveLastCallShowDataCommand1(0).Enabled=TrueCommand1(1).Enabled=TrueCommand1(2).Enabled=FalseCommand1(3).Enabled=TrueCase4Ifn>Rs.RecordCountThenMsgBox"此表没有那么多记录！"ElseRs.Move(n)CallShowDataEndIfEndSelectRs.CloseEndSubPrivateSubCommand2_Click(IndexAsInteger)Rs.Open"select*from教师表where姓名like"&"'"&Text9.Text&"'","DSN=db1;UserID=;pwd=",3,3IfRs.RecordCount=0ThenMsgBox"此表不存在这个姓名！"Rs.CloseElseSelectCaseIndexCase0Rs.MoveFirstCallShowDataCase1Rs.MovePreviousCallShowDataCase2Rs.MoveNextCallShowDataCase3Rs.MoveLastCallShowDataEndSelectRs.CloseEndIfEndSubPrivateSubCommand3_Click(IndexAsInteger)Rs.Open"select*from教师表where教师编号like"&"'"&Text10.Text&"'","DSN=db1;UserID=;pwd=",3,3IfRs.RecordCount=0ThenMsgBox"此表不存在这个姓名！"Rs.CloseElseSelectCaseIndexCase0Rs.MoveFirstCallShowDataCase1Rs.MovePreviousCallShowDataCase2Rs.MoveNextCallShowDataCase3Rs.MoveLastCallShowDataEndSelectRs.CloseEndIfEndSubPrivateSubCommand4_Click(IndexAsInteger)Rs.Open"select*from