VB课程设计---学生成绩管理系统.docx

学生成绩管理系统一﹑功能描述成绩管理系统能有效的解决学生成绩因成绩记录的数量众多，管理复杂造成的混乱。从而对学生成绩的信息进行准确的管理。本系统的开发目的是有效的管理学生信息，实现学生信息的数据的规范化﹑自动化﹑系统化管理。本系统的主要功能及任务：使学生查询自己的成绩更加方便﹑快捷；便于学校对学生的成绩信息进行添加和管理；二﹑概要设计1﹑系统功能模块框图设计学生成绩管理登录退出编辑查询退出学号查询课程查询上下翻页删除首记录添加修改取消确定 系统流程图各模块的功能登录：实现用户通过用户名和密码进行登录的功能。编辑：实现对成绩的添加﹑删除和修改以及上下翻页等功能。查询：实现对学生的成绩按照学号或者课程进行查询退出：结束成绩管理系统。2﹑数据库设计创建一个为mybd.mdb的数据库，此数据库内包含3张表，分别是“成绩表”﹑“课程表”﹑“学生表”，表结构参照如下：学生表：学号﹑姓名﹑性别。课程表：课程号﹑课程名﹑学时﹑学分。成绩表：学号﹑课程号﹑成绩。 表一﹑学生表结构 表二﹑课程表结构 表三﹑成绩表结构三﹑详细设计1﹑主界面系统（1）窗体截图（2）功能实现 成功登录系统前禁用编辑命令和查询命令Private Sub MDIForm_Load()mnuEdit.Enabled = FalsemnuQuery.Enabled = FalseEnd Sub打开编辑窗体Private Sub mnuEdit_Click()frmEdit.Show frmEdit.WindowState = vbMaximizedEnd Sub打开登录窗体Private Sub mnuLogin_Click() frmLogin.Show frmLogin.WindowState = vbMaximized退出系统Private Sub mnuLogout_Click() End退出系统Private Sub mnuLogout_Click() EndEnd Sub退出系统Private Sub mnuLogout_Click() EndEnd SubPrivate Sub mnuLogout_Click() EndEnd Sub打开查询窗体Private Sub mnuQuery_Click()frmQuery.Show frmQuery.WindowState = vbMaximizedEnd SubPrivate Sub Picture1_Click()End Sub2﹑登录窗体登录系统界面包括用户名和密码。动态标签是由时钟控件编程实现的如果密码输入错误会提示“密码错误！” （1）窗体截图 登录界面错误提示 （2）功能实现Option ExplicitConst USERNAME As String = 1Const PASSWORD As String = 1Private Sub cmdCancel_Click() Me.HideEnd SubPrivate Sub cmdOK_Click() 检查正确的用户名和密码 If txtUserName = USERNAME And txtPassword = PASSWORD Then Me.Hide MDIfrmMain.mnuEdit.Enabled = True MDIfrmMain.mnuQuery.Enabled = True Else MsgBox 密码错误! txtPassword.SetFocus SendKeys {Home}+{End} End IfEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub Timer1_Timer()If -Label3.Left = Label3.Width ThenLabel3.Left = frmLogin.WidthElse: Label3.Left = Label3.Left - 35End IfEnd Sub3﹑学生成绩查询窗体（1）窗体截图(2)功能实现 取消 按钮的单击事件过程Private Sub cmdCancel_Click() txtID(0).Text = txtID(1).Text = End Sub确定 按钮的单击事件过程Private Sub cmdOK_Click() Dim sql As String, fld As String,