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

计算机学院数据库系统概论课程设计报告学号数据库系统概论课程设计报告题目：职工考勤管理信息系统专业：网络工程班级：姓名：指导教师：成绩：计算机学院2017年12月8日目录需求分析11.1 系统目标以及功能11.2 系统功能分析11.3系统E-R图11.4信息分析21.5功能图21.6模块分析31.7员工出勤和出差的E-R图3概念结构设计42.1关系模式分析42.1.1实体关系模式：42.1.2联系的关系模式：42.2下面是本次设计的每一个表所涉及的数据：42.2.1员工信息表：42.2.2请假信息表：52.2.3出差信息表：52.2.4加班信息表：52.2.5日出勤信息表：52.2.6管理员信息表5部分代码和截图63.1管理员登录界面63.2职工考勤系统界面73.3员工信息添加界面93.4员工信息查询界面103.5员工信息修改界面113.6员工信息删除界面133.7出差信息添加界面143.8出差信息查询界面163.9出差信息修改界面183.10出差信息删除界面193.11管理员修改界面21心得体会22参考文献22需求分析1.1 系统目标以及功能为了配合人事管理系统的使用，充分地记录员工的出勤情况，可以开发考勤管理系统。进行出勤情况统计的过程中，要充分考虑到各种缺勤情况的类别。此系统其主要功能有职工信息，包括职工编号、职工姓名、性别、年龄、职称等；出勤记录信息，包括上班打卡时间，下班打开时间，缺勤记录等；出差信息，包括出差起始时间、结束时间、统计总共天数等；请假信息，包括请假开始时间，结束时间，统计请假天数等；加班信息，包括加班开始时间、结束时间、统计加班总时间。 实现企业员工出勤情况的详细的、系统的管理。 使得企业员工的管理更加现代化、科学化、自动化，并可以很好地督促企业员工更好地为企业谋福利。 可以使用考勤机，使得企业的管理更加现代化。1.2 系统功能分析 员工考勤系统能够和考勤机相连，可以把数据导入数据库中，从而完成自动、高效、科学的考勤信息的输入。 可以完成员工考勤信息的手工输入、修改、删除等操作。 可以设定缺勤的类型，如病假、事假等。1.3系统E-R图姓名上班时间性别编号考勤记录管理考勤职员 M 1 下班时间 n所在部门编号11.4信息分析这个系统的主要功能有：数据入库、查询、修改和删除等。本系统的主要功能由以下几个部分组成：员工基本信息模块 输入：员工信息 功能：对员工基本信息的查询、修改、删除和查询。 员工考勤管理模块 输入：员工考勤情况 功能：完成对员工的考勤以及对考勤情况的查询、统计和删除员工考勤等情况 员工出差模块输入：员工出差时间以及回来的时间 功能：完成对员工出差信息的详细记录，也是为了完善员工考勤信息员工加班模块输入：员工加班开始以及结束时间 功能：完成对员工加班信息的详细记录，也是为了完善员工考勤信息员工请假模块输入：员工请假时间以及回来的时间功能：完成对员工请假信息的详细记录，也是为了完善员工考勤信息；1.5功能图界面增加职工编号，姓名，性别，年龄，职称查询按职工编号，姓名，进行查询，删除先输入要删除的职工编号，姓名，显示各种记录，选择要删除的记录进行删除修改先输入要删除的职工编号，姓名，显示各种记录，选择要修改的记录进行修改1.6模块分析 在这个系统中各个模块之间独立工作，但是相互补充，考勤表，记录了员工们的出勤信息，但是不包括出差和请假，加班的员工信息，所以就需要出差和请假，加班这两个模块来补充这一缺陷。最后就是留言板，主要是为了给员工们一个自由言论的机会，这一也对公司是一件有意义的事情。考勤系统 员工信息考勤信息出差信息请假信息加班信息管理员信息图1.3.1系统功能模块图1.7员工出勤和出差的E-R图职工姓名出差请假日期出差、请假员工出差、请假信息出差或请假总天数职员编号结束时间加班加班总时间加班结束时间加班记录加班开始时间职工编号职工姓名概念结构设计2.1关系模式分析2.1.1实体关系模式：职工（编号，姓名，性别，年龄，职称，）出勤记录（上班打卡时间，下班打卡时间，缺勤记录）出差记录（出差起始时间，出差结束时间，出差总天数）请假记录（请假开始时间，请假结束时间，请假天数）加班记录（加班开始时间，加班结束时间，加班总时间）2.1.2联系的关系模式：报到（编号，姓名，上班打卡时间，下班打卡时间，缺勤记录）安排（编号，姓名，出差起始时间，出差结束时间，出差总天数）申请（编号，姓名，请假开始时间，请假结束时间，请假天数）参加（编号，姓名，加班开始时间，加班结束时间，加班总时间）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请假总天数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员工姓名Varchar(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 conn = New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=workerDim sqlcmd As StringIf Text1.Text = Then MsgBox 请输入用户名 Text1.SetFocus Exit SubEnd If sqlcmd = SELECT * FROM guan WHERE name= & 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) 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_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_delete_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()Form19.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_Click()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 Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=workerDim sqlcmd As Stringsqlcmd = SELECT * FROM yuangongDim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 3rss.AddNewrss.Fields(0) = Text1.Textrss.Fields(1) = Text2.Textrss.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 ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=workersqlcmd = SELECT * FROM yuangong WHERE number= & Text1.Text & Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, 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 Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=workersqlcmd = SELECT * FROM yuangong WHERE name= & Text7.Text & Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, 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 Sub截图3.5员工信息修改界面代码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=workerDim sqlcmd As Stringsqlcmd = SELECT * FROM yuangong 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) = 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=sa;password=sa;Initial Catalog=workerDim sqlcmd2 As Stringsqlcmd2 = SELECT * FROM yuangong 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)Text4.Text = rss2.Fields(4)End Ifrss2.CloseEnd SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=workerDim sqlcmd As Stringsqlcmd = SELECT number FROM yuangong Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.Open sqlcmd, conn, 1, 1 Combo1.Clear While Not 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;password=sa;Initial Catalog=workerDim sqlcmmd As Stringsqlcmmd = DELETE FROM yuangong WHERE number= & Combo1 & Dim rst As New ADODB.Recordsetrst.CursorLocation = adUseClientrst.Open sqlcmmd, conn, 1, 3MsgBox 已删除该记录!, vbOKOnly, 提示Unload MeEnd SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=workerDim sqlcmd As Stringsqlcmd = SELECT number FROM yuangong Dim rss As New ADODB.Recordsetrss.CursorLocation = adUseClientrss.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.Open Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=workerDim 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) = 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 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=workerDim sqlcmd As Stringsqlcmd = SELECT * FROM chuchai WHERE number= & 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 MsgBox 没有记录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=workerDim sqlcmd As Stringsqlcmd = SELECT * FROM chuchai WHERE 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.Fields(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=workerDim 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) = 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=sa;password=sa;Initial Catalog=workerDim 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)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.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=workerDim 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(number) 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=workerDim sqlcmmd As 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 MeEnd SubPrivate Sub Command3_Click()Set conn = New ADODB.Connectionconn.Open Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=workerDim 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 = rs