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

《2022年学生信息管理系统代码 .pdf》由会员分享，可在线阅读，更多相关《2022年学生信息管理系统代码 .pdf（28页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

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

3、 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精

4、心整理 - - - - - - - 第 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 名师资料

5、总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 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 c

6、n = 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 页 - - - - - - - - -

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

8、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,

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

10、o2.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) =

11、 性别 .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(性别) 名师资料总结

12、 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 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 = sel

13、ect * 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) = 学号 .Text

14、Matrix(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(

15、.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

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

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

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

19、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 名师资料总结 - - -精品资料欢迎下载 - - -

20、 - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 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=C184

21、7 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 页 - -

22、 - - - - - - - 告 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.Set

23、Focus 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 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)

24、 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 & ,

25、& 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 名师资料总结 -

26、 - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 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 请输入

27、密码！ , 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - -

28、 - - - - - - - 名师精心整理 - - - - - - - 第 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

29、 = 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.C

30、onnectionString = 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,

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

32、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 页 - - - - -

33、- - - - 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 = Combo

34、2.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 4

35、0721P 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=C18

36、47 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

37、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 & ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - -

38、- - - - - 第 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

39、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 用户表 whe

40、re 用户名 = & 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.Connect

41、ionString = 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 用户名 = &

42、 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 名师资料

43、总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 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;Initi

44、al 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 名师资料总结 - - -精品资料欢迎下载 -

45、 - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 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 页 - - - - - - - - -