(SQL课程设计实验报告1)

滁州学院数学系
课程设计报告
设计名称：请假信息模块（职员信息管理系统） 设 计 者: 张 广 永
小组成员：何忠明、殷红路、袁文祥、张广永、 周丽
专业班级：2009级数学系信息与计算科学专业（2）班 指导老师: 袁 万 莲 设计时间： 2010/2011学年度第二学期
指导教师评语：
指导教师签名：
年 月
日
一、课程设计目的
数据库课程设计是为数据库原理及应用课程而独立开设的实践性课程,对于巩固数据库知识，加强学生的实际动手能力和提高学生综合素质十分必要。

通过本实验达到以下目的：待开发的系统的名称为企业职工在线考勤系统的请假系统;
我们以中小型企业的考勤管理业务为依托，结合科学管理的理论，设计并开发一个企业考勤管理信息系统的请假管理信息系统，提供一个科学合理的请假管理解决方案，彻底实现无纸化作业。

根据管理权限的不同，将界面分为一般职员、部门经理、系统管理员和最高管理者四个层次，系统目标如下：
（1）提供简单、方便的操作。

（2）根据企业原来的请假管理制度，为企业不同管理层次提供相应的功能。

（3）通过请假管理无纸化的实现，使企业的请假管理更加科学规范。

（4）节省请假管理的成本。

（5）提高企业请假管理的透明度和效率，防止“虚假请假“的现象。

（6）对系统提供必要的权限管理。

（7）为企业实现整体信息化的其他相关系统提供必要的数据支持。

二、课程设计任务与要求
1、任务：
学生成绩管理系统(请假信息)模块
问题描述：设计一个学生成绩管理系统的基本框架，从整体上体会软件开发过程，重点对请假信息模块进行详细设计。

2、设计要求：
1）设置职工编号、请假编号
2）设置请假开始时间
3）设置请假结束时间
4）设置请假统计天数
5）设计一个完整的数据库。

要求掌握数据库的设计的每个步骤；掌握数据设计各阶段的输入、输出、设计环境、目标和方法；熟练的使用SQL语言实现数据库以及数据库重要对象的建立、应用和维护。

三、课程设计说明书
1、
请假E-R图
2、逻辑设计：
3、物理设计
在物理结构中，数据的基本存取单位是存储记录。

有了逻辑结构以后，就可以设计存储记录结构，一个存储记录可以与多个逻辑记录相对应。

存储记录就包括记录的组成，数据项的类型和长度等
将日志文件（存放于F:\worker）和数据库（存放于F: worker_log）对象(表、索引等)分别放在不同的磁盘可以改进系统的性能。

所以系统将日志文件和数据文件存放在不同磁盘上。

4、数据库建立
1）创建数据库
CREATE DATABASE worker
ON
( NAME=worker_data,
FILENAME='F:\worker.mdf',
SIZE=3,
FILEGROWTH=1
)
LOG ON
( NAME=worker_LOG,
FILENAME='F:\worker_log.ldf',
SIZE=1,
MAXSIZE=50,
FILEGROWTH=10%
)
2）数据表的创建
（1）如图下图所示CREATE TABLE off_note
( W_id CHAR(4),
off_num char,
CONSTRAINT off_note_Prim PRIMARY KEY(W_id,off_num),
off_tim char,
offend_tim char,
off_days char,
)
5、系统功能实现
（1）下图为功能模块图
系统功能模块图
系统的功能如下：
1）请假信息子系统：
可以实现请假信息管理员和超级管理员登录管理
2）请假信息子系统：主要用于查询请假信息，其中直接查询包括按员工编号直接查询、按请假编号查询。

多条件查询可以按照要求选取所需要的信息，也可以根据仅有的条件进行查询。

（2）请假信息模块的实现
1）①请假信息一览表界面如下图
请假信息一览表界面图②添加请假界面如下图
③查找请假界面如下图
2)在请假信息条件下可以得到下图所示界面
职工信息管理系统登陆主界面
3)在职工信息管理系统登陆条件下可以得到下图所示界面
下面给出该模块的代码：
①增加请假记录（包括增加确认和退出按钮）
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=worker;"
Adodc1.RecordSource = "select * from off_note where off_num='" & Trim(Text1(0).Text) & "'" Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
MsgBox "你输入的请假编号已经存在", , "提示信息"
Else
Adodc1.Recordset.AddNew
For i = 0 To 4
Adodc1.Recordset.Fields(i) = Trim(Text1(i).Text)
Next i
Adodc1.Recordset.Update
MsgBox "增加请假记录成功", , "提示信息"
For i = 0 To 4
Text1(i).Text = ""
Next i
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
②查找请假信息（包括查询、删除和退出按钮）
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=worker;"
Adodc1.RecordSource = "select * from off_note where W_id ='" & Trim(Text1.Text) & "'" & " or off_num='" & Trim(Text1.Text) & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "未找到你请假记录", , "提示信息"
Text1.Text = ""
Else
Text2(0).Text = Adodc1.Recordset.Fields("W_id")
Text2(1).Text = Adodc1.Recordset.Fields("off_num")
Text2(2).Text = Adodc1.Recordset.Fields("off_tim")
Text2(3).Text = Adodc1.Recordset.Fields("offend_tim")
Text2(4).Text = Adodc1.Recordset.Fields("off_days")
Command3.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Adodc1.RecordSource = "select * from off_note where off_num='" & Trim(Text2(1).Text) & "'" Adodc1.Recordset.Delete
MsgBox "删除请假记录成功", , "提示信息"
Adodc1.Refresh
For i = 0 To 4
Text2(i).Text = ""
Next i
End Sub
Private Sub Form_Load()
Command3.Enabled = False
End Sub
③请假记录一览表（包括刷新、删除和增加按钮）
Private Sub Command1_Click()
Dim ID As String
ID = Adodc1.Recordset.Fields("off_num")
Adodc1.RecordSource = "select * from off_note where off_num='" & Trim(ID) & "'"
Adodc1.Recordset.Delete
MsgBox "删除请假班信息成功", , "提示信息"
Adodc1.Refresh
Adodc1.RecordSource = "select * from off_note"
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Load AddOff
AddOff.Show
End Sub
Private Sub Command3_Click()
Adodc1.RecordSource = "select * from off_note"
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=worker;"
Adodc1.RecordSource = "select * from off_note"
Set DataGrid1.DataSource = Adodc1
End Sub
7、课程设计心得体会
数据库课程设计终于结束了，刚刚开始老师说要做数据库的时候，自己好害怕，因为觉得自己这方面学的并不好，可以说几乎什么都不会。

可是几天过去了，一个管理系统终于问世了，这个系统不能说上是很完美吧，可是毕竟是出自自己的手笔，自己很高兴，也很自豪。

因为这个系统满载着自己的心血，也许在别人看来没有什么，很自然的事情，可是这是在大学里做出来的，大学里很多时候我们都荒废了自己的学业，很少学到真正的本领，可以说引以为豪的本领。

所以不管结果怎么样，我要对自己说，对我们的每位成员说：我们的好样的！
在做系统期间，我们只要有时间就会赶过来做，而且我们积极的参与，不懂的就问，不知道的就去查资料、问老师。

最后得到自己想要的结果，达到要求。

我想，要是我们很多理论课都换成这样的设计课，我想我们在短时间里会学到更多本领，而不是浪费时间，混日子，到时候学期结束一事无成。

在这里我要感谢我的团队，感谢我的老师，谢谢他们的支持，谢谢他们让我知道自己以后的路该怎么走，以后的生活该怎么过。

我坚信，我们的未来不是梦，我们的未来会更好。