学生信息管理系统代码.doc
《学生信息管理系统代码.doc》由会员分享,可在线阅读,更多相关《学生信息管理系统代码.doc(26页珍藏版)》请在咨信网上搜索。
主要代码如下: 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 = ”” 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 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 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 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 。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 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(”性别”) .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 。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 End With End If Else MsgBox ”请输入查询条件!”, vbOKOnly + vbExclamation, ”警告” End If End Sub Private Sub Command2_Click() Combo1。Text = ”” Combo2。Text = "” Text1。Text = ”" End Sub 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 "信息服务学院” 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 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, ”警告” 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 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) 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 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 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() 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 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) 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 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 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 & ”’)” 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) 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” 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 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 。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 ’查询用户表- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 信息管理 系统 代码
咨信网温馨提示:
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【w****g】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【w****g】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【w****g】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【w****g】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。
关于本文