VB学生管理系统设计Word文档下载推荐.docx

1、1.2.2、键盘操作你可以利用键盘对该系统的某些操作。该学生管理系统分为三个模块：如图1-1所示：图1-1 系统结构图三、详细设计1.1根据功能分析析框架构设计的思想，设计出登录界面系统功能如图1.2所示：如图1-2运行的界面登录界面代码如下：Private Sub Command1_Click（）Dim sql As StringDim rs_login As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Pat

2、h & mydate.mdb If Trim（Text1.Text） = Then MsgBox 用户名不能为空，请重新输入！ Text1.SetFocus Else sql = select * from 用户表 where 用户名称= Trim（Text1.Text） & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then没有这个用户,请重新输入！, vbOKOnly + vbExclamation, Text1.Text = UserName = Text1.Text I

3、f Trim（rs_login.Fields（1） = Trim（Text2.Text） Then Select Case Combo1.Text Case 管理员 dldhk.Hide Form1.Show教师 Form3.Show dldhk.Hid学生 Form4.Show End Select密码不正确,请重新输入！ Text2.SetFocus Text2.Text = End If cnt = cnt + 1 If cnt = 3 Then Unload MeEnd SubPrivate Sub Command2_Click（）Text1.Text = Text2.Text = P

4、rivate Sub Command3_Click（）EndPrivate Sub Label6_Click（）Form13.ShowPrivate Sub Command4_Click（）Form20.Showdldhk.Hide管理员系统功能如图1-3所示 如图1-3管理员登录界面如图1-03管理员登录界面新用户注册代码如下：Dim rs_tushu As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String findform = Falseselect * from 用户表 where 用户名称= T

5、ext1.Text & conn.Open rs_tushu.CursorLocation = adUseClient rs_tushu.Open sql, conn, adOpenKeyset, adLockPessimistic If Text1.Text = 用户名不能为空，请输入用户名！, vbOK0nly + vbExclamation, ElseIf Text2.Text = 密码不能为空，请输入密码！ ElseIf rs_tushu.EOF Then rs_tushu.AddNew rs_tushu（用户密码） = Text2.Text用户权限） = Combo1.Text rs

6、_tushu.Update恭喜，您已经注册成功！您的用户名是：，密码是 Text2.Text &，请牢记！, vbOKOnly, 用户名已存在，请重新注册！ dldhk.Show Form20.Hide End If 字段名类型大小权限备注用户名文本8管理员关键字用户密码图1-3 用户表信息如图1-4管理员登录后的界面教师系统功能如图所示如图1-5教师登录界面教师界面如下图所示：如图1-5登录后的教师界面如图1-6密码修改界面密码修改的代码：select * from 表2 where 姓名 = If rs_tushu.EOF = True Then此用户不存在，请重新输入! Text1.Te

7、xt = rs_tushu（姓名）Text2.Text = rs_tushu（密码rs_tushu.UpdateEnd Ifselect * from 表2 where 姓名= If Text3.Text = 姓名不能为空 Text3.SetFocus ElseIf Text3.Text Text4.Text Then两次输入的密码不同，请重新输入！ Exit Sub answer = MsgBox（确信要修改吗?, vbYesNo, If answer = vbYes Then修改密码成功! ElseIf answer = vbNo Then已取消修改密码! End IfForm3.Show

8、Form12.Hide教师任务书查询界面：如图1-7教师任务书查询界面教师任务书查询界面代码：Private Sub cmdok_Click（）Dim rs_book As New ADODB.Recordsetfindfor = Falsesql = select * from 教师表 where 教师姓名=rs_book.CursorLocation = adUseClientrs_book.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_book.EOF = True Then Combo1.Text = rs_book（学年

9、Combo2.Text = rs_book（学期 rs_book.UpdateCombo1.Text = Combo2.Text = Form23.Hide如图1-8表的数据库如图1-9学生成绩录入学生成绩录入的代码：Dim rs_bookstyle As New ADODB.RecordsetIf Trim（Text1.Text） = MsgBox Text1.SetFocusExit SubIf Trim（Text2.Text） = 编号不能为空provider=microsoft.jet.oledb.4.0;data source=myset.mdbselect * from 成绩表 w

10、here 姓名=rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_bookstyle.EOF Then rs_bookstyle.AddNew rs_bookstyle.Fields（0） = Trim（Text1.Text） rs_bookstyle.Fields（1） = Trim（Text2.Text） rs_bookstyle.Fields（2） = Trim（Text3.Text） rs_bookstyle.Fields（3） = Trim（Text4.Text） rs_bookstyle.Fields

11、（4） = Trim（Text5.Text） rs_bookstyle.Fields（5） = Trim（Text6.Text） rs_bookstyle.Fields（6） = Trim（Text7.Text） rs_bookstyle.Fields（7） = Trim（Text8.Text） rs_bookstyle.Fields（8） = Trim（Text9.Text） rs_bookstyle.Fields（9） = Trim（Text10.Text） rs_bookstyle.Fields（10） = Trim（Text11.Text） rs_bookstyle.Fields（11

12、） = Trim（Text12.Text） rs_bookstyle.Update添加信息成功!学生信息重复, vbOKOnly + vbExclamation rs_bookstyle.CloseText3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Form25.Hide如图1-10学生登录界面如图1-11学生信息修改界面学生信息修改代码如下：Dim rs_student As Ne

13、w ADODB.Recordsetselect * from 学生信息 where 姓名= rs_student.CursorLocation = adUseClient rs_student.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_student.EOF = True Then MsgBox Text1.Text = rs_student（ Text2.Text = rs_student（学号） & Text3.Text = rs_student（ Text4.Text = rs_student（出生年月 Text5.Tex

14、t = rs_student（政治面貌 Text6.Text = rs_student（班级 Text17.Text = rs_student（专业 Text18.Text = rs_student（入学时间 Text9.Text = rs_student（ Text10.Text = rs_student（确认密码 rs_student.UpdateForm4.ShowForm26.Hide如图1-12学生学期课程成绩查询学期课程查询代码：Form22.HidePrivate Sub Option1_Click（） Dim rs_teach As New ADODB.Recordset fi

15、ndform = False sql = select * from 成绩表 rs_teach.CursorLocation = adUseClient rs_teach.Open sql, conn, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs_teachPrivate Sub Option2_Click（）Dim rs_teach As New ADODB.RecordsetPrivate Sub Option3_Click（）End Sub 学生信息表学号4姓名姓别出生年月日期/时间15政治面貌10班级专业入学时间密码图1-13 学生信息表图1-14 个人成绩查询学生成绩查询代码：Dim sql As