1、学生信息管理系统代码. . .主要代码如下 :1、登录界面代码 :Dim cn As New ADODB.ConnectionDim rst As New ADODB.RecordsetPrivate Sub Command1_Click()Set cn = New ADODB.ConnectionSet rst = New ADODB.RecordsetStatic i%cn.ConnectionString = Provider=SQLOLEDB.1;Persist SecurityInfo=False;User ID=sa;Initial Catalog=students info;Da
2、ta Source=C1847cn.Openusna = Trim(Text1.Text)mysql = select * from 用户表 where 用户名 = & usna & rst.Open mysql, cnIf rst.EOF ThenMsgBox 用户名不存在 !. 专业 .专注 . . .cn.CloseText1.Text = Text2.Text = Text1.SetFocusElseIf Trim(rst( 密码 ) = Trim(Text2.Text) Then管理界面 .ShowElsei = i + 1If i 3 ThenMsgBox 用户名或密码错误 !,
3、vbOKOnly + vbExclamation, 警告 cn.CloseText2.Text = Text1.Text = . 专业 .专注 . . .Text1.SetFocusElseMsgBox 该用户已被锁定 !, vbOKOnly + vbExclamation, 警告 End IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = End Sub2、管理界面代码 :Private Sub Sinsert_Click()添加学生信息 .Show. 专业 .专注 .
4、 . .End SubPrivate Sub Sselect_Click()查询学生信息 .ShowEnd SubPrivate Sub sustu_Click()查询更新学生信息 .ShowEnd SubPrivate Sub xgmm_Click()修改密码 .ShowEnd SubPrivate Sub yhzc_Click()用户注册 .Show. 专业 .专注 . . .End Sub3、查询学生信息代码 :Dim cn As New ADODB.ConnectionDim rst As New ADODB.RecordsetPrivate Sub Command1_Click()S
5、et cn = New ADODB.ConnectionSet rst = New ADODB.Recordsetcn.ConnectionString = Provider=SQLOLEDB.1;Persist SecurityInfo=False;User ID=sa;Initial Catalog=students info;Data Source=C1847cn.OpenIf Combo1.Text Thenmysql = select * from 学生信息表 where 系别 = &Trim(Combo1.Text) & . 专业 .专注 . . .rst.Open mysql,
6、cnIf rst.EOF ThenMsgBox 没有学生 !, vbOKOnly + vbExclamation, 警告 Combo1.Text = ElseWith 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
7、.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( 班级 )r
8、st.MoveNextLoopEnd WithEnd IfElseIf Combo2.Text Then. 专业 .专注 . . .mysql = select * from 学生信息表 where 班级 = &Trim(Combo2.Text) & rst.Open mysql, cnIf rst.EOF ThenMsgBox 没有学生 !, vbOKOnly + vbExclamation, 警告 Combo1.Text = ElseWith MSFlexGrid1.TextMatrix(0, 1) = 学号 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3)
9、 = 性别 .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.Fie
10、lds( 性别 ).TextMatrix(.Rows - 1, 4) = rst.Fields( 年龄 ).TextMatrix(.Rows - 1, 5) = rst.Fields( 系别 ).TextMatrix(.Rows - 1, 6) = rst.Fields( 班级 )rst.MoveNextLoopEnd WithEnd If. 专业 .专注 . . .ElseIf Text1.Text Thenmysql = select * from 学生信息表 where 学号 = &Trim(Text1.Text) & rst.Open mysql, cnIf rst.EOF ThenM
11、sgBox 没有学生 !, vbOKOnly + vbExclamation, 警告 Combo1.Text = ElseWith 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.C
12、ellAlignment = 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. 专业
13、 .专注 . . .End WithEnd IfElseMsgBox 请输入查询条件 !, 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.ConnectionSet rst = N
14、ew ADODB.Recordsetcn.ConnectionString = Provider=SQLOLEDB.1;Persist SecurityInfo=False;User ID=sa;Initial Catalog=students info;Data Source=C1847cn.Openmysql = delete from 学生信息表 where 学号 = & Text1.Text & . 专业 .专注 . . .rst.Open mysql, cnMsgBox 删除成功 !, vbOKOnly + vbExclamation, 警告 End SubPrivate Sub F
15、orm_Load()Combo1.AddItem 信息服务学院 Combo1.AddItem 电子信息工程系 Combo2.AddItem 40821PCombo2.AddItem 40811PCombo2.AddItem 40822PCombo2.AddItem 40721PEnd Sub4、添加学生信息代码Dim cn As New ADODB.Connection. 专业 .专注 . . .Dim rst As New ADODB.RecordsetPrivate Sub Form_Load()Combo1.AddItem 信息服务学院 Combo1.AddItem 电子信息工程系 Co
16、mbo2.AddItem 40821PCombo2.AddItem 40811PCombo2.AddItem 40822PCombo2.AddItem 40721PEnd SubPrivate Sub Command1_Click()Set cn = New ADODB.ConnectionSet rst = New ADODB.Recordsetcn.ConnectionString = Provider=SQLOLEDB.1;Persist SecurityInfo=False;User ID=sa;Initial Catalog=students info;Data Source=C18
17、47. 专业 .专注 . . .cn.OpenDim sex As Stringusna = Trim(Text1.Text)mysql = select * from 学生信息表 where 学号 = & usna & rst.Open mysql, cnIf rst.EOF Thenrst.CloseElserst.CloseMsgBox 该学生信息已存在 !, vbOKOnly + vbExclamation, 警告Text1.Text = . 专业 .专注 . . .Text2.Text = Text3.Text = Combo1.Text = Combo2.Text = Option
18、1.Value = FalseText1.SetFocusEnd IfIf Text1.Text = ThenMsgBox 请输入学号 ! , vbOKOnly + vbExclamation, 警告 Text1.SetFocusExit SubEnd IfIf Text2.Text = Then. 专业 .专注 . . .MsgBox 请输入姓名 ! , vbOKOnly + vbExclamation, 警告 Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入年龄 ! , vbOKOnly + vbExclamation,
19、警告 Text3.SetFocusExit SubEnd IfIf Option1.Value Thensex = 男 Elsesex = 女 End If. 专业 .专注 . . .xh = 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
20、& , & 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.RecordsetDim cn As New ADODB.ConnectionPrivate Sub Command1_Click()Set cn = New ADODB.ConnectionSet r
21、st = New ADODB.Recordsetcn.ConnectionString = Provider=SQLOLEDB.1;Persist SecurityInfo=False;User ID=sa;Initial Catalog=students info;Data Source=C1847cn.OpenIf Text1.Text = ThenMsgBox 请输入密码 ! , vbOKOnly + vbExclamation, 警告 Text1.SetFocusExit Sub. 专业 .专注 . . .End IfIf Text2.Text = ThenMsgBox 请输入新密码
22、!, vbOKOnly + vbExclamation, 警告 Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请确认输入的新密码 !, vbOKOnly + vbExclamation, 警告 Text3.SetFocusExit SubEnd IfIf Text2.Text = Text3.Text Thenxmm = Trim(Text2.Text)mysql = update 用户表 set 密码 = & xmm & where 用户名 = &登陆 .Text1.Text & . 专业 .专注 . . .rst.Open m
23、ysql, cnMsgBox ( 密修改成功 !)End IfEnd 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.Recordsetcn.ConnectionStr
24、ing = Provider=SQLOLEDB.1;Persist SecurityInfo=False;User ID=sa;Initial Catalog=students info;Data Source=C1847cn.Openusna = Trim(Text1.Text)mysql = select * from 学生信息表 where 学号 = & usna & rst.Open mysql, cnrst.Closemysql = delete from 学生信息表 where 学号 = & Text1.Text & rst.Open mysql, cnIf Text1.Text
25、= ThenMsgBox 请输入学号 ! , vbOKOnly + vbExclamation, 警告 Text1.SetFocus. 专业 .专注 . . .Exit SubEnd IfIf Text2.Text = ThenMsgBox 请输入姓名 ! , vbOKOnly + vbExclamation, 警告 Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入年龄 ! , vbOKOnly + vbExclamation, 警告 Text3.SetFocusExit SubEnd IfIf Option1.Value Thensex = 男 . 专业 .专注 . . .Elsesex = 女 End Ifxh = Trim(Text1.Text)xm = Trim(Text2.Text)xb = sexnl = Trim(Text3.Text)xofy = Trim(Combo1.Text
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1