《企业考勤管理系统的设计说明书.pdf》由会员分享，可在线阅读，更多相关《企业考勤管理系统的设计说明书.pdf（32页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、广西大学数学与信息科学学院广西大学数学与信息科学学院数据库开发与应用数据库开发与应用课程设计报告课程设计报告题目题目：企业考勤管理系统企业考勤管理系统班班级：级：信息与计算科学 121学学号号:1211100 xxx姓姓名：名：xxxxx日日期：期：二一四年六月一、背景与意义考勤管理系统是企业单位管理系统中最重要的信息。通过员工考勤考核管理,反映员工在一定阶段的工作成绩。而我国众多的企业都是采用传统的手工方式记录企业员工每日的出勤情况，这种方式繁琐易错,准确性、透明度、实时性差，受人为因素影响过大，增加了企业的人力资源成本。随着现代科技的进步，利用信息和计算机技术来进行企业员工考勤的管理也成为
2、现代化企业运作必不可少的一部分。一个企业对其职工的正常上下班、延时工作及加班工作进行考勤，通过报表的形式输出，合理调整员工工作安排,用计算机对考勤数据进行统计分析处理,得到我们所需要的各种统计报表和考勤原始数据，方便了企业对员工的管理.因此，开发一个合适的、高质量的、界面友好、易于操作的企业考勤管理系统进行企业员工的考勤管理，对企业的长远发展有重大的意义。本考勤管理系统的开发，是为了规范企业中考勤的管理工作，为考勤管理部门提供一套高效、快捷的应用软件。使用计算机进行考勤信息的处理，具有如下优点:（1）及时信息交流，改善管理质量通过本系统对考勤信息的规范管理,可以及时掌握员工的信息,也能让员工及
3、时了解部门主管发布的通知信息。（2）方便查询,提高工作效率。二、需求分析本系统要实现的功能模块主要有：基本信息设置模块、档案管理模块、审批模块、查询模块、考勤记录模块、汇总统计模块和系统管理模块。要求提供数据输入、输出和整理功能，满足日常工作的需要；具有查询、统计等功能，方便用户快捷使用和管理信息，提高工作效率;采用一定的安全保护措施,应分有不同的使用权限,保证系统的实用性；具有系统备份和恢复功能,使系统使用者能容易进行维护，同时软件功能完整、运行稳定、界面友好、操作简便。1.对功能的规定针对企业的考勤管理业务，本系统要实现以下功能:（1）基本信息设置拥有对系统中的基本信息，包括：部门信息、员
4、工职称信息、请假类型信息、加班类型信息、出差类型信息的添加、修改、删除、查询等操作的功能，当大量新的信息需要录入时，可以通过EXCEL 表格导入方式实现，同时也可将相应信息分别导出到 EXCEL 表格中。（2）档案管理拥有对系统中的员工信息、考勤制度信息、通知信息进行增加、修改、删除、查询等操作的功能。在录入员工信息时，输入员工的身份证号，进行回车操作即可自动填充员工性别，年龄，身份属地，生日信息。当有大量新11的员工信息、通知信息需要录入时，可以通过 EXCEL 表格导入方式实现，同时也可将相应信息导出到 EXCEL 表格中。（3）审批管理拥有对系统中的请假信息、加班信息、出差信息进行审批的
5、功能。查询出相应的记录，对该记录进行审批,审批通过则说明该条请假记录生效，否则为无效记录。此功能只有考勤主管和部门主管有操作权限。（4）查询管理拥有对系统中员工信息、企业考勤制度、出勤信息、请假信息、加班信息、出差信息进行查询的功能.可以按照员工编号，姓名，部门名等条件对员工具体信息进行模糊/精确查询。（5）考勤记录管理拥有对企业员工中的出勤信息、请假信息、加班信息、出差信息进行增加、修改、删除、查询等操作，同时具有将相应信息导出到EXCEL 表格中的功能。其中只有可以对出勤信息进行操作,当有大量员工考勤相关信息需要录入时，只有考勤管理员可以通过 EXCEL 表格导入方式实现.（6）汇总统计管
6、理拥有对考勤情况进行统计以及报表查看的功能。选择某一时间段，可对该时间段员工的考勤信息进行统计,其中只有审核通过的请假记录,加班记录，出差记录能够参与到考勤情况统计中。可以对统计过的考勤情况通过报表来查看到具体信息。（7）系统管理拥有密码修改、用户管理、系统初始化、数据备份/恢复、日志查看的功能。密码修改供当前登录用户修改自己的密码，修改时需要对新密码提供二次输入校对.用户管理提供用户的添加，修改,删除,用户名使用的是员工的编号.系统初始化将系统中的数据都删除，初始化前需对系统中的数据进行备份。数据备份/恢复拥有对系统中的数据进行备份和恢复的功能。日志查看拥有对使用本系统的用户的登录及退出信息
7、进行查看的功能，以维护系统的正常操作。222.对性能的规定为保证本系统能够长期、安全、稳定、可靠、高效的运行，系统须满足以下性能要求:（1）实用性：本系统应能够系统，便捷，快速的实现对员工作休时间的管理,从而保障企业的高效运营.（2）操作简单:本系统应适用于不同计算机水平的使用者，系统的操作尽可能简单易行。（3）技术先进：产品的系统设计和开发应紧跟计算机的发展潮流，产用目前较先进的设计思想，利用最先进的开发技术和开发工具。（4）安装使用简便:服务器端安装简洁明了，客户机无需再装任何软件，可直接使用。（5）适应性和可扩充性：应能广泛使用与不同的企业,开发过程中,应充分考虑可扩充问题。3。数据管理
8、能力的要求为保证企业使用本系统中数据的完整性，须满足以下数据管理要求:（1）尽可能减少故障的发生，保障好数据的备份，数据的备份采用数据库服务器的备份功能实现.（2）当系统发生故障时，当重新启动的时候,系统能够正常运行，若有数据遗失,能够通过备份来还原。（3）要保证数据的安全性,只有授权的人员才能进入系统进行相应的操作.（4）发现有错误的数据，及时地进行修改。三、系统总体分析与设计1.1.解决方案解决方案33为企业中的员工分别分配一个用户号和密码及相应角色，员工可用该用户名和密码登录进入企业考勤管理系统。不同的角色对应有不同的使用权限:普通员工可以进入系统可以对各类信息进行查询，录入自己的请假，
9、加班及出差的记录,对考勤的统计报表进行查看以及对自己的登录密码进行修改；部门主管除拥有普通员工所有权限外，还可对员工信息，通知信息进行添加，修改，删除的操作，对员工输入的请假，加班，出差记录进行审批，对员工某一阶段的考勤进行统计；考勤管理员除拥有普通员工所有权限外,还可对企业的考勤制度进行设置，对员工的出勤信息进行录入或导入,同时也可对员工的请假，加班及出差记录进行批量导入；考勤主管具有系统的完全管理权限，要定期对系统进行检查和备份，以维护系统的安全。系统设计分八个模块:主菜单模块，登录模块，档案管理模块，审批管理模块,查询管理模块，考勤记录管理模块,汇总统计管理模块和系统管理模块.具体的功能
10、结构图如图 11 所示.图 31 企业考勤管理系统功能结构图本系统采用 Delphi 技术，以及 SQL Server 数据管理技术进行主要的设计，数据库用 SQL Server 进行设计和管理。系统使用分三种角色，包括:员工,考勤管理员，部门主管,考勤主管。体现各角色的使用权限的功能结构图如图 12。图 3-2 体现各角色使用权限的功能结构图2.数据库设计(1)Personal(员工信息表)员工信息表主要存放员工的基本信息,具体字段信息如表 31.表 31 员工信息表字段字段PnoPnameDnoPTno名称名称姓名类型类型VARCHAR长度长度141014144码码PKFKFK说明说明P+
11、日期+序号Not nullNot nullNot null4员工编号CHAR部门编号CHAR职务编号CHARIDCardShuDiSexAgeBirthTelPhoto身份证性别年龄生日相片CHARCHARINTDATEVARBINARY182022050身份属地CHAR电话号码VARCHAR(2)PersonalType（职称表）职称表主要存放员工职称信息，被员工信息表所调用，具体字段信息如表 4-9。表 4-9 职称表字段字段PTnoPTname名称名称职称编号职称名称类型类型CHARVARCHAR长度长度1420码码PK说明说明PT+序号Not null(3)Department（部门信
12、息表)部门信息表主要存放部门基本信息，提供给员工信息表调用，具体字段信息如表 410。表 4-10 部门信息表字段字段DnoDnameIntroduce名称名称部门编号部门名称部门简介类型类型CHARVARCHARVARCHAR长度长度1420100码码PK说明说明D+序号Not null(4)Attendance(考勤记录表)考勤记录表主要存放员工日常的出勤信息，具体字段信息如表 411。表 4-11 考勤记录表字段字段AnoPno名称名称记录编号员工编号类型类型CHARCHAR5长度长度1414码码PKFK说明说明A+日期+序号Not null5InOutATime出入情况时间CHARDA
13、TETIME2Not nullNot null(5)Overwork(加班记录表）加班记录表主要存放员工日常加班的记录信息，只有主管审批通过后才能生效，才能进行相应的加班统计,具体字段信息见表 412。表 412 加班记录表字段字段OnoPnoEndTimeOTno名称名称记录编号员工编号结束时间加班类型编号类型类型CHARCHARDATETIMEDATETIMECHARCHAR长度长度1414-141码码FKFK说明说明Not nullNot nullPKO+日期+序号StartTime开始时间APProval审核结果(6)OverworkType（加班类型表）加班类型表主要存放加班类型信息
14、,提供给加班记录表调用,具体字段信息如表 413.表 4-13 加班类型表字段字段OTnoOTname名称名称加班类型编号加班类型名类型类型CHARVARCHAR长度长度1420码码PK说明说明OT+序号Not null(7)Errand(出差记录表)出差记录表主要存放出差记录信息，只有主管审批通过后才能生效,才能进行相应的出差统计,具体字段如表 4-14。表 4-14 出差记录表字段字段EnoPno名称名称记录编号员工编号类型类型CHARCHARDATETIME6长长度度1414码码说明说明PKE+日期+序号FKNot null6StartTime开始时间EndTimePlaceETno结束
15、时间出差地点出差类型编号DATETIMEVARCHARCHARCHAR20141FKNot nullAPProval审核结果(8)ErrandType(出差类型表）出差类型表主要存放加班类型信息，提供给出差记录表调用，具体字段信息如表 4-15。表 4-15 出差类型表字段字段ETnoETname名称名称出差类型名类型类型VARCHAR长度长度码码1420PK说明说明ET+序号Not null出差类型编号CHAR(9)Leave（请假记录表）请假记录表主要存放请假记录信息，只有主管审批通过后才能生效，才能进行相应的请假统计，具体字段如表 416.表 4-16 请假记录表字段字段LnoPnoEn
16、dTimeLTnoDemo名称名称记录编号员工编号结束时间请假类型编号情况说明类型类型CHARCHARDATETIMEDATETIMECHARVARCHARCHAR长长度度1414141001PKL+日期+序号FKFKNot nullNot null码码说明说明StartTime开始时间APProval审核结果(10)LeaveType(请假类型表）请假类型表主要存放加班类型信息，提供给请假记录表调用，具体字段信息如表 417。表 417 请假类型表字段字段名称名称类型类型7长长码码说明说明7度度LTnoLTname请假类型编号CHAR请假类型名VARCHAR1420PKLT+序号Not nu
17、ll(11)AttendanceCount（出勤情况统计表)出勤情况统计表主要记录的是员工出勤，请假，加班，出差的一些统计信息,提供给企业管理着进行查看，具体字段信息如表 418。表 4-18 出勤情况统计表字段字段ACnoPnoARnoYearMonthShouldTimeActualTimeLeaveTimeErrandTimeLateLateTimeEarlyEarlyTimeAbsenceAbsenceTime名称名称记录编号员工编号制度编号年月应工作时间实际工作时间累计请假时间累计出差时间迟到次数迟到时间累计早退次数早退时间累计旷工次数旷工时间累计类型类型CHARCHARCHARCH
18、ARINTINTINTINTINTSMALLINTINTSMALLINTINTSMALLINTINT长度长度1414147 7-码码PKFKFK说明说明G+日期+序号Not nullNot nullNot null小时小时半天小时半天次小时次小时次小时OverworkTime累计加班时间(12)Logdb（日志信息表)日志信息表主要记录的是企业中的员工登录到系统以及退出系统的信息，具体字段信息如表 419。表 4-19 日志信息表字段字段Logno名称名称日志编号类型类型INT8长度长度-码码PK说明说明自动编号8UnoLoginTimeLogoutTime用户编号登录时间退出时间CHARDA
19、TETIMEDATETIME14-FKNot null(13)Userdb（用户信息表）用户信息表主要存储用户的信息，其中员工编号作为用户名进行登录，密码默认为123456,同时也定义了用户的角色,具体字段信息如表 4-20。表 4-20 用户信息表字段字段UnoPnoPasswd名称名称用户编号员工编号密码类型类型CHARCHARCHARVARCHAR长度长度1414220码码FK说明说明Not null默认为 123456PKU+日期+序号Authority角色(14)ARegulation(考勤制度表）考勤制度表主要存储的是企业的考勤制度，具体字段信息如表 4-21。表 4-21 考勤制
20、度表字段字段ARnoComeTime名称名称制度编号上午上班时间类型类型CHARTIMETIMETIMETIMEVARCHAR长度长度14-10000码码说明说明Not nullNot nullNot nullNot nullPKAR+序号GooffTimepm上午下班时间ComeTimepm下午上班时间GooffTimeAmemo下午下班时间考勤制度(15)ShuDi(属地表）属地表主要存储的是身份证前 6 位所对应的属地名称的信息，录入员工数据中身份证数据时快速得出员工性别，年龄，身份属地，生日信息，减小因手工输入产生的信息错误概率,具体字段信息如表 422.表 4-22 属地表字段字段I
21、D名称名称编号类型类型CHAR9长度长度6码码PK说明说明Not null9BMDQ属地编号属地名称CHARVARCHAR1430Not nullNot null(16)Notice（通知表）通知表主要存储的是企业中的一些通知信息,具体字段信息如表 423。表 4-23 通知表字段字段NnoNTimeTitleContent名称名称通知编号通知时间通知标题通知内容类型类型CHARDatetimeVARCHARCHAR长度长度14-305000码码说明说明Not nullPKN+日期+序号四、系统的实现1.界面设计系统设计中的界面设计不同于一般的平面设计，拥有自身的设计特征.网页设计应时刻围绕“
22、信息传达”这一主题来进行。界面力求清晰、准确、有力地传达信息。本系统主要采用的的界面模板主要包括：登录界面、主菜单界面、基本信息设置界面、档案管理界面、查询管理界面、考勤记录管理界面、审核管理界面、汇总统计界面、系统管理设置界面。（1 1）.登录界面登录界面运行本系统后,出现如图 41 的登录界面，输入用户名和密码，选择用户角色,点击“登录按钮,如果输入的信息不正确，会有“用户名或密码错误，请检查！”的错误提醒，如果三次登陆错误，会有“你无权使用本系统！”的错误提醒，即每次登录,最多允许有三次登录错误的机会。当所有信息都输入正确后，可以登录到主界面，不用的用户角色进入的主界面中的功能菜单不同。
23、登录界面允许效果图如图 4-1。41 登录界面（2 2）。主菜单界面主菜单界面用户登录后,可进入到如图 4-2 的主菜单界面，在主菜单界面中，用户可1 010以看到企业中发布的通知信息，这有利于让企业中的员工尽可能快而全面地掌握企业中消息的动态。主菜单界面如图 42图 42 主菜单界面(3).(3).查询管理界面查询管理界面在主菜单上点击查询菜单下的“请假情况查询”,即可进入到如下图 43 请假情况查询界面，在界面中输入员工号或员工姓名、部门名称、请假类型等信息，以及选择时间范围的信息，即可进行组合查询以及模糊查询.其他信息的查询功能跟此功能基本一致，在此不再赘述。请假情况查询界面如图 43.
24、图 4-3 请假情况查询界面(4).(4).信息管理界面信息管理界面信息管理界面包括：基本信息设置界面（图4-4）、档案管理界面（图45）、考勤记录管理界面（图 4-6）.点击信息管理界面中的“添加按钮，相应的记录信息将自动编号,在输入相应信息即可。以员工信息管理为例,点击“添加”按钮,编号处将自动填充，编号规则为：“P+年月日+001”，输入省份证号后，回车即可得出性别、年龄、省份属地、生日等信息，在部门的编辑框处双击,即可得出企业中的部门信息,选择相应的部门，则可在该编辑框中得出相应的部门编号，也可手动输入正确的部门编号,职称的填写方式和部门的填写方式相同，再相应地填写其他信息，点击保存，
25、如果信息填写无误，会有“保存成功！的提示,添加信息完成。同时也可选中相应的员工信息，对其进行删除操作.也可导入/导出 Excel 表格。其他信息管理的功能跟此功能类似，不再赘述。档案管理界面如图 44。图 44 档案管理界面图 45 基础信息设置界面图 46 考勤记录管理界面（5).5).审批界面审批界面在主菜单上点击查询菜单下的“出差审批”,即可进入到出差审批界面，如图 4-7。查询出相应的员工出差信息，觉得员工的出差信息无误后即可进行审批,点击“确定”按钮后，会出现“审批完成!的提示.出差审批界面如图 47。图 4-7 审批界面1 111(6).(6).统计界面统计界面在主菜单上点击查询菜
26、单下的“出差审批”,即可进入到出差审批界面,如图 48。选择需要统计的起始时间，点击统计,即可得到员工考勤情况的统计表（统计的信息包括：应工作时间（小时），实际工作时间（小时),累计请假时间（半天），累计加班时间（小时），累计出差时间（半天），迟到次数（次），迟到时间累计（小时），早退次数（次),早退时间累计（小时），旷工次数(次)，旷工时间累计(小时）。统计需要一些时间，进度条会显示统计的进度。统计界面如图 48。图 48 统计界面2.系统实现关键技术(1(1）。添加数据时自动编号添加数据时自动编号运行系统时,当需要新增信息时，点击“添加”按钮，即可进行自动对记录的 ID 进行编号，以实现编
27、号的规范性。添加数据时自动编号的代码如下:1.自定义函数：根据原来编号 bh,构造新编号：年月日+3 位序列。function xbh(bh:string）:string;vard0，d1,c:string；begind0:=copy（bh，2，8)；c:=copy（bh,10，3）;ifd0=#48）and（key=#57）；if not kk then key：=#0;/键盘输入过滤掉非身份证号码if key=#13 thenbeginNewID:=DBedit13。Text;/1。检查长度if Length（NewID)18 thenbeginmessageDlg(输入的数字不是18 位
28、，请重新输入!，mtError,mbOK，0）；DBedit13。SetFocus；exit；end;/2.检查属地ADOquery1.close；1 414ADOquery1。Parameters。ParamByName（sd)。Value:=copy（NewID，1,6);语句赋值ADOquery1。open；/打开，查询记录if ADOquery1。RecordCount=0 then/如果找不到 sd 相同的记录beginMessageDlg(前面六位数字无效，请检查！,mtinformation，mbok，0)；DBedit13.SetFocus;exit;endelseshud：=
29、ADOquery1。FieldByName(DQ）.Value；/获取属地/3.检查年年份i：=strtoint（copy(NewID，7，4)）；年份if（i1900)or（i2020）thenbeginMessageDlg（年份号码无效，请检查！,mtinformation,mbok，0);DBedit13。SetFocus;exit；end；j:=strtoint（copy(NewID,11，2)；if(j1）or（j12）thenbeginMessageDlg（月份号码无效,请检查!,mtinformation,mbok，0)；/给动态 SQL/获取/获取月份1 515DBedit13
30、。SetFocus;exit；end；s：=strtoint(copy（NewID，13,2）;if（s31）thenbeginMessageDlg（日数号码无效，请检查!,mtinformation,mbok，0);DBedit13.SetFocus;exit;end；da:=EncodeDate（i，j，s）；/4.检查校验码s：=0;for i：=1 to 17 dobeginj:=StrToInt(NewIDi)Wi；s:=s+j;end；s：=s mod 11;if NewID18=X then NewID18:=x;/将大写字母 X 变成小写字母 xif NewID18AS the
31、nbeginmessageDlg(校验码错!请重新输入！，mtError，mbOK，0）;showmessagefmt(校验码错！应该是%s！请重新输入！，AS ）;DBedit13。SetFocus;exit；end;/5.填写证件的详细信息/构造生日1 616ADOTable1.Edit；DBedit16.Text:=shud；/属地DBedit17.Text：=formatdatetime(ddddd，da）；/生日DBedit18.Text:=formatdatetime（yy，dateda）;/年龄if NewID17 in 1，3,5，7，9 then/以下是判别性别DBedit1
32、5.Text：=男elseDBedit15。Text：=女;end;end；（4 4）。导出导出 EXCELEXCEL 表格表格运行系统时，可以对系统中的相应数据信息导出到 excel 表格中，方便用户使用相应的数据信息。1。将某个数据表导出成 Excel 表的通用函数function ExportDBGrid（DBGrid：TDBGrid；SheetName：string)：boolean;EXCELVarc，r，i,j：integer;app:Olevariant；TempFileName,ResultFileName:string;begintryresult:=True；app：=Cr
33、eateOLEObject(Excel。application）；app。WorkBooks.Add(xlWBatWorkSheet）;exceptApplication。MessageBox(Excel 没有正确安装!，警告，MB_OK）;/直 接 保 存,不 显 示1 717result:=False;exit;end；mainForm.SaveDialog1.DefaultExt:=xls；mainForm。SaveDialog1。FileName：=SheetName;if mainForm。SaveDialog1.Execute thenTempFileName:=mainForm.
34、SaveDialog1.FileNameelseExit;app。Workbooks。add；app.Visible：=false；Screen。Cursor：=crHourGlass;DBGrid.DataSource。DataSet.First；c：=DBGrid.DataSource。DataSet.FieldCount；r：=DBGrid.DataSource。DataSet。RecordCount;Application.ProcessMessages；for i:=0 to c 1 doapp。cells（1,1+i）：=DBGrid.DataSource。DataSet.Fiel
35、dsi。DisplayLabel；for j:=1 to r dobeginfor i:=0 to c-1 doapp.cells(j+1，1+i)：=DBGrid。DataSource。DataSet.Fieldsi.AsString；DBGrid。DataSource。DataSet。Next；end;ResultFileName:=TempFileName;if ResultFileName=thenResultFileName：=数据导出;if FileExists（TempFileName）then1 818DeleteFile(TempFileName);app.Activewor
36、kbook。saveas(TempFileName);app.Activeworkbook.close(false)；app。quit；app:=unassigned；end；2.调用导出 Excel 数据的函数，“导出 Excel 表格”按钮的点击事件代码。procedure TDanganForm。SpeedButton5Click（Sender:TObject);begintryScreen。Cursor:=crHourGlass;finallyScreen。Cursor：=crDefault；end;end;(5)(5)。导入。导入 EXCELEXCEL 表格表格运行系统时，当需要新增
37、大量数据时,可以通过导入 Excel 表格实现批量增加的操作.注意：需要导入的 Excel 表格中的数据一定要与数据表中的数据类型一致，否则会出现导入失败的情况。导入 Excel 表格中数据的代码如下：procedure TDanganForm.SpeedButton9Click(Sender：TObject）；varoe：variant；str：string;i,j，n：integer；beginif opendialog1。Execute thenopendialog1。DefaultExt：=xls;str:=opendialog1.FileName；oe:=CreateOleObjec
38、t（Excel。Application）；/将鼠标成沙漏状main.ExportDBGrid（DBGrid2,);/调用函数导出数据/回复鼠标原状1 919oe.workbooks。open(str）；/连接所选定的 Excel表n：=oe.Worksheets1.UsedRange.Rows。Count;/求工作表 sheet1 中已有数据的行数tryfor i:=2 ton do/从 Excel 表第 2 行开始，逐行读入(假设第一行为表头)beginADoTable2。Append;/添加空记录for j:=1 to ADOTable2。fieldcount doADOTable2.Fi
39、eldsj1。Value：=oe。worksheets1.cellsi,j。value;end;ADoTable2。Refresh;showmessage（导入完毕);exceptshowmessage(数据库错误或有重复编号，请检查);end;end；(6).(6).组合查询配合模糊查询组合查询配合模糊查询组合查询配合模糊查询能够满足查询的各种需求。本系统中多处都实现了组合查询以及模糊查询.以查询请假记录为例，代码如下：1。查询请假记录，“查询”按钮的事件代码。procedure TSelectForm.SpeedButton3Click(Sender：TObject)；varsqlstr:
40、string；begdate：string;enddate:string;beginif ComboBox2。Text=+begdate+and Pno like%+edit4。text+and Pname like%+edit10.Text+and Dname like +edit9。Text+and LTname like+edit17.Text+%else if combobox2.Text=在。.。间 thensqlstr:=select*from Leave_Per_D where StarTime=+begdate+and StarTime=+enddate+and Pno lik
41、e+edit4.text+%and Pname like +edit10.Text+%and Dname like+edit9.Text+%and LTname like%+edit17。Text+%;endelsesqlstr：=select from Leave_Per_D wherePno like+edit4。text+and Pname like%+edit10。Text+and Dname like%+edit9.Text+%and LTname like%+edit17。Text+%；ADOQuery2。Close;ADOQuery2.SQL.Clear；2 121ADOQuer
42、y2。SQL.Add（sqlstr);ADOQuery2.open;end；查询效果如图 4-10。图 410 请假查询效果图（7)7)。汇总统计汇总统计运行本系统时，选择需要统计的起始时间，点击统计，即可得到员工考勤情况的统计表（统计的信息包括:应工作时间（小时），实际工作时间（小时），累计请假时间(半天）,累计加班时间(小时），累计出差时间(半天），迟到次数（次），迟到时间累计（小时），早退次数（次)，早退时间累计(小时）,旷工次数（次)，旷工时间累计（小时)）。具体代码如下：1.“统计”按钮事件代码。procedure THuizForm。SpeedButton2Click（Sender
43、：TObject）；varbm,Pno，ARno:string;i,j,n，counter:integer；时间/Hour：array0。.1of double;时间/a:double;Hour：array0.。1of integer;a：integer；StartTime,EndTime:TDate;/保存始末时间/保存中间判断时间Late，Early,Absent,Leave,Errand：Boolean；WorkHour/保存员工号/用于循环和计数/保存上下班Time：Array0。3of TTime；/保存上下午工作TimeStamp,Late_Time,Early_Time，Work
44、_Start，Work_end：TDateTime;/保存判断结果，OverHour,LeaveHDay,ErrandHDay,LateTime/保存时间间隔长度2 2EarlyTime,AbsentTime,ActualTime：Integer；22LateTimes,EarlyTimes，AbsentTimes：SmallInt;Temp:String;beginTime0:=strtotime(DanganForm.ADOTable4ComeTime）；Time1:=strtotime(DanganForm。ADOTable4GooffTimepm）;Time2：=strtotime(D
45、anganForm.ADOTable4ComeTimepm)；Time3:=strtotime（DanganForm。ADOTable4GooffTime）；Hour0：=Round(Time1Time0）24）;工作时间Hour1:=Round（(Time3Time2)*24)；工作时间a:=Hour0+Hour1;/一天工作时间ARno:=DanganForm。ADOTable4ARno ；StartTime:=DateTimePicker1。Date；EndTime：=DateTimePicker2。Date;begin/提取员工列表T_person。Filtered:=True;T_p
46、erson.Open;n:=T_person。RecordCount;i：=0；Gauge1.Progress：=0；T_person。First；while not T_person。Eof dobegin/获取出勤记录Pno:=T_personPno；Q_attend.Close；Q_attend.Parameters.ParamValuesPno:=Pno;Q_attend.Parameters。ParamValuesSTARTTIME：=StartTime;/上午/下午2 323Q_attend.Parameters.ParamValuesENDTIME:=EndTime+1;Q_at
47、tend.Open;Q_attend.First；/初始化WorkHour：=0；LeaveHDay：=0;ErrandHDay:=0；LateTimes：=0;LateTime:=0;EarlyTime：=0；AbsentTime：=0;EarlyTimes:=0;AbsentTimes:=0；ActualTime：=0;OverHour:=0；TimeStamp：=StartTime;while TimeStamp1）and（DayOfWeek（TimeStamp）7)thenbeginActualTime:=ActualTime+a;for j:=0 to 1 dobeginLate_T
48、ime：=TimeStamp+Time2j；Early_Time：=TimeStamp+Time2*j+1；/判断是否请假Q_leave.Close；Q_leave.Parameters.ParamValuesPno:=Pno;Q_leave.Parameters/遍历班次。2 4ParamValues24STARTTIME:=Late_Time;Q_leave。Parameters。ParamValues ENDTIME：=Early_Time；Q_leave.Open；Leave：=(Q_leave。RecordCount0);/判断是否出差Q_errand.Close;Q_errand.
49、Parameters.ParamValuesPno ：=Pno；Q_errand.Parameters.ParamValues STARTTIME ：=Late_Time;Q_errandQ_errand.Open;errand:=(Q_leave。RecordCount0）;if leave thenInc(LeaveHDay）else if errand thenbeginInc（ErrandHDay）;WorkHour：=WorkHour+Hourj；endelsebeginWork_start：=Late_Time；Work_end：=Early_Time；Late:=True；Abs
50、ent:=False；/判断是否迟到while(not Q_attend.Eof)and(Q_attendIOTime=Late_Time)do。Parameters。ParamValuesENDTIME:=Early_Time;/请假/出差/正常上班2 525beginLate:=(Q_attendInOut=O）；Q_attend.Next；end;/判断是否旷工if Late thenbeginif(not Q_attend.Eof)and（Q_attendIOTimeEarly_Time)thenbeginWork_start：=Q_attendIOTime;/记录迟到时间LateTi