河南工程学院
《数据库系统原理与应用》课程设计
成果报告
学生档案管理系统设计与开发
学生学号：
学生姓名：
学院：
专业班级：
专业课程：
指导教师：
2014年1 月4 日
课程设计指导教师评分表
课程设计题目学生档案管理系统设计与开发
成员
姓名学号任务分工
陈永红201210913226 管理员账号的注册、登录和学生信息的添加武涛涛201210913233 主界面的设计、管理员账号的修改和系统帮助韩晓玉201210913250 管理员账号的注销、学生信息的删除和总览
评分项目及分值要素
成绩评定
项目最高分评分要素成绩1．学习态度20
上机出勤及端正的学习态度、
认真刻苦程度，工作量饱满程
度等
2．软件设计质量40
采用的算法、设计方案，设计
结果，界面友好等方面进行综
合评定
3．答辩过程20
能简明扼要地阐述设计的主要
内容，能准确流利地回答各种
问题
4．设计报告书写10
内容按要求步骤书写，条理清
晰，表述清楚、措词得当
5．实际动手能力10
熟练使用开发工具，能够迅速
准确的进行调试、纠错和运行；
组长全面负责，承担复杂的模
块设计分值就高
总成绩等级
评语
目录
一、需求分析 (1)
（一）问题描述 (1)
（二）系统功能描述 (1)
二、概念结构设计 (2)
三、逻辑结构设计 (3)
四、数据库的的物理设计 (4)
五、数据库设计实现及运行 (4)
（一）数据库的创建 (4)
（二）数据表的创建 (4)
（三）自行设计各模块中所涉及的操作语句 (5)
六、系统详细设计及实现 (11)
（一）开发环境 (11)
（二）系统各个功能的实现 (11)
七、实训总结及心得体会 (25)
学生档案管理系统设计与开发
一、需求分析
（一）问题描述
当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识吗，它进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对学生档案信息进行管理，有着手工管理所无法比拟的优点。例如：对学生档案的添加、删除、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率。
本次数据库实训要求在所有课题中选择自己感兴趣的题，并完成课题要求。我们组选择的是学生档案管理系统，运用数据库基本理论与应用知识，在微机SQL server的环境上建立一个数据库应用系统。要求把现实世界的事物及事物之间的复杂关系抽象为信息世界的实体及实体之间联系的信息模型，再转换为机器世界的数据模型和数据文件，并对数据文件实施检索、更新和控制等操作。
1．用e-r图设计学生档案管理系统的信息模型；
2．设计相应的关系模型，确定数据库结构；
3．.实现应用程序设计、编程、优化功能；
4．对系统的各个应用程序进行集成和调试，进一步优化系统功能、改善系统用户界面完成实验内容所指定的各项要求；
（二）系统功能描述
1．管理员能够实现对整个学生信息的查询、添加和删除操作。
2．管理员可以注册、修改、注销自己的账户，从而改变自己对学生档案的操作权限。
本人负责的是管理员对自己账号的注册和对学生信息的添加。其各个操作的流程图如下：
图1.1 操作流程图
分工说明：
组长：陈永红：负责管理员账号的注册、登录和学生信息的添加。
组员：武涛涛：负责主界面的设计、管理员账号的修改和系统帮助。
韩晓玉：负责管理员账号的注销、学生信息的删除和学生信息总览。
二、概念结构设计
1．学生档案E-R图
图2.1 学生实体E-R 图
2．管理员E-R 图
图2.2 管理员实体E-R 图
三、逻辑结构设计
根据E-R 图将其转化为如下数据实体： 1．管理员信息admin 表：
表1 admin 表
数据名称 数据类型 数据宽度 Name Char 20 Password
Char
6
管理员
姓名
密码
2．学生档案student表：
表2 student表
数据名称数据类型数据宽度
学号Char 15
姓名Char 30
性别Char 10
班级Char 8
专业Char 50
院系Char 50
入学时间Char 12
籍贯Char 20
民族Char 8
政治面貌Char 20
家庭住址Char 50
联系方式Char 15
四、数据库的的物理设计
为了提高在表中搜索元组的速度，在每个表中建立相应的索引：ALTER TABLE `student` ADD INDEX `学生学号` ( `学号` )
五、数据库设计实现及运行
（一）数据库的创建
T-SQL语句：
CREATE DATABASE ‘111’;
（二）数据表的创建
T-SQL语句：
admin表创建：
CREATE TABLE admin
(
name char(6) not null,
Password char(6)
)
Student表创建：
CREATE TABLE Student
(
学号char(15) not null,
姓名char(30),
性别char(10),
班级char(8),
专业char(50),
院系char(50),
入学时间char(12),
籍贯char(20),
民族char(8),
政治面貌char(20),
家庭住址char(50),
联系方式char(15)
)
（三）自行设计各模块中所涉及的操作语句1.管理员账号注册操作
图5.1管理员注册界面
功能界面简单描述：
本模块实现管理员账号注册，管理员通过输入姓名、密码和再次输入密码点击注册即可完成注册，便可对学生档案进行管理。
Private Sub Command1_Click()
If Text3.Text <> Text2.Text Then
MsgBox "两次输入的新密码不同，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Text2.Text = ""
Text3.Text = ""
Exit Sub
End If
Adodc1.ConnectionString="Driver=SQLServer;Server=(local);UID=sa;PWD=; Database=111"
Adodc1.RecordSource = "select * from admin where name "
Adodc1.Recordset.Find "name ='" & Text1.Text & "'"
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("name") = Text1.Text
Adodc1.Recordset.Fields("password") = Text2.Text Adodc1.Recordset.Update
Adodc1.Recordset.Close
MsgBox "注册成功！"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End Sub
Private Sub Command2_Click()
form2.Show
form6.Hide
End Sub
测试结果：
图5.2 添加成功
2.登录操作
图5.3 登录学生管理系统
功能描述：
本模块实现管理员登录学生管理系统，管理员通过输入姓名和密码，点击登录按钮即可进入学生管理系统主界面。
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cm As https://www.doczj.com/doc/3316349815.html,mand
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set cm = New https://www.doczj.com/doc/3316349815.html,mand
Dim strcnn As String
strcnn = "driver={sql server};server=(local);database=111;"
cn.Open strcnn
cm.ActiveConnection = cn
strsql = "select * from admin where name='" + Text1.Text + "' and password='" + Text2.Text + "'"
Set rs = cn.Execute(strsql)
If rs.EOF = False Then
form7.Show
Unload Me
Else
MsgBox ("用户名或密码错误,请重新登录!")
End If
End Sub
Private Sub Command2_Click()
form6.Show
End Sub
Private Sub Command3_Click()
End
End Sub
3.学生信息添加操作
图5.4 添加学生信息
功能界面简单描述：
本模块实现管理员对学生信息的添加，管理员通过录入学生的姓名、性别、学号等信息，点击添加按钮即可完成对学生信息的添加。
Private Sub Command1_Click()
Adodc1.ConnectionString="Driver=SQLServer;
Server=(local);UID=sa;PWD=;Database="111"
https://www.doczj.com/doc/3316349815.html,mandType = adCmdText
Adodc1.RecordSource = "select * from 学生档案" If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("姓名") = Text1.Text Adodc1.Recordset.Fields("性别") = Text2.Text Adodc1.Recordset.Fields("学号") = Text3.Text Adodc1.Recordset.Fields("院系") = Text4.Text Adodc1.Recordset.Fields("专业") = Text5.Text Adodc1.Recordset.Fields("班级") = Text6.Text Adodc1.Recordset.Fields("入学时间") = Text7.Text Adodc1.Recordset.Fields("籍贯") = Text8.Text Adodc1.Recordset.Fields("民族") = Text9.Text Adodc1.Recordset.Fields("政治面貌") = Text10.Text Adodc1.Recordset.Fields("家庭地址") = Text11.Text Adodc1.Recordset.Fields("联系方式") = Text12.Text Adodc1.Recordset.Update
Text1.Text = " "
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
MsgBox "添加成功！"
Adodc1.Refresh
form2.Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Else: Adodc1.Recordset.MoveFirst
MsgBox "该联系人已存在，不能重复添加！"
End If
End Sub
Private Sub Command3_Click()
form7.Show
form4.Hide
End Sub
测试结果：
图5.5 学生信息添加成功
六、系统详细设计及实现
（一）开发环境
本次试验利用集成开发环境Microsoft Visual Basic 6.0 软件。（二）系统各个功能的实现
1．管理员账号注册
本实验管理员登陆界面如下：
图6.1 管理员账号注册页面
注册管理员信息，成功以后可登陆对学生信息进行增删改查。关键代码如下：Private Sub Command1_Click()
If Text3.Text <> Text2.Text Then
MsgBox "两次输入的新密码不同，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Text2.Text = ""
Text3.Text = ""
Exit Sub
End If
Adodc1.ConnectionString="Driver=SQLServer;Server=(local);UID=sa;PWD=; Database=111"
Adodc1.RecordSource = "select * from admin where name "
Adodc1.Recordset.Find "name ='" & Text1.Text & "'"
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("name") = Text1.Text
Adodc1.Recordset.Fields("password") = Text2.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Close
MsgBox "注册成功！"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End Sub
2．登录界面
本次实验的登录界面如下：
图6.2 管理员登录页面
输入管理员的姓名和密码即可进入登录主页面，对学生的档案信息进行相关操作。关键代码如下：
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cm As https://www.doczj.com/doc/3316349815.html,mand
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set cm = New https://www.doczj.com/doc/3316349815.html,mand
Dim strcnn As String
strcnn = "driver={sql server};server=(local);database=111;"
cn.Open strcnn
cm.ActiveConnection = cn
strsql = "select * from admin where name='" + Text1.Text + "' and password='" + Text2.Text + "'"
Set rs = cn.Execute(strsql)
If rs.EOF = False Then
form7.Show
Unload Me
Else
MsgBox ("用户名或密码错误,请重新登录!")
End If
End Sub
3.主界面
管理员登录后进入主界面如下：
图6.3 主界面
管理员进入主界面以后可以对学生信息进行查询、修改、添加、基本信息预览等操作。关键代码如下：
Private Sub Command1_Click()
form1.Show
form7.Hide
End Sub
Private Sub Command10_Click() Adodc1.Recordset.MoveLast
End Sub
Private Sub Command2_Click()
form4.Show
form7.Hide
End Sub
Private Sub Command3_Click()
form3.Show
form7.Hide
End Sub
Private Sub Command4_Click() Form9.Show
form7.Hide
End Sub
Private Sub Command6_Click()
form2.Show
form7.Hide
End Sub
Private Sub Command7_Click() Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command8_Click() Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command9_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub 基本信息预览查询_Click() Form9.Show
End Sub
Private Sub 结束_Click()
End
End Sub
Private Sub 密码修改_Click()
form3.Show
form7.Hide
End Sub
Private Sub 系统帮助_Click()
form8.Show
form7.Hide
End Sub
Private Sub 信息添加_Click()
form4.Show
form7.Hide
End Sub
Private Sub 信息总览_Click()
form1.Show
form7.Hide
End Sub
Private Sub 账号注册_Click()
form6.Show
form7.Hide
End Sub
Private Sub 账户注销_Click()
form5.Show
form7.Hide
End Sub
Private Sub 重新登录_Click()
form2.Show
form7.Hide
End Sub
4．添加学生信息
添加学生信息的显示界面如下：
图6.4 添加学生信息页面
进入添加页面以后，管理员可以添加学生的相关信息，包括学号、姓名、班级、政治面貌、家庭住址等相关信息。关键代码如下：
Private Sub Command1_Click()
Adodc1.ConnectionString="Driver=SQLServer;
Server=(local);UID=sa;PWD=;Database="111"
https://www.doczj.com/doc/3316349815.html,mandType = adCmdText