教职员工设计管理系统

数据库课程设计

说明书

课题：教职员设计管理系统

学院：土木工程学院

班级：交通运输C101

成员：赵久志106903

马晓静106874

王广岭106892

陶玉芳106878

潘翔106889

日期：2012年6月 18日

第一章前言

1.1 SQL简介

本设计组合了SQL服务以及VB程序设计，以VB为前台程序完成的增删查。

SQL(Structured Query Language)结构化查询语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。

SQL语言包含4个部分：

数据定义语言(DDL)，例如：CREATE、DROP、ALTER等语句。

数据操作语言(DML)，例如：INSERT（插入）、UPDATE（修改）、DELETE（删除）语句。

数据查询语言(DQL)，例如：SELECT语句。

数据控制语言(DCL)，例如：GRANT、REVOKE、COMMIT、ROLLBACK等语句。

SQL语言包括三种主要程序设计语言类别的语句：数据定义语言(DDL)，数据操作语言(DML)及数据控制语言(DCL)。

1.2 SQL功能介绍

SQL 面向数据库执行查询；SQL 可从数据库取回数据；SQL 可在数据库中插入新的记录；SQL 可更新数据库中的数据；SQL 可从数据库删除记录；SQL 可创建新数据库；SQL 可在数据库中创建新表；SQL 可在数据库中创建存储过程；SQL 可在数据库中创建视图；SQL 可以设置表、存储过程和视图的权限。

1.3 VB功能介绍

Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言。

程序设计部分

2.1教职员工设计管理系统

设计数据库的名字叫做教职员工设计管理程序，包括七个模板：1信息管理2教师信息查询3授课信息管理4授课信息查询5课程信息管理6课程信息查询7退出。本程序由VB设计完成。

2.2 需求分析

数据库将要存储的数据有：

教师表

通过该软件可以简单明了的查询教师职工信息，并添加有用信息，比如，在下图1中可输入新的绝教师职工信息，单击添加便可将信息加入表中。其他按钮可由名称得知其作用，对于各个学校的教师招聘，以及退休教师职工便由此软件完成表中信息的拆删查。

2.3 逻辑结构设计

数据库建模（E_R图）

2.4 逻辑结构设计

数据库结构如下：教职员工表

2.5数据库实现过程

2.5.1创建数据库

2.5.2 VB窗体设计

（1）Private Sub chaxun_Click()

Form3.Show

End Sub

Private Sub exit_Click()

End

End Sub

Private Sub guanli_Click()

Form4.Show

End Sub

Private Sub jiaoshixinxiguanli_Click() Form2.Show

End Sub

Private Sub kechengxinxiguanli_Click() Form6.Show

End Sub

Private Sub Label11_Click()

Form3.Show

End Sub

Private Sub Label12_Click()

Form4.Show

End Sub

Private Sub Label13_Click()

Form5.Show

End Sub

Private Sub Label14_Click()

Form6.Show

End Sub

Private Sub Label15_Click()

End

End Sub

Private Sub Label16_Click()

Form7.Show

End Sub

Private Sub Label8_Click()

Form2.Show

End Sub

Private Sub 课程查询_Click()

Form5.Show

End Sub

Private Sub 课程信息查询_Click() Form7.Show

End Sub

（2）Private Sub Command1_Click() Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

End Sub

Private Sub Command2_Click()

Dim temp1

temp1 = 1000

If Adodc1.Recordset.RecordCount > 0 Then

Adodc1.Recordset.MoveLast

temp1 = Val(Adodc1.Recordset.Fields("jnumber")) + 1

Else

temp1 = temp1 + "0001"

End If

Text1.Text = temp1

End Sub

Private Sub Command3_Click()

On Error GoTo ErrorHandle

If Text1 = "" Then

MsgBox "请输入学号！", vbInformation

Else

Dim sql As String

sql = "insert into Jteacher values(" & Text1 & ",'" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text6 & "')"

cnn.Execute (sql)

Adodc1.Refresh

Text1 = ""

End If

Exit Sub

ErrorHandle:

MsgBox "学生信息输入有误，请检查学号是否重复！"

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command5_Click()

Unload Me

End Sub

Private Sub SSTab1_DblClick()

End Sub

（3）Private Sub Command1_Click()

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

End Sub

Private Sub Command2_Click()

Dim temp1

temp1 = 1000

If Adodc1.Recordset.RecordCount > 0 Then

Adodc1.Recordset.MoveLast

temp1 = Val(Adodc1.Recordset.Fields("jnumber")) + 1

Else

temp1 = temp1 + "0001"

End If

Text1.Text = temp1

End Sub

Private Sub Command3_Click()

On Error GoTo ErrorHandle

If Text1 = "" Then

MsgBox "请输入！", vbInformation

Else

Dim sql As String

sql = "insert into Jteaching values(" & Text1 & ",'" & Text2 & "','" & Text3 & "','" & Text4 & "')"

cnn.Execute (sql)

Adodc1.Refresh

Text1 = ""

End If

Exit Sub

ErrorHandle:

MsgBox "输入有误，请检查！"

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command5_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

（4）Private Sub Command1_Click()

Dim temp1

temp1 = 0

Dim sql As String

sql = ""

If Text1.Text <> "" Then

If temp1 = 0 Then

sql = sql + "where "

Else

sql = sql + " and "

End If

sql = sql + "jnumber='" + Text1.Text + "'"

temp1 = temp1 + 1

End If

If Text2.Text <> "" Then

If temp1 = 0 Then

sql = sql + "where "

Else

sql = sql + " and "

End If

sql = sql + "jname='" + Text2.Text + "'"

temp1 = temp1 + 1

End If

If Text3.Text <> "" Then

If temp1 = 0 Then

sql = sql + "where "

Else

sql = sql + " and "

End If

sql = sql + "jknumber='" + Text3.Text + "'"

temp1 = temp1 + 1

End If

If Text4.Text <> "" Then

If temp1 = 0 Then

sql = sql + "where "

Else

sql = sql + " and "

End If

sql = sql + "jcourse='" + Text4.Text + "'"

temp1 = temp1 + 1

End If

sql = "select * from Jteaching " + sql + " order by Jnumber "

Adodc1.RecordSource = sql

Adodc1.Refresh

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

（5）Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command2_Click()

Dim temp1

temp1 = 1000

If Adodc1.Recordset.RecordCount > 0 Then

Adodc1.Recordset.MoveLast

temp1 = Val(Adodc1.Recordset.Fields("jknumber")) + 1 Else

temp1 = temp1 + "0001"

End If

Text1.Text = temp1

End Sub

Private Sub Command3_Click()

On Error GoTo ErrorHandle

If Text1 = "" Then

MsgBox "请输入课程号！", vbInformation

Else

Dim sql As String

sql = "insert into Jcourse values(" & Text1 & ",'" & Text2 & "')"

cnn.Execute (sql)

Adodc1.Refresh

Text1 = ""

End If

Exit Sub

ErrorHandle:

MsgBox "学生信息输入有误，请检查学号是否重复！"

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command5_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

（6）Private Sub Command1_Click()

temp1 = 0

Dim sql As String

sql = ""

If Text7.Text <> "" Then

If temp1 = 0 Then

sql = sql + "where "

Else

sql = sql + " and "

End If

sql = sql + "jknumber='" + Text7.Text + "'"

temp1 = temp1 + 1

End If

If Text8.Text <> "" Then

If temp1 = 0 Then

sql = sql + "where "

Else

sql = sql + " and "

End If

sql = sql + "jcourse='" + Text8.Text + "'"

temp1 = temp1 + 1

End If

sql = "select * from Jcourse " + sql + " order by Jknumber "

Adodc1.RecordSource = sql

Adodc1.Refresh

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

2.5.3查询

添加或保存一个教师职工姓名一些基本信息，如下：

图1

第三章总结

课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对我们的实际工作能力的具体训练和考察过程.随着科学技术发展的日新月异，当今计算机应用在生活中可以说得是无处不在。因此作为二十一世纪的大学生来说掌握程序开发技术是十分重要的，而sql语言又是最常见，功能最强大的一种后台服务语言，因此做好sql语言课程设计是十分必要的。回顾起此次课程设计，至今我们仍感慨颇多，的确，自从拿到题目到完成整个编程，从理论到实践，在整整大半个月的日子里，可以学到很多很多的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。

通过这次课程设计使我们懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，这毕竟第一次做的，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对一些前面学过的知识理解得不够深刻，掌握得不够牢固，比如说图形用户设计中的一些按钮、标签……通过这次课程设计之后，我们把前面所学过的知识又重新温故了一遍。我们小组做的是学生成绩管理系统，虽然是很简单的一个小的程序，但对我们小组初学者来说却是一个很大的困难。虽然是第一次做课程设计，但是第一天下午在机房做了一个下午却丝毫没有进展，最主要是不知从何开始，这个时候才知道上课老师们不厌其烦的教导是多么的宝贵，这个时候才后悔上课的时候没有认真的听讲。可是现在一切都晚了，还好时间还算是充裕，只好拿出书本重新复习一下。

特别是后面的视图、存储过程、触发器的知识，几乎是一片空白。还有一些语句的没有可以熟练掌握，不过经过几天的努力，大体上把课本上的知识点看了一遍，知识点也都基本是撑握了，所以下一步就是开始正式的编程序了。不过毕竟是个没有做过，还是不知如何下手，于是就在网上下了一篇类似的程序，经过仔细的研究，终于读懂了sql语言编程的基本过程和方法。经过一波三折，终于开始正式编程。

编程是一件很枯燥很无聊的事情，但是出于完成作业，得到学分的压力，还必须强迫自己坚持下去，按照老师所说的模块化思想，分部分的进行编写,我们小组进行了严密的分工，谢平平负责收集材料，王义心负责写代码，范鑫鑫负责打印报告，经过我们共同努力最终把这个光荣而伟大的任务而完成了。而且我们明白了编程是一件高精度、模范化的事情，稍有疏乎都会影响全局，也可能因为某一处的小的错误而导致整个程序的无法运行。所以认真仔细就是非常重要的了。

开始的时候真的感觉编程是一件很无聊的事情，不过当一个程序运行成功的时候那种喜悦是无法言语的，那种成就感是无法比拟的。又经过几天的努力，终于把程序完成了，尽管程序还是有很多错误和漏洞，不过还是很高兴的。无论如何是自己的劳动成果，是自己经过努力得到的成绩，同时也是学习sql语言的一次实践作业，自己进步的证明。

本系统能够完成学生成绩管理系统的基本功能，由于时间的限制，不能再本

次课程设计中实现更完善的功能，不过通过我们小组切实的努力，该系统已经能够实现正常运行。

通过这次课程设计，使我对sql语言有了更进一步的认识和了解，要想学好它要重在实践，要通过不断的上机操作才能更好地学习它，我也发现我的好多不足之处，首先是自己对数据的基本知识不是太了解；再有对sql语言的一些视图不太了解，还有对规则和默认、一些约束的正确使用不够熟悉，还有对sql语言中经常出现的错误也不了解，通过实践的学习，我们认识到学好计算机要重视实践操作，不仅仅是学习sql语言，还有其它的语言，以及其它的计算机方面的知识都要重在实践，所以后在学习过程中，我们会更加注视实践操作，使自己便好地学好计算机。

在课程设计过程中，收获知识，提高能力的同时，我们也学到了很多人生的哲理，懂得怎么样去制定计划，怎么样去实现这个计划，并掌握了在执行过程中怎么样去克服心理上的不良情绪。因此在以后的生活和学习的过程中，我们一定会把课程设计的精神带到生活中，不畏艰难。