学生信息管理系统毕业论文.doc 39页

'学生信息管理系统毕业论文—目录—第一章引言11.1研究的目的及意义1第二章 系统开发方法及相关技术22.1学生信息管理系统概述22.2系统开发工具与技术22.2.1MICROSOFTVISUALBASIC6.0中文版22.2.2SQLServer2000介绍3第三章 系统需求分析53.1系统建设目标53.2系统涉众角色划分53.3系统功能需求分析53.4分用户的系统操作流程63.5系统非功能需求分析7第四章 系统的设计74.1系统总体功能设计74.1.1系统功能结构图84.2系统功能模块设计与实现104.2.1登录模块设计与实现104.2.2学生信息模块设计实现154.2.2管理员模块设计与实现174.2.2管理员模块设计与实现254.3数据库设计与实现33第五章总结与展望37致谢38 参考文献38附录（源程序）38 第一章引言1.1研究的目的及意义 由于现今的学生信息管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学生信息管理系统。计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全等等。为了解决传统学生信息的管理正面临着的这些问题，我所设计的学生信息管理系统也就应运而生了。1.2课题研究的主要内容 学生信息管理系统是一个信息管理平台，应该需求能够添加一个新学生信息，之后还要添加这个学生的成绩等，学生有一个ID，能用这个ID号登录上这个平台，能查询自己的基本信息跟学习成绩等。老师也有基本信息，也有一个自己的ID，教师登录进管理系统时可以录入学生成绩信息等。老师能查询学生的个人信息及学习成绩。一个信息管理系统应该要有管理员，拥有最高权限，能添加、删除学生信息，老师信息等操作。界面人性化，友好化，简单化，可上手性强。数据库要有可扩展性，不重复性，通用性等特点。根据研究需求，得出一个学生信息管理系统所以应该有的功能，我简单的把这些功能例出来，一个一个慢慢实现。1.3论文的组织结构 论文由六个部分结成从第一章引言讲述了论文的初期实现目标探究及定向，研究了开题的意义跟研究的对象及内容；第二章系统开发方法及相关技术对系统开发的软件进行选择、安装、介绍、调试等操作，先介绍开发的相关技术及工具，有SQLSever2000的介绍，VB的介绍。其它的技术等；第三章系统需求分析 一个系统，是因为我们有需求，有需要才会去操作他，才会去开发他。有相关的系统成员跟权限；第四章按需设计根据需求我们开始设计系统，首先是总体功能设计，系统功能设计，界面设计，相关的模块设计等，最后根据需要进行数据库设计；第五章系统进行实现根据功能一步步的实现，进行分析需求和各种权限设计，代码修改等；最后是对整个系统开发的总结和展望，希望自己做的系统有所改进。第六章系统展望最后是对整个系统开发的总结和展望，希望自己做的系统有所改进第二章 系统开发方法及相关技术2.1学生信息管理系统概述高校学生信息的管理是一项既重要又繁琐的工作。为更好的做好这项工作，提过工作效率，更好的为学校的发展和一线教学服务，决定：结合我校实际情况，自行研制一个学生信息管理系统。2.2系统开发工具与技术该软件是在WindowsXPProfessional+VisualBasic6.0+SQLServer2000的环境下完成的。本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境VisualBasic6.0作为主要开发工具，后台数据库是用Microsoft公司的SQLSever2000作为后台数据库。下面就对这些开发工具进行介绍：2.2.1MICROSOFTVISUALBASIC6.0中文版 VisualBasic6.0是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高、且功能强大。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口（API）函数，以及动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发出Windows环境功能强大、图形界面丰富的应用软件系统。总的来看，VisualBasic有以下主要特点：VisualBasic语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动编程。VisualBasic语言的出现为Windows下的编程提出了一个新概念，利用VisualBasic的动态数据交换、对象的链接和嵌入、动态链接库、ActiveX技术可以很方便地设计出功能强大的应用程序。利用VisualBasic语言编程有以下几个特点：1）、可视化程序设计在VisualBasic中开发的应用程序，不但有丰富的图形界面，同时由用户为开发图形界面添加的代码真是少而又少，因为在设计图形界面的过程中只需设置ActiveX控件的属性即可。 2）、强大的数据库和网络功能随着VisualBasic语言的向前发展，它在数据库和网络方面的功能优势就愈加明显，利用VisualBasic中的ODBC——开放式的数据库访问技术可以很方便地开发出自己的数据库应用程序；利用VisualBasic自带的可视化数据管理器和报表生成器，完全可以在VisualBasic就完成数据库的开发工作。3）、其他特性在VisualBasic以前的版本中，由于仍然摆脱不了解释执行的代码运行机制，所以在相当的程度上制约了VisualBasic的发展。从VisualBasic5.0版本开始，在VisualBasic中制作的应用程序都改变为编译执行，使得VisualBasic的代码效率有了很大的提高，同时执行的速度也加快了解30%(同VisualBasic4.0相比)。当然在VisualBasic中还有其它特性，例如：l面向对象的编程语言；l结构化程序设计；l事件驱动的程序设计：在传统的或“过程化”的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行，必要时才会调用过程。在事件驱动的应用程序中，代码不是按预定的路径执行，而是在响不同的事件时执行不同的代码片段。事件可以由用户操作触发、也可以由来自操作系统或其它应用程序的消息触发、甚至由应用程序本身的消息触发。这些事件的顺序，决定了代码执行的顺序，因此应用程序每次运行时所经过的路径都是不同的。l支持动态链接库；l应用程序之间的资源共享；l事件驱动的程序设计；在传统的或“过程化”的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行，必要时才会调用过程。在事件驱动的应用程序中，代码不是按预定的路径执行，而是在响不同的事件时执行不同的代码片段。事件可以由用户操作触发、也可以由来自操作系统或其它应用程序的消息触发、甚至由应用程序本身的消息触发。这些事件的顺序，决定了代码执行的顺序，因此应用程序每次运行时所经过的路径都是不同的。l支持动态链接库；应用程序之间的资源共享2.2.2SQLServer2000介绍 SQLServer2000是Microsoft公司推出的SQLServer数据库管理系统的一个版本。该版本继承了SQLServer7.0版本的优点同时又比它增加了许多更先进的功能，具有使用方便,可伸缩性好与相关软件集成程度高等优点，可跨越从运行MicrosoftWindows98的膝上型电脑到运行MicrosoftWindows2000的大型多处理器的服务器等多种平台使用。概括起来，SQLServer2000数据库管理系统具有以下主要特点。1）、丰富的图形管理工具，使系统管理、操作更为直观方便。SQLServer企业管理器是一个基于图形用户界面（GUI）的集成管理工具，利用它可以配置管理SQLServer服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQLServer2000还提供了SQL事件探查器、SQL查询分析器、SQLServer服务管理器和多种操作向导等图形界面管理工具，大大简化了用户操作，从而增强了系统的易用性。2）、动态自动管理和优化功能。即使SQLServer数据库管理员不做任何设置，SQLServer也能够在运行过程中根据环境配置和用户访问情况动态自动配置，以达到最优性能，从而减轻管理员工作。3）、充分的Internet技术支持。Internet网络发展到今天已经成为一条重要的信息发布渠道，SQLServer增强了对Internet技术支持，它除保留了前期版本中的数据库Web出版工具“Web助手”外，还增强了对XML和HTTP技术的支持，这使得电子商务系统能够通过XML等访问SQLServer数据库系统，也扩展了SQLServer在数据挖掘和分析服务领域的应用。4）、丰富的编程接口工具，使用户开发SQLServer数据库应用程序更加灵活。SQLServer提供了Transact-SQL、DB-LibraryforC、嵌入式SQL（ESQL）等开发工具，Transact-SQL与工业标准SQL语言兼容，并在其基础上加以扩充，使它更适合事务处理方面的需要。此外，SQLServer2000还支持ODBC、OLEDB、ADO规范，可以使用ODBC、OLEDB、ADO接口访问SQLServer数据库。5）、具有很好的伸缩性和可靠性。SQLServer2000既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包括WindowsNT和Windows2000）下；既能运行在单CPU计算机上，又能运行在对称多处理系统下。所以，它具有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。6）、简单的管理方式。SQLServer2000与MicrosoftWindows2000有机集成，所以可以使用Windows2000的活动目录（ActiveDirectory）功能对SQLServer进行集中管理，大大简化大型企业中的系统管理工作。此外，与Windows2000的集成还使SQLServer能够充分利用操作系统所提供的服务和功能（如安全管理、事件日志、性能监视器、内存管理和异步I/O等），从而增强了SQLServer数据库系统的功能，并且只需要占用很少的系统资源。 第三章 系统需求分析 3.1系统建设目标 学生信息管理系统应该具备这些特点：ü要求有良好的人机交互界面;ü由于该系统使用对象多,要求有较好的权限管理;ü原始数据修改简单方便,支持多条件修改ü方便的数据查询，支持多条件查询;ü在相应的权限下，删除数据方便，数据稳定性好；ü数据计算自动完成，尽量减少人工干预。预期结果，用户使用帐号，能登录，查询自己信息，教师能添加成绩，管理能删除信息等。面向用户的简单操作，外观简洁，美观等结果。希望能有一个完美而又不失本质的学生信息管理系统，但过程中还不知道有多少问会出现，所以希望在过程中能顺利完成，如有问题也希望自我解决能力强，处理能力强。3.2系统涉众角色划分 根据学生信息管理系统的分析，在此软件里面出现三个角色，一个是学生，主角，一个是教师，一个是管理系统的人员。所以这个系统的角色就三个人。3.3系统功能需求分析学生信息管理系统是一个信息管理平台（系统的需求分析要从其完成的功能目的出发，系统要完成哪些功能，完成功能的前提条件和外部环境等，如学生信息在什么时候添加，学生信息的更改条件，教师什么时候能登学生成绩和修改成绩等。不要一开始就出现实现细节，学生ID号应是在系统设计阶段时才考虑），应该需求能够添加一个新学生信息，之后还要添加这个学生的成绩等，学生有一个ID，能用这个ID号登录上这个平台，能查询自己的基本信息跟学习成绩等。老师也有基本信息，也有一个自己的ID，教师登录进管理系统时可以录入学生成绩信息等。老师能查询学生的个人信息及学习成绩。一个信息管理系统应该要有管理员，拥有最高权限，能添加、删除学生信息，老师信息等操作。根据研究需求，得出一个学生信息管理系统所以应该有的功能，我简单的把这些功能例出来，一个一个慢慢实现。本系统主要包括注册管理、界面管理、学生信息查询、添加、修改、删除和帮助等部分。其功能主要有：ü学生信息的添加，包括输入学生基本信息和成绩ü学生信息的查询，包括查询学生基本信息和成绩。ü学生信息的修改，包括修改学生基本信息和成绩。ü学生信息的删除，包括修改学生基本信息和成绩。ü登录用户密码修改，用户登录到系统可进行相应的用户密码修改。ü管理员用户对其它用户名的管理，包括添加新用户、修改用户密码、删除用户名和查询用户和修改相关信息。 3.4分用户的系统操作流程学生操作流程图教师操作流程图 管理员操作流程图3.5系统非功能需求分析界面人性化，友好化，简单化，可上手性强。数据库要有可扩展性，不重复性，通用性等特点。第四章 系统的设计 退出系统4.1系统总体功能设计学生信息管理系统总体功能图：ID+PASSWORDadministratorteacherStudent修改密码Add学生成绩、学生信息查看个人信息、成绩查看学生、教师各信息Delete学生、教师各信息Add学生、教师各信息 简单使用流程图打开程序进入登录界面管理员登录教师登录学生登录成绩查询个人信息学生教师信息管理成绩修改录入成绩课程查询退出程序4.1.1系统功能结构图学生个人功能、信息简图 老师功能、个人信息简图 管理员功能、个人信息简图4.2系统功能模块设计与实现在VB中添加一个工程，创建一些窗体，一个为登录窗体，一个是学生登录后的窗体，一个是教师登录后的窗体，一个是管理员登录后的窗体。4.2.1登录模块设计与实现登录界面登录按钮——获取帐号、密码——使用查询语句在数据库里相应的表查询——if帐号and密码为true跳转到form12或form2、form3else提示帐号或密码错误，重新输入 实现代码：PrivateSubCommand1_Click()DimnumAsIntegernum=0IfID.Text=""ThenMsgBox"用户名不能空",vbOKOnly+vbExclamation,"警告"ExitSubEndIf IfCombo1.Text="管理员"ThenAdodc1.RecordSource="select*fromAdministratorwhereUserID=""&Trim(ID.Text)&""andPassword=""&Trim(password.Text)&"""Adodc1.RefreshEndIfIfCombo1.Text="教师"ThenAdodc1.RecordSource="select*from教师信息where教师编号=""&Trim(ID.Text)&""and密码=""&Trim(password.Text)&"""Adodc1.RefreshEndIfIfCombo1.Text="学生"ThenAdodc1.RecordSource="select*from学生信息where学生学号=""&Trim(ID.Text)&""and密码=""&Trim(password.Text)&"""Adodc1.RefreshEndIfIfAdodc1.Recordset.EOFThenMsgBox"用户名或密码错误",vbOKOnly+vbExclamation,"提示"ID.SetFocusID.SelStart=0ID.SelLength=Len(ID.Text)ExitSubEndIfIfCombo1.Text="教师"ThenForm1.ShowUnloadMeEndIfIfCombo1.Text="学生"ThenForm2.ShowUnloadMeEndIfIfCombo1.Text="管理员"ThenForm3.ShowUnloadMeEndIfEndSubPrivateSubForm_Load()denglu.Top=(Screen.Height-denglu.Height)/2denglu.Left=(Screen.Width-denglu.Width)/2Adodc1.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=denglu"Adodc1.CommandType=adCmdTextIfCombo1.Text="系统管理员"ThenAdodc1.RecordSource="select*fromAdministrator"Adodc1.RefreshEndIfIfCombo1.Text="教师"ThenAdodc1.RecordSource="select*from教师信息"Adodc1.RefreshEndIfIfCombo1.Text="学生"ThenAdodc1.RecordSource="select*from学生信息"Adodc1.RefreshEndIfEndSubPrivateSubLabel1_Click()DimnumAsIntegernum=0IfID.Text=""ThenMsgBox"用户名不能空",vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfCombo1.Text="系统管理员"ThenAdodc1.RecordSource="select*fromAdministratorwhereUserID=""&Trim(ID.Text)&""andPassword=""&Trim(password.Text)&"""Adodc1.RefreshEndIfIfCombo1.Text="教师"ThenAdodc1.RecordSource="select*from教师信息where教师编号=""&Trim(ID.Text)&""and密码=""&Trim(password.Text)&""" Adodc1.RefreshEndIfIfCombo1.Text="学生"ThenAdodc1.RecordSource="select*from学生信息where学生学号=""&Trim(ID.Text)&""and密码=""&Trim(password.Text)&"""Adodc1.RefreshEndIfIfAdodc1.Recordset.EOFThenMsgBox"用户名或密码错误",vbOKOnly+vbExclamation,"提示"ID.SetFocusID.SelStart=0ID.SelLength=Len(ID.Text)ExitSubEndIfIfCombo1.Text="教师"ThenForm1.ShowUnloadMeEndIfIfCombo1.Text="学生"ThenForm2.ShowUnloadMeEndIfIfCombo1.Text="系统管理员"ThenForm3.ShowUnloadMeEndIfEndSubPrivateSubLabel2_Click()UnloadMeEndSubPrivateSubTimer1_Timer()Label4.Caption=Trim(FormatDateTime(Now()))EndSub4.2.2学生信息模块设计实现学生进入界面系统实现If帐号密码正确，跳转到此页面。个人信息查询：当它的click事件的时候，背景图片visible为true。使用denglu里面的ID，进行数据查询。在数据库里面进行对比，当获取到个人信息的时候，显示在此界面的lable中。个人成绩查询：事件基本各上相同。把学号当作条件在数据库里面查询出相应的信息，在显示到此板块下的相应lable中。修改密码：先判断输入的密码是否符合要求，两次输入的是否一致，如果都符合，那就用update对数据库进行操作。最后提示修改成功。37 实现代码如下：37PrivateSubDir1_Change()EndSubPrivateSubCommand1_Click()IfText1.Text<>Adodc3.Recordset.Fields("密码")ThenMsgBox"当前密码输入错误"ExitSubEndIfIfText2.Text<>Text3.TextThenMsgBox"新密码输入错误"ElseAdodc3.Recordset.UpdateAdodc3.Recordset.Fields("密码").Value=Text3.TextAdodc3.Recordset.UpdateAdodc3.RefreshMsgBox"修改成功"EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Form2.Top=(Screen.Height-Form2.Height)/2Form2.Left=(Screen.Width-Form2.Width)/2Picture2.Visible=FalsePicture1.Visible=FalsePicture4.Visible=FalseLabel8.Caption=denglu.ID.TextAdodc1.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=denglu"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from学生信息where学生学号=""&Trim(Label8.Caption)&"""Adodc1.RefreshLabel9.Caption=Adodc1.Recordset.Fields("姓名")Label10.Caption=Adodc1.Recordset.Fields("性别")Label11.Caption=Adodc1.Recordset.Fields("出生日期")Label12.Caption=Adodc1.Recordset.Fields("入学时间")Label13.Caption=Adodc1.Recordset.Fields("学院")37 Label14.Caption=Adodc1.Recordset.Fields("班级")Label31.Caption=Adodc1.Recordset.Fields("姓名")Label37.Caption=Adodc1.Recordset.Fields("姓名")EndSubPrivateSubgb_Click()UnloadMeEndSubPrivateSubstuCJ_Click()Picture1.Visible=FalsePicture2.Visible=TruePicture3.Visible=FalsePicture4.Visible=FalseAdodc2.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji;InitialCatalog=StudentManage"Adodc2.CommandType=adCmdTextAdodc2.RecordSource="select*from"&Trim(Label14.Caption)&"where学生学号=""&Trim(Label8.Caption)&"""Adodc2.RefreshLabel15.Caption=Adodc2.Recordset.Fields(1).NameLabel16.Caption=Adodc2.Recordset.Fields(2).NameLabel17.Caption=Adodc2.Recordset.Fields(3).NameLabel18.Caption=Adodc2.Recordset.Fields(4).NameLabel19.Caption=Adodc2.Recordset.Fields(1).NameLabel20.Caption=Adodc2.Recordset.Fields(2).NameLabel21.Caption=Adodc2.Recordset.Fields(3).NameLabel22.Caption=Adodc2.Recordset.Fields(4).NameIfLabel19.Caption<60ThenLabel26.Caption="不及格"EndIfIfLabel19.Caption>=60AndLabel19.Caption<70ThenLabel26.Caption="合格"EndIfIfLabel19.Caption>=70AndLabel19.Caption<80ThenLabel26.Caption="中等"EndIfIfLabel19.Caption>=80AndLabel19.Caption<90ThenLabel26.Caption="良好"EndIfIfLabel19.Caption>=90AndLabel19.Caption<=100ThenLabel26.Caption="优秀"EndIfIfLabel20.Caption<60ThenLabel27.Caption="不及格"EndIfIfLabel20.Caption>=60AndLabel20.Caption<70ThenLabel27.Caption="合格"EndIfIfLabel20.Caption>=70AndLabel20.Caption<80ThenLabel27.Caption="中等"EndIfIfLabel20.Caption>=80AndLabel20.Caption<90ThenLabel27.Caption="良好"EndIfIfLabel20.Caption>=90AndLabel20.Caption<=100ThenLabel27.Caption="优秀"EndIfIfLabel21.Caption<60ThenLabel28.Caption="不及格"EndIfIfLabel21.Caption>=60AndLabel21.Caption<70ThenLabel28.Caption="合格"EndIfIfLabel21.Caption>=70And37 Label21.Caption<80ThenLabel28.Caption="中等"EndIfIfLabel21.Caption>=80AndLabel21.Caption<90ThenLabel28.Caption="良好"EndIfIfLabel21.Caption>=90AndLabel21.Caption<=100ThenLabel28.Caption="优秀"EndIfIfLabel22.Caption<60ThenLabel29.Caption="不及格"EndIfIfLabel22.Caption>=60AndLabel22.Caption<70ThenLabel29.Caption="合格"EndIfIfLabel22.Caption>=70AndLabel22.Caption<80ThenLabel29.Caption="中等"EndIfIfLabel22.Caption>=80AndLabel22.Caption<90ThenLabel29.Caption="良好"EndIfIfLabel22.Caption>=90AndLabel22.Caption<=100ThenLabel29.Caption="优秀"EndIfEndSubPrivateSubstuXX_Click()Picture1.Visible=TruePicture2.Visible=FalsePicture3.Visible=FalsePicture4.Visible=FalseEndSubPrivateSubTimer1_Timer()Label30.Caption=Trim(FormatDateTime(Now()))Label32.Caption=Trim(FormatDateTime(Now()))Label33.Caption=Trim(FormatDateTime(Now()))Label23.Caption=Trim(FormatDateTime(Now()))EndSubPrivateSubxgmm_Click()Adodc3.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=denglu"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*from学生信息where学生学号=""&Trim(Label8.Caption)&"""Adodc3.RefreshPicture1.Visible=FalsePicture4.Visible=TruePicture3.Visible=FalsePicture2.Visible=FalseEndSubPrivateSubzx_Click()denglu.ShowUnloadMeEndSub374.2.2管理员模块设计与实现管理员模块实现If用户选择的是管理员，且用户，密码正确。会进入管理员的欢迎界面。个人信息：使用管理员的ID在数据库里面进行查询且显示；可修改学生个人信息，成绩信息等。将学号在数据库里面查询，可对其进行修改及删除。可使用ADD对数据库的数据进行增加，可用UPDATE对数据库进行修改更新，可用DELETE对数据库进行删除等操作。个人信息、成绩、都可以用此操作进行处理。修改密码：同4.2.1的修改密码方法一样。只是能进行其它成员的密码修改功能。输入ID，查询信息，可修改，删除等操作。37 实现代码如下：37PrivateSubCombo1_click()IfCombo1.Text="学生学号"ThenCommand5.Enabled=TrueCommand6.Enabled=TrueElseCommand5.Enabled=FalseCommand6.Enabled=FalseEndIfEndSubPrivateSubCombo2_Click()37 IfCombo2.Text="查询信息"ThenText2.Enabled=FalseText3.Enabled=FalseText5.Enabled=FalseText6.Enabled=FalseText7.Enabled=FalseText8.Enabled=FalseCombo3.Enabled=FalseCommand3.Enabled=FalseElseText2.Enabled=TrueText3.Enabled=TrueText5.Enabled=TrueText6.Enabled=TrueText7.Enabled=TrueText8.Enabled=TrueCombo3.Enabled=TrueCommand3.Enabled=TrueEndIfEndSubPrivateSubCombo4_click()IfCombo4.Text="查询成绩"ThenCommand7.Enabled=FalseElseCommand7.Enabled=TrueEndIfEndSubPrivateSubCombo5_click()IfCombo5.Text="学生学号"ThenCommand8.Enabled=TrueCommand9.Enabled=TrueElseCommand8.Enabled=FalseCommand9.Enabled=FalseEndIfEndSubPrivateSubCommand1_Click()IfCombo1.Text=""ThenMsgBox"选择操作方式"ExitSubElseIfCombo2.Text=""ThenMsgBox"选择查询方式"ExitSubEndIfEndIfAdodc2.RecordSource="select*from学生信息where"&Trim(Combo1.Text)&"=""&Trim(Text1.Text)&"""Adodc2.RefreshIfAdodc2.Recordset.RecordCount=0ThenMsgBox"没有记录"ElseText2.Text=Adodc2.Recordset.Fields(0)Text3.Text=Adodc2.Recordset.Fields(2)Combo3.Text=Adodc2.Recordset.Fields(3)Text5.Text=Adodc2.Recordset.Fields(4)Text6.Text=Adodc2.Recordset.Fields(5)Text7.Text=Adodc2.Recordset.Fields(6)Text8.Text=Adodc2.Recordset.Fields(7)EndIfIfText8.Text<>Label17.CaptionThenMsgBox"该学生非本班学生不能查询"Text1.Text=""Text2.Text=""Combo3.Text=""Text3.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""EndIfEndSubPrivateSubCommand10_Click()Text9.Text=""Text10.Text=""Text11.Text=""Text12.Text=""37 Text13.Text=""Text14.Text=""EndSubPrivateSubCommand11_Click()IfText15.Text<>Adodc4.Recordset.Fields("密码")ThenMsgBox"当前密码输入错误"ExitSubEndIfIfText16.Text<>Text17.TextThenMsgBox"新密码输入错误"ElseAdodc4.Recordset.UpdateAdodc4.Recordset.Fields("密码").Value=Text3.TextAdodc4.Recordset.UpdateAdodc4.RefreshMsgBox"修改成功"EndIfEndSubPrivateSubCommand2_Click()IfCombo4.Text=""ThenMsgBox"选择操作方式"ElseIfCombo5.Text=""ThenMsgBox"选择查询条件"ExitSubEndIfEndIfAdodc3.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji;InitialCatalog=StudentManage"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*FROM"&Trim(Label17.Caption)+Trim(Label35.Caption)&"where"&Trim(Combo5.Text)&"=""&Trim(Text4.Text)&"""Adodc3.RefreshIfAdodc3.Recordset.RecordCount=0ThenMsgBox"没有记录"ElseText9.Text=Adodc3.Recordset.Fields(1)Text10.Text=Adodc3.Recordset.Fields(0)Text11.Text=Adodc3.Recordset.Fields(2)Text12.Text=Adodc3.Recordset.Fields(3)Text13.Text=Adodc3.Recordset.Fields(4)Text14.Text=Adodc3.Recordset.Fields(5)EndIfEndSubPrivateSubCommand3_Click()IfText1.Text=""OrText2.Text=""OrCombo3.Text=""OrText3.Text=""OrText5.Text=""OrText6.Text=""OrText7.Text=""OrText8.Text=""ThenMsgBox"请输入完整信息！"ElseWithAdodc2.RecordsetIf.RecordCount=0ThenMsgBox"没有记录"ElseAdodc2.Recordset.MoveLastAdodc2.Recordset.UpdateEndIfAdodc2.Recordset.Fields("学生学号").Value=Text2.TextAdodc2.Recordset.Fields("姓名").Value=Text3.TextAdodc2.Recordset.Fields("性别").Value=Combo3.TextAdodc2.Recordset.Fields("出生日期").Value=Text5.TextAdodc2.Recordset.Fields("入学时间").Value=Text6.TextAdodc2.Recordset.Fields("学院").Value=Text7.TextAdodc2.Recordset.Fields("班级").Value=Text8.Text37 Adodc2.Recordset.UpdateEndWithText1.Text=""Text2.Text=""Combo3.Text=""Text3.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text="""Text2.SetFocusAdodc2.RefreshEndIfEndSubPrivateSubCommand4_Click()Text1.Text=""Text2.Text=""Combo3.Text=""Text3.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""EndSubPrivateSubCommand5_Click()IfText1.Text=""ThenMsgBox"查询条件为空"ElseText1.Text=Text1.Text-1Adodc2.RecordSource="select*from学生信息where"&Combo1.Text&"=""&Text1.Text&"""Adodc2.RefreshIfAdodc2.Recordset.RecordCount=0ThenMsgBox"没有记录"Text1.Text=Text1.Text+1ElseText2.Text=Adodc2.Recordset.Fields(0)Text3.Text=Adodc2.Recordset.Fields(2)Combo3.Text=Adodc2.Recordset.Fields(3)Text5.Text=Adodc2.Recordset.Fields(4)Text6.Text=Adodc2.Recordset.Fields(5)Text7.Text=Adodc2.Recordset.Fields(6)Text8.Text=Adodc2.Recordset.Fields(7)EndIfEndIfEndSubPrivateSubCommand6_Click()IfText1.Text=""ThenMsgBox"查询条件为空"ElseText1.Text=Text1.Text+1Adodc2.RecordSource="select*from学生信息where"&Combo1.Text&"=""&Text1.Text&"""Adodc2.RefreshIfAdodc2.Recordset.RecordCount=0ThenMsgBox"没有记录"Text1.Text=Text1.Text-1ElseText2.Text=Adodc2.Recordset.Fields(0)Text3.Text=Adodc2.Recordset.Fields(2)Combo3.Text=Adodc2.Recordset.Fields(3)Text5.Text=Adodc2.Recordset.Fields(4)Text6.Text=Adodc2.Recordset.Fields(5)Text7.Text=Adodc2.Recordset.Fields(6)Text8.Text=Adodc2.Recordset.Fields(7)EndIfEndIfEndSubPrivateSubCommand7_Click()IfText11.Text=""OrText12.Text=""37 OrText13.Text=""OrText14.Text=""ThenMsgBox"请输入完整信息！"ElseWithAdodc3.RecordsetIfAdodc3.Recordset.RecordCount=0ThenMsgBox"没有记录"ElseAdodc3.Recordset.UpdateEndIfAdodc3.Recordset.Fields(2).Value=Text11.TextAdodc3.Recordset.Fields(3).Value=Text12.TextAdodc3.Recordset.Fields(4).Value=Text13.TextAdodc3.Recordset.Fields(5).Value=Text14.TextAdodc3.Recordset.UpdateEndWithText9.Text=Adodc3.Recordset.Fields(1)Text10.Text=Adodc3.Recordset.Fields(0)Text11.Text=Adodc3.Recordset.Fields(2)Text12.Text=Adodc3.Recordset.Fields(3)Text13.Text=Adodc3.Recordset.Fields(4)Text14.Text=Adodc3.Recordset.Fields(5)"Text2.SetFocusAdodc3.RefreshEndIfEndSubPrivateSubCommand8_Click()IfText4.Text=""ThenMsgBox"查询条件为空"ElseText4.Text=Text4.Text-1Adodc3.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji;InitialCatalog=StudentManage"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*FROM"&Trim(Label17.Caption)+Trim(Label35.Caption)&"where"&Trim(Combo5.Text)&"=""&Trim(Text4.Text)&"""Adodc3.RefreshIfAdodc3.Recordset.RecordCount=0ThenMsgBox"没有记录"Text4.Text=Text4.Text+1ElseText9.Text=Adodc3.Recordset.Fields(1)Text10.Text=Adodc3.Recordset.Fields(0)Text11.Text=Adodc3.Recordset.Fields(2)Text12.Text=Adodc3.Recordset.Fields(3)Text13.Text=Adodc3.Recordset.Fields(4)Text14.Text=Adodc3.Recordset.Fields(5)EndIfEndIfEndSubPrivateSubCommand9_Click()IfText4.Text=""ThenMsgBox"查询条件为空"ElseText4.Text=Text4.Text+1Adodc3.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji;InitialCatalog=StudentManage"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*FROM"&Trim(Label17.Caption)+Trim(Label35.Caption)&"where"&37 Trim(Combo5.Text)&"=""&Trim(Text4.Text)&"""Adodc3.RefreshIfAdodc3.Recordset.RecordCount=0ThenMsgBox"没有记录"Text4.Text=Text4.Text-1ElseText9.Text=Adodc3.Recordset.Fields(1)Text10.Text=Adodc3.Recordset.Fields(0)Text11.Text=Adodc3.Recordset.Fields(2)Text12.Text=Adodc3.Recordset.Fields(3)Text13.Text=Adodc3.Recordset.Fields(4)Text14.Text=Adodc3.Recordset.Fields(5)EndIfEndIfEndSubPrivateSubForm_Load()Text2.Enabled=FalseText3.Enabled=FalseText5.Enabled=FalseText6.Enabled=FalseText7.Enabled=FalseText8.Enabled=FalseCombo3.Enabled=FalseCommand3.Enabled=FalseForm1.Top=(Screen.Height-Form1.Height)/2Form1.Left=(Screen.Width-Form1.Width)/2Picture2.Visible=FalsePicture1.Visible=FalsePicture3.Visible=FalsePicture4.Visible=TruePicture5.Visible=FalsePicture6.Visible=FalsePicture7.Visible=FalseLabel10.Caption=denglu.ID.TextAdodc1.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji;InitialCatalog=StudentManage"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from教师信息where教师编号=""&Trim(Label10.Caption)&"""Adodc1.RefreshLabel11.Caption=Adodc1.Recordset.Fields(2)Label12.Caption=Adodc1.Recordset.Fields(3)Label13.Caption=Adodc1.Recordset.Fields(4)Label14.Caption=Adodc1.Recordset.Fields(5)Label15.Caption=Adodc1.Recordset.Fields(6)Label16.Caption=Adodc1.Recordset.Fields(7)Label17.Caption=Adodc1.Recordset.Fields(8)Label18.Caption=Adodc1.Recordset.Fields(9)Label32.Caption=Adodc1.Recordset.Fields("姓名")Adodc2.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji;InitialCatalog=StudentManage"Adodc2.CommandType=adCmdTextAdodc2.RecordSource="select*from学生信息where班级=""&Trim(Label17.Caption)&"""Adodc2.RefreshEndSubPrivateSubgb_Click()EndEndSubPrivateSubLabel28_Click()EndSub37 PrivateSubTbanji_Click()Picture1.Visible=FalsePicture2.Visible=TruePicture3.Visible=FalsePicture4.Visible=FalsePicture5.Visible=FalsePicture6.Visible=FalsePicture7.Visible=FalseEndSubPrivateSubTeacherGR_Click()Picture2.Visible=FalsePicture1.Visible=TruePicture3.Visible=FalsePicture4.Visible=FalsePicture5.Visible=FalsePicture6.Visible=FalsePicture7.Visible=FalseEndSubPrivateSubTimer1_Timer()Label31.Caption=Trim(FormatDateTime(Now()))Label19.Caption=Trim(FormatDateTime(Now()))Label20.Caption=Trim(FormatDateTime(Now()))Label21.Caption=Trim(FormatDateTime(Now()))Label22.Caption=Trim(FormatDateTime(Now()))Label23.Caption=Trim(FormatDateTime(Now()))Label24.Caption=Trim(FormatDateTime(Now()))Label25.Caption=Trim(FormatDateTime(Now()))EndSubPrivateSubxgmm_Click()Adodc4.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=denglu"Adodc4.CommandType=adCmdTextAdodc4.RecordSource="select*from教师信息where教师编号=""&Trim(Label10.Caption)&"""Adodc4.RefreshPicture2.Visible=FalsePicture7.Visible=TruePicture3.Visible=FalsePicture4.Visible=FalsePicture5.Visible=FalsePicture6.Visible=FalsePicture1.Visible=FalseEndSubPrivateSubxiugai_Click()Picture5.Visible=FalsePicture3.Visible=TruePicture2.Visible=FalsePicture1.Visible=FalsePicture4.Visible=FalseCommand5.Enabled=FalseCommand6.Enabled=FalsePicture7.Visible=FalseEndSubPrivateSubxiugaicj_Click()Picture5.Visible=FalsePicture6.Visible=TruePicture2.Visible=FalsePicture1.Visible=FalsePicture4.Visible=FalseCommand5.Enabled=FalseCommand3.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand9.Enabled=FalsePicture7.Visible=FalseAdodc3.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji;InitialCatalog=StudentManage"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*FROM"&Trim(Label17.Caption)+Trim(Label35.Caption)&""Adodc3.RefreshLabel40.Caption=Adodc3.Recordset.Fields(2).Name37 Label41.Caption=Adodc3.Recordset.Fields(3).NameLabel42.Caption=Adodc3.Recordset.Fields(4).NameLabel43.Caption=Adodc3.Recordset.Fields(5).NameEndSubPrivateSubxuescji_Click()Adodc3.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji;InitialCatalog=StudentManage"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*FROM"&Trim(Label17.Caption)+Trim(Label35.Caption)&""Adodc3.RefreshPicture2.Visible=FalsePicture5.Visible=TruePicture3.Visible=FalsePicture4.Visible=FalsePicture1.Visible=FalsePicture6.Visible=FalsePicture7.Visible=FalseEndSubPrivateSubzx_Click()denglu.ShowUnloadMeEndSub374.2.2管理员模块设计与实现管理员欢迎界面实现代码：37PrivateSubbjckxx_Click()Picture11.Visible=TruePicture2.Visible=FalsePicture6.Visible=FalsePicture4.Visible=FalsePicture5.Visible=FalsePicture3.Visible=FalsePicture7.Visible=False37 Picture8.Visible=FalseCommand6.Enabled=FalseCommand7.Enabled=FalsePicture9.Visible=FalsePicture10.Visible=FalseEndSubPrivateSubckjsxx_Click()Picture2.Visible=FalsePicture3.Visible=FalsePicture4.Visible=FalsePicture5.Visible=FalsePicture6.Visible=FalsePicture7.Visible=TruePicture8.Visible=FalsePicture9.Visible=FalsePicture10.Visible=FalsePicture11.Visible=FalseEndSubPrivateSubckkcxx_Click()Picture10.Visible=TruePicture2.Visible=FalsePicture6.Visible=FalsePicture4.Visible=FalsePicture8.Visible=FalsePicture3.Visible=FalsePicture7.Visible=FalsePicture5.Visible=FalsePicture9.Visible=FalsePicture11.Visible=FalseEndSubPrivateSubckxsxx_Click()Picture2.Visible=FalsePicture6.Visible=FalsePicture4.Visible=FalsePicture8.Visible=FalsePicture3.Visible=FalsePicture7.Visible=FalsePicture5.Visible=TruePicture9.Visible=FalsePicture10.Visible=FalsePicture11.Visible=FalseEndSubPrivateSubCombo1_click()IfCombo1.Text="修改"ThenCommand2.Enabled=TrueCommand3.Enabled=FalseElseCommand3.Enabled=TrueCommand2.Enabled=FalseEndIfEndSubPrivateSubCombo4_click()IfCombo4.Text="修改"ThenCommand7.Enabled=TrueCommand6.Enabled=FalseElseCommand6.Enabled=TrueCommand7.Enabled=FalseEndIfEndSubPrivateSubCombo7_click()IfCombo7.Text="增加课程"ThenLabel15.Visible=FalseText24.Enabled=FalseCommand17.Enabled=Falsetxthao.Enabled=Truetxtming.Enabled=TrueElsetxthao.Enabled=Falsetxtming.Enabled=FalseLabel15.Visible=TrueText24.Enabled=TrueCommand17.Enabled=TrueEndIfEndSubPrivateSubCommand1_Click()IfCombo1.Text=""ThenMsgBox"选择操作方式"ElseIfCombo2.Text=""ThenMsgBox"选择查询条件"ExitSubEndIfEndIfAdodc5.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji;Initial37 Catalog=StudentManage"Adodc5.CommandType=adCmdTextAdodc5.RecordSource="select*FROM学生信息where"&Trim(Combo2.Text)&"=""&Trim(Text1.Text)&"""Adodc5.RefreshIfAdodc5.Recordset.RecordCount=0ThenMsgBox"没有记录"ElseText2.Text=Adodc5.Recordset.Fields(0)Text3.Text=Adodc5.Recordset.Fields(2)Text4.Text=Adodc5.Recordset.Fields(4)Text5.Text=Adodc5.Recordset.Fields(5)Text6.Text=Adodc5.Recordset.Fields(6)Text7.Text=Adodc5.Recordset.Fields(7)Combo3.Text=Adodc5.Recordset.Fields(3)Command10.Enabled=TrueEndIfEndSubPrivateSubCommand10_Click()Adodc5.Recordset.DeleteAdodc5.RefreshMsgBox"删除成功"Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Combo3.Text=""Text2.SetFocusAdodc5.RefreshEndSubPrivateSubCommand11_Click()Adodc4.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=denglu"Adodc4.CommandType=adCmdTextAdodc4.RecordSource="select*FROM学生信息where班级=""&Trim(Text16.Text)&"""Adodc4.RefreshEndSubPrivateSubCommand12_Click()IfText17.Text=""ThenMsgBox"用户名不能空",vbOKOnly+vbExclamation,"警告"EndIfAdodc7.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji"Adodc7.CommandType=adCmdTextAdodc7.RecordSource="select*FROM"&Trim(Text17.Text)+Trim(Label41.Caption)&""Adodc7.RefreshEndSubPrivateSubCommand13_Click()Adodc8.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji"Adodc8.CommandType=adCmdTextAdodc8.RecordSource="select*FROM"&Trim(Text17.Text)&"where学生学号=""&Trim(Text18.Text)&"""Adodc8.RefreshText20.Text=Adodc8.Recordset.Fields(1)Text21.Text=Adodc8.Recordset.Fields(2)Text22.Text=Adodc8.Recordset.Fields(3)Text23.Text=Adodc8.Recordset.Fields(4)Label37.Caption=37 Adodc8.Recordset.Fields(1).NameLabel38.Caption=Adodc8.Recordset.Fields(2).NameLabel39.Caption=Adodc8.Recordset.Fields(3).NameLabel40.Caption=Adodc8.Recordset.Fields(4).NameAdodc9.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji"Adodc9.CommandType=adCmdTextAdodc9.RecordSource="select*FROM学生信息where学生学号=""&Trim(Text18.Text)&"""Adodc9.RefreshText19.Text=Adodc9.Recordset.Fields("姓名")EndSubPrivateSubCommand14_Click()Adodc8.Recordset.UpdateAdodc8.Recordset.Fields(1).Value=Text20.TextAdodc8.Recordset.Fields(2).Value=Text21.TextAdodc8.Recordset.Fields(3).Value=Text22.TextAdodc8.Recordset.Fields(4).Value=Text23.TextAdodc8.Recordset.UpdateAdodc8.RefreshMsgBox"修改成功"EndSubPrivateSubCommand16_Click()rtxbz.Text=""Text24.Text=""txthao.Text=""txtming.Text=""txtshi.Text=""IfTrim(Combo7.Text)="修改课程"ThenAdodc11.RecordSource="select*from课程表where课程号=""&Trim(txthao.Text)&""and课程名=""&Trim(txtming.Text)&"""Adodc11.RefreshIfAdodc1.Recordset.EOFThenMsgBox"没有该课程信息或课程号与课程名不匹配"ElseAdodc11.Recordset.UpdateAdodc11.Recordset.Fields("课时").Value=txtshi.TextAdodc11.Recordset.Fields("备注").Value=rtxbz.TextAdodc11.Recordset.UpdateMsgBox"修改成功"EndIfEndIfIf(Combo7.Text)="删除课程"ThenAdodc11.RecordSource="select*from课程表where课程号=""&Trim(txthao.Text)&""and课程名=""&Trim(txtming.Text)&"""Adodc11.RefreshIfAdodc1.Recordset.EOFThenMsgBox"没有该课程信息或课程号与课程名不匹配"ElseAdodc11.Recordset.DeleteMsgBox"删除成功"EndIfEndIfIf(Combo7.Text)=Trim("增加课程")ThenAdodc11.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji"Adodc11.CommandType=adCmdTextAdodc11.RecordSource="select*from课程表"Adodc11.RefreshAdodc11.Recordset.MoveNextAdodc11.Recordset.AddNewAdodc11.Recordset.Fields("课程号").Value=txthao.Text37 Adodc11.Recordset.Fields("课程名").Value=txtming.TextAdodc11.Recordset.Fields("课时").Value=txtshi.TextAdodc11.Recordset.Fields("备注").Value=rtxbz.TextAdodc11.Recordset.UpdateAdodc11.RefreshMsgBox"添加成功"EndIfEndSubPrivateSubCommand17_Click()IfText24.Text=""ThenMsgBox"请输入课程号检索",vbOKOnly+vbExclamation,"警告"Else"If(Combo7.Text)="删除课程"OrCombo7.Text="修改课程"ThenAdodc11.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=chengji"Adodc11.CommandType=adCmdTextAdodc11.RecordSource="select*from课程表where课程号=""&Trim(Text24.Text)&"""Adodc11.Refreshtxthao.Text=Adodc11.Recordset.Fields(0)txtming.Text=Adodc11.Recordset.Fields(1)txtshi.Text=Adodc11.Recordset.Fields(2)rtxbz.Text=Adodc11.Recordset.Fields(3)EndIfEndSubPrivateSubCommand18_Click()rtxbz.Text=""Text24.Text=""txthao.Text=""txtming.Text=""txtshi.Text=""EndSubPrivateSubCommand2_Click()Adodc5.Recordset.UpdateAdodc5.Recordset.Fields(0).Value=Text2.TextAdodc5.Recordset.Fields(2).Value=Text3.TextAdodc5.Recordset.Fields(4).Value=Text4.TextAdodc5.Recordset.Fields(5).Value=Text5.TextAdodc5.Recordset.Fields(6).Value=Text6.TextAdodc5.Recordset.Fields(7).Value=Text7.TextAdodc5.Recordset.Fields(3).Value=Combo3.TextAdodc5.Recordset.UpdateAdodc5.RefreshMsgBox"修改成功"EndSubPrivateSubCommand3_Click()Adodc5.Recordset.AddNewAdodc5.Recordset.Fields(0).Value=Text2.TextAdodc5.Recordset.Fields(2).Value=Text3.TextAdodc5.Recordset.Fields(4).Value=Text4.TextAdodc5.Recordset.Fields(5).Value=Text5.TextAdodc5.Recordset.Fields(6).Value=Text6.TextAdodc5.Recordset.Fields(7).Value=Text7.TextAdodc5.Recordset.Fields(3).Value=Combo3.TextAdodc5.Recordset.AddNewText2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Combo3.Text=""Text2.SetFocus37 Adodc5.RefreshMsgBox"添加成功"EndSubPrivateSubCommand4_Click()Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""EndSubPrivateSubCommand5_Click()IfCombo4.Text=""ThenMsgBox"选择操作方式"ElseIfCombo5.Text=""ThenMsgBox"选择查询条件"ExitSubEndIfEndIfAdodc6.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=denglu"Adodc6.CommandType=adCmdTextAdodc6.RecordSource="select*FROM教师信息where"&Trim(Combo5.Text)&"=""&Trim(Text15.Text)&"""Adodc6.RefreshIfAdodc6.Recordset.RecordCount=0ThenMsgBox"没有记录"ElseText8.Text=Adodc6.Recordset.Fields(0)Text9.Text=Adodc6.Recordset.Fields(2)Text10.Text=Adodc6.Recordset.Fields(4)Text11.Text=Adodc6.Recordset.Fields(5)Text12.Text=Adodc6.Recordset.Fields(6)Text13.Text=Adodc6.Recordset.Fields(7)Text14.Text=Adodc6.Recordset.Fields(8)RichTextBox1.Text=Adodc6.Recordset.Fields(9)Combo6.Text=Adodc6.Recordset.Fields(3)Command9.Enabled=TrueEndIfEndSubPrivateSubCommand6_Click()Adodc6.Recordset.AddNewAdodc6.Recordset.Fields(0).Value=Text8.TextAdodc6.Recordset.Fields(2).Value=Text9.TextAdodc6.Recordset.Fields(4).Value=Text10.TextAdodc6.Recordset.Fields(5).Value=Text11.TextAdodc6.Recordset.Fields(6).Value=Text12.TextAdodc6.Recordset.Fields(7).Value=Text13.TextAdodc6.Recordset.Fields(8).Value=Text14.TextAdodc6.Recordset.Fields(9).Value=RichTextBox1.TextAdodc6.Recordset.Fields(3).Value=Combo6.TextAdodc6.Recordset.AddNewText9.Text=""Text10.Text=""Text11.Text=""Text12.Text=""Text13.Text=""Text14.Text=""Combo6.Text=""RichTextBox1.Text=""Text8.SetFocusAdodc6.RefreshMsgBox"添加成功"EndSub37 PrivateSubCommand7_Click()Adodc6.Recordset.UpdateAdodc6.Recordset.Fields(0).Value=Text8.TextAdodc6.Recordset.Fields(2).Value=Text9.TextAdodc6.Recordset.Fields(4).Value=Text10.TextAdodc6.Recordset.Fields(5).Value=Text11.TextAdodc6.Recordset.Fields(6).Value=Text12.TextAdodc6.Recordset.Fields(7).Value=Text13.TextAdodc6.Recordset.Fields(8).Value=Text14.TextAdodc6.Recordset.Fields(9).Value=RichTextBox1.TextAdodc6.Recordset.Fields(3).Value=Combo6.TextAdodc6.Recordset.UpdateAdodc6.RefreshMsgBox"修改成功"EndSubPrivateSubCommand9_Click()Adodc6.Recordset.DeleteAdodc6.RefreshMsgBox"删除成功"Text9.Text=""Text10.Text=""Text11.Text=""Text12.Text=""Text13.Text=""Text14.Text=""Combo6.Text=""RichTextBox1.Text=""Text8.SetFocusAdodc6.RefreshEndSubPrivateSubForm_Load()IfCombo7.Text="增加课程"ThenCommand7.Enabled=FalseElseCommand7.Enabled=TrueEndIfForm3.Top=(Screen.Height-Form3.Height)/2Form3.Left=(Screen.Width-Form3.Width)/2Picture2.Visible=FalsePicture3.Visible=FalsePicture4.Visible=FalsePicture5.Visible=FalsePicture6.Visible=FalsePicture7.Visible=FalsePicture8.Visible=FalsePicture9.Visible=FalsePicture10.Visible=FalsePicture11.Visible=FalseAdodc5.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=denglu"Adodc5.CommandType=adCmdTextAdodc5.RecordSource="select*from学生信息"Adodc5.RefreshEndSubPrivateSubgly_Click()Picture2.Visible=TruePicture6.Visible=FalsePicture4.Visible=FalsePicture5.Visible=FalsePicture3.Visible=FalsePicture7.Visible=FalsePicture8.Visible=FalsePicture9.Visible=FalsePicture10.Visible=FalsePicture11.Visible=FalseEndSubPrivateSubjs_Click()Picture2.Visible=FalsePicture6.Visible=FalsePicture4.Visible=FalsePicture5.Visible=FalsePicture8.Visible=FalsePicture7.Visible=FalsePicture3.Visible=True37 Picture9.Visible=FalsePicture10.Visible=FalsePicture11.Visible=FalseEndSubPrivateSubtc_Click()EndEndSubPrivateSubTimer1_Timer()Label1.Caption=Trim(FormatDateTime(Now()))Label2.Caption=Trim(FormatDateTime(Now()))Label3.Caption=Trim(FormatDateTime(Now()))Label4.Caption=Trim(FormatDateTime(Now()))Label5.Caption=Trim(FormatDateTime(Now()))Label6.Caption=Trim(FormatDateTime(Now()))Label7.Caption=Trim(FormatDateTime(Now()))Label8.Caption=Trim(FormatDateTime(Now()))Label19.Caption=Trim(FormatDateTime(Now()))Label20.Caption=Trim(FormatDateTime(Now()))Label9.Caption=Trim(FormatDateTime(Now()))Label10.Caption=Trim(FormatDateTime(Now()))Label16.Caption=Trim(FormatDateTime(Now()))EndSubPrivateSubxgjsxx_Click()Picture2.Visible=FalsePicture6.Visible=FalsePicture4.Visible=FalsePicture5.Visible=FalsePicture3.Visible=FalsePicture7.Visible=FalsePicture8.Visible=TrueCommand6.Enabled=FalseCommand7.Enabled=FalsePicture9.Visible=FalsePicture10.Visible=FalsePicture11.Visible=FalseEndSubPrivateSubxgxsxx_Click()Adodc5.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=denglu"Adodc5.CommandType=adCmdTextAdodc5.RecordSource="select*from学生信息"Adodc5.RefreshPicture2.Visible=FalsePicture6.Visible=TruePicture4.Visible=FalsePicture5.Visible=FalsePicture3.Visible=FalsePicture7.Visible=FalsePicture8.Visible=FalseCommand2.Enabled=FalsePicture11.Visible=FalseCommand3.Enabled=FalsePicture9.Visible=FalsePicture10.Visible=FalseEndSubPrivateSubxscjgl_Click()Picture2.Visible=FalsePicture6.Visible=FalsePicture8.Visible=FalsePicture5.Visible=FalsePicture3.Visible=FalsePicture7.Visible=FalsePicture9.Visible=TruePicture4.Visible=FalsePicture10.Visible=FalsePicture11.Visible=FalseEndSubPrivateSubxx_Click()Picture2.Visible=FalsePicture6.Visible=FalsePicture8.Visible=FalsePicture5.Visible=False37 Picture3.Visible=FalsePicture7.Visible=FalsePicture4.Visible=TruePicture9.Visible=FalsePicture10.Visible=FalsePicture11.Visible=FalseEndSubPrivateSubzx_Click()denglu.ShowUnloadMeEndSub374.3数据库设计与实现 接数源添加过程：37 数据库设计：37 总体E-R图学生个人信息表学生学号密码姓名性别出生日期入学时间学院班级1111张华男1989/4/242009/9/1职业技术学院机电2123天天男1991/2/262009/9/1职业技术学院机电3123我是了女1990/11/62009/9/1职业技术学院机电4123有武器男1987/3/82009/9/1职业技术学院机电5123升堂女1987/6/52009/9/1职业技术学院机电6123要是男1988/8/82009/9/1职业技术学院机电7123先发女1991/8/32009/9/1职业技术学院电商8123看是女1988/11/32009/9/1职业技术学院电商9123吃奶男1992/9/302009/9/1职业技术学院电商10123了他男1985/12/312009/9/1职业技术学院电商教师信息表教师编号密码姓名性别出生日期学历所在学院系部任课班级备注1001123地地上男1989/3/4本科职业技术学院计算机机电无1002123蠢材男1978/2/1本科职业技术学院计算机电商无1003123好人男1988/5/9本科职业技术学院计算机机电无37 课程表课程号课程名课时备注1计算机基础80封面2高等数学85的3大学英语90的4中国近代史60热5经济学基础80一条鱼他511132safaasfdj1111dd112你呢111覰37 第五章总结与展望 在毕业设计中，我们遇到的困难很多，在解决它们的同时我又学到了很多，受益匪浅，特别是如何分析、建立、开发一个系统。在一个系统开发的过程中编码不是重要的，重要的是分析系统、建立起系统模型。在分析一个系统前，分析人员必须要对将要开发的系统所涉及到的各方面知识有一个认识，然后将系统的模型建立起来。而且一个成功的软件要符合用户的需要，要以用户为中心，开发出用户想要的软件，而不能自以为是、想当然的做。在程序编写中，我认识到软件要有简便的界面，良好的程序风格，较全的代码注释。拥有这些条件，程序的可读性才会好，开发的复杂度才能大大减少，修改代码时更加容易下手。我认为，所谓友好的界面，就是用户需要的界面，力求简便全面。所以设计一个界面时，开发人员必须要了解用户的想法，从用户的角度去设计，当然，开发不能全听用户的意见，在详细分析了系统后，开发人员可以向用户提出一些修改的意见，在双方多次交流后定出程序所需的功能，以决定界面的实现。在编码中，良好的编程风格与习惯是提高工作效率的一个重要方面，而且良好的编程风格与习惯也是使软件便于维护的基础。那如何是良好的编程风格与习惯呢？我认为主要是程序的模块化、必要的注释。所谓模块化就是使程序的功能实现分成多个单独的功能模块，而不能在一大段代码中实现多个功能，如果这样做，别的人是非常难读懂你的程序。必要的注释，显而易见是要在程序的编写中加入对程序的说明，原因就是为了别人能读懂你的程序，过一段时间后你自己还能读懂自己的程序。总结这次毕业设计给我感受最深的至少有三点：1．进行软件开发这样的工作，要有恒心，要能静下新来做，而不能浮躁。2．要善于同别人交流与合作，善于获取各种有用的资源。3．要真真实实的多查资料，多问，多看。37 致谢经过一个多月的毕业设计，我学会了很多知识，个人的能力有了很大的提高，对VisualBasic6.0和SQLServer2000有了更深刻的认识，并用VisualBasic6.0结合SQLServer2000顺利的开发了这样的一个学生信息管理系统，我的毕业设计取得了应有的效果。在这里，我还要感谢我的指导老师邓老师，他帮助我解决了设计中的疑难和困惑，提出了我的毕业论文跟设计方向，为我完成毕业设计提供了极大的帮助。在我遇到问题时她总是耐心的为我解答，并帮我查找相关资料；在我遇到困难时帮助解决了不少的难点，使得系统能及时完成。我之所以选择邓老师，是因为邓老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅，使我得到不少的提高，这对于我以后的工作和学习都有一种巨大的帮助，感谢指导老师耐心的辅导。能够顺利完成毕业课题，我还要感谢贵州师范大学职业技术学院计算机工程系计算机网络技术班,给我们提供了良好实习和设计环境。本人在此对所有向我提供帮助的老师和同学致以最诚挚的敬意。参考文献 [1]《学用VisualBasic编程》潭浩著西安电子科技大学出版社[2]《数据库原理》丁宝康施伯乐著经济科学出版社[3]《SQLServer数据库开发入门与范例解析》夏邦贵著北京机械工业出版社[4]《SQLServer2005应用开发技术指南》彭东著北京清华大学出版社[5]《程序设计教程》许薇方修丰著清华大学出版社[6]《项目开发案例精粹》冯小燕刘斌俞磊牛小梅著电子工业出版社[7]《VisualBasic6.0程序设计》张云鹏著电子工业出版社[8]《数据库原理与应用》刘峰著国防科技大学出版社37附录（源程序）37'