计算机毕业论文设计模板(学生信息管理系统VB+SQL-sever).doc

贵州师范大学计算机网络技术毕业设计题 目： 学生信息管理系统 系 别： 计算机工程系 专业、 班级： 2009级计算机网络技术 姓 名： 於博 学 号： 123456789000 指 导 教 师： 邓老师 完 成 时 间： 2012年2月27-4月6 日 摘要人类有几千年的历史，计算机从产生到现在只不过50多年，而网络的迅速发展也不过10年的时间。但是，计算机和网络对社会的影响已经迅速扩大，甚至在改变人们的生活。特别是90年代以来，多媒体和网络技术的飞速发展正在以惊人的速度改变着人们的工作方式、交往方式和生活方式。正像著名的未来学家尼葛洛庞帝（1997）所说的：“数字不再只和计算有关，它决定我们的生存。”科学技术是第一生产力，是最先进的生产力。现在,已经没有人怀疑信息技术的发展将会引起人类社会全面和深刻的变革，使人类社会由工业社会迈向信息社会。目前，在社会各个方面都呈现出了与工业社会显著不同的特点。网上书店，网上医院，网上学校，网上购物，网上银行，政府上网等新事物如雨后春笋般涌现出来，对人们的传统生活方式、工作方式产生极大的冲击。使人们感受到技术发展的脉搏和信息时代前进的步伐。学生信息管理系统是典型的信息管理系统，经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具，尤其首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。目录第一章引言11.1研究的目的及意义12.1 学生信息管理系统概述22.2系统开发工具与技术22.2.1 MICROSOFT VISUAL BASIC 6.0中文版22.2.2 SQL Server 2000介绍32.2.3 其它相关技术及知识4第三章 系统需求分析73.1系统建设目标73.2系统涉众角色划分73.3系统功能需求分析7第四章 系统的设计84.1系统总体功能设计84.1.1系统功能结构图84.2系统功能模块设计94.2.1登录模块设计104.2.2学生信息模块设计134.2.2管理员模块设计164.2.2管理员模块设计244.3数据库设计设计31第五章 总结与展望33致谢34参考文献34附录（源程序）34第一章 引言1.1研究的目的及意义由于现今的学生信息管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学生信息管理系统。计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面： 首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源； 第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档更加安全等等。为了解决传统学生信息的管理正面临着的这些问题，我所设计的学生信息管理系统也就应运而生了。1.2课题研究的主要内容学生信息管理系统是一个信息管理平台，应该需求能够添加一个新学生信息，之后还要添加这个学生的成绩等，学生有一个ID，能用这个ID号登录上这个平台，能查询自己的基本信息跟学习成绩等。老师也有基本信息，也有一个自己的ID，教师登录进管理系统时可以录入学生成绩信息等。老师能查询学生的个人信息及学习成绩。一个信息管理系统应该要有管理员，拥有最高权限，能添加、删除学生信息，老师信息等操作。界面人性化，友好化，简单化，可上手性强。数据库要有可扩展性，不重复性，通用性等特点。根据研究需求，得出一个学生信息管理系统所以应该有的功能，我简单的把这些功能例出来，一个一个慢慢实现。1.3论文的组织结构论文由六个部分结成，从第一章引言开始，讲述了论文的初期实现目标探究及定向，研究了开题的意义跟研究的对象及内容；第二章是对系统开发的软件进行选择、安装、介绍、调试等操作，先介绍开发的相关技术及工具，有SQL Sever2000的介绍，VB的介绍。其它的技术等；第三章，我们提到了系统需求分析，一个系统，是因为我们有需求，有需要才会去操作他，才会去开发他。有相关的系统成员跟权限；根据需求我们开始设计系统，首先是总体功能设计，系统功能设计，界面设计，相关的模块设计等，最后根据需要进行数据库设计；第五章是对系统进行实现，根据功能一步步的实现，进行分析需求和各种权限设计，代码修改等；最后是对整个系统开发的总结和展望，希望自己做的系统有所改进。第二章 系统开发方法及相关技术2.1 学生信息管理系统概述高校学生信息的管理是一项既重要又繁琐的工作。为更好的做好这项工作，提过工作效率，更好的为学校的发展和一线教学服务，决定：结合我校实际情况，自行研制一个学生信息管理系统。2.2系统开发工具与技术该软件是在Windows XP Professional + Visual Basic 6.0 + SQL Server 2000的环境下完成的。本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境 Visual Basic6.0 作为主要开发工具，后台数据库是用Microsoft公司的SQL Sever 2000作为后台数据库。下面就对这些开发工具进行介绍：2.2.1 MICROSOFT VISUAL BASIC 6.0中文版Visual Basic 6.0是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高、且功能强大。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口（API）函数，以及动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发出Windows环境功能强大、图形界面丰富的应用软件系统。总的来看，Visual Basic有以下主要特点：Visual Basic 语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动编程。Visual Basic语言的出现为Windows下的编程提出了一个新概念，利用Visual Basic的动态数据交换、对象的链接和嵌入、动态链接库、ActiveX技术可以很方便地设计出功能强大的应用程序。利用Visual Basic语言编程有以下几个特点：1）、可视化程序设计在Visual Basic中开发的应用程序，不但有丰富的图形界面，同时由用户为开发图形界面添加的代码真是少而又少，因为在设计图形界面的过程中只需设置 ActiveX控件的属性即可。2）、强大的数据库和网络功能随着Visual Basic 语言的向前发展，它在数据库和网络方面的功能优势就愈加明显，利用Visual Basic 中的ODBC开放式的数据库访问技术可以很方便地开发出自己的数据库应用程序；利用 Visual Basic自带的可视化数据管理器和报表生成器，完全可以在Visual Basic就完成数据库的开发工作。3）、其他特性在Visual Basic以前的版本中，由于仍然摆脱不了解释执行的代码运行机制，所以在相当的程度上制约了 Visual Basic 的发展。从Visual Basic5.0版本开始，在Visual Basic 中制作的应用程序都改变为编译执行，使得Visual Basic的代码效率有了很大的提高，同时执行的速度 也加快了解30%(同Visual Basic4.0相比)。当然在 Visual Basic中还有其它特性，例如：l 面向对象的编程语言；l 结构化程序设计；l 事件驱动的程序设计：在传统的或“过程化”的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行，必要时才会调用过程。在事件驱动的应用程序中，代码不是按预定的路径执行，而是在响不同的事件时执行不同的代码片段。事件可以由用户操作触发、也可以由来自操作系统或其它应用程序的消息触发、甚至由应用程序本身的消息触发。这些事件的顺序，决定了代码执行的顺序，因此应用程序每次运行时所经过的路径都是不同的。l 支持动态链接库；l 应用程序之间的资源共享； l 事件驱动的程序设计；在传统的或“过程化”的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行，必要时才会调用过程。在事件驱动的应用程序中，代码不是按预定的路径执行，而是在响不同的事件时执行不同的代码片段。事件可以由用户操作触发、也可以由来自操作系统或其它应用程序的消息触发、甚至由应用程序本身的消息触发。这些事件的顺序，决定了代码执行的顺序，因此应用程序每次运行时所经过的路径都是不同的。l 支持动态链接库；应用程序之间的资源共享2.2.2 SQL Server 2000介绍SQL Server 2000 是Microsoft公司推出的SQL Server 数据库管理系统的一个版本。该版本继承 了SQL Server 7.0 版本的优点同时又比它增加了许多更先进的功能，具有使用方便,可伸缩性好与相关软件集成程度高等优点，可跨越从运行Microsoft Windows 98 的膝上型电脑到运行Microsoft Windows 2000 的大型多处理器的服务器等多种平台使用。概括起来，SQL Server 2000数据库管理系统具有以下主要特点。1）、丰富的图形管理工具，使系统管理、操作更为直观方便。SQL Server企业管理器是一个基于图形用户界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQL Server 2000还提供了SQL事件探查器、SQL查询分析器、SQL Server服务管理器和多种操作向导等图形界面管理工具，大大简化了用户操作，从而增强了系统的易用性。2）、动态自动管理和优化功能。即使SQL Server数据库管理员不做任何设置，SQL Server也能够在运行过程中根据环境配置和用户访问情况动态自动配置，以达到最优性能，从而减轻管理员工作。3）、充分的Internet技术支持。Internet网络发展到今天已经成为一条重要的信息发布渠道，SQL Server增强了对Internet技术支持，它除保留了前期版本中的数据库Web出版工具“Web助手”外，还增强了对XML和HTTP技术的支持，这使得电子商务系统能够通过XML等访问SQL Server数据库系统，也扩展了SQL Server在数据挖掘和分析服务领域的应用。4）、丰富的编程接口工具，使用户开发SQL Server数据库应用程序更加灵活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等开发工具，Transact-SQL与工业标准SQL语言兼容，并在其基础上加以扩充，使它更适合事务处理方面的需要。此外，SQL Server 2000还支持ODBC、OLE DB、ADO规范，可以使用ODBC、OLE DB、ADO接口访问SQL Server数据库。5）、具有很好的伸缩性和可靠性。SQL Server 2000既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包括Windows NT和Windows 2000）下；既能运行在单CPU计算机上，又能运行在对称多处理系统下。所以，它具有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。6）、简单的管理方式。SQL Server 2000与Microsoft Windows 2000有机集成，所以可以使用Windows 2000的活动目录（Active Directory）功能对SQL Server进行集中管理，大大简化大型企业中的系统管理工作。此外，与Windows 2000的集成还使SQL Server能够充分利用操作系统所提供的服务和功能（如安全管理、事件日志、性能监视器、内存管理和异步I/O等），从而增强了SQL Server数据库系统的功能，并且只需要占用很少的系统资源。2.2.3 其它相关技术及知识VB连接数据库过程：数据库操作指令：Adodc1.ConnectionString = Provider=MSDASQL.1;Persist Security Info=False;Data Source=dengluAdodc1.CommandType = adCmdTextAdodc2.ConnectionString = Provider=MSDASQL.1;Persist Security Info=False;Data Source=chengji;Initial Catalog=StudentManageAdodc2.CommandType = adCmdTextAdodc3.ConnectionString = Provider=MSDASQL.1;Persist Security Info=False;Data Source=chengji;Initial Catalog=StudentManageAdodc3.CommandType = adCmdTextAdodc4.Recordset.UpdateAdodc4.Recordset.Fields(密码).Value = Text3.TextAdodc4.Recordset.UpdateAdodc4.RefreshAdodc5.ConnectionString = Provider=MSDASQL.1;Persist Security Info=False;Data Source=dengluAdodc5.CommandType = adCmdText查询如：Adodc3.ConnectionString = Provider=MSDASQL.1;Persist Security Info=False;Data Source=chengji;Initial Catalog=StudentManageAdodc3.CommandType = adCmdTextAdodc3.RecordSource = select * FROM & Trim(Label17.Caption) + Trim(Label35.Caption) & Adodc3.Refresh第三章 系统需求分析3.1系统建设目标学生信息管理系统应该具备这些特点：要求有良好的人机交互界面;由于该系统使用对象多,要求有较好的权限管理;原始数据修改简单方便,支持多条件修改方便的数据查询，支持多条件查询;在相应的权限下，删除数据方便，数据稳定性好；数据计算自动完成，尽量减少人工干预。预期结果，用户使用帐号，能登录，查询自己信息，教师能添加成绩，管理能删除信息等。面向用户的简单操作，外观简洁，美观等结果。希望能有一个完美而又不失本质的学生信息管理系统，但过程中还不知道有多少问会出现，所以希望在过程中能顺利完成，如有问题也希望自我解决能力强，处理能力强。3.2系统涉众角色划分根据学生信息管理系统的分析，在此软件里面出现三个角色，一个是学生，主角，一个是教师，一个是管理系统的人员。所以这个系统使用人群就三种角色，成员人数也就三类人。3.3系统功能需求分析学生信息管理系统是一个信息管理平台，应该需求能够添加一个新学生信息，之后还要添加这个学生的成绩等，学生有一个ID，能用这个ID号登录上这个平台，能查询自己的基本信息跟学习成绩等。老师也有基本信息，也有一个自己的ID，教师登录进管理系统时可以录入学生成绩信息等。老师能查询学生的个人信息及学习成绩。一个信息管理系统应该要有管理员，拥有最高权限，能添加、删除学生信息，老师信息等操作。界面人性化，友好化，简单化，可上手性强。数据库要有可扩展性，不重复性，通用性等特点。根据研究需求，得出一个学生信息管理系统所以应该有的功能，我简单的把这些功能例出来，一个一个慢慢实现。本系统主要包括注册管理、界面管理、学生信息查询、添加、修改、删除和帮助等部分。其功能主要有：学生信息的添加，包括输入学生基本信息和成绩学生信息的查询，包括查询学生基本信息和成绩。学生信息的修改，包括修改学生基本信息和成绩。学生信息的删除，包括修改学生基本信息和成绩。登录用户密码修改，用户登录到系统可进行相应的用户密码修改。管理员用户对其它用户名的管理，包括添加新用户、修改用户密码、删除用户名和查询用户和修改相关信息。 第四章 系统的设计学生教师信息管理成绩修改录入成绩成绩查询个人信息管理员登录教师登录学生登录进入登录界面退出系统4.1系统总体功能设计学生信息管理系统总体功能图：打开程序课程查询4.1.1系统功能结构图学生个人信息简图老师信息简图管理员信息简图4.2系统功能模块设计在VB 中添加一个工程，创建一些窗体，一个为登录窗体，一个是学生登录后的窗体，一个是教师登录后的窗体，一个是管理员登录后的窗体。4.2.1登录模块设计登录界面实现代码：Private Sub Command1_Click()Dim num As Integernum = 0If ID.Text = ThenMsgBox 用户名不能空, vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Combo1.Text = 管理员 ThenAdodc1.RecordSource = select * from Administrator where UserID= & Trim(ID.Text) & and Password= & Trim(password.Text) & Adodc1.RefreshEnd IfIf Combo1.Text = 教师 ThenAdodc1.RecordSource = select * from 教师信息 where 教师编号= & Trim(ID.Text) & and 密码= & Trim(password.Text) & Adodc1.RefreshEnd IfIf Combo1.Text = 学生 ThenAdodc1.RecordSource = select * from 学生信息 where 学生学号= & Trim(ID.Text) & and 密码= & Trim(password.Text) & Adodc1.RefreshEnd IfIf Adodc1.Recordset.EOF ThenMsgBox 用户名或密码错误, vbOKOnly + vbExclamation, 提示ID.SetFocusID.SelStart = 0ID.SelLength = Len(ID.Text)Exit SubEnd IfIf Combo1.Text = 教师 ThenForm1.ShowUnload MeEnd IfIf Combo1.Text = 学生 ThenForm2.ShowUnload MeEnd IfIf Combo1.Text = 管理员 ThenForm3.ShowUnload MeEnd IfEnd SubPrivate Sub Form_Load()denglu.Top = (Screen.Height - denglu.Height) / 2denglu.Left = (Screen.Width - denglu.Width) / 2Adodc1.ConnectionString = Provider=MSDASQL.1;Persist Security Info=False;Data Source=dengluAdodc1.CommandType = adCmdTextIf Combo1.Text = 系统管理员 ThenAdodc1.RecordSource = select * from AdministratorAdodc1.RefreshEnd IfIf Combo1.Text = 教师 ThenAdodc1.RecordSource = select * from 教师信息Adodc1.RefreshEnd IfIf Combo1.Text = 学生 ThenAdodc1.RecordSource = select * from 学生信息Adodc1.RefreshEnd IfEnd SubPrivate Sub Label1_Click()Dim num As Integernum = 0If ID.Text = ThenMsgBox 用户名不能空, vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Combo1.Text = 系统管理员 ThenAdodc1.RecordSource = select * from Administrator where UserID= & Trim(ID.Text) & and Password= & Trim(password.Text) & Adodc1.RefreshEnd IfIf Combo1.Text = 教师 ThenAdodc1.RecordSource = select * from 教师信息 where 教师编号= & Trim(ID.Text) & and 密码= & Trim(password.Text) & Adodc1.RefreshEnd IfIf Combo1.Text = 学生 ThenAdodc1.RecordSource = select * from 学生信息 where 学生学号= & Trim(ID.Text) & and 密码= & Trim(password.Text) & Adodc1.RefreshEnd IfIf Adodc1.Recordset.EOF ThenMsgBox 用户名或密码错误, vbOKOnly + vbExclamation, 提示ID.SetFocusID.SelStart = 0ID.SelLength = Len(ID.Text)Exit SubEnd IfIf Combo1.Text = 教师 ThenForm1.ShowUnload MeEnd IfIf Combo1.Text = 学生 ThenForm2.ShowUnload MeEnd IfIf Combo1.Text = 系统管理员 ThenForm3.ShowUnload MeEnd IfEnd SubPrivate Sub Label2_Click()Unload MeEnd SubPrivate Sub Timer1_Timer()Label4.Caption = Trim(FormatDateTime(Now()End Sub4.2.2学生信息模块设计学生进入界面实现代码如下：Private Sub Dir1_Change()End SubPrivate Sub Command1_Click()If Text1.Text Adodc3.Recordset.Fields(密码) ThenMsgBox 当前密码输入错误Exit SubEnd IfIf Text2.Text Text3.Text ThenMsgBox 新密码输入错误ElseAdodc3.Recordset.UpdateAdodc3.Recordset.Fields(密码).Value = Text3.TextAdodc3.Recordset.UpdateAdodc3.RefreshMsgBox 修改成功End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_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;Persist Security Info=False;Data Source=dengluAdodc1.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(学院)Label14.Caption = Adodc1.Recordset.Fields(班级)Label31.Caption = Adodc1.Recordset.Fields(姓名)Label37.Caption = Adodc1.Recordset.Fields(姓名)End SubPrivate Sub gb_Click()Unload MeEnd SubPrivate Sub stuCJ_Click()Picture1.Visible = FalsePicture2.Visible = TruePicture3.Visible = FalsePicture4.Visible = FalseAdodc2.ConnectionString = Provider=MSDASQL.1;Persist Security Info=False;Data Source=chengji;Initial Catalog=StudentManageAdodc2.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).NameIf Label19.Caption = 60 And Label19.Caption = 70 And Label19.Caption = 80 And Label19.Caption = 90 And Label19.Caption = 100 ThenLabel26.Caption = 优秀End IfIf Label20.Caption = 60 And Label20.Caption = 70 And Label20.Caption = 80 And Label20.Caption = 90 And Label20.Caption = 100 ThenLabel27.Caption = 优秀End IfIf Label21.Caption = 60 And Label21.Caption = 70 And Label21.Caption = 80 And Label21.Caption = 90 And Label21.Caption = 100 ThenLabel28.Caption = 优秀End IfIf Label22.Caption = 60 And Label22.Caption = 70 And Label22.Caption = 80 And Label22.Caption = 90 And Label22.Caption = 100 ThenLabel29.Caption = 优秀End IfEnd SubPrivate Sub stuXX_Click()Picture1.Visible = TruePicture2.Visible = FalsePicture3.Visible = FalsePicture4.Visible = FalseEnd SubPrivate Sub Timer1_Timer()Label30.Caption = Trim(FormatDateTime(Now()Label32.Caption = Trim(FormatDateTime(Now()Label33.Caption = Trim(FormatDateTime(Now()Label23.Caption = Trim(FormatDateTime(Now()End SubPrivate Sub xgmm_Click()Adodc3.ConnectionString = Provider=MSDASQL.1;Persist Security Info=False;Data Source=dengluAdodc3.CommandType = adCmdTextAdodc3.RecordSource = select * from 学生信息 where 学生学号= & Trim(Label8.Caption) & Adodc3.RefreshPicture1.Visible = FalsePicture4.Visible = TruePicture3.Visible = FalsePicture2.Visible = FalseEnd SubPrivate Sub zx_Click()denglu.ShowUnload MeEnd Sub4.2.2管理员模块设计实现代码如下：Private Sub Combo1_click()If Combo1.Text = 学生学号 ThenCommand5.Enabled = TrueCommand6.Enabled = TrueElseCommand5.Enabled = FalseCommand6.Enabled = FalseEnd IfEnd SubPrivate Sub Combo2_Click()If Combo2.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 = TrueEnd IfEnd SubPrivate Sub Combo4_click()If Combo4.Text = 查询成绩 ThenCommand7.Enabled = FalseElseCommand7.Enabled = TrueEnd IfEnd SubPrivate Sub Combo5_click()If Combo5.Text = 学生学号 ThenCommand8.Enabled = TrueCommand9.Enabled = TrueElseCommand8.Enabled = FalseCommand9.Enabled = FalseEnd IfEnd SubPrivate Sub Command1_Click()If Combo1.Text = ThenMsgBox 选择操作方式Exit SubElseIf Combo2.Text = ThenMsgBox 选择查询方式Exit SubEnd IfEnd IfAdodc2.RecordSource = select * from 学生信息 where & Trim(Combo1.Text) & = & Trim(Text1.Text) & Adodc2.RefreshIf Adodc2.Recordset.RecordCount = 0 ThenMsgBox 没有记录 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)End IfIf Text8.Text Label17.Caption ThenMsgBox 该学生非本班学生不能查询Text1.Text = Text2.Text = Combo3.Text = Text3.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = End IfEnd SubPrivate Sub Command10_Click()Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Text14.Text = End SubPrivate Sub Command11_Click()If Text15.Text Adodc4.Recordset.Fields(密码) ThenMsgBox 当前密码输入错误Exit SubEnd IfIf Text16.Text Text17.Text ThenMsgBox 新密码输入错误ElseAdodc4.Recordset.UpdateAdodc4.Recordset.Fields(密码).Value = Text3.TextAdodc4.Recordset.UpdateAdodc4.RefreshMsgBox 修改成功End IfEnd SubPrivate Sub Command2_Click()If Combo4.Text = ThenMsgBox 选择操作方式ElseIf Combo5.Text = ThenMsgBox 选择查询条件Exit SubEnd IfEnd IfAdodc3.ConnectionString = Provider=MSDASQL.1;Persist Security Info=False;Data Source=chengji;Initial Catalog=StudentManageAdodc3.CommandType = adCmdTextAdodc3.RecordSource = select * FROM & Trim(Label17.Caption) + Trim(Label35.Caption) & where & Trim(Combo5.Text) & = & Trim(Text4.Text) & Adodc3.RefreshIf Adodc3.Recordset.RecordCount = 0 ThenMsgBox 没有记录 ElseText9.Text = Adodc3.Recordset.Fields(1)Text10.Text = Adodc3.Recor