淮南师范学院职工信息管理系统课程设计(共14页)

1、精选优质文档-倾情为你奉上学号2012-2013学年 第二学期数据库原理课程设计报告题 目 ： 职工考勤信息管理系统 专 业 ： 计算机科学与技术 班 级 ： 09(2)班 姓 名 ： 璩勇 指导教师： 江涛 成 绩 ： 计算机与信息工程系2013年6月27日专心-专注-专业目录职工考勤信息管理系统1 设计内容及要求1.1应用背景介绍 职工考勤信息管理系统是为实现职工考勤信息管理的现代化，运用Visual Basic 6.0数据库管理系统开发的应用软件。它旨在通过职工基本信息、职工加班信息、职工出勤信息、职工出差信息和职工请假信息这五方面完成对职工的考勤。利用计算机技术做出这样一个系统就节省了

2、很多人力资源，实现了科学、高效的职工考勤信息管理目标。1.2课程设计内容 选择熟悉软件开发工具设计一个小型的职工考勤管理信息系统，具有职工信息录入、快速方便的对职工考勤情况进行管理、输入、输出、查询的所需操作，使散乱、动态的职工考勤情况档案能够具体化，直观化、合理化等功能。 1.3 课程设计要求1、给出设计需求分析；2、准备概念设计、逻辑设计、物理设计、编程、调试等；3、完成应用程序的编写、调试、测试过程。2 需求设计2.1.数据需求职工考勤信息管理系统需要完成功能主要有：职工基本信息的输入，包括职工编号、职工姓名、职称等。职工基本信息的添加、查询、修改、删除，包括编号、姓名、职务、角色等。职

3、工出勤信息添加、查询、修改、删除，包括姓名、编号、上班打卡时间、下班打卡时间，缺勤记录等。职工加班信息的添加、删除，包括姓名、编号、加班开始时间、加班结束时间等。职工出差信息的添加、删除，包括姓名、编号、出差开始时间、出差结束时间、统计出差天数职工请假信息的添加、删除，包括姓名、编号、请假开始时间、请假结束时间、统计请假天数2.2数据流图管理员登录职工基本信息信息查询删改职工信息查询考勤信息添加页面考勤查询个人页面信息查询普通职工2.3数据字典 程序运行时输入数据,添加到数据库的各个表中。数据库中包含系统内部有关的数据结构与操作规程。具体可包括：职工基本信息表，职工出勤信息表，职工加班信息表，

4、职工出差信息表，职工请假信息表。数据流字典（1）职工基本信息实体管理子系统查询条件：可按照姓名和编号分别进行查询。查询结果：包括职工姓名、职工编号、性别、年龄、职称。处理：按照条件（姓名或编号）进行查询操作，然后根据需要对其进行修改删除等操作。 (2) 职工出勤信息实体管理子系统查询条件：可按照姓名和编号分别进行查询。查询结果：包括职工姓名、职工编号、上班打卡时间、下班打卡时间和缺勤记录。处理：按照条件（姓名或编号）进行查询操作，然后根据需要对其进行修改删除等操作。 (3) 登录实体管理子系统输入：包括用户名和口令。输出：进入职工考勤管理信息系统功能菜单选择界面。处理：按照所需选择对应的操作。

5、 （4）职工加班信息管理子系统 查询条件：可按照姓名和编号分别进行查询。查询结果：包括职工姓名、职工编号、加班开始时间、加班结束时间和统计加班时间。处理：按照条件（姓名或编号）进行查询操作，然后根据需要对其进行修改删除等操作。（5）职工出差信息管理子系统 查询条件：可按照姓名和编号分别进行查询。查询结果：包括职工姓名、职工编号、出差开始时间、出差结束时间和统计出差天数。处理：按照条件（姓名或编号）进行查询操作，然后根据需要对其进行修改删除等操作。（6）职工请假信息管理子系统 查询条件：可按照姓名和编号分别进行查询。查询结果：包括职工姓名、职工编号、请假开始时间、请假结束时间和统计请假时间。处理

6、：按照条件（姓名或编号）进行查询操作，然后根据需要对其进行修改删除等操作。3 概念设计职工考勤信息管理系统3.1 流程图职工基本信息职工出勤信息职工出差信息职工加班信息删改请假信息请假信息查询删改加班信息加班信息查询删改出差信息出差信息查询删改出勤信息出勤信息查询职工信息查询删改职工信息职工请假信息用户登录信息用户名口令3.2 E-R图出勤管理职工编号性别年龄出勤记录信息上班打卡时间下班打卡时间缺勤记录请假管理加班管理请假信息加班信息请假开始时间请假结束时间统计请假天数加班开始时间加班结束时间统计加班天数出差管理出差信息出差开始时间出差结束时间总共出差天数职工信息职工考勤管理信息系统职工姓名职

7、称4 逻辑设计4.1数据库表逻辑结构是独立于任何一种数据模型的信息结构。逻辑结构的任务是把概念结构设计阶段设计好的基本E-R图转化为宜选用的DBMS所支持的数据模型相符合的逻辑结构，并对其进行优化。设计职工考勤管理信息系统管理数据库，包括职工基本信息表，职工出勤信息表，职工加班表，职工出差表，职工请假表五个关系,考虑到数据库完整性，其关系模式中对每个实体定义的属性如下：职工信息表（职工编号、职工姓名、性别、年龄、职称）职工出勤信息表（职工编号、姓名、上班打卡时间、下班打卡时间、缺勤记录)职工出差信息包括：姓名，编号，出差开始时间，出差结束时间，统计出差天数。 职工加班信息包括：姓名，编号，加班

8、开始时间，加班结束时间，统计加班时间。 职工请假信息包括：姓名，编号，请假开始时间，请假结束时间，统计请假时间。职工基本信息表：user1列名数据类型是否允许为空默认值职工编号char (20)不允许职工姓名varchar (30)不允许性别char (2)不允许年龄Int (4)不允许职称varchar (50)不允许职工出勤信息表：chuqin列名数据类型是否允许为空姓名varchar (30)不允许编号char (20)允许上班打卡时间char (10)允许下班打卡时间char (10)允许缺勤记录char (10)允许职工加班信息表：jiaban列名数据类型是否允许为空姓名varcha

9、r (30)不允许编号char (20)允许加班开始时间char (10)允许加班结束时间char (10)允许统计加班天数char (10)允许职工出差信息表：chucha列名数据类型是否允许为空姓名varchar (30)不允许编号char (20)允许出差开始时间char (10)允许出差结束时间char (10)允许统计出差天数char (10)允许职工请假信息表：qingjia列名数据类型是否允许为空姓名varchar (30)不允许编号char (20)允许请假开始时间char (10)允许请假结束时间char (10)允许统计请假天数char (10)允许5 物理实施5.1 SQ

10、L Server设计的数据库1.职工基本信息表代码:if exists (select * from dbo.sysobjects where id = object_id(N'dbo.职工信息管理表') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table dbo.职工信息管理表GOCREATE TABLE dbo.职工信息管理表 (职工编号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,职工姓名 char (20) COLLATE Chinese_PRC_CI

11、_AS NOT NULL ,性别 char (2) COLLATE Chinese_PRC_CI_AS NOT NULL ,年龄 int NOT NULL ,职称 varchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON PRIMARYGO2.职工出勤信息管理表代码:if exists (select * from dbo.sysobjects where id = object_id(N'dbo.职工出勤信息管理表') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop

12、 table dbo. 职工出勤信息管理表GOCREATE TABLE dbo. 职工出勤信息管理表 (姓名 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,编号 char (10) COLLATE Chinese_PRC_CI_AS NULL ,上班打卡时间 char (10) COLLATE Chinese_PRC_CI_AS NULL ,下班打卡时间 char (10) COLLATE Chinese_PRC_CI_AS NULL， 缺勤记录 char (10) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMAR

13、YGO3.职工出差信息管理表代码表:if exists (select * from dbo.sysobjects where id = object_id(N'dbo.职工出差信息管理表') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table dbo. 职工出差信息管理表GOCREATE TABLE dbo. 职工出差信息管理表 (姓名 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,编号 char (10) COLLATE Chinese_PRC_CI_AS

14、NULL 出差开始时间 char (10) COLLATE Chinese_PRC_CI_AS NULL ,出差结束时间 char (10) COLLATE Chinese_PRC_CI_AS NULL， 统计出差天数 char (10) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARYGOif exists (select * from dbo.sysobjects where id = object_id(N'dbo.职工加班信息管理表') and OBJECTPROPERTY(id, N'IsUserTable') =

15、1)drop table dbo. 职工加班信息管理表GO4.职工出差信息管理表代码表:CREATE TABLE dbo. 职工加班信息管理表 (姓名 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,编号 char (10) COLLATE Chinese_PRC_CI_AS NULL 加班开始时间 char (10) COLLATE Chinese_PRC_CI_AS NULL ,加班结束时间 char (10) COLLATE Chinese_PRC_CI_AS NULL， 统计加班时间 char (10) COLLATE Chinese_PRC

16、_CI_AS NULL ) ON PRIMARYGO5.职工请假信息管理表代码：if exists (select * from dbo.sysobjects where id = object_id(N'dbo.职工请假信息管理表') and OBJECTPROPERTY(id, N'IsUserTable') = 1)drop table dbo. 职工请假信息管理表GOCREATE TABLE dbo. 职工请假信息管理表 (姓名 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,编号 char (10) COLL

17、ATE Chinese_PRC_CI_AS NULL 请假开始时间 char (10) COLLATE Chinese_PRC_CI_AS NULL ,请假结束时间 char (10) COLLATE Chinese_PRC_CI_AS NULL， 统计请假天数 char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO6 管理模块6.1登陆界面程序代码说明Private Sub Command1_Click()Adodc1.RecordSource = "select * from 管理员 where 用户名='"

18、; + Text1.Text + "'" '获取数据库中的内容     Adodc1.Refresh    Static itimes As Integer    If Adodc1.Recordset.RecordCount > 0 Then '如果记录数大于零       '验证密码       If Te

19、xt2.Text = Adodc1.Recordset.Fields("密码") Then           Load 主界面           主界面.Show 1           Unload Me    &

20、#160;   Else                                              &#

21、160;                            If Text2.Text <> Adodc1.Recordset.Fields("密码") Then          &

22、#160;    MsgBox "密码错误,请重新输入！", vbCritical, "系统提示"               itimes = itimes + 1               Text2.Text =

23、 ""               Text2.SetFocus           End If       End If   Else       

24、;MsgBox "管理员不存在,请重新输入！", vbCritical, "系统提示"       itimes = itimes + 1       Text1.Text = ""       Text2.Text = ""       

25、Text1.SetFocus   End If   If itimes = 3 Then     '错误3次，退出系统        MyMsg = MsgBox("输入错误超过3次,请向系统管理员查询！", vbCritical, "系统提示")       If MyMsg = vbOK Then End&

26、#160;  End IfEnd SubPrivate Sub Command2_Click()                                         &

27、#160;      EndEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "职工管理.mdb;Persist Security Info=False"   End Sub6.2职工考勤信息管理系统的主界面程序代码说明：Private Sub czhy_Click()职工信息管理.Show 1End Sub Private S