SQL数据库课程设计(3).doc

学生成绩管理系统设计说明 （本设计以VB为前台对数据库进行操作） 需求 本系统主要用于学校的学生成绩管理。 1. 用户身份的验证 2. 学生基本信息管理 3. 按班级选课 4. 学生成绩的管理 总体设计 本系统包括：标准模块、系统登录模块、主界面模块、系统管理模块、学生基本信息 管理模块、选课模块、成绩管理模块。 1. 标准模块 定义公共变量和过程。 2. 系统登录模块 进行用户身份的验证。 3. 主界面模块 作为系统总界面，供用户进行各项选择。 4. 系统管理模块 用户管理及系统退出。 5. 学生基本信息管理模块 学生基本信息的录入和查询。 6. 选课模块 为班级选课。 7. 成绩管理模块 进行学生成绩的录入及查询。 数据库设计及配置 1 数据库设计 该数据库由以下几个表组成： 用户表、学生基本信息表、班级课程表、学生成绩表。 1 用户表 包括用户名、密码、是否是超级用户。 "字段名称 "数据类型 " "用户名 "文本 " "密码 "文本 " "是否为超级用户 "布尔 " 2 学生基本信息表 包括学号、姓名、电话、地址、班级名称、性别。 "字段名称 "数据类型 " "学号 "文本 " "姓名 "文本 " "电话 "文本 " "地址 "文本 " "班级名称 "文本 " "性别 "文本 " 3 班级课程表 包括班级名称、课程名称。 "字段名称 "数据类型 " "班级名称 "文本 " "课程名称 "文本 " 4 学生成绩表 包括学号、课程名称、成绩。 "字段名称 "数据类型 " "学号 "文本 " "课程名称 "文本 " "成绩 "数值（单精度浮点" " "型） " 2 数据库中各表关系 学生基本信息表与班级课程表通过班级名称字段相关联，学生基本信息表与学生 成绩表通过学号字段相关联，班级课程表与学生成绩表通过课程名称字段相关联 。 系统实现 1 标准模块（公有模块） 1 标准模块中的数据定义 用于定义全局变量及过程。本系统定义了当前用户名及用户类型。 "序号 "变量名 "数据类型 " "1 "UserName "String " "2 "UserType "Boolean " 2 标准模块代码设计 Option Explicit Public UserName As String Public UserType As Boolean 2 系统登录模块 1 说明 进行用户身份的验证。特定的用户才能登录到系统。 2 窗体设计 系统登录窗体的窗体类型为Form，界面如下图所示： 主要控件属性如下表所示： "对象名 "类型 "属性 "值 "说明 " "FrmLogin"窗体 "Caption "学生成绩 "学生成绩管理系统登录窗体 " " " " "管理系统 " " " " " "登录 " " "Label1 "标签 "Caption "用户名： " " "Label2 "标签 "Caption "密码： " " "Text1 "文本框 "Text " "用于输入用户名 " "Text2 "文本框 "Text " "用于输入密码 " "cmdOk "命令按 "Caption "确定 "确定当前输入的用户名和密码 " " "钮 " " "，进行用户登录。登录成功后 " " " " " "进入主界面。如果三次输入错 " " " " " "误的用户和密码，程序将自动 " " " " " "退出 " "cmdCance"命令按 "Caption "取消 "取消操作，退出程序 " "l "钮 " " " " "Adodc1 "Adodc "ConnectionSt" "连接所使用的数据库，Connect" " " "ring " "ionString属性在界面中设置，" " " " " "RecordSource属性在代码中设 " " " " " "置。 " 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 '按输