学生信息管理系统代码.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.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 IfElse MsgBox 请输入查询条件!, vbOKOnly + vbExclamation, 警告 End If End 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 40821PCombo2.AddItem 40811PCombo2.AddItem 40822PCombo2.AddItem 40721PEnd Sub4、添加学生信息代码Dim cn As New ADODB.ConnectionDim rst As New ADODB.RecordsetPrivate Sub Form_Load()Combo1.AddItem 信息服务学院Combo1.AddItem 电子信息工程系Combo2.AddItem 40821PCombo2.AddItem 40811PCombo2.AddItem 40822PCombo2.AddItem 40721PEnd 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, cn 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 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 = False End SubPrivate Sub Form_Load()Combo1.AddItem 信息服务学院Combo1.AddItem 电子信息工程系Combo2.AddItem 40821PCombo2.AddItem 40811PCombo2.AddItem 40822PCombo2.AddItem 40721PEnd 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=studen