数据库系统原理与应用课程设计报告书

1、 . . . 河 南 工 程 学 院数据库系统原理与应用课程设计成果报告学 号 * 姓 名 宋* 专业班级 学 院 计算机学院 专业课程 数据库系统原理与应用 指导老师 年 月 日18 / 24工程学院计算机学院课程设计报告书课程设计题目： 学生信息管理系统设计与开发 课程设计时间： 12月25日12月27日 课程设计地点： 1502 课程设计单位： 计算机学院 指导教师： 学院院长：课程设计成绩评定标准与成绩评定表学生：学号：专业班级：项目分值优秀(100x90)良好(90>x80)中等(80>x70)与格(70>x60)不与格(x<60)分项得分工作态度与完成情况2

2、0设计态度认真，作风严谨，保证设计时间并按任务书中规定的进度开展各项工作。设计态度比较认真，作风良好，能按期圆满完成任务书规定的任务。设计态度尚好，遵守组织纪律，基本保证设计时间，按期完成各项工作。设计态度尚可，能遵守组织纪律，能按期完成任务。学习马虎，纪律涣散，工作作风不严谨, 能按期完成任务。设计水平与实际能力50设计中所用的基础理论、知识和技能扎实熟练，设计能力强，能独立思考问题，主动查阅文献资料解决问题,编制代码与调试分析能力强。设计中所用的基础理论、知识和技能扎实，独立工作能力较强，能查阅文献资料解决问题，编制代码与调试分析能力较强。基础理论、知识和技能掌握较好，有一定独立工作能力，

3、设计能力较强，主要文献引用基本正确，有一定的实际动手能力。基础理论、知识和技能基本掌握，独立工作能力不强，设计能力一般，主要文献引用基本正确，实际动手能力尚可。基础理论、知识和技能掌握较差，独立工作能力不强，设计能力差，实际动手能力差。设计成果与文档资料20设计方案良好，功能完整，系统分析正确合理。文档规，表达正确、清晰，容详实，结构严谨，逻辑性强，层次清晰，撰写规。设计方案合理，功能完整，系统分析正确合理。文档基本规，表达正确、清晰，容完整，撰写基本规。设计方案基本合理，系统分析基本正确，文档基本规，表达基本清晰，容完整，符合一般要求。设计方案无原则错误，系统分析基本正确，文档容基本完整，但

4、表达不够清晰，撰写勉强达到规化要求。设计方案存在原则错误，系统分析不合理，表达不清楚，文档容空泛，多缺漏或错误，表达混乱，不符合规要求。答辩情况10能准确圆满回答问题，自述清楚。能较圆满回答问题，自述较清楚。能回答主要问题，自述基本清楚。能基本回答主要问题，自述尚清楚。回答问题错误，自述不清楚。成绩评定：指导教师：年 月 日目 录一、需求分析1二、系统总体设计2三、数据库设计5（一）概念结构设计5（二）逻辑结构设计6四、数据库的物理设计8五、数据库设计实现与运行8（一）数据库的创建8（二）数据表的创建8（三）视图的创建10（四）自行设计各模块中所涉与的操作语句101插入数据操作102删除数据操

5、作113修改数据操作14六、系统详细设计与实现15七、设计总结与心得体会19一、需求分析1问题描述：学生信息管理系统是为了提高管理效率而设计的。通过对信息的搜集与统计，为管理者提供学生信息的与时查询。从而实现学生信息管理的简单化，提高学校管理学生信息的效率。2系统功能描述：系统的操作流程如下图；图1 程序流程图系统数据流图如下：图2 系统数据流图所需要存储的数据信息与数据字典：1、班级信息名字：班级信息描述：存储全部学生班级信息的文件。定义：班级信息=班号+班名位置：数据库里的Class表中 2、班号名字：班号描述：唯一的标识班级信息中一个特定班级的关键域定义：班号=1字符10位置：班级信息，

6、学生信息3、班名名字：班名描述：某个班级的名称。定义：班名=4字符20位置：班级信息4、学生信息名字：学生信息描述：存储全部学生基本信息的文件。定义：学生信息=学号+性别+专业位置：数据库里的Student表中5、学号名字：学号描述：唯一的标识学生信息中一个特定学生的关键域。定义：学号=8字符8位置：学生信息，成绩信息6、名字：描述：某个学生的名字。定义：=1字符8位置：学生信息7、课程信息名字：课程信息描述：存储全部学生课程信息的文件。定义：课程信息=课号+课名+先行课+学分位置：数据库Course表中8、课号名字：课号描述：唯一的标识课程信息中一个特定课程的关键域定义：课号=1字符10位置

7、：课程信息，成绩信息9、学分名字：学分描述：修完某门课所得的学分。定义：学分=1数字2位置：课程信息10、成绩信息名字：成绩信息描述：存储全部学生成绩信息的文件。定义：成绩信息=学号+课号+成绩位置：数据库里的SC表中11、成绩名字：成绩描述：某学生某门课所得的分数。定义：成绩=1数字4位置：成绩信息二、系统总体设计系统功能模块图如下：图3 系统功能模块图学生管理系统主要包括以下功能： （1） 用户登陆功能：管理员使用正确的账号和密码才能进入系统，确保信息的安全性，可靠性，登陆后可以对登录密码进行修改。 （2） 密码修改功能：密码验证正确进入系统后可以对该用户的密码进行修改

8、。 （3） 信息管理功能：学生信息管理；课程信息管理；班级信息管理；成绩信息管理。三、数据库设计（一）概念结构设计画出系统局部与合并后的整体E-R模型如下；图4 班级实体E-R图图5 学生实体E-R图图6 课程实体E-R图图7 整体E-R图对模型中所出现的实体与属性等信息加以说明。通过分析本系统包括3类实体，分别如下：l 班级：班级号、班名。l 学生：学号、性别、年龄、系部。l 课程：课号、课名、先行课、学分。有两个联系类型分别是：学习，归属。（二）逻辑结构设计根据系统整体E-R模型，写出关系模式；并利用数据字典加以描述。该系统共有五表，分别是Users、Student、Course

9、、SC、Class分别对应账户表、学生信息表、课程信息表、成绩信息表、班级信息表模式设计如下表：表1 账户表属性名称属性类型是否可取空值描述主键外键zhChar(8)用户名是mmChar(8)密码表2 学生信息表属性名称属性类型是否可取空值描述主键外键SnoChar(8)学号是SnameChar(8)SsexChar(2)性别SdeptChar(20)系部表3 课程信息表属性名称属性类型是否可取空值描述主键外键ConChar(10)课号是CnameChar(20)课名CpnoChar(10)是先行课Ccreditint学分表4 成绩信息表属性名称属性类型是否可取空值描述主键外键SnoChar(

10、9)学号是是CnoChar(4)课号是GradeInt成绩表5 班级信息表属性名称属性类型是否可取空值描述主键外键ClnoChar(4)班号是CnameChar(20)班名四、数据库的物理设计为了提高在表中搜索元组的速度，在实际实现的时候应该基于某些属性建立索引。给出所建立的索引。（包括按哪些表中哪些属性按升序还是降序来创建索引与相应的T-SQL的创建语句）。五、数据库设计实现与运行（一）数据库的创建T-SQL语句：create database S_C（二）数据表的创建（可同时在创建时定义相关的约束）T- SQL语句：create table Student /*创建学生表*/(Sno ch

11、ar(8)primary key,Sname char(8),Ssex char(2),Sdept char(20);图8 学生表属性图create table Users/*创建用户表*/(zh char(8)primary key,mm char(8),);图9 用户表属性图create table Course/*创建课程表*/(Cno char(10)primary key,Cname char(20),Cpno char(10),Ccredit int);图10 课程表属性图create table SC/*创建成绩表*/(Sno char(8),Cno char(10),Grade

12、 int,primary key(Sno,cno);图11 成绩表属性图 create table Class/*创建班级表*/(Clno char(10)primary key,Cname char(20),);图12 班级表属性图（三）视图的创建（四）自行设计各模块中所涉与的操作语句1插入数据操作功能界面：图13 添加学生信息功能界面功能界面简单描述：在各个输入框填写学生信息（学号、性别、年龄、系部、班级）点击确认添加按钮，添加正确格式的学生信息，否则添加失败。T-SQL语句与宿主语言嵌套使用代码段：Private Sub Cmd_first_Click() Dim As New ADOD

13、B.Connection Dim2 As String 2 = "driver=sql server;server=.;database=S_C" .Open2 Dim cmd As New ADODB mand Dim sql As String sql = "insert Student values('" + Text_id.Text + "','" + Text_name.Text + "','" + Text_sex.Text + "','

14、" + Text_dept.Text + "')" cmd.ActiveConnection = cmd mandText = sql cmd.Execute MsgBox "插入成功！", vbOKOnly + vbExclamation, "信息"End Sub测试结果：图14 添加学生信息测试结果界面2删除数据操作功能界面：图15 删除成绩信息功能界面功能界面简单描述：选择要删除的信息，点击确认删除按钮，删除对应的学生课程的成绩信息。T-SQL语句与宿主语言嵌套使用代码段：Dim As New ADODB.Co

15、nnectionDim rs As New ADODB.RecordsetPrivate Sub Cmd_first_Click() rs.MoveFirst displayEnd SubPrivate Sub Cmd_last_Click() rs.MoveLast displayEnd SubPrivate Sub Cmd_next_Click() rs.MoveNext If rs.EOF Then rs.MoveLast MsgBox "已经是最后一条记录", vbOKOnly + vbExclamation, "信息提示" End If dis

16、playEnd SubPrivate Sub Cmd_pre_Click() rs.MovePrevious If rs.BOF Then rs.MoveFirst MsgBox "已经是第一条记录", vbOKOnly + vbExclamation, "信息提示" End If displayEnd SubPrivate Sub Command1_Click() Dim cmd As New ADODB mand Dim sql As String sql = "delete SC where sno='" + Text_

17、id.Text + "'ando='" + Text_id2.Text + "'" MsgBox "删除成功", vbOKOnly + vbExclamation, "信息提示" cmd.ActiveConnection = cmd mandText = sql cmd.ExecuteEnd SubPrivate Sub Form_Load() Dims As String 2 = "driver=sql server;server=.;database=S_C" .Op

18、en2 Dim sql As String sql = " select * from SC" rs.Open sql, adOpenDynamic, adLockOptimistic displayEnd SubPrivate Sub display() Text_id.Text = rs(0) Text_id2.Text = rs(1) Text_score.Text = rs(2)End Sub测试结果：图16 删除成绩信息测试结果界面3修改数据操作功能界面：图17 修改课程信息功能界面功能界面简单描述：对各个输入框的课程信息（课程号、课程名、先行课、学分）进行修改，

19、点击确认修改按钮，修改该课程的相关信息。T-SQL语句与宿主语言嵌套使用代码段：Private Sub Command1_Click() Dim cmd As New ADODB mand Dim sql As String sql = "update course setame='" + Text_name.Text + "',cpno='" + Text_pno.Text + "',ccredit='" + Text_credit.Text + "' whereo='

20、;" + Text_id.Text + "'" MsgBox "修改成功", vbOKOnly + vbExclamation, "信息提示" cmd.ActiveConnection = cmd mandText = sql cmd.ExecuteEnd Sub测试结果：图18 修改课程信息测试结果界面六、系统详细设计与实现登录模块的关键语句、关键代码段与关键技术说明：Private Sub Command1_Click() Dim As New ADODB.Connection Dim2 As String 2

21、= "driver=sql server;server=.;database=S_C" .Open2 Dim rs As New ADODB.Recordset Dim sql As String sql = "select * from Users where zh='" + Text1.Text + "'" Set rs =.Execute(sql) If rs.EOF Then MsgBox "用户不存在！", vbOKOnly + vbExclamtion, "错误提示"

22、 Else If Text2.Text = Trim(rs(1) Then userpwd = Text2.Text userid = Text1.Text Frm_main.Show Me.Hide Else: MsgBox "密码错误！", vbOKOnly + vbExclamation, "错误提示" End If End IfEnd Sub测试与调试图19 登录界面修改密码模块的关键语句、关键代码段：Private Sub Command1_Click() If mm0.Text = userpwd Then lb1.Visible = Fal

23、se lb2.Visible = False lb3.Visible = True mm0.Visible = False mm1.Visible = True mm2.Visible = True Command1.Visible = False Command2.Visible = True Else: MsgBox "密码错误", vbOKOnly + vbExclamation, "错误提示" End IfEnd SubPrivate Sub Command2_Click() If mm1 = mm2 Then Dim As New ADODB.Con