学生信息管理系统代码

1、主要代码如下：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=C

2、1847" 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

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 S

4、ub2、管理界面代码：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.RecordsetPri

5、vate 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 系别=”

6、 & 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) = "年龄" 。TextM

7、atrix(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(。

8、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（Combo2。Text) ”" rst。Open mysql， cn If rst.

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

10、 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（。Ro

11、ws 1， 6） = rst.Fields(”班级"） rst。MoveNextLoop 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

12、 = ” 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

13、= 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 En

14、d 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 AD

15、ODB。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 SubPr

16、ivate 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 "

17、;信息服务学院”Combo1。AddItem ”电子信息工程系”Combo2。AddItem ”40821P”Combo2.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

18、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， "警告” Tex

19、t1。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 + vbEx

20、clamation， "警告” 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。

21、Text）bj = Trim（Combo2.Text）mysql = "insert into 学生信息表（学号,姓名,性别，年龄,系别，班级） values （" xh & ”'," xm & "，'” & xb "'，'" nl & ”，'" xofy ”'，” bj ”'）”rst.Open mysql， cnMsgBox (”信息添加成功！”) Text1.Text = ”" Text2。Text = ” Text3。T

22、ext = "” 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；Pers

23、ist 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。Set

24、Focus 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, cnM

25、sgBox （”密修改成功！”)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 =

26、 ”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。O

27、pen 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 + vbExcla

28、mation， ”警告” 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 & ”'，&

29、quot; 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

30、。AddItem "电子信息工程系”Combo2。AddItem "40821P"Combo2。AddItem "40811P”Combo2。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

31、 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 ”

32、请输入密码！", 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 ”

33、," & 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

34、 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 "用户名可用！" El

35、se 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