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

河南工程学院

《数据库系统原理与应用》课程设计

成果报告

学号 **************

姓名宋***

专业班级

学院计算机学院

专业课程数据库系统原理与应用

指导老师

年月日

河南工程学院计算机学院

课程设计报告书

课程设计题目：学生信息管理系统设计与开发

课程设计时间：12月25日～12月27日

课程设计地点：1502

课程设计单位：计算机学院

指导教师：学院院长：

课程设计成绩评定标准及成绩评定表学生姓名：学号：专业班级：

成绩评定：

指导教师：

年月日

目录

一、需求分析 (1)

二、系统总体设计 (2)

三、数据库设计 (5)

（一）概念结构设计 (5)

（二）逻辑结构设计 (6)

四、数据库的物理设计 (8)

五、数据库设计实现及运行 (8)

（一）数据库的创建 (8)

（二）数据表的创建 (8)

（三）视图的创建 (10)

（四）自行设计各模块中所涉及的操作语句 (10)

1．插入数据操作 (10)

2．删除数据操作 (11)

3．修改数据操作 (14)

六、系统详细设计及实现 (15)

七、设计总结及心得体会 (19)

一、需求分析

1．问题描述：

学生信息管理系统是为了提高管理效率而设计的。通过对信息的搜集及统计，为管理者提供学生信息的及时查询。从而实现学生信息管理的简单化，提高学校管理学生信息的效率。

2．系统功能描述：

系统的操作流程如下图；

图1程序流程图

系统数据流图如下：

图2系统数据流图

所需要存储的数据信息及数据字典：

1、班级信息

名字：班级信息

描述：存储全部学生班级信息的文件。

定义：班级信息=班号+班名

位置：数据库里的Class表中

2、班号

名字：班号

描述：唯一的标识班级信息中一个特定班级的关键域定义：班号=1{字符}10

位置：班级信息，学生信息

3、班名

名字：班名

描述：某个班级的名称。

定义：班名=4{字符}20

位置：班级信息

4、学生信息

名字：学生信息

描述：存储全部学生基本信息的文件。

定义：学生信息=学号+姓名+性别+专业

位置：数据库里的Student表中

5、学号

名字：学号

描述：唯一的标识学生信息中一个特定学生的关键域。定义：学号=8{字符}8

位置：学生信息，成绩信息

6、姓名

名字：姓名

描述：某个学生的名字。

定义：姓名=1{字符}8

位置：学生信息

7、课程信息

名字：课程信息

描述：存储全部学生课程信息的文件。

定义：课程信息=课号+课名+先行课+学分

位置：数据库Course表中

8、课号

名字：课号

描述：唯一的标识课程信息中一个特定课程的关键域定义：课号=1{字符}10

位置：课程信息，成绩信息

9、学分

名字：学分

描述：修完某门课所得的学分。

定义：学分=1{数字}2

位置：课程信息

10、成绩信息

名字：成绩信息

描述：存储全部学生成绩信息的文件。

定义：成绩信息=学号+课号+成绩

位置：数据库里的SC表中

11、成绩

名字：成绩

描述：某学生某门课所得的分数。

定义：成绩=1{数字}4

位置：成绩信息

二、系统总体设计系统功能模块图如下：

学生信息管理系统

登录1.0

成

绩

信

息

管

理

6.0

课

程

信

息

管

理

5.0

班

级

信

息

管

理

4.0

学

生

信

息

管

理

3.0

安

全

2.0

添

加

学

生

信

息

3.1

修

改

密

码

2.1

修

改

学

生

信

息

3.4

删

除

学

生

信

息

3.3

查

找

学

生

信

息

3.2

添

加

班

级

信

息

4.1

修

改

班

级

信

息

4.4

删

除

班

级

信

息

4.3

查

找

班

级

信

息

4.2

修

改

课

程

信

息

5.3

查

找

课

程

信

息

5.2

添

加

课

程

信

息

5.1

添

加

成

绩

信

息

6.1

修

改

成

绩

信

息

6.4

删

除

成

绩

信

息

6.3

查

找

成

绩

信

息

6.2

删

除

课

程

信

息

5.4

图3系统功能模块图

学生管理系统主要包括以下功能：

（1）用户登陆功能：管理员使用正确的账号和密码才能进入系统，确保信息的安全性，可靠性，登陆后可以对登录密码进行修改。

（2）密码修改功能：密码验证正确进入系统后可以对该用户的密码进行修改。

（3）信息管理功能：学生信息管理；课程信息管理；班级信息管理；成绩信息管理。

三、数据库设计

（一）概念结构设计

画出系统局部及合并后的整体E-R 模型如下；

班级

班号班名

图4 班级实体E-R 图

学生

系部

姓名

年龄

学号性别

图5 学生实体E-R 图

课程

先行课

学分课名

课号

图6 课程实体E-R 图

图7 整体E-R 图

对模型中所出现的实体及属性等信息加以说明。 通过分析本系统包括3类实体，分别如下： ● 班级：班级号、班名。

● 学生：学号、姓名、性别、年龄、系部。 ● 课程：课号、课名、先行课、学分。 有两个联系类型分别是：学习，归属。 （二）逻辑结构设计

根据系统整体E-R 模型，写出关系模式；并利用数据字典加以描述。该系

统共有五张表，分别是Users、Student、Course、SC、Class分别对应账户表、学生信息表、课程信息表、成绩信息表、班级信息表

模式设计如下表：

表1 账户表

表2 学生信息表

表3 课程信息表

表4 成绩信息表

表5 班级信息表

四、数据库的物理设计

为了提高在表中搜索元组的速度，在实际实现的时候应该基于某些属性建立索引。给出所建立的索引。（包括按哪些表中哪些属性按升序还是降序来创建索引及相应的T-SQL的创建语句）。

五、数据库设计实现及运行

（一）数据库的创建

T-SQL语句：create database S_C

（二）数据表的创建

（可同时在创建时定义相关的约束）

T-SQL语句：

create table Student /*创建学生表*/

(

Sno char(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 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 cn As New ADODB.Connection

Dim cn2 As String

cn2 = "driver=sql server;server=.;database=S_C"

cn.Open cn2

Dim cmd As New https://www.360docs.net/doc/9f9326637.html,mand

Dim sql As String

sql = "insert Student values('" + Text_id.Text + "','" + Text_name.Text + "','" + Text_sex.Text + "','" + Text_dept.Text + "')"

cmd.ActiveConnection = cn

https://www.360docs.net/doc/9f9326637.html,mandText = sql

cmd.Execute

MsgBox "插入成功！", vbOKOnly + vbExclamation, "信息"

End Sub

测试结果：

图14 添加学生信息测试结果界面

2．删除数据操作

功能界面：

图15 删除成绩信息功能界面

功能界面简单描述：

选择要删除的信息，点击确认删除按钮，删除对应的学生课程的成绩信息。T-SQL语句与宿主语言嵌套使用代码段：

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Cmd_first_Click()

rs.MoveFirst

display

End Sub

Private Sub Cmd_last_Click()

rs.MoveLast

display

End Sub

Private Sub Cmd_next_Click()

rs.MoveNext

If rs.EOF Then

rs.MoveLast

MsgBox "已经是最后一条记录", vbOKOnly + vbExclamation, "信息提示"

End If

display

End Sub

Private Sub Cmd_pre_Click()

rs.MovePrevious

If rs.BOF Then

rs.MoveFirst

MsgBox "已经是第一条记录", vbOKOnly + vbExclamation, "信息提示"

End If

display

End Sub

Private Sub Command1_Click()

Dim cmd As New https://www.360docs.net/doc/9f9326637.html,mand

Dim sql As String

sql = "delete SC where sno='" + Text_id.Text + "'and cno='" + Text_id2.Text + "'"

MsgBox "删除成功", vbOKOnly + vbExclamation, "信息提示"

cmd.ActiveConnection = cn

https://www.360docs.net/doc/9f9326637.html,mandText = sql

cmd.Execute

End Sub

Private Sub Form_Load()

Dim cns As String

cn2 = "driver=sql server;server=.;database=S_C"

cn.Open cn2

Dim sql As String

sql = " select * from SC"

rs.Open sql, cn, adOpenDynamic, adLockOptimistic

display

End Sub

Private Sub display()

Text_id.Text = rs(0)

Text_id2.Text = rs(1)

Text_score.Text = rs(2)

End Sub

测试结果：

图16 删除成绩信息测试结果界面3．修改数据操作

功能界面：

图17 修改课程信息功能界面功能界面简单描述：

对各个输入框内的课程信息（课程号、课程名、先行课、学分）进行修改，点击确认修改按钮，修改该课程的相关信息。

T-SQL语句与宿主语言嵌套使用代码段：

Private Sub Command1_Click()

Dim cmd As New https://www.360docs.net/doc/9f9326637.html,mand

Dim sql As String

sql = "update course set cname='" + Text_name.Text + "',cpno='" + Text_pno.Text + "',ccredit='" + Text_credit.Text + "' where cno='" + Text_id.Text + "'"

MsgBox "修改成功", vbOKOnly + vbExclamation, "信息提示"

cmd.ActiveConnection = cn

https://www.360docs.net/doc/9f9326637.html,mandText = sql

cmd.Execute

End Sub

测试结果：

图18 修改课程信息测试结果界面

六、系统详细设计及实现

登录模块的关键语句、关键代码段及关键技术说明：

Private Sub Command1_Click()

Dim cn As New ADODB.Connection

Dim cn2 As String

cn2 = "driver=sql server;server=.;database=S_C"

cn.Open cn2

Dim rs As New ADODB.Recordset

Dim sql As String

sql = "select * from Users where zh='" + Text1.Text + "'"

Set rs = cn.Execute(sql)

If rs.EOF Then

MsgBox "用户不存在！", vbOKOnly + vbExclamtion, "错误提示"

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 If

End Sub

测试与调试

图19 登录界面

修改密码模块的关键语句、关键代码段：