学生信息管理系统代码.doc

主要代码如下：1、登录界面代码：Dim cn As New ADODB。ConnectionDim rst As New ADODB。RecordsetPrivate 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 SubPrivate Sub Command2_Click（)Text1。Text = ”Text2。Text = ”Text3。Text = ”End Sub2、管理界面代码:Private Sub Sinsert_Click(）添加学生信息。ShowEnd SubPrivate Sub Sselect_Click()查询学生信息.ShowEnd SubPrivate Sub sustu_Click（）查询更新学生信息.ShowEnd SubPrivate Sub xgmm_Click（）修改密码。ShowEnd SubPrivate Sub yhzc_Click（）用户注册.ShowEnd Sub3、查询学生信息代码：Dim cn As New ADODB。ConnectionDim rst As New ADODB。RecordsetPrivate 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。MoveNextLoop End With End If ElseIf Combo2.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.MoveNextLoop End With End IfElse MsgBox ”请输入查询条件！”， vbOKOnly + vbExclamation, ”警告”End IfEnd SubPrivate Sub Command2_Click()Combo1。Text = ”Combo2。Text = ”Text1。Text = ”End SubPrivate Sub Command3_Click（）修改学生信息.ShowEnd 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 SubPrivate Sub Form_Load（)Combo1.AddItem 信息服务学院”Combo1。AddItem ”电子信息工程系”Combo2。AddItem 40821P”Combo2。AddItem 40811P”Combo2。AddItem 40822P”Combo2。AddItem ”40721P”End Sub4、添加学生信息代码Dim cn As New ADODB.ConnectionDim rst As New ADODB.RecordsetPrivate Sub Form_Load（）Combo1.AddItem ”信息服务学院Combo1。AddItem ”电子信息工程系”Combo2。AddItem 40821PCombo2。AddItem ”40811P”Combo2.AddItem ”40822P”Combo2.AddItem ”40721P”End SubPrivate 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。OpenDim 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 IfIf Text1.Text = ” Then MsgBox ”请输入学号!”, vbOKOnly + vbExclamation， ”警告” Text1。SetFocus Exit Sub End IfIf Text2.Text = Then MsgBox ”请输入姓名！”, vbOKOnly + vbExclamation， ”警告 Text2。SetFocus Exit Sub End IfIf Text3.Text = ” Then MsgBox 请输入年龄！, vbOKOnly + vbExclamation, ”警告” Text3。SetFocus Exit Sub End IfIf Option1.Value Then sex = ”男” Else sex = ”女”End Ifxh = Trim（Text1。Text)xm = Trim（Text2。Text）xb = sexnl = Trim（Text3。Text)xofy = Trim(Combo1。Text）bj = Trim(Combo2。Text)mysql = ”insert into 学生信息表(学号，姓名，性别，年龄,系别,班级) values （ xh ”,” xm , xb ”, nl ， & xofy ”， & bj & ）”rst.Open mysql, cnMsgBox （”信息添加成功！） Text1.Text = ” Text2.Text = ” Text3。Text = ” Combo1。Text = ” Combo2。Text = ” Option1.Value = FalseEnd Sub5、修改密码：Dim rst As New ADODB。Recordset Dim cn As New ADODB.ConnectionPrivate 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 IfIf Text2。Text = ” Then MsgBox 请输入新密码!， vbOKOnly + vbExclamation, ”警告” Text2。SetFocus Exit Sub End IfIf Text3。Text = Then MsgBox ”请确认输入的新密码！”, vbOKOnly + vbExclamation， 警告 Text3。SetFocus Exit Sub End IfIf Text2。Text = Text3。Text Thenxmm = Trim（Text2。Text）mysql = ”update 用户表 set 密码 = & xmm & ” where 用户名 = & 登陆。Text1.Text & ”rst。Open mysql, cnMsgBox （”密修改成功!）End If End SubPrivate Sub Command2_Click（）Text1。Text = Text2。Text = Text3。Text = ”End Sub6、修改学生信息代码：Dim cn As New ADODB.ConnectionDim rst As New ADODB。RecordsetPrivate 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, cnIf Text1。Text = ” Then MsgBox ”请输入学号!”， vbOKOnly + vbExclamation, 警告 Text1。SetFocus Exit Sub End IfIf Text2.Text = ” Then MsgBox 请输入姓名!”, vbOKOnly + vbExclamation， ”警告 Text2。SetFocus Exit Sub End IfIf Text3。Text = ” Then MsgBox ”请输入年龄！”， vbOKOnly + vbExclamation， ”警告” Text3。SetFocus Exit Sub End IfIf Option1。Value Then sex = ”男” Else sex = ”女End Ifxh = Trim（Text1。Text)xm = Trim（Text2。Text）xb = sexnl = Trim（Text3.Text）xofy = Trim(Combo1。Text）bj = Trim(Combo2.Text)mysql = ”insert into 学生信息表（学号，姓名,性别,年龄，系别，班级） values （” xh ”， xm ”，” & xb ，” nl ”，” & xofy & ， & bj & ”）”rst.Open mysql, cnMsgBox （信息修改成功!） Text1。Text = ” Text2.Text = ” Text3.Text = ” Combo1.Text = ” Combo2。Text = ” Option1。Value = FalseEnd SubPrivate Sub Form_Load（）Combo1。AddItem 信息服务学院Combo1。AddItem ”电子信息工程系Combo2.AddItem ”40821PCombo2。AddItem ”40811PCombo2。AddItem 40822P”Combo2.AddItem ”40721P”End Sub7、用户注册代码：Dim rst As New ADODB.Recordset Dim cn As New ADODB。ConnectionPrivate 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 IfIf Text2。Text = ” Then MsgBox ”请输入密码!， vbOKOnly + vbExclamation， ”警告 Text2.SetFocus Exit Sub End IfIf Text3。Text = ” Then MsgBox ”请再次输入密码！”， vbOKOnly + vbExclamation， ”警告” Text3。SetFocus Exit Sub End Ifsryhm = Trim（Text1。Text)srmm = Trim（Text2.Text）mysql = ”insert into 用户表（用户名，密码) values （ & sryhm ”，” srmm & ”）”rst。Open mysql， cnMsgBox (”用户添加成功！”）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 IfEnd 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 IfEnd 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。MoveNextLoop End With rst。CloseEnd Sub 查询用户表