学生信息管理系统代码

学生信息管理系统代码

ID:35543941

大小:56.17 KB

页数:33页

时间:2019-03-26

学生信息管理系统代码_第1页
学生信息管理系统代码_第2页
学生信息管理系统代码_第3页
学生信息管理系统代码_第4页
学生信息管理系统代码_第5页
资源描述:

《学生信息管理系统代码》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

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=Tr

2、im(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=""Text1.

3、Text=""Text1.SetFocusElseMsgBox"该用户已被锁定!",vbOKOnly+vbExclamation,"警告"EndIfEndIfEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSub2、管理界面代码:PrivateSubSinsert_Click()添加学生信息.ShowEndSubPrivateSubSselect_Click()查询学生信息.ShowEndSubPrivateSubsustu_Click()查询更新学生信息.Sh

4、owEndSubPrivateSubxgmm_Click()修改密码.ShowEndSubPrivateSubyhzc_Click()用户注册.ShowEndSub3、查询学生信息代码:DimcnAsNewADODB.ConnectionDimrstAsNewADODB.RecordsetPrivateSubCommand1_Click()Setcn=NewADODB.ConnectionSetrst=NewADODB.Recordsetcn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;

5、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)="姓名".Text

6、Matrix(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("性别").TextMatrix(.Ro

7、ws-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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。