《1070编号学生信息管理系统设计与开发》由会员分享，可在线阅读，更多相关《1070编号学生信息管理系统设计与开发（22页珍藏版）》请在金锄头文库上搜索。
1、河南工程学院 数据库原理及应用课程设计 成果报告 学生信息管理系统设计与开发学生信息管理系统设计与开发 学生学号： 学生姓名： 学 院： 计算机学院 专业班级： 专业课程： 数据库原理及应用课程设计 指导教师： 年 月 日 课程设计指导教师评分表课程设计指导教师评分表 课程设计题目课程设计题目学生信息管理系统设计与开发 姓名姓名学号学号任务分工任务分工 201420910115VB 系统窗体设计及数据库设计 数据库代码片段筛选及整理 成 员 成 员 数据库及系统整体修改调试 评分项目及分值要素评分项目及分值要素 项 目项 目最高分最高分评 分 要 素评 分 要 素成 绩成 绩 1学习态度20
2、上机出勤及端正的学习态度、认真 刻苦程度，工作量饱满程度等 2软件设计质量40 采用的算法、设计方案，设计结果， 界面友好等方面进行综合评定 3答辩过程20 能简明扼要地阐述设计的主要内 容，能准确流利地回答各种问题 4设计报告书写10 内容按要求步骤书写，条理清晰， 表述清楚、措词得当 5实际动手能力10 熟练使用开发工具，能够迅速准确 的进行调试、纠错和运行；组长全 面负责，承担复杂的模块设计分值 就高 成 绩 评 定 成 绩 评 定 总 成 绩等 级 评 语 评 语 I 目目 录录 一、 系统设计目的.1一、 系统设计目的.1 二、 系统实现思路.1二、 系统实现思路.1 1、需求分析.
3、1 2、总体设计.1 三、 系统数据库设计.3三、 系统数据库设计.3 1、数据需求分析.3 .2、概念结构设计（ER 图）.4 3、 逻辑结构设计 （规范化）5 4、 物理结构设计 （索引）6 四、 系统详细设计.7四、 系统详细设计.7 五、 系统调试运行.12五、 系统调试运行.12 六、 总结设计体会.19六、 总结设计体会.19 1 学生信息管理系统设计与开发学生信息管理系统设计与开发 一、 设计目的一、 设计目的 设计目的：建立高效利用的学生信息管理系统，实现大量信息的规范管理、 科学统计和快速查询，从而更好的减少管理方面的工作量。 学生信息管理系统提供了强大的学生信息管理功能，
4、方便管理员对学生信息 进行添加、修改、删除、查询、统计等操作。因此，学生信息管理系统能够满足 学校的需要，简化学生信息的管理过程，提高管理效率，是学校学生信息管理的 一种重要的工具。 二、系统实现思路二、系统实现思路 1、需求分析1、需求分析 本次的实训课程着手于学生信息管理系统，原因在于学校的规模不断扩大， 学生数量也在急剧增加，有关学生的各种信息量也在成倍增长。对于庞大的信息 量，一个高效的信息管理系统是能够很大程度上提高学生管理工作的效率。 2、总体设计2、总体设计 系统功能分析：系统功能分析： 系统开发的目的是实现学生信息管理系统的关系化、规范化和自动化。学生 信息管理系统主要提供对学
5、生信息的管理、班级信息的管理、课程信息的管理以 及学生成绩的管理。 2 主要功能有： （1） 有关学生信息的输入、修改和查询。 （2） 班级信息的输入、修改和查询。 （3） 基本课程的输入、修改和查询。 （4） 成绩的输入、修改和查询。 （5） 学生成绩信息的统计。 （6） 模拟用户登录操作。 系统功能模块设计：系统功能模块设计： 图 1 系统功能模块 学生信息管理系统 学 生 信 息 添 加 学 生 信 息 查 询 学 生 信 息 修 改 班 级 信 息 添 加 班 级 信 息 查 询 班 级 信 息 修 改 课 程 信 息 添 加 课 程 信 息 查 询 课 程 信 息 修 改 成 绩 信
6、 息 添 加 成 绩 信 息 查 询 成 绩 信 息 修 改 密 码 管 理 用 户 管 理 学 生 信 息 管 理 班 级 信 息 管 理 课 程 信 息 管 理 成 绩 信 息 管 理 系 统 管 理 3 三、系统数据库设计三、系统数据库设计 1、数据需求分析、数据需求分析 用户的需求具体体现在各种信息的提供、保存、更新和查询方面，这就要求 数据库结构能充分满足各种信息的输出和输入。收集基本的数据、数据结构以及 数据处理的流程， 组成一份相近的数据字典， 为后面的具体设计打下良好的基础。 2、概念结构设计（、概念结构设计（ER 图）图） 图 2 学生实体 E-R 图 图 3 班级实体 E-
7、R 图 图 4 课程实体 E-R 图 学 生 学 生 基 本信息 学生班 级信息 学生课 程信息 学生成 绩信息 班 级 班号所在班级班主任所在教室 课 程 课程编号 课程名称课程类型课程描述 4 图 5 实体和实体之间 E-R 图 3、逻辑结构设计（规范化）、逻辑结构设计（规范化） 学生管理系统数据库中各个表格的设计如下所示： 表 1 学生基本信息 字段名数据类型大小是否为空说明 student_no 学号int4否主键 student_name 姓名char10能无 student_sex 性别char2否无 Born_date 出生日期Datatime8能无 class_no 班级号in
8、t能无 Tele_number 联系方式char10能外关键字 ru_date 入学日期Datatime能无 address 地址Varchar50能无 comment 备注Varcher200能无 学 生 班级设置 班 级 考核过程 课程设置课 程 5 表 2 班级基本信息 字段名数据类型 大小是否可空说明 class_no 班级编号 Int10否主关键字 class_name 班级名 Char20否无 profession 专业Char14能无 director 班主任charr10能外关键字 表 3 课程基本信息 表 4 成绩基本信息 字段名数据类型大小是否可空说明 exam_no 成绩
9、号 Char10否主关键字 Student_no 学号Int4否外关键字 course_no 课程号 Char10否外关键字 result 成绩Int4是无 字段名数据类型 大小是否可空说明 course_no 课程号Int否关键字 course_name 课程名Char10否无 course_score 学分Int4能无 course_time 学时int4能无 course_type 课程类型 char10能无 course_start 开课时间 char1能无 6 4、物理结构设计（索引）、物理结构设计（索引） 图 6 学生信息管理系统数据流程图 学生基本信息 ： 包括学生学号、姓名、性
10、别、出生日期、联系电话、家庭住址等。 班级基本信息：包括班级号、班级名、班主任等。 课程基本信息：包括课程编号、课程名称、课程类型、学分等。 学生成绩信息：包括学生学号、课程编号和考试成绩等。 班级设置 班级信息录入 班级信息管理 学生信息录入 班级设置 学生信息管理 成绩信息录入 成绩信息管理 班级设置 学生信息录入 课程管理 登录登录 7 四、详细系统设计四、详细系统设计 针对此次学生信息管理系统，分为了学生信息管理，班级信息管理，课程信 息管理和成绩信息管理界面，分多种功能操作，由于时间原因，简单针对学生信 息管理进行了比较详细的功能操作测试， 先是通过菜单编辑器实现了多功能布局 操作，
11、选取了学生信息进行了窗口功能操作。例如：点击添加学生信息，可以实 现添加学生信息功能，并且单独设置了模拟用户登录界面，实现了用户隐私安全 性保护数据。 图 7 窗口目录的创建 图 8 班级信息管理创建 8 图 9 学生信息管理创建 图 10 课程信息创建 9 图 11 成绩信息管理创建 图 12 工程主窗体的创建 10 用户登录：用户登录： Dim a As String Dim b As String Dim str As String Dim strr As String str=InStr(Text2.Text,) If str0 Then MsgBox不能输入非法字符！,vbCriti
12、cal+vbOKOnly,错误 Exit Sub Else strr=InStr(Text1.Text,) If strr0 Then MsgBox不能输入非法字符！,vbCritical+vbOKOnly,错误 Exit Sub End If End If a=Trim(Text1) b=Trim(Text2) If a=Then MsgBox用户名不能为空!,vbCritical,错误 Text1.SetFocus Text1.SelStart=0 Text1.SelLength=Len(Text1) Else Dim r As New ADODB.Recordset Set r=Data
13、Environment1.rsuser Dim c As String Static nTryCount As Integer c=select*from 用户登陆 where 用户名=Server=zcj;UID=sa;PWD=sa;Database=Stude nt” cn.Open ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(ss(0) Then cn.Execute SQL Msg = ss(0) & _ “查询成功” Else Set rS = NewADODB.Recordset rS.Open Trim$(SQL), cn,adOpenKeyset, adLockOptimistic Set QuerySQL = rS Msg = “查询到” & rS.RecordCount & “ 条记录” End If QuerySQL_Exit: Set rS = Nothing Set cn = Nothing Exit Function QuerySQL_Error: Msg = “查询错误: “ & Err.Description Resume QuerySQL_Exit End Function
