资源描述：
《学生信息管理系统代码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、主要代码如下：1、登录界面代码：DimcnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetPrivateSubCommand1_Click()Setcn=NewADODB.ConnectionSetrst=NewADODB.RecordsetStatici%cn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847"cn.Openusna=T
2、rim(Text1.Text)mysql="select*from用户表where用户名='"&usna&"'"rst.Openmysql,cnIfrst.EOFThenMsgBox"用户名不存在！"cn.CloseText1.Text=""Text2.Text=""Text1.SetFocusElseIfTrim(rst("密码"))=Trim(Text2.Text)Then管理界面.ShowElsei=i+1Ifi<3ThenMsgBox"用户名或密码错误！",vbOKOnly+vbExclamation,"警告"cn.CloseText2.Text=""Text
3、1.Text=""Text1.SetFocusElseMsgBox"该用户已被锁定！",vbOKOnly+vbExclamation,"警告"EndIfEndIfEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSub2、管理界面代码：PrivateSubSinsert_Click()添加学生信息.ShowEndSubPrivateSubSselect_Click()查询学生信息.ShowEndSubPrivateSubsustu_Click()查询更新学生信息
4、.ShowEndSubPrivateSubxgmm_Click()修改密码.ShowEndSubPrivateSubyhzc_Click()用户注册.ShowEndSub3、查询学生信息代码：DimcnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetPrivateSubCommand1_Click()Setcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=Fa
5、lse;UserID=sa;InitialCatalog=studentsinfo;DataSource=C1847"cn.OpenIfCombo1.Text<>""Thenmysql="select*from学生信息表where系别='"&Trim(Combo1.Text)&"'"rst.Openmysql,cnIfrst.EOFThenMsgBox"没有学生!",vbOKOnly+vbExclamation,"警告"Combo1.Text=""ElseWithMSFlexGrid1.TextMatrix(0,1)="学号".TextMatrix(0,2)="姓名"
6、.TextMatrix(0,3)="性别".TextMatrix(0,4)="年龄".TextMatrix(0,5)="系别".TextMatrix(0,6)="班级"MSFlexGrid1.Rows=1'每次查询自动定位到第一行DoWhileNotrst.EOF.Rows=.Rows+1.CellAlignment=8.TextMatrix(.Rows-1,1)=rst.Fields("学号").TextMatrix(.Rows-1,2)=rst.Fields("姓名").TextMatrix(.Rows-1,3)=rst.Fields("性别").TextMatr
7、ix(.Rows-1,4)=rst.Fields("年龄").TextMatrix(.Rows-1,5)=rst.Fields("系别").TextMatrix(.Rows-1,6)=rst.Fields("班级")rst.MoveNextLoopEndWithEndIfElseIfCombo2.Text<>""Thenmysql="select*from学生信息表where班级='"&Trim(Combo2.Text)&"'"rst.Openmysql,cnIfrst.EOFThenMsgBox"没有学生!",vbOKOnly+vbExclamat
