VB学生管理系统设计.docVIP

黔 东 南 民 族 职 业 技 术 学 院 学生管理系统 课程名称为：用于VB学生管理系统的应用和实现 姓名： 邓英英 专业： 计算机应用技术 班级： 11计算机班 指 导 老 师： 杨波老师 制作时间： 2013年 6月8日 功能描述 该学生成绩管理系统是用Visual Basic 制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码；还有的是教师用户和学生用户可以退出系统。 该系统采用了对窗体、基本控件的应用，选择结构的if语句，循环结构的循环语句for…next结构，菜单设计，过程，数据文件来构建整个程序。 在此报告中重点叙述了学生成绩系统的各个功能，特别是学生的成绩查询和密码修改以及教师和学生的登录。整个系统会以系统结构图、程序流程图、功能模块，让大家能知晓该系统的功能。 概要设计 图1-1 系统结构图 三、详细设计 1.1根据功能分析.2所示： 如图1-2运行的界面 登录界面代码如下： Private Sub Command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset Dim conn As New ADODB.Connection conn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= App.Path \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 MsgBox 没有这个用户,请重新输入！, vbOKOnly + vbExclamation, Text1.Text = Text1.SetFocus Else UserName = Text1.Text If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then Select Case Combo1.Text Case 管理员 dldhk.Hide Form1.Show Case 教师 Form3.Show dldhk.Hid Case 学生 Form4.Show dldhk.Hide End Select Else MsgBox 密码不正确,请重新输入！, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = End Sub Private Sub Command3_Click() End End Sub Private Sub Label6_Click() Form13.Show End Sub Private Sub Command4_Click() Form20.Show dldhk.Hide End Sub 管理员系统功能如图1-3所示 如图1-3管理员登录界面 如图1-03管理员登录界面 新用户注册代码如下： Private Sub Command1_Click() Dim rs_tushu As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String findform = False sql = select * from