SQL 数据库课程设计学生成绩系统
- 格式:doc
- 大小:589.00 KB
- 文档页数:23
SQL数据库课程设计
学生成绩管理系统设计
(本设计以VB为前台对数据库进行操作)
1.需求
本系统主要用于学校的学生成绩管理。
1.用户身份的验证
2.学生基本信息管理
3.按班级选课
4.学生成绩的管理
2.总体设计
本系统包括:标准模块、系统登录模块、主界面模块、系统管理模块、学生基本信息管理模块、选课模块、成绩管理模块。
1.标准模块
定义公共变量和过程。
2.系统登录模块
进行用户身份的验证。
3.主界面模块
作为系统总界面,供用户进行各项选择。
4.系统管理模块
用户管理及系统退出。
5.学生基本信息管理模块
学生基本信息的录入和查询。
6.选课模块
为班级选课。
7.成绩管理模块
进行学生成绩的录入及查询。
3.数据库设计及配置
3.1. 数据库设计
该数据库由以下几个表组成:
用户表、学生基本信息表、班级课程表、学生成绩表。
3.1.1用户表
3.1.2学生基本信息表
包括学号、姓名、电话、地址、班级名称、性别。
3.1.3班级课程表
3.1.4学生成绩表
3.2. 数据库中各表关系
学生基本信息表与班级课程表通过班级名称字段相关联,学生基本信息表与学生成绩表通过学号字段相关联,班级课程表与学生成绩表通过课程名称字段相关联。
4.系统实现
4.1. 标准模块(公有模块)
4.1.1标准模块中的数据定义
4.1.2标准模块代码设计
Option Explicit
Public UserName As String
Public UserType As Boolean
4.2. 系统登录模块
4.2.1说明
进行用户身份的验证。特定的用户才能登录到系统。
4.2.2窗体设计
系统登录窗体的窗体类型为Form,界面如下图所示:
主要控件属性如下表所示:
对象名类型属性值说明
FrmLogin 窗体Caption 学生成绩管
学生成绩管理系统登录窗体
理系统登录
Label1 标签Caption 用户名:
Label2 标签Caption 密码:
Text1 文本框Text 用于输入用户名
Text2 文本框Text 用于输入密码
cmdOk 命令按钮Caption 确定确定当前输入的用户名和密码,进行
用户登录。登录成功后进入主界面。
如果三次输入错误的用户和密码,程
序将自动退出
cmdCancel 命令按钮Caption 取消取消操作,退出程序
Adodc1 Adodc ConnectionString 连接所使用的数据库,
ConnectionString属性在界面中设置,
RecordSource属性在代码中设置。
4.2.3代码设计
●公共定义
Option Explicit
Dim Count1 As Integer
●窗体装载处理程序(Load)
Private Sub Form_Load()
Count1 = 0 ‘错误次数清零
End Sub
●取消按钮(cmdCancel)处理程序(Click)
Private Sub cmdCancel_Click()
Unload Me ‘系统退出
End Sub
确定按钮(cmdOk)处理程序(Click)
Private Sub cmdOk_Click()
Dim s1 As String
Dim Password As String
On Error Resume Next
If Text1.Text = "" Then ‘用户名为空,则退出
MsgBox ("用户名不能为空,请重新输入")
Text1.SetFocus
Exit Sub
End If
‘按输入的用户名进行查询
s1 = "SELECT * from 用户表 WHERE 用户名='" & Text1.Text & "'"
Adodc1.RecordSource = s1
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then ‘判断查询结果
UserName = Adodc1.Recordset.Fields(0) ‘有该用户名,即用户名正确 Password = Adodc1.Recordset.Fields(1)
UserType = Adodc1.Recordset.Fields(2)
If Password = Text2.Text Then ‘判断密码是否正确
Unload Me ‘密码正确,关闭当前窗体
FrmMain.Show ‘显示主界面窗体
Exit Sub
Else
MsgBox ("密码错误,请重新输入") ‘密码错误,提示
Text2.SetFocus
Text2.Text = ""
End If
Else ‘没有该用户名,即用户名错误 MsgBox "用户名错误,请重新输入"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
End If
Count1 = Count1 + 1 ‘错误次数累计
If Count1 >= 3 Then
MsgBox "错误超过3次,系统退出"
Unload Me
End If
End Sub