职工考勤管理信息系统-课程设计报告

1、精选优质文档-倾情为你奉上学号数据库系统概论课程设计报告题目：职工考勤管理信息系统专业：网络工程班级：姓名：指导教师：成绩：计算机学院2017年12月8日专心-专注-专业目录需求分析1.1 系统目标以及功能为了配合人事管理系统的使用，充分地记录员工的出勤情况，可以开发考勤管理系统。进行出勤情况统计的过程中，要充分考虑到各种缺勤情况的类别。此系统其主要功能有职工信息，包括职工编号、职工姓名、性别、年龄、职称等；出勤记录信息，包括上班打卡时间，下班打开时间，缺勤记录等；出差信息，包括出差起始时间、结束时间、统计总共天数等；请假信息，包括请假开始时间，结束时间，统计请假天数等；加班信息，包括加班开始

2、时间、结束时间、统计加班总时间。² 实现企业员工出勤情况的详细的、系统的管理。² 使得企业员工的管理更加现代化、科学化、自动化，并可以很好地督促企业员工更好地为企业谋福利。² 可以使用考勤机，使得企业的管理更加现代化。1.2 系统功能分析² 员工考勤系统能够和考勤机相连，可以把数据导入数据库中，从而完成自动、高效、科学的考勤信息的输入。² 可以完成员工考勤信息的手工输入、修改、删除等操作。² 可以设定缺勤的类型，如病假、事假等。1.3系统E-R图姓名上班时间性别编号考勤记录管理考勤职员 M 1 下班时间 n所在部门编号1.4信息分析这

3、个系统的主要功能有：数据入库、查询、修改和删除等。本系统的主要功能由以下几个部分组成：员工基本信息模块 输入：员工信息 功能：对员工基本信息的查询、修改、删除和查询。 员工考勤管理模块 输入：员工考勤情况 功能：完成对员工的考勤以及对考勤情况的查询、统计和删除员工考勤等情况 员工出差模块输入：员工出差时间以及回来的时间 功能：完成对员工出差信息的详细记录，也是为了完善员工考勤信息员工加班模块输入：员工加班开始以及结束时间 功能：完成对员工加班信息的详细记录，也是为了完善员工考勤信息员工请假模块输入：员工请假时间以及回来的时间功能：完成对员工请假信息的详细记录，也是为了完善员工考勤信息；1.5功

4、能图界面增加职工编号，姓名，性别，年龄，职称查询按职工编号，姓名，进行查询，删除先输入要删除的职工编号，姓名，显示各种记录，选择要删除的记录进行删除修改先输入要删除的职工编号，姓名，显示各种记录，选择要修改的记录进行修改1.6模块分析 在这个系统中各个模块之间独立工作，但是相互补充，考勤表，记录了员工们的出勤信息，但是不包括出差和请假，加班的员工信息，所以就需要出差和请假，加班这两个模块来补充这一缺陷。最后就是留言板，主要是为了给员工们一个自由言论的机会，这一也对公司是一件有意义的事情。考勤系统 员工信息考勤信息出差信息请假信息加班信息管理员信息图1.3.1系统功能模块图1.7员工出勤和出差的

5、E-R图职工姓名出差请假日期出差、请假员工出差、请假信息出差或请假总天数职员编号结束时间加班加班总时间加班结束时间加班记录加班开始时间职工编号职工姓名概念结构设计2.1关系模式分析2.1.1实体关系模式：职工（编号，姓名，性别，年龄，职称，）出勤记录（上班打卡时间，下班打卡时间，缺勤记录）出差记录（出差起始时间，出差结束时间，出差总天数）请假记录（请假开始时间，请假结束时间，请假天数）加班记录（加班开始时间，加班结束时间，加班总时间）2.1.2联系的关系模式：报到（编号，姓名，上班打卡时间，下班打卡时间，缺勤记录）安排（编号，姓名，出差起始时间，出差结束时间，出差总天数）申请（编号，姓名，请假

6、开始时间，请假结束时间，请假天数）参加（编号，姓名，加班开始时间，加班结束时间，加班总时间）2.2下面是本次设计的每一个表所涉及的数据：2.2.1员工信息表：列名说明数据类型备注number员工编号Int主键name员工姓名Varchar(50)可以为空sex员工性别Char（4）可以为空age员工年龄Varchar(50)可以为空title员工职称Varchar(50)可以为空2.2.2请假信息表：列名说明数据类型备注number员工编号Int主键name员工姓名Varchar(50)主键leavebegin请假开始时间Dt可以为空leaveend请假结束时间Dt可以为空Leavedays请

7、假总天数Int可以为空2.2.3出差信息表：列名说明数据类型备注number员工编号Int主键name员工姓名Varchar(50)主键errondbegin出差开始时间Dt可以为空errondend出差结束时间Dt可以为空erronddays出差总天数Int可以为空2.2.4加班信息表：列名说明数据类型备注number员工编号Int主键name员工姓名Varchar(50)主键addbegin加班开始时间Dt可以为空addend加班结束时间Dt可以为空Addtime（h）加班总时间Int可以为空2.2.5日出勤信息表：列名说明数据类型备注number员工编号Int主键name员工姓名Varc

8、har(50)主键Shangban上班时间Dt可以为空Xiaban下班时间Dt可以为空Queqin缺勤情况Varchar(50)可以为空2.2.6管理员信息表列名说明数据类型备注name员工姓名Varchar(50)主键passward密码Int不可以为空部分代码和截图3.1管理员登录界面代码Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command1_Click()Set c

9、onn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As StringIf Text1.Text = "" Then MsgBox "请输入用户名" Text1.SetFocus Exit SubEnd If sqlcmd = "SELECT * FROM guan WHERE name='"

10、& Text1.Text & "'" Dim rss As New ADODB.Recordset rss.CursorLocation = adUseClient rss.Open sqlcmd, conn, adOpenStatic, adLockReadOnly If rss.EOF Then MsgBox "输入的用户名不对，请重新输入", vbOKOnly, "提示" Text1.SetFocus Exit Sub End If If Trim(rss.Fields("passward&qu

11、ot;) <> Text2.Text Then MsgBox "输入的密码不对，请重新输入", vbOKOnly, "提示" Text2.SetFocus Exit Sub Else user = Text1.Text pwd = Text2.Text Form2.Show Unload Me End If rss.CloseEnd Sub截图3.2职工考勤系统界面Option ExplicitPrivate Sub chuchai_add_Click()Form4.ShowEnd SubPrivate Sub chuchai_change_

12、Click()Form5.ShowEnd SubPrivate Sub chuchai_chaxun_Click()Form6.ShowEnd SubPrivate Sub chuchai_delete_Click()Form7.ShowEnd SubPrivate Sub chuqin_add_Click()Form20.ShowEnd SubPrivate Sub chuqin_change_Click()Form21.ShowEnd SubPrivate Sub chuqin_chaxun_Click()Form22.ShowEnd SubPrivate Sub chuqin_delet

13、e_Click()Form23.ShowEnd SubPrivate Sub exit_Click()Unload MeEnd SubPrivate Sub guan_change_Click()Form3.ShowEnd SubPrivate Sub jiaban_add_Click()Form16.ShowEnd SubPrivate Sub jiaban_change_Click()Form17.ShowEnd SubPrivate Sub jiaban_chaxun_Click()Form18.ShowEnd SubPrivate Sub jiaban_delete_Click()Fo

14、rm19.ShowEnd SubPrivate Sub qingjia_add_Click()Form8.ShowEnd SubPrivate Sub qingjia_change_Click()Form13.ShowEnd SubPrivate Sub qingjia_chaxun_Click()Form14.ShowEnd SubPrivate Sub qingjia_delete_Click()Form15.ShowEnd SubPrivate Sub yuangong_add_Click()Form10.ShowEnd SubPrivate Sub yuangong_change_Cl

15、ick()Form11.ShowEnd SubPrivate Sub yuangong_chaxun_Click()Form9.ShowEnd SubPrivate Sub yuangong_delete_Click()Form12.ShowEnd Sub截图3.3员工信息添加界面代码Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provid

16、er=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM yuangong"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3rss.AddNewrss.Fields(0) = Text1.Textrss.Fields(1) = Text2.Textr

17、ss.Fields(2) = Text3.Textrss.Fields(3) = Text4.Textrss.Fields(4) = Text5.Textrss.UpdateMsgBox "添加成功"rss.CloseUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub截图3.4员工信息查询界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New AD

18、ODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"sqlcmd = "SELECT * FROM yuangong WHERE number='" & Text1.Text & "' "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlc

19、md, conn, 1, 1If Not rss.EOF Then Text2.Text = rss.Fields(0) Text3.Text = rss.Fields(1) Text4.Text = rss.Fields(2) Text5.Text = rss.Fields(3) Text6.Text = rss.Fields(4) rss.CloseElse MsgBox "没有记录"End IfEnd SubPrivate Sub Command2_Click()Set conn = New ADODB.Connectionconn.Open "Provid

20、er=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"sqlcmd = "SELECT * FROM yuangong WHERE name='" & Text7.Text & "' "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF Then Text

21、2.Text = rss.Fields(0) Text3.Text = rss.Fields(1) Text4.Text = rss.Fields(2) Text5.Text = rss.Fields(3) Text6.Text = rss.Fields(4) rss.CloseElse MsgBox "没有记录"End IfEnd Sub截图3.5员工信息修改界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New

22、ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM yuangong WHERE number='" & Combo1.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = ad

23、UseClientrss.Open sqlcmd, conn, 1, 3If Not rss.EOF Then rss.Fields(1) = Text1.Text rss.Fields(2) = Text2.Text rss.Fields(3) = Text3.Text rss.Fields(4) = Text4.Text rss.Update rss.Close MsgBox "修改成功"Else MsgBox "没有记录"End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd S

24、ubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM yuangong WHERE number='" & Combo1.Text & "'"Dim rs

25、s2 As New ADODB.Recordsetrss2.CursorLocation = adUseClientrss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" ThenText1.Text = rss2.Fields(1)Text2.Text = rss2.Fields(2)Text3.Text = rss2.Fields(3)Text4.Text = rss2.Fields(4)End Ifrss2.CloseEnd SubPrivate Sub Form_Load()Set conn = New ADO

26、DB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT number FROM yuangong "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1 Combo1.Clear While No

27、t rss.EOF Combo1.AddItem (rss.Fields("number") rss.MoveNext Wend rss.CloseEnd Sub截图3.6员工信息删除界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;passwor

28、d=sa;Initial Catalog=worker"Dim sqlcmmd As Stringsqlcmmd = "DELETE FROM yuangong WHERE number='" & Combo1 & "'"Dim rst As New ADODB.Recordsetrst.CursorLocation = adUseClientrst.Open sqlcmmd, conn, 1, 3MsgBox "已删除该记录!", vbOKOnly, "提示"Unload

29、 MeEnd SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT number FROM yuangong "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClie

30、ntrss.Open sqlcmd, conn, 1, 1 Combo1.Clear While Not rss.EOF Combo1.AddItem (rss.Fields("number") rss.MoveNext Wend rss.CloseEnd Sub截图3.7出差信息添加界面代码Option ExplicitDim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Ope

31、n "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3rss.AddNewrss.Fields(0) = Text1.Textrss.Fields(1)

32、 = Text2.Textrss.Fields(2) = Text3.Textrss.Fields(3) = Text4.Textrss.Fields(4) = Text5.Textrss.UpdateMsgBox "添加成功"rss.CloseUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Text5.Text = Val(Text4.Text) - Val(Text3.Text)End Sub截图3.8出差信息查询界面代码Dim conn As

33、 New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai WHERE number='" &a

34、mp; Text1.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF Then Text4.Text = rss.Fields(0) Text5.Text = rss.Fields(1) Text6.Text = rss.Fields(2) Text7.Text = rss.Fields(3) Text8.Text = rss.Fields(4) rss.CloseElse MsgB

35、ox "没有记录"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai W

36、HERE name='" & Text2.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1If Not rss.EOF Then Text4.Text = rss.Fields(0) Text5.Text = rss.Fields(1) Text6.Text = rss.Fields(2) Text7.Text = rss.Fields(3) Text8.Text = rss.Fiel

37、ds(4) rss.CloseElse MsgBox "没有记录"End IfEnd Sub截图3.9出差信息修改界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Di

38、m sqlcmd As Stringsqlcmd = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3If Not rss.EOF Then rss.Fields(1) = Text1.Text rss.Fields(2) = Text2.Text rss.Fields(3) =

39、Text3.Text rss.Fields(4) = Text4.Text rss.Update rss.Close MsgBox "修改成功"Else MsgBox "没有记录"End IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=s

40、a;password=sa;Initial Catalog=worker"Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss2 As New ADODB.Recordsetrss2.CursorLocation = adUseClientrss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" The

41、nText1.Text = rss2.Fields(1)Text2.Text = rss2.Fields(2)Text3.Text = rss2.Fields(3)Text4.Text = rss2.Fields(4)End Ifrss2.CloseEnd SubPrivate Sub Command4_Click()Text4.Text = Val(Text3.Text) - Val(Text2.Text)End SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB

42、.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd As Stringsqlcmd = "SELECT number FROM chuchai "Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1 Combo1.Clear While Not rss.EOF Combo1.AddItem (rss.Fields("numb

43、er") rss.MoveNext Wend rss.CloseEnd Sub截图3.10出差信息删除界面代码Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmmd A

44、s Stringsqlcmmd = "DELETE FROM chuchai WHERE number='" & Combo1 & "'"Dim rst As New ADODB.Recordsetrst.CursorLocation = adUseClientrst.Open sqlcmmd, conn, 1, 3MsgBox "已删除该记录!", vbOKOnly, "提示"Unload MeEnd SubPrivate Sub Command2_Click()Unload Me

45、End SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"Dim sqlcmd2 As Stringsqlcmd2 = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"Dim rss2 As New ADODB.Recordsetrss2.CursorLocation = adUseClientrss2.Open sqlcmd2, conn, 1, 1If Combo1.Text <> "" ThenText1.Text = rss2.Fields(1)Text2.Text = rss2.Fields(2)Text3.Text = rss2.Fields(3)Tex