学生信息管理系统设计与开发

河南工程学院

《数据库原理及应用》课程设计

成果报告

学生信息管理系统设计与开发

学生学号：

学生姓名：

学院：计算机学院

专业班级：

专业课程：数据库原理及应用课程设计

指导教师：

年月日

课程设计指导教师评分表

目录

一、系统设计目的 (1)

二、系统实现思路 (1)

1、需求分析 (1)

2、总体设计 (1)

三、系统数据库设计 (3)

1、数据需求分析 (3)

.2、概念结构设计（ER图） (4)

3、逻辑结构设计（规范化） (5)

4、物理结构设计（索引） (6)

四、系统详细设计 (7)

五、系统调试运行 (12)

六、总结设计体会 (19)

学生信息管理系统设计与开发

一、设计目的

设计目的：建立高效利用的学生信息管理系统，实现大量信息的规范管理、科学统计和快速查询，从而更好的减少管理方面的工作量。

学生信息管理系统提供了强大的学生信息管理功能，方便管理员对学生信息进行添加、修改、删除、查询、统计等操作。因此，学生信息管理系统能够满足学校的需要，简化学生信息的管理过程，提高管理效率，是学校学生信息管理的一种重要的工具。

二、系统实现思路

1、需求分析

本次的实训课程着手于学生信息管理系统，原因在于学校的规模不断扩大，学生数量也在急剧增加，有关学生的各种信息量也在成倍增长。对于庞大的信息量，一个高效的信息管理系统是能够很大程度上提高学生管理工作的效率。

2、总体设计

系统功能分析：

系统开发的目的是实现学生信息管理系统的关系化、规范化和自动化。学生信息管理系统主要提供对学生信息的管理、班级信息的管理、课程信息的管理以及学生成绩的管理。

主要功能有：

（1）有关学生信息的输入、修改和查询。

（2）班级信息的输入、修改和查询。

（3）基本课程的输入、修改和查询。

（4）成绩的输入、修改和查询。

（5）学生成绩信息的统计。

（6）模拟用户登录操作。

系统功能模块设计：

三、系统数据库设计

1、数据需求分析

用户的需求具体体现在各种信息的提供、保存、更新和查询方面，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本的数据、数据结构以及数据处理的流程，组成一份相近的数据字典，为后面的具体设计打下良好的基础。

2、概念结构设计（ER图）

?表2 班级基本信息

表3 课程基本信息

表4 成绩基本信息

4、物理结构设计（索引）

息管理进行了比较详细的功能操作测试，先是通过菜单编辑器实现了多功能布局操作，选取了学生信息进行了窗口功能操作。例如：点击添加学生信息，可以实现添加学生信息功能，并且单独设置了模拟用户登录界面，实现了用户隐私安全性保护数据。

图7 窗口目录的创建

图8 班级信息管理创建

图9 学生信息管理创建

图10 课程信息创建

图11 成绩信息管理创建

图12 工程主窗体的创建

用户登录：

Dim a As String

Dim b As String

Dim str As String

Dim strr As String

str=InStr(Text2.Text,"'")

If str<>0 Then

MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误" Exit Sub

Else

strr=InStr(Text1.Text,"'")

If strr<>0 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=DataEnvironment1.rsuser

Dim c As String

Static nTryCount As Integer

c="select*from用户登陆where用户名='"&a&"'"

If r.State=adStateOpen Then r.Close

r.Open c

If r.EOF Then

MsgBox"无此用户!请重新登陆!!",vbCritical,"错误"

Text1.SetFocus

Text1.SelStart=0

Text1.SelLength=Len(Text1)

nTryCount=nTryCount+1

If nTryCount>=5 Then

MsgBox"您无权操作本系统！",vbCritical,"错误"

Unload Me

End If

Else

If b=Trim(r.Fields(1))Then

quanxian=Trim(r.Fields(2))

MDIForm1.Show

Unload Me Else

MsgBox"密码错误!请重新登陆!!",vbCritical,"错误"

Text2.SetFocus

Text2.SelStart=0

Text2.SelLength=Len(Text2)

nTryCount=nTryCount+1

If nTryCount>=5 Then

MsgBox"您无权操作本系统！",vbCritical,"错误"

Unload Me

End If End If

End If End If

图13

系统启

动窗体

图14

用户登

录窗体

五、系

统调

试运

行

数据库的创建与调试：

1、创建学生信息表

CREATE TABLE [dbo].[student_Info] (

[student_ID] [int] NOT NULL ,

[student_Name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,

[student_Sex] [char] (2) COLLATE Chinese_PRC_CI_AS NULL ,

[born_Date] [datetime] NULL ,

[class_NO] [int] NULL ,

[tale_Number] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,

[ru_Date] [datetime] NULL ,

[address] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

[comment] [varchar] (200) COLLATE Chinese_PRC_CI_AS NULL

) ON [PRIMARY]