2022年学生信息管理系统代码 .pdf

资源ID：30548636 资源大小：124.41KB 全文页数：28页
资源格式： PDF 下载积分：4.3金币

快捷下载

会员登录下载

微信登录下载

三方登录下载：

微信扫一扫登录

下载资源需要4.3金币

邮箱/手机：
温馨提示：	快捷下载时，用户名和密码都是您填写的邮箱或者手机号，方便查询和重复下载（系统自动生成）。如填写123，账号就是123，密码也是123。
支付方式：
验证码：	换一换

账号：
密码：
验证码：	换一换
当日自动登录忘记密码？

友情提示

1、下载资料失败解决办法

2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。

3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。

4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。

5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。

网站客服

侵权投诉

2022年学生信息管理系统代码 .pdf

主要代码如下：1、登录界面代码：Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset Static i% cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open usna = Trim(Text1.Text) mysql = select * from 用户表 where 用户名= & usna & rst.Open mysql, cn If rst.EOF Then MsgBox 用户名不存在！ cn.Close Text1.Text = Text2.Text = 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 28 页 - - - - - - - - - Text1.SetFocus Else If Trim(rst(密码) = Trim(Text2.Text) Then 管理界面 .Show Else i = i + 1 If i 3 Then MsgBox 用户名或密码错误！ , vbOKOnly + vbExclamation, 警告 cn.Close Text2.Text = Text1.Text = Text1.SetFocus Else MsgBox 该用户已被锁定！ , vbOKOnly + vbExclamation, 警告 End If End If 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 28 页 - - - - - - - - - End If End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End Sub 2、管理界面代码：Private Sub Sinsert_Click() 添加学生信息 .Show End Sub Private Sub Sselect_Click() 查询学生信息 .Show End Sub Private Sub sustu_Click() 查询更新学生信息 .Show End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 28 页 - - - - - - - - - Private Sub xgmm_Click() 修改密码 .Show End Sub Private Sub yhzc_Click() 用户注册 .Show End Sub 3、查询学生信息代码：Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 28 页 - - - - - - - - - If Combo1.Text Then mysql = select * from 学生信息表 where 系别= & Trim(Combo1.Text) & rst.Open mysql, cn If rst.EOF Then MsgBox 没有学生 !, vbOKOnly + vbExclamation, 警告 Combo1.Text = Else With MSFlexGrid1 .TextMatrix(0, 1) = 学号 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 性别 .TextMatrix(0, 4) = 年龄 .TextMatrix(0, 5) = 系别 .TextMatrix(0, 6) = 班级 MSFlexGrid1.Rows = 1 每次查询自动定位到第一行 Do While Not rst.EOF 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 28 页 - - - - - - - - - .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(系别) .TextMatrix(.Rows - 1, 6) = rst.Fields(班级) rst.MoveNext Loop End With End If ElseIf Combo2.Text Then mysql = select * from 学生信息表 where 班级= & Trim(Combo2.Text) & rst.Open mysql, cn If rst.EOF Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 28 页 - - - - - - - - - MsgBox 没有学生 !, vbOKOnly + vbExclamation, 警告 Combo1.Text = Else With MSFlexGrid1 .TextMatrix(0, 1) = 学号 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 性别 .TextMatrix(0, 4) = 年龄 .TextMatrix(0, 5) = 系别 .TextMatrix(0, 6) = 班级 MSFlexGrid1.Rows = 1 每次查询自动定位到第一行 Do While Not rst.EOF .Rows = .Rows + 1 .CellAlignment = 8 .TextMatrix(.Rows - 1, 1) = rst.Fields(学号) .TextMatrix(.Rows - 1, 2) = rst.Fields(姓名) .TextMatrix(.Rows - 1, 3) = rst.Fields(性别) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 28 页 - - - - - - - - - .TextMatrix(.Rows - 1, 4) = rst.Fields(年龄) .TextMatrix(.Rows - 1, 5) = rst.Fields(系别) .TextMatrix(.Rows - 1, 6) = rst.Fields(班级) rst.MoveNext Loop End With End If ElseIf Text1.Text Then mysql = select * from 学生信息表 where 学号= & Trim(Text1.Text) & rst.Open mysql, cn If rst.EOF Then MsgBox 没有学生 !, vbOKOnly + vbExclamation, 警告 Combo1.Text = Else With MSFlexGrid1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 28 页 - - - - - - - - - .TextMatrix(0, 1) = 学号 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 性别 .TextMatrix(0, 4) = 年龄 .TextMatrix(0, 5) = 系别 .TextMatrix(0, 6) = 班级 MSFlexGrid1.Rows = 1 每次查询自动定位到第一行 Do While Not rst.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(系别) .TextMatrix(.Rows - 1, 6) = rst.Fields(班级) rst.MoveNext Loop 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 28 页 - - - - - - - - - End With End If Else MsgBox 请输入查询条件 !, vbOKOnly + vbExclamation, 警告 End If End Sub Private Sub Command2_Click() Combo1.Text = Combo2.Text = Text1.Text = End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 28 页 - - - - - - - - - Private Sub Command3_Click() 修改学生信息 .Show End Sub 修改学生信息Private Sub Command4_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open mysql = delete from 学生信息表 where 学号= & Text1.Text & rst.Open mysql, cn MsgBox 删除成功 !, vbOKOnly + vbExclamation, 警告 End Sub Private Sub Form_Load() Combo1.AddItem 信息服务学院名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 28 页 - - - - - - - - - Combo1.AddItem 电子信息工程系 Combo2.AddItem 40821P Combo2.AddItem 40811P Combo2.AddItem 40822P Combo2.AddItem 40721P End Sub 4、添加学生信息代码Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub Form_Load() Combo1.AddItem 信息服务学院 Combo1.AddItem 电子信息工程系 Combo2.AddItem 40821P Combo2.AddItem 40811P Combo2.AddItem 40822P Combo2.AddItem 40721P End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 28 页 - - - - - - - - - Private Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open Dim sex As String usna = Trim(Text1.Text) mysql = select * from 学生信息表 where 学号= & usna & rst.Open mysql, cn If rst.EOF Then rst.Close Else rst.Close MsgBox 该学生信息已存在 !, vbOKOnly + vbExclamation, 警名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 28 页 - - - - - - - - - 告 Text1.Text = Text2.Text = Text3.Text = Combo1.Text = Combo2.Text = Option1.Value = False Text1.SetFocus End If If Text1.Text = Then MsgBox 请输入学号！ , vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If If Text2.Text = Then MsgBox 请输入姓名！ , vbOKOnly + vbExclamation, 警告 Text2.SetFocus 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 28 页 - - - - - - - - - Exit Sub End If If Text3.Text = Then MsgBox 请输入年龄！ , vbOKOnly + vbExclamation, 警告 Text3.SetFocus Exit Sub End If If Option1.Value Then sex = 男 Else sex = 女 End If xh = Trim(Text1.Text) xm = Trim(Text2.Text) xb = sex nl = Trim(Text3.Text) xofy = Trim(Combo1.Text) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 28 页 - - - - - - - - - bj = Trim(Combo2.Text) mysql = insert into 学生信息表 ( 学号, 姓名, 性别, 年龄, 系别, 班级) values ( & xh & , & xm & , & xb & , & nl & , & xofy & , & bj & ) rst.Open mysql, cn MsgBox ( 信息添加成功 !) Text1.Text = Text2.Text = Text3.Text = Combo1.Text = Combo2.Text = Option1.Value = False End Sub 5、修改密码：Dim rst As New ADODB.Recordset Dim cn As New ADODB.Connection Private Sub Command1_Click() Set cn = New ADODB.Connection 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 28 页 - - - - - - - - - Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open If Text1.Text = Then MsgBox 请输入密码！ , vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If If Text2.Text = Then MsgBox 请输入新密码！ , vbOKOnly + vbExclamation, 警告 Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 请确认输入的新密码！ , vbOKOnly + vbExclamation, 警告 Text3.SetFocus Exit Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 28 页 - - - - - - - - - End If If Text2.Text = Text3.Text Then xmm = Trim(Text2.Text) mysql = update 用户表 set 密码 = & xmm & where 用户名 = & 登陆.Text1.Text & rst.Open mysql, cn MsgBox ( 密修改成功 !) End If End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End Sub 6、修改学生信息代码：Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub Command1_Click() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 28 页 - - - - - - - - - Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open usna = Trim(Text1.Text) mysql = select * from 学生信息表 where 学号= & usna & rst.Open mysql, cn rst.Close mysql = delete from 学生信息表 where 学号= & Text1.Text & rst.Open mysql, cn If Text1.Text = Then MsgBox 请输入学号！ , vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 28 页 - - - - - - - - - If Text2.Text = Then MsgBox 请输入姓名！ , vbOKOnly + vbExclamation, 警告 Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 请输入年龄！ , vbOKOnly + vbExclamation, 警告 Text3.SetFocus Exit Sub End If If Option1.Value Then sex = 男 Else sex = 女 End If xh = Trim(Text1.Text) xm = Trim(Text2.Text) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 20 页，共 28 页 - - - - - - - - - xb = sex nl = Trim(Text3.Text) xofy = Trim(Combo1.Text) bj = Trim(Combo2.Text) mysql = insert into 学生信息表 ( 学号, 姓名, 性别, 年龄, 系别, 班级) values ( & xh & , & xm & , & xb & , & nl & , & xofy & , & bj & ) rst.Open mysql, cn MsgBox ( 信息修改成功 !) Text1.Text = Text2.Text = Text3.Text = Combo1.Text = Combo2.Text = Option1.Value = False End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 21 页，共 28 页 - - - - - - - - - Private Sub Form_Load() Combo1.AddItem 信息服务学院 Combo1.AddItem 电子信息工程系 Combo2.AddItem 40821P Combo2.AddItem 40811P Combo2.AddItem 40822P Combo2.AddItem 40721P End Sub 7、用户注册代码：Dim rst As New ADODB.Recordset Dim cn As New ADODB.Connection Private Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open If Text1.Text = Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 22 页，共 28 页 - - - - - - - - - MsgBox 请输入用户名！ , vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If If Text2.Text = Then MsgBox 请输入密码！ , vbOKOnly + vbExclamation, 警告 Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 请再次输入密码！ , vbOKOnly + vbExclamation, 警告 Text3.SetFocus Exit Sub End If sryhm = Trim(Text1.Text) srmm = Trim(Text2.Text) mysql = insert into 用户表 ( 用户名 , 密码) values ( & sryhm & , & srmm & ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 23 页，共 28 页 - - - - - - - - - rst.Open mysql, cn MsgBox ( 用户添加成功 !) Text1.Text = Text2.Text = Text3.Text = End Sub 添加用户Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End Sub 重置按钮Private Sub Command3_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open usna = Trim(Text1.Text) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 24 页，共 28 页 - - - - - - - - - mysql = select * from 用户表 where 用户名 = & usna & rst.Open mysql, cn If rst.EOF Then MsgBox 用户名可用！ Else MsgBox 用户名已存在！ , vbOKOnly + vbExclamation, 警告 Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus Exit Sub End If End Sub 检查用户名Private Sub Command4_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 25 页，共 28 页 - - - - - - - - - cn.Open usna = Trim(Text1.Text) mysql = select * from 用户表 where 用户名 = & usna & rst.Open mysql, cn If rst.EOF Then MsgBox 无此用户名，删除不成功！ , vbOKOnly + vbExclamation, 警告 Else rst.Close usna = Trim(Text1.Text) mysql = delete from 用户表 where 用户名 = & usna & rst.Open mysql, cn MsgBox 删除成功 !, vbOKOnly + vbExclamation, 警告 Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 26 页，共 28 页 - - - - - - - - - End If End Sub 删除用户Private Sub Command5_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open mysql = select * from 用户表 rst.Open mysql, cn If rst.EOF Then MsgBox 出错!, vbOKOnly + vbExclamation, 警告 End If With MSFlexGrid1 .TextMatrix(0, 1) = 用户名 .TextMatrix(0, 2) = 密码 MSFlexGrid1.Rows = 1 每次查询自动定位到第一行Do While Not rst.EOF 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 27 页，共 28 页 - - - - - - - - - .Rows = .Rows + 1 .CellAlignment = 8 .TextMatrix(.Rows - 1, 1) = rst.Fields(用户名 ) .TextMatrix(.Rows - 1, 2) = rst.Fields(密码) rst.MoveNext Loop End With rst.Close End Sub 查询用户表名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 28 页，共 28 页 - - - - - - - - -

注意事项

本文（2022年学生信息管理系统代码 .pdf）为本站会员（Che****ry）主动上传，淘文阁 - 分享文档赚钱的网站仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知淘文阁 - 分享文档赚钱的网站（点击联系客服），我们立即给予删除！

温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。