学生信息管理系统毕业设计论文

学生信息管理系统（管理信息系统课程设计说明书）系别:专业:学号:姓名:班级:***************************业业业”业业业学生信息管理系统摘要随着学校的规模不断扩大，学生数量急剧增长，需要管理的各种信息也成倍增加。同时由于计算机和网络技术的普与，建立一个C/S或者B/S结构的学生信息管理系统之后，学生可以通过网络来选课并管理自己的信息，使得学生信息管理工作系统化、规范化高了学校管理学生信息的效率。学生信息管理系统是利用VisualBasic开发设计的。数据库是基于SQLSERVER设计的。学校管理人员可以通过该系统方便、快速、有效的管理学生信息。本系统主要实现了对高校从学生学籍信息录入、学生选课、学生考核、到学生成绩管理。整个系统分为学生信息管理、学生课程信息管理、学生成绩管理、系统管理四大模块。其中，学生信息管理模块包括学生信息录入、学生信息修改。学生课程信息管理模块包括学生选课、学生课程查询。学生成绩管理模块包括学生成绩录入、学生成绩查询。系统管理模块包括用户权限、密码修改、退出系统。整个系统从操作简便、灵活、实用的目的要求出发完成学生信息管理系统全过程。关键字：计算机网络、数据库、信息管理、学生信息管理系统STUDENTS'INFORMATIONMANAGEMENTSYSTEMABSTRACTWiththescaleenlargementoftheschool,thenumberofstudentshasincreaseddramatically,needtomanagealloftheinformationalsoincreaseexponentially.Atthesametimebecausethecomputerandpopularizationofthenetworktechnology,buildaC/SorB/Sstructureofstudents'informationmanagementsystemafterastudentcanthroughthenetworkandmanagementoftheircourseinformation,thestudentsinformationmanagementsystem,thehighschoolstudentsstandardizedmanagementinformationefficiency.Students'informationmanagementsystemistouseVisualBasicdevelopmentofthedesign.ThedatabaseisbasedonSQLSERVERofthedesign.Theschoolmanagementpersonnelmaythroughthissystem,convenient,fast,andtheeffectivemanagementofthestudents'information.Thissystemmainlyforcollegestudentsrealizefromthestudentstatusinformationrecorded,students'courseselection,studentsappraisal,tostudentperformancemanagement.Thewholesystemisdividedintostudents'informationmanagement,studentscourseinformationmanagement,studentperformancemanagement,systemmanagementfourmodules.Amongthem,students'informationmanagementmodulesincludingstudentinformationrecorded,studentsinformationchanges.Studentscourseinformationmanagementmoduleincludesstudents'courseselection,studentscourseinquiry.Students'performancemanagementmoduleincludesstudentsachievementsrecorded,studentsscoresquery.Systemmanagementmoduleincludinguserpermissions,andpasswordchanging,exitsystem.Thewholesystemfromsimpleoperation,flexible,practicalpurposefinishrequirementstudentinformationmanagementsystemprocess.KEYWORDS:computernetworks,database,theinformationmanagement,the

students'informationmanagementsystem目录TOC\o"1-5"\h\z1前言1\o"CurrentDocument"2系统技术与运行环境22.1VisualBasic6.0简介22.2系统开发与运行环境2\o"CurrentDocument"3系统分析23.1需求分析23.2可行性分析3\o"CurrentDocument"4系统设计34.1设计目标34.2项目规划34.3系统流程图4\o"CurrentDocument"5系统详细设计45.1数据库需求分析55.2数据库逻辑结构设计6\o"CurrentDocument"6.系统实现76.1系统初始界面86.2附加数据库106.3登陆界面设计116.4学生信息录入146.5学生信息修改176.6学生信息查询186.7学生成绩录入206.8修改学生成绩226.9学生成绩查询226.10用户管理236.11修改用户密码266.12关于系统28\o"CurrentDocument"结论28致谢29\o"CurrentDocument"参考文献29学生信息管理系统(StudentInformationManagementSystem),以下简称SIMS,是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统(ManagementInformationSystem)。它是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，它能够为用户提供充足的信息和快捷的查询手段。能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。在传统模式下利用人工进行学生信息管理，存在着较多的缺点，如：效率底，保密性差，时间一长将产生大量的文件和数据，更不便于查找，更新，维护等。诸如这些情况，令学校管理者对学生的信息管理带来了很大困难，严重影响了教育工作者的工作效率。随着科学技术的不断提高，计算机科学日渐成熟，使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对学生信息进行管理，具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、保密性好、寿命长、成本低、便于打印等。这些优点能够极大地提高学生信息管理的效率，也是学校的科学化、正规化管理，与世界接轨的重要条件。用计算机制作的学生信息管理系统还可以通过功能强大的Internet网与时的向学生的家长传递该生在校的最新成绩，有助于学校与家长的信息互动，为更好地把握学校的教育方针一定的促进作用！因此，开发这样一套管理软件成为很有必要的事情。2系统技术与运行环境2.1VisualBasic6.0简介VisualBasic6.0是Microsoft公司成功的变成语言产品之一，在全世界有数以百万计的用户。它之所以受到人们的青睐，原因是多方面的，但主要的有两点，一是功能强大，二是容易掌握。随着版本的更新，VisualBasic已成为真正专业化的大型开发语言和环境，不公功能越来越强，而且更容易使用VisualBasic6.0所提供的开发环境与Windows具有完全一致的界面，使用更方便，其代码效率已达到VisualC++的水平。2.2系统开发与运行环境该运行环境的规定是保证本需求说明的功能得到实际真正体现的基础。（1）运行环境WindowsXP或更高版本的操作系统数据库系统：MicrosoftSQLServer2000（2）开发环境：开发工具：MicrosoftVisualBasic6.0数据库系统：MicrosoftSQLServer20003系统分析3.1需求分析21世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用与普与到经济和社会生活的各个领域。使原本的旧的管理方法越来越不适应现在社会的发展。许多人还停留在以前的手工操作。这大大地阻碍了人类经济的发展。为了适应现代社会人们高度强烈的时间观念，学校信息管理系统软件为学校办公室带来了极大的方便。（一）教育系统学生管理现状分析学校工作流程分析学校工作总体规划由教务人员在学生信息管理系统中完成对运行教务处所需的基本数据的维护，包括这些信息的增加、修改与对各项信息的变动都将在这进行操作。新的学年，教务人员首先加入年级信息，然后编排班级，再对来校学生进行基本的信息录入，新生入学后由教务人员在学籍系统中完成新学生信息的维护。（二）学校具体需求分析学生：对各科成绩的查询任课老师：输入并维护所教科目的学生成绩教务处：学校全体成员的信息管理，并对任课老师，班主任等输入的信息进行存库，对学生的信息进行必要的维护。通过研究调查，本系统需以下功能：综合学生信息、学生成绩以与信息查询等信息。方便用户了解和管理学生的全面动态信息。良好的界面设计，更人性化的设计理念，使用户拥有更轻松的使用心情。3.2可行性分析目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能解决。经济性：由于学校等中小型管理系统并不复杂，且VisualBasic6.0本身要求的运行环境不高，所以一般Windows2000以上的系统环境都可以使用。实用性：本学生信息管理系统管理系统无太多复杂的操作要求，也没有过分花哨的装饰品，人性化的设计界面可以使操作者轻易运用自如4系统设计4.1设计目标本系统可以能减少很多不必要的资源，不用象以前那样用冗余的纸张式的管理。大节省了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率，并且还提高了学籍信息管理的精确度。方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为学校节约了开支。为学校增加了财富。数据库分析用户需求具体有学籍管理系统提供保存、更新、查询、维护，这就需求数据库结构能充分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联数据，方便用户访问系统中的数据，它与文件系统的重要区别是数据的充分共享，交叉访问，与应用程序的高度独立性。4.2项目规划学生管理系统是各大中专院校不可缺少的一部分，是一个VB+SQL数据库开发应用程序，它主要包括用户登录、学生信息输入修改、学生信息查询以与学生成绩输入、学生成绩查询、系统用户管理等几个页面，因而该系统具有较强的实用性。4.3系统流程图5系统详细设计5.2数据库逻辑结构设计（1）kc（课程）见表1表5-1字段名数据类型是否允许为空说明课程号Char（3）Notnull主键课程名Char（16）Notnull开课学期tinyintNotnull只能为1-8学时tinyintNotnull学分tinyintnull（2）xs_kc（学生选课）见表2表5-2字段名数据类型是否允许为空说明学号Char（6）Notnull主键课程号Char（3）Notnull主键成绩tinyintnull学分tinyintnull（3）xs（学生）见表3表5-3字段名数据类型是否允许为空说明学号Char（6）Notnull主键姓名Char（8）Notnull专业名Char（10）null性别BitNull男1，女0出生日期SmallDatetimeNull总学分tinyintnull

照片imageNull备注textNull（4）user1（管理员登录）见表4表5-4字段名数据类型说明角色Char（3）用户名Char（6）主键密码Char（6）Notnull（5）user2（学生登录）见表5表5-5字段名数据类型说明角色Char（3）用户名Char（6）主键密码Char（6）6.系统实现图6-1“系统初始界面代码”DimstarttimeAs“系统初始界面代码”DimstarttimeAsStringDimendtimeAsStringDimiAsIntegerPrivateSubstarttime=EndSubPrivateDimretendtimeForm_Load()Format(Now,〃hh:mm:ss〃Timer1_Timer()SubAsInteger=Format(Now,〃hh:mm:ss〃IfDateDiff(〃s〃，starttime,endtime)=10ThenDimcnAsADODB.ConnectionSetcn=NewADODB.ConnectionDimsqlresAsADODB.Recordsetcn.Open"Provider二SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;userid=sa;InitialCatalog二master”Setsqlres=NewADODB.Recordsetsqlres.Open"SELECT*FROMmaster..sysdatabasesWHEREname='xscj'〃，cn,adOpenDynamic,adLockPessimisticIfsqlres.EOF=FalseThen'Labell.Caption=〃登陆成功〃cn.CloseUnloadMeForm1.ShowElseret=MsgBox("是否加载数据库〃，vbYesNo,〃XSCJ〃)Ifret=vbYesThencn.CloseUnloadMeForm12.ShowElsecn.CloseEndEndIfEndIfEndIfEndSubPrivateSubTimer2_Timer()DimstrAsStringstr=〃系统加载中，请等待..."i=i+1Ifi=20Theni=0Label1.Caption=""ElseLabel1.Caption=Label1.Caption&Mid(str,i,1)EndIfEndSub图6-2"附加Server数据库”按钮的click事件添加如下的代码PrivateSubCommand2_Click()IfText1.Text=〃〃ThenMsgBox〃请选择数据库文件！"，，〃XSCJ〃ExitSubEndIfOnErrorGoTodataerrcn.Open"Provider二SQLOLEDB.1;IntegratedSecurity二SSPI;PersistSecurityInfo=False;userid=sa;InitialCatalog二master"cn.Execute("sp_attach_db@dbname='"&strdata&〃'，@'"&m&〃'〃)MsgBox"附加成功！",,"XSCJ"cn.CloseUnloadMeForml.ShowExitSubdataerr:MsgBoxErr.Description,,"XSCJ"cn.CloseEndSub图6-3“登录”按钮的click事件添加如下的代码：PrivateSubCommand1_Click()IfText1.Text=〃〃OrText2.Text=〃〃ThenMsgBox〃请输入完整的登录信息!〃Text1.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox〃请输入验证码〃Text3.SetFocusExitSubEndIfDimiAsIntegeri=Len(Textl.Text)Ifi<6ThenMsgBox〃用户名应为六位数字〃，，〃提示〃Textl.SetFocusTextl.Text=""ExitSubEndIfi=Len(Text2.Text)Ifi<6ThenMsgBox〃密码应为六位〃，，〃提示〃Text2.SetFocusText2.Text=〃〃ExitSubEndIfIfUCase(Trim(Text3.Text))<>Trim(Label4.Caption)ThenMsgBox〃验证码输入错误〃Text3.SetFocusText3.Text=〃〃ExitSubEndIfDimsqlconAsNewADODB.ConnectionDimsqlresAsNewADODB.RecordsetSetsqlcon=NewADODB.Connectionsqlcon.OpenconnectstringIfoptionl.ValueThenSetsqlres=NewADODB.Recordsetsqlres.Open"select*fromdlglwhere用户名二'〃+Trim(Textl.Text)+〃’and密码='〃+Trim(Text2.Text)+〃’〃，connectstring,adOpenDynamic,adLockPessimisticIfNotsqlres.EOFThenjuese=optionl.Captionyonghuming=Trim(Textl.Text)mima=Trim(Text2.Text)MsgBox〃登录成功〃sqlres.CloseUnloadMeMDIForml.ShowExitSubElsesqlres.CloseMsgBox〃用户名或密码错误！”Textl.Text=〃〃Text2.Text=""Text3.Text=〃〃Textl.SetFocusRandomizeTOC\o"1-5"\h\zi=Int(Rnd*25+65)j=Int(Rnd*25+65)k=Int(Rnd*25+65)l=Int(Rnd*25+65)Label4.Caption=Chr(i)&Chr(j)&Chr(k)&Chr(l)ExitSubEndIfEndIfIfOption2.ValueThenSetsqlres=NewADODB.Recordsetsqlres.Open"select*fromdlwhere用户名二'〃+Trim(Textl.Text)+"'and密码='〃+Trim(Text2.Text)+"'",connectstring,adOpenDynamic,adLockPessimisticIfNotsqlres.EOFThenjuese=Option2.Captionyonghuming=Trim(Textl.Text)mima=Trim(Text2.Text)MsgBox〃登录成功〃sqlres.CloseUnloadMeMDIForml.ShowExitSubElsesqlres.CloseMsgBox〃用户名或密码错误！"Textl.Text=""Text2.Text=""Text3.Text=""Textl.SetFocusRandomizei=Int(Rnd*25+65)13/36TOC\o"1-5"\h\zj=Int(Rnd*25+65)k=Int(Rnd*25+65)l=Int(Rnd*25+65)Label4.Caption=Chr(i)&Chr(j)&Chr(k)&Chr(l)EndIfEndIfEndSub6.4学生信息录入图6-4“更新”按钮的click事件添加如下的代码：PrivateSubCommand1_Click()'Setsqlres=NewADODB.Recordset'Adodc2.RecordSource="select*fromxswhere学号二'〃&Trim(Text1.Text)&"'"'Adodc2.CommandType=adCmdTextAdodc2.RefreshDimsAsStringDimbytedata()AsByteDimadofldAsADODB.Fields="select*fromxswhere学号='〃&Trim(Text1.Text)&〃’〃sqlres.Opens,connectstring,adOpenDynamic,adLockPessimisticIfNotsqlres.EOFThensqlres.Fields(l)=Trim(Text2.Text)sqlres.Fields(2)=Combol.TextIfOptionl.Value=TrueThensqlres.Fields(3)=1Elsesqlres.Fields(3)=0EndIfIfTrim(Text5.Text)<>""Thensqlres.Fields(5)=CInt(Text5.Text)EndIfsqlres.Fields(7)=Trim(Text4.Text)sqlres.Fields(4)=DTPickerl.ValueSetadofld=sqlres.Fields(〃照片〃)IfCommonDialogl.<>""ThenCallpicsavetodb(adofld,"")EndIfsqlres.UpdateAdodcl.RefreshMsgBox〃修改学生信息成功！"，vbOKOnly+vbExclamation,〃修改学生信息〃Elsesqlres.AddNewsqlres.Fields(O)=Trim(Textl.Text)sqlres.Fields(l)=Trim(Text2.Text)sqlres.Fields(2)=Combol.TextIfOptionl.Value=TrueThensqlres.Fields(3)=lElsesqlres.Fields(3)=0EndIfIfTrim(Text5.Text)<>""Thensqlres.Fields(5)=CInt(Text5.Text)EndIfsqlres.Fields(7)=Trim(Text4.Text)sqlres.Fields(4)=DTPicker1.ValueSetadofld=sqlres.Fields(〃照片〃)IfCommonDialog1.<>""ThenCallpicsavetodb(adofld,〃〃)EndIfsqlres.UpdateAdodcl.RefreshAdodcl.Recordset.MoveLastMsgBox〃添加学生信息成功！〃，vbOKOnly+vbExclamation,〃添加学生信息〃EndIfCommonDialogl.=〃〃sqlres.CloseAdodcl.RecordSource="select*fromxs,cxbwherexs.性别=cxb.性别0〃EndSub6.5学生信息修改图6-5图6-6“查询”按钮的click事件添加如下的代码PrivateSubCommand1_Click()DimstrAsStringstr="select*fromxs,cxbwherexs.性别二cxb.性别0"IfTextl.Text=""AndText2.Text=""AndCombol.Text<>〃所有专业〃Thenstr="select*fromxs,cxbwhere专业名二'〃+Trim(Combol.Text)+"'andxs.性别二cxb.性别0"EndIfIfTextl.Text=""AndText2.Text=""AndCombol.Text=〃所有专业〃Thenstr="select*fromxs,cxbwherexs.性别二cxb.性别0"EndIfIfTextl.Text<>AndText2.Text=Thenstr="select*fromxs,cxbwhere学号='〃&Trim(Textl.Text)&〃'andxs.性别=cxb.性别0"EndIfIfTextl.Text<>""AndText2.Text<>""Thenstr="select*fromxswhere学号='"&Trim(Text1.Text)&"'and姓名='"&Trim(Text2.Text)&"'"EndIfIfText1.Text=""AndText2.Text<>""Thenstr="select*fromxswhere姓名='〃&Trim(Text2.Text)&"'"EndIf'str="select*fromxswhere学号='"&Trim(Textl.Text)&"'or姓名=,"&Trim(Text2.Text)&"'or专业名=,"&Trim(Combol.Text)&"'"Adodcl.RecordSource=strAdodcl.CommandType=adCmdTextAdodcl.RefreshIfAdodcl.Recordset.EOFThenText2.Text=""Combol.Text="所有专业"Adodcl.RecordSource="select*fromxs,cxbwherexs.性别二cxb.性别0Adodcl.RefreshAdodcl.Recordset.MoveFirstEndIfIfTextl.Text<>""OrText2.Text<>""ThenCombol.Text=Adodcl.Recordset("专业名")EndIfEndSub6.7学生成绩录入图6-7“更新”按钮的click事件添加如下的代码PrivateSubCommand1_Click()Dim学号，课程名，成绩，学分IfTrim(Text2.Text)=〃〃ThenMsgBox〃成绩不能为空，请输入完整的信息！〃，，〃提示〃Text2.SetFocusExitSubEndIfsqlcmd.CommandText="addscore"sqlcmd.CommandType=adCmdStoredProcSet学号=sqlcmd.CreateParameter(〃@学号",adVarChar,adParamInput,6)sqlcmd.Parameters.Append(学号)Set课程名二sqlcmd.CreateParameter(〃@课程名〃，adVarChar,adParamInput,16)sqlcmd.Parameters.Append(课程名)Set成绩=sqlcmd.CreateParameter(〃@成绩",adInteger,adParamInput)sqlcmd.Parameters.Append（成绩）Set学分=sqlcmd.CreateParameter（〃@学分",adInteger,adParamInput）sqlcmd.Parameters.Append（学分）sqlcmd（"@学号"）=Combo3.Textsqlcmd（"@课程名"）=Combo2.Textsqlcmd（"@成绩"）=CInt（Text2.Text）sqlcmd（"@学分"）=0Setsqlres=sqlcmd.ExecuteMsgBox"更新选课成绩成功"，，"提示"sqlcmd.Parameters.Delete（"@学号"）sqlcmd.Parameters.Delete（"@课程名"）sqlcmd.Parameters.Delete（"@成绩"）sqlcmd.Parameters.Delete（"@学分"）Adodc1.RecordSource="selectxs_kc.学号，姓名，专业名，课程名，成绩,xs_kc.学分fromxs,kc,xs_kcwhere课程名二'"+Trim（Combo2.Text）+"'and专业名二'"+Trim（Combol.Text）+"'andxs.学号二xs_kc.学号andkc.课程号二xs_kc.课程号"Adodcl.RefreshAdodcl.Recordset.MoveLastEndSub6.8修改学生成绩图6-86.9学生成绩查询图6-96.10用户管理图6-10窗体的代码如下PrivatesqlconAsNewADODB.ConnectionPrivatesqlresAsNewADODB.RecordsetPrivateSubCommand1_Click()sqlres.MoveFirstText1.Text=sqlres.Fields(0)Text2.Text=sqlres.Fields(1)Text3.Text=sqlres.Fields(2)EndSubPrivateSubCommand2_Click()sqlres.MovePreviousIfsqlres.BOFThensqlres.MoveFirstEndIfTextl.Text=sqlres.Fields(0)Text2.Text=sqlres.Fields(1)Text3.Text=sqlres.Fields(2)EndSubPrivateSubCommand3_Click()sqlres.MoveNextIfsqlres.EOFThensqlres.MoveLastEndIfText1.Text=sqlres.Fields(0)Text2.Text=sqlres.Fields(1)Text3.Text=sqlres.Fields(2)EndSubPrivateSubCommand4_Click()sqlres.MoveLastText1.Text=sqlres.Fields(0)Text2.Text=sqlres.Fields(1)Text3.Text=sqlres.Fields(2)EndSubPrivateSubCommand5_Click()DimaAsIntegera=MsgBox("是否删除角色为：〃&Trim(Text1.Text)&〃用户名为：〃+Trim(Text2.Text)+〃记录？〃，vbYesNo,〃提示〃)Ifa=6Thensqlres.Deletesqlres.UpdateEndIfEndSubPrivateSubCommand6_Click()UnloadMe,FrmMain.ShowEndSubPrivateSubForm_Load()Me.Height=5355Me.Left=5000Me.Top=2000Me.Width=7515Setsqlcon=NewADODB.Connectionsqlcon.OpenconnectstringSetsqlres=NewADODB.Recordsetsqlres.Open"select*fromdlgl",connectstring,adOpenDynamic,adLockPessimisticIfNotsqlres.EOFThenText1.Text=sqlres.Fields(0)Text2.Text=sqlres.Fields(1)Text3.Text=sqlres.Fields(2)ElseMsgBox"无记录"Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseExitSubEndIfEndSubPrivateSubForm_Unload(CancelAsInteger)sqlcon.CloseEndSub

6.11修改用户密码图6-11“确定”按钮的click事件添加如下的代码PrivateSubCommand1_Click()IfText1.Text=〃〃OrText2.Text=〃〃OrText3.Text=〃〃ThenMsgBox〃请输入完整信息〃Textl.SetFocusExitSubEndIfi=Len(Textl.Text)Ifi<6ThenMsgBox〃密码应为六位"，，〃提示〃Textl.SetFocusTextl.Text=""ExitSubEndIfi=Len(Text2.Text)MsgBox〃密码应为六位"，，〃提示〃Text2.SetFocusText2.Text=""ExitSubEndIfIfTrim(Text3.Text)<>Trim(Text2.Text)ThenMsgBox〃前后输入的密码不一致!〃Text3.SetFocusText3.Text=〃〃ExitSubEndIfIfjuese=〃管理员〃ThenSetsqlres=NewADODB.Recordsetsqlres.Open"select*fromdlglwhere用户名二'〃+yonghuming+〃’and密码='〃+Trim(Textl.Text)+〃’〃，connectstring,adOpenDynamic,adLockPessimisticIfNotsqlres.EOFThensqlres.Fields(2)=Trim(Text2.Text)sqlres.UpdateElseMsgBox〃原密码输入有误〃Textl.SetFocusTextl.Text=〃〃Text2.Text=〃〃Text3.Text=〃〃ExitSubEndIfEndIfIfjuese=〃学生〃ThenSetsqlres=NewADODB.Recordsetsqlres.Open"select*fromdlwhere用户名二'〃+yonghuming+〃’and密码='〃