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