access职工考勤管理系统实验报告

1、精选优质文档-倾情为你奉上Access实现职工考勤管理系统一、系统介绍 管理员可通过登录名与密码进入考勤系统，通过输入职工编号及日期时间来记录员工的考勤情况，也可以对员工的职员信息，考勤统计信息,管理员信息，进行查询，增添，删改，报表预览等操作。专心-专注-专业二、设计分析1)需求总结，设计系统功能，画出如下功能模块结构图登陆考勤管理职员管理职员信息管理员管理考勤录入考勤统计针对职工管理系统的功能图，现具体描述其功能：1、管理员登陆：系统对其合法性进行检查2、考勤录入：管理员通过录入职工编号及时间记录考勤信息3、考勤统计：通过一些条件查询职工考勤记录并预览报表4、职员信息：可以查询修改所有职员

2、的信息5、管理员管理：可以修改管理员密码或增加管理员2)全部表信息：职员信息(职员编号，姓名，部门编号，职位，性别，民族，教育程度，联系电话)考勤记录(职员编号，出勤日期，出勤时间)公司部门(部门编号，部门名称)管理员信息（管理员编号，管理员姓名，管理员密码）3）实体E-R图本系统根据上面的设计规划出的实体有：职员信息实体，考勤信息实体，管理员信息实体。职工考勤实体E-R图考勤记录职工编号出勤时间出勤日期职员信息实体E-R图职工编号姓名部门编号职位性别民族教育程度联系电话职员信息管理员信息实体E-R图：管理员管理员编号管理员姓名管理员密码学生选课系统主要是为学生选课的管理提供全面、准确、科学的

3、管理方法，方便快捷地处理选课的管理信息；避免了信息处理错误，提高了信息管理的工作效率，大大地节省人力和物力的开支。本章主要阐述了系统的业务流程，根据业务流程画出绘制出了E-R图。三、模块代码及界面设计通过管理系统总界面可以进入考勤录入，考勤统计，职工信息，管理员设置等功能。其主要实现窗口如下图主界面创建主界面主要是方便各种功能的选择,而后创建分界面来实现具体的系统功能。如下图：考勤录入界面，录入按钮的事件代码：Private Sub Command8_Click()If Text0 = "" Or Text4 = "" Or Text10 = "

4、;" ThenMsgBox "记录数据不能为空！"Else CurrentDb.Execute "INSERT INTO 考勤记录 VALUES ('" & Text0 & "', '" & Text4 & "', '" & Text10 & "')"Text0 = ""Text4 = ""Text10 = ""Text0.SetF

5、ocusMsgBox "考勤录入成功！"End IfEnd Sub考勤统计界面，该界面包括考勤统计，考勤统计查询子窗体，其中查询按钮的事件代码为：Private Sub Command15_Click() Me.考勤统计查询子窗体.Requery '这句是关键End Sub职工信息界面，类似考勤统计界面，包含一个窗体及一个子窗体，主要事件代码为：Private Sub Command17_Click() Me.职工信息查询子窗体.RequeryEnd Sub系统管理员设置界面，其中修改按钮的事件代码为：Private Sub Command13_Click()If

6、IsNull(Trim(Me.Text7) ThenDoCmd.BeepMsgBox ("请输入用户名称！")ElseIf IsNull(Trim(Me.Text9) ThenDoCmd.BeepMsgBox ("请输入原密码！")ElseIf IsNull(Trim(Me.Text11) ThenDoCmd.BeepMsgBox ("请输入新密码！")Else'以下是用来与登陆表做对比的 Me.RecordSource = "select * from 管理员信息 where 管理员姓名= '"

7、& Me.Text7 & "' and 管理员密码='" & Me.Text9 & "'" 'Set rs = GetRS(str) If Me.Recordset.EOF Then DoCmd.Beep MsgBox ("用户名或密码有误,请重新输入！") Me.Text7 = "" Me.Text9 = "" Me.Text7.SetFocus Exit Sub Else CurrentDb.Execute "upda

8、te 管理员信息 set 管理员密码 = '" & Text11 & "' where 管理员姓名='" & Me.Text7 & "'" MsgBox "密码修改成功" Me.Text7 = "" Me.Text9 = "" Me.Text11 = "" End If End IfEnd IfEnd IfEnd Sub 登录窗口主要是用来登录主界面的一个关卡，其中登陆按钮引发的事件代码是：Privat

9、e Sub Command1_Click()If IsNull(Trim(Me.Text3) ThenDoCmd.BeepMsgBox ("请输入用户名称！")ElseIf IsNull(Trim(Me.Text5) ThenDoCmd.BeepMsgBox ("请输入密码！")Else'以下是用来与登陆表做对比的 Me.RecordSource = "select * from 管理员信息 where 管理员姓名= '" & Me.Text3 & "' and 管理员密码='

10、" & Me.Text5 & "'" 'Set rs = GetRS(str) If Me.Recordset.EOF Then DoCmd.Beep MsgBox ("没有这个用户或密码有误,请重新输入！") Me.Text3 = "" Me.Text5 = "" Me.Text3.SetFocus Exit Sub Else DoCmd.Close check = True '设置登陆标志 DoCmd.OpenForm ("管理系统总界面")

11、 End If End IfEnd IfEnd Sub其主界面如图4-8所示。图4-14登录窗口界面四、总结：这个系统是职工考勤管理系统，要求对职工进行出勤时间日期的记录，另外还带有职员，管理员信息的添加，删除等操作。刚开始设计这个系统感到没有头绪，不得要领，并且没有足够的知识来运用，于是查找了很多的书籍，希望能有所帮助。随着自己慢慢查找资料，对access的了解也日益增加，能够把系统的部分功能渐渐的写出来了。在此过程中也出现了一些困难，比如嵌入子窗体，连接数据库表，一开始的时候不会连接，后来参考了一些书籍和一些范例中的方法才连接成功。 在这次课程设计中，虽然系统完成了，但还是有不足的地方。在写一些代码时，有些地方应该用到的语句不懂，所以只能用自己会的来编写，从而放弃了最适宜的语句，使得整个系统有了些瑕疵