企业考勤管理系统的设计说明书

广西大学数学与信息科学学院《数据库开发与应用》课程设计报告题目：公司考勤管理系统班级：信息与计算科学121学号：1211100xxx姓名：xxxxx日期：六月一、背景与意义考勤管理系统是公司单位管理系统中最重要的信息。通过员工考勤考核管理，反映员工在一定阶段的工作成绩。而我国众多的公司都是采用传统的手工方式记录公司员工每日的出勤情况，这种方式繁琐易错，准确性、透明度、实时性差，受人为因素影响过大，增长了公司的人力资源成本。随着现代科技的进步，运用信息和计算机技术来进行公司员工考勤的管理也成为现代化公司运作必不可少的一部分。一个公司对其职工的正常上下班、延时工作及加班工作进行考勤，通过报表的形式输出，合理调整员工工作安排，用计算机对考勤数据进行记录分析解决，得到我们所需要的各种记录报表和考勤原始数据，方便了公司对员工的管理。因此，开发一个合适的、高质量的、界面和谐、易于操作的公司考勤管理系统进行公司员工的考勤管理，对公司的长远发展有重大的意义。本考勤管理系统的开发，是为了规范公司中考勤的管理工作，为考勤管理部门提供一套高效、快捷的应用软件。使用计算机进行考勤信息的解决，具有如下优点：及时信息交流，改善管理质量通过本系统对考勤信息的规范管理，可以及时掌握员工的信息，也能让员工及时了解部门主管发布的告知信息。方便查询，提高工作效率。二、需求分析本系统要实现的功能模块重要有：基本信息设立模块、档案管理模块、审批模块、查询模块、考勤记录模块、汇总记录模块和系统管理模块。规定提供数据输入、输出和整理功能，满足平常工作的需要；具有查询、记录等功能，方便用户快捷使用和管理信息，提高工作效率；采用一定的安全保护措施，应分有不同的使用权限，保证系统的实用性；具有系统备份和恢复功能，使系统使用者能容易进行维护，同时软件功能完整、运营稳定、界面和谐、操作简便。1.对功能的规定针对公司的考勤管理业务，本系统要实现以下功能：基本信息设立拥有对系统中的基本信息，涉及：部门信息、员工职称信息、请假类型信息、加班类型信息、出差类型信息的添加、修改、删除、查询等操作的功能，当大量新的信息需要录入时，可以通过EXCEL表格导入方式实现，同时也可将相应信息分别导出到EXCEL表格中。档案管理拥有对系统中的员工信息、考勤制度信息、告知信息进行增长、修改、删除、查询等操作的功能。在录入员工信息时，输入员工的身份证号，进行回车操作即可自动填充员工性别，年龄，身份属地，生日信息。当有大量新的员工信息、告知信息需要录入时，可以通过EXCEL表格导入方式实现，同时也可将相应信息导出到EXCEL表格中。审批管理拥有对系统中的请假信息、加班信息、出差信息进行审批的功能。查询出相应的记录，对该记录进行审批，审批通过则说明该条请假记录生效，否则为无效记录。此功能只有考勤主管和部门主管有操作权限。查询管理拥有对系统中员工信息、公司考勤制度、出勤信息、请假信息、加班信息、出差信息进行查询的功能。可以按照员工编号，姓名，部门名等条件对员工具体信息进行模糊/精确查询。考勤记录管理拥有对公司员工中的出勤信息、请假信息、加班信息、出差信息进行增长、修改、删除、查询等操作，同时具有将相应信息导出到EXCEL表格中的功能。其中只有可以对出勤信息进行操作，当有大量员工考勤相关信息需要录入时，只有考勤管理员可以通过EXCEL表格导入方式实现。汇总记录管理拥有对考勤情况进行记录以及报表查看的功能。选择某一时间段，可对该时间段员工的考勤信息进行记录，其中只有审核通过的请假记录，加班记录，出差记录可以参与到考勤情况记录中。可以对记录过的考勤情况通过报表来查看到具体信息。系统管理拥有密码修改、用户管理、系统初始化、数据备份/恢复、日记查看的功能。密码修改供当前登录用户修改自己的密码，修改时需要对新密码提供二次输入校对。用户管理提供用户的添加，修改，删除，用户名使用的是员工的编号。系统初始化将系统中的数据都删除，初始化前需对系统中的数据进行备份。数据备份/恢复拥有对系统中的数据进行备份和恢复的功能。日记查看拥有对使用本系统的用户的登录及退出信息进行查看的功能，以维护系统的正常操作。2.对性能的规定为保证本系统可以长期、安全、稳定、可靠、高效的运营，系统须满足以下性能规定：实用性：本系统应可以系统，便捷，快速的实现对员工作休时间的管理，从而保障公司的高效运营。操作简朴：本系统应合用于不同计算机水平的使用者，系统的操作尽也许简朴易行。技术先进：产品的系统设计和开发应紧跟计算机的发展潮流，产用目前较先进的设计思想，运用最先进的开发技术和开发工具。安装使用简便：服务器端安装简洁明了，客户机无需再装任何软件，可直接使用。适应性和可扩充性：应能广泛使用与不同的公司，开发过程中，应充足考虑可扩充问题。3.数据管理能力的规定为保证公司使用本系统中数据的完整性，须满足以下数据管理规定：尽也许减少故障的发生，保障好数据的备份，数据的备份采用数据库服务器的备份功能实现。当系统发生故障时，当重新启动的时候，系统可以正常运营，若有数据遗失，可以通过备份来还原。要保证数据的安全性，只有授权的人员才干进入系统进行相应的操作。发现有错误的数据，及时地进行修改。系统总体分析与设计1.解决方案为公司中的员工分别分派一个用户号和密码及相应角色，员工可用该用户名和密码登录进入公司考勤管理系统。不同的角色相应有不同的使用权限：普通员工可以进入系统可以对各类信息进行查询，录入自己的请假，加班及出差的记录，对考勤的记录报表进行查看以及对自己的登录密码进行修改；部门主管除拥有普通员工所有权限外，还可对员工信息，告知信息进行添加，修改，删除的操作，对员工输入的请假，加班，出差记录进行审批，对员工某一阶段的考勤进行记录；考勤管理员除拥有普通员工所有权限外，还可对公司的考勤制度进行设立，对员工的出勤信息进行录入或导入，同时也可对员工的请假，加班及出差记录进行批量导入；考勤主管具有系统的完全管理权限，要定期对系统进行检查和备份，以维护系统的安全。系统设计分八个模块：主菜单模块，登录模块，档案管理模块，审批管理模块，查询管理模块，考勤记录管理模块，汇总记录管理模块和系统管理模块。具体的功能结构图如图1-1所示。图3-1公司考勤管理系统功能结构图本系统采用Delphi技术，以及SQLServer数据管理技术进行重要的设计，数据库用SQLServer进行设计和管理。系统使用分三种角色，涉及：员工，考勤管理员，部门主管，考勤主管。体现各角色的使用权限的功能结构图如图1-2。图3-2体现各角色使用权限的功能结构图2.数据库设计Personal(员工信息表)员工信息表重要存放员工的基本信息，具体字段信息如表3-1。表3-1员工信息表字段名称类型长度码说明Pno员工编号CHAR14PKP+日期+序号Pname姓名VARCHAR10NotnullDno部门编号CHAR14FKNotnullPTno职务编号CHAR14FKNotnullIDCard身份证CHAR18ShuDi身份属地CHAR20Sex性别CHAR2Age年龄INT-Birth生日DATE-Tel电话号码VARCHAR20Photo相片VARBINARY50PersonalType(职称表)职称表重要存放员工职称信息，被员工信息表所调用，具体字段信息如表4-9。表4-9职称表字段名称类型长度码说明PTno职称编号CHAR14PKPT+序号PTname职称名称VARCHAR20NotnullDepartment(部门信息表)部门信息表重要存放部门基本信息，提供应员工信息表调用，具体字段信息如表4-10。表4-10部门信息表字段名称类型长度码说明Dno部门编号CHAR14PKD+序号Dname部门名称VARCHAR20NotnullIntroduce部门简介VARCHAR100Attendance(考勤登记表)考勤登记表重要存放员工平常的出勤信息，具体字段信息如表4-11。表4-11考勤登记表字段名称类型长度码说明Ano记录编号CHAR14PKA+日期+序号Pno员工编号CHAR14FKNotnullInOut出入情况CHAR2NotnullATime时间DATETIME-NotnullOverwork(加班登记表)加班登记表重要存放员工平常加班的记录信息，只有主管审批通过后才干生效，才干进行相应的加班记录，具体字段信息见表4-12。表4-12加班登记表字段名称类型长度码说明Ono记录编号CHAR14PKO+日期+序号Pno员工编号CHAR14FKNotnullStartTime开始时间DATETIME-EndTime结束时间DATETIME-OTno加班类型编号CHAR14FKNotnullAPProval审核结果CHAR1OverworkType(加班类型表)加班类型表重要存放加班类型信息，提供应加班登记表调用，具体字段信息如表4-13。表4-13加班类型表字段名称类型长度码说明OTno加班类型编号CHAR14PKOT+序号OTname加班类型名VARCHAR20NotnullErrand(出差登记表)出差登记表重要存放出差记录信息，只有主管审批通过后才干生效，才干进行相应的出差记录，具体字段如表4-14。表4-14出差登记表字段名称类型长度码说明Eno记录编号CHAR14PKE+日期+序号Pno员工编号CHAR14FKNotnullStartTime开始时间DATETIME-EndTime结束时间DATETIME-Place出差地点VARCHAR20ETno出差类型编号CHAR14FKNotnullAPProval审核结果CHAR1ErrandType(出差类型表)出差类型表重要存放加班类型信息，提供应出差登记表调用，具体字段信息如表4-15。表4-15出差类型表字段名称类型长度码说明ETno出差类型编号CHAR14PKET+序号ETname出差类型名VARCHAR20NotnullLeave(请假登记表)请假登记表重要存放请假记录信息，只有主管审批通过后才干生效，才干进行相应的请假记录，具体字段如表4-16。表4-16请假登记表字段名称类型长度码说明Lno记录编号CHAR14PKL+日期+序号Pno员工编号CHAR14FKNotnullStartTime开始时间DATETIME-EndTime结束时间DATETIME-LTno请假类型编号CHAR14FKNotnullDemo情况说明VARCHAR100APProval审核结果CHAR1LeaveType(请假类型表)请假类型表重要存放加班类型信息，提供应请假登记表调用，具体字段信息如表4-17。表4-17请假类型表字段名称类型长度码说明LTno请假类型编号CHAR14PKLT+序号LTname请假类型名VARCHAR20NotnullAttendanceCount(出勤情况登记表)出勤情况登记表重要记录的是员工出勤，请假，加班，出差的一些记录信息，提供应公司管理着进行查看，具体字段信息如表4-18。表4-18出勤情况登记表字段名称类型长度码说明ACno记录编号CHAR14PKG+日期+序号Pno员工编号CHAR14FKNotnullARno制度编号CHAR14FKNotnullYearMonth年月CHAR7NotnullShouldTime应工作时间INT-小时ActualTime实际工作时间INT-小时LeaveTime累计请假时间INT-半天OverworkTime累计加班时间INT-小时ErrandTime累计出差时间INT-半天Late迟到次数SMALLINT-次LateTime迟届时间累计INT-小时Early早退次数SMALLINT-次EarlyTime早退时间累计INT-小时Absence旷工次数SMALLINT-次AbsenceTime旷工时间累计INT-小时Logdb(日记信息表)日记信息表重要记录的是公司中的员工登录到系统以及退出系统的信息，具体字段信息如表4-19。表4-19日记信息表字段名称类型长度码说明Logno日记编号INT-PK自动编号Uno用户编号CHAR14FKNotnullLoginTime登录时间DATETIME-LogoutTime退出时间DATETIME-Userdb(用户信息表)用户信息表重要存储用户的信息，其中员工编号作为用户名进行登录，密码默认为‘123456’，同时也定义了用户的角色，具体字段信息如表4-20。表4-20用户信息表字段名称类型长度码说明Uno用户编号CHAR14PKU+日期+序号Pno员工编号CHAR14FKNotnullAuthority角色CHAR2Passwd密码VARCHAR20默认为‘123456’ARegulation(考勤制度表)考勤制度表重要存储的是公司的考勤制度，具体字段信息如表4-21。表4-21考勤制度表字段名称类型长度码说明ARno制度编号CHAR14PKAR+序号ComeTime上午上班时间TIME-NotnullGooffTimepm上午下班时间TIME-NotnullComeTimepm下午上班时间TIME-NotnullGooffTime下午下班时间TIME-NotnullAmemo考勤制度VARCHAR10000ShuDi(属地表)属地表重要存储的是身份证前6位所相应的属地名称的信息，录入员工数据中身份证数据时快速得出员工性别，年龄，身份属地，生日信息，减小因手工输入产生的信息错误概率，具体字段信息如表4-22。表4-22属地表字段名称类型长度码说明ID编号CHAR6PKNotnullBM属地编号CHAR14NotnullDQ属地名称VARCHAR30NotnullNotice(告知表)告知表重要存储的是公司中的一些告知信息，具体字段信息如表4-23。表4-23告知表字段名称类型长度码说明Nno告知编号CHAR14PKN+日期+序号NTime告知时间Datetime-Title告知标题VARCHAR30NotnullContent告知内容CHAR5000四、系统的实现1.界面设计系统设计中的界面设计不同于一般的平面设计，拥有自身的设计特性。网页设计应时刻围绕“信息传达”这一主题来进行。界面力求清楚、准确、有力地传达信息。本系统重要采用的的界面模板重要涉及：登录界面、主菜单界面、基本信息设立界面、档案管理界面、查询管理界面、考勤记录管理界面、审核管理界面、汇总记录界面、系统管理设立界面。

（1）.登录界面运营本系统后，出现如图4-1的登录界面，输入用户名和密码，选择用户角色，点击“登录”按钮，假如输入的信息不对的，会有“用户名或密码错误，请检查!”的错误提醒，假如三次登陆错误，会有“你无权使用本系统!”的错误提醒，即每次登录，最多允许有三次登录错误的机会。当所有信息都输入对的后，可以登录到主界面，不用的用户角色进入的主界面中的功能菜单不同。登录界面允许效果图如图4-1。4-1登录界面(2).主菜单界面用户登录后，可进入到如图4-2的主菜单界面，在主菜单界面中，用户可以看到公司中发布的告知信息，这有助于让公司中的员工尽也许快而全面地掌握公司中消息的动态。主菜单界面如图4-2图4-2主菜单界面(3).查询管理界面在主菜单上点击查询菜单下的“请假情况查询”，即可进入到如下图4-3请假情况查询界面，在界面中输入员工号或员工姓名、部门名称、请假类型等信息，以及选择时间范围的信息，即可进行组合查询以及模糊查询。其他信息的查询功能跟此功能基本一致，在此不再赘述。请假情况查询界面如图4-3。图4-3请假情况查询界面(4).信息管理界面信息管理界面涉及：基本信息设立界面（图4-4）、档案管理界面（图4-5）、考勤记录管理界面（图4-6）。点击信息管理界面中的“添加”按钮，相应的记录信息将自动编号，在输入相应信息即可。以员工信息管理为例，点击“添加”按钮，编号处将自动填充，编号规则为：:“P+年月日+001”，输入省份证号后，回车即可得出性别、年龄、省份属地、生日等信息，在部门的编辑框处双击，即可得出公司中的部门信息，选择相应的部门，则可在该编辑框中得出相应的部门编号，也可手动输入对的的部门编号，职称的填写方式和部门的填写方式相同，再相应地填写其他信息，点击保存，假如信息填写无误，会有“保存成功！”的提醒，添加信息完毕。同时也可选中相应的员工信息，对其进行删除操作。也可导入/导出Excel表格。其他信息管理的功能跟此功能类似，不再赘述。档案管理界面如图4-4。图4-4档案管理界面图4-5基础信息设立界面图4-6考勤记录管理界面(5).审批界面在主菜单上点击查询菜单下的“出差审批”，即可进入到出差审批界面，如图4-7。查询出相应的员工出差信息，觉得员工的出差信息无误后即可进行审批，点击“拟定”按钮后，会出现“审批完毕！”的提醒。出差审批界面如图4-7。图4-7审批界面(6).记录界面在主菜单上点击查询菜单下的“出差审批”，即可进入到出差审批界面，如图4-8。选择需要记录的起始时间，点击记录，即可得到员工考勤情况的登记表（记录的信息涉及：应工作时间（小时），实际工作时间（小时），累计请假时间（半天），累计加班时间（小时），累计出差时间（半天），迟到次数（次），迟届时间累计（小时），早退次数（次），早退时间累计（小时），旷工次数（次），旷工时间累计（小时））。记录需要一些时间，进度条会显示记录的进度。记录界面如图4-8。图4-8记录界面系统实现关键技术(1).添加数据时自动编号运营系统时，当需要新增信息时，点击“添加”按钮，即可进行自动对记录的ID进行编号，以实现编号的规范性。添加数据时自动编号的代码如下：自定义函数：根据本来编号bh,构造新编号：年月日+3位序列。functionxbh(bh:string):string;vard0,d1,c:string;begind0:=copy(bh,2,8); //取8位日期数码c:=copy(bh,10,3); //取最后3位数码d1:=formatdatetime('yyyymmdd',now); //获取当天日期ifd0<>d1then //假如不是同一天bh:=d1+'001' //构造当天第一个编号elsebeginc:='00'+inttostr(strtoint(c)+1); //在本来基础上加1bh:=d1+copy(c,length(c)-2,3); //构造编号：日期+3位整数end;xbh:=bh;end;(2).员工信息管理中“添加”按钮的点击事件代码。procedureTDanganForm.SpeedButton1Click(Sender:TObject);varbm:string;beginifadotable1.IsEmptythenbm:='P'+formatdatetime('yyyymmdd',now)+'001' //构造第一个编号elsebeginadotable1.Last;bm:=adotable1['Pno']; //读取数据表末尾记录的编号bm:='P'+xbh(bm);end;adotable1.Append; //在表尾添加新纪录DBedit11.Text:=bm; //在编辑框中填写新编号DBGrid2.Fields[0].Text:=bm; //在表格框中填写新编号DBedit12.SetFocus; //将光标移到填写姓名框end;员工信息添加为例，效果如图4-9。图4-9员工信息添加页面(3).输入身份证号回车显示其他相关信息运营系统，添加员工信息时，输入身份证号，回车即可显示该身份证号相应员工的身份属地、性别、年龄及生日信息。使用此功能减小了录入信息的人员因失误输入错误信息的概率，保证了信息的对的性。运营效果图如图5-1所示，具体代码如下：1.身份证号相应编辑框回车事件代码。procedureTDanganForm.DBEdit13KeyPress(Sender:TObject;varKey:Char);constW:array[1..18]ofinteger=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1);//位权A:array[0..10]ofchar=('1','0','x','9','8','7','6','5','4','3','2');//校验码Vari,j,S:integer;NewID,shud:string;da:Tdatetime;kk:boolean;beginkk:=(key=#8)or(key=#13)or(key='x')or(key='X')or(key>=#48)and(key<=#57);ifnotkkthenkey:=#0;//键盘输入过滤掉非身份证号码ifkey=#13thenbeginNewID:=DBedit13.Text;//1.检查长度ifLength(NewID)<>18thenbeginmessageDlg('输入的数字不是18位，请重新输入!',mtError,[mbOK],0);DBedit13.SetFocus;exit;end;//2.检查属地ADOquery1.close;ADOquery1.Parameters.ParamByName('sd').Value:=copy(NewID,1,6); //给动态SQL语句赋值ADOquery1.open;//打开，查询记录ifADOquery1.RecordCount=0then//假如找不到sd相同的记录beginMessageDlg('前面六位数字无效，请检查！',mtinformation,[mbok],0);DBedit13.SetFocus;exit;endelseshud:=ADOquery1.FieldByName('DQ').Value;//获取属地//3.检查年年份i:=strtoint(copy(NewID,7,4)); //获取年份if(i<1900)or(i>2023)thenbeginMessageDlg('年份号码无效，请检查！',mtinformation,[mbok],0);DBedit13.SetFocus;exit;end;j:=strtoint(copy(NewID,11,2)); //获取月份if(j<1)or(j>12)thenbeginMessageDlg('月份号码无效，请检查！',mtinformation,[mbok],0);DBedit13.SetFocus;exit;end;s:=strtoint(copy(NewID,13,2));if(s<1)or(s>31)thenbeginMessageDlg('日数号码无效，请检查！',mtinformation,[mbok],0);DBedit13.SetFocus;exit;end;da:=EncodeDate(i,j,s); //构造生日//4.检查校验码s:=0;fori:=1to17dobeginj:=StrToInt(NewID[i])*W[i];s:=s+j;end;s:=smod11;ifNewID[18]='X'thenNewID[18]:='x';//将大写字母X变成小写字母xifNewID[18]<>A[S]thenbeginmessageDlg('校验码错！请重新输入!',mtError,[mbOK],0);showmessagefmt('校验码错！应当是%s！请重新输入!',[A[S]]);DBedit13.SetFocus;exit;end;//5.填写证件的具体信息ADOTable1.Edit;DBedit16.Text:=shud; //属地DBedit17.Text:=formatdatetime('ddddd',da);//生日DBedit18.Text:=formatdatetime('yy',date-da);//年龄ifNewID[17]in['1','3','5','7','9']then //以下是判别性别DBedit15.Text:='男'elseDBedit15.Text:='女';end;end;(4).导出EXCEL表格运营系统时，可以对系统中的相应数据信息导出到excel表格中，方便用户使用相应的数据信息。1.将某个数据表导出成Excel表的通用函数functionExportDBGrid(DBGrid:TDBGrid;SheetName:string):boolean; //直接保存，不显示EXCELVar c,r,i,j:integer;app:Olevariant;TempFileName,ResultFileName:string;begintryresult:=True;app:=CreateOLEObject('Excel.application');app.WorkBooks.Add(xlWBatWorkSheet);exceptApplication.MessageBox('Excel没有对的安装！','警告',MB_OK);result:=False;exit;end;mainForm.SaveDialog1.DefaultExt:='xls';mainForm.SaveDialog1.FileName:=SheetName;ifmainForm.SaveDialog1.ExecutethenTempFileName:=mainForm.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;fori:=0toc-1doapp.cells(1,1+i):=DBGrid.DataSource.DataSet.Fields[i].DisplayLabel;forj:=1tordobeginfori:=0toc-1doapp.cells(j+1,1+i):=DBGrid.DataSource.DataSet.Fields[i].AsString;DBGrid.DataSource.DataSet.Next;end;ResultFileName:=TempFileName;ifResultFileName=''thenResultFileName:='数据导出';ifFileExists(TempFileName)thenDeleteFile(TempFileName);app.Activeworkbook.saveas(TempFileName);app.Activeworkbook.close(false);app.quit;app:=unassigned;end;调用导出Excel数据的函数，“导出Excel表格”按钮的点击事件代码。procedureTDanganForm.SpeedButton5Click(Sender:TObject);begintryScreen.Cursor:=crHourGlass; //将鼠标成沙漏状main.ExportDBGrid(DBGrid2,'');//调用函数导出数据finallyScreen.Cursor:=crDefault; //回复鼠标原状end;end;(5).导入EXCEL表格运营系统时，当需要新增大量数据时，可以通过导入Excel表格实现批量增长的操作。注意：需要导入的Excel表格中的数据一定要与数据表中的数据类型一致，否则会出现导入失败的情况。导入Excel表格中数据的代码如下：procedureTDanganForm.SpeedButton9Click(Sender:TObject);varoe:variant;str:string;i,j,n:integer;beginifopendialog1.Executethenopendialog1.DefaultExt:='xls';str:=opendialog1.FileName;oe:=CreateOleObject('Excel.Application');oe.workbooks.open(str);//连接所选定的Excel表n:=oe.Worksheets[1].UsedRange.Rows.Count;//求工作表sheet1中已有数据的行数tryfori:=2tondo//从Excel表第2行开始，逐行读入(假设第一行为表头)beginADoTable2.Append; //添加空记录forj:=1toADOTable2.fieldcountdoADOTable2.Fields[j-1].Value:=oe.worksheets[1].cells[i,j].value;end;ADoTable2.Refresh;showmessage('导入完毕');exceptshowmessage('数据库错误或有反复编号,请检查');end;end;(6).组合查询配合模糊查询组合查询配合模糊查询可以满足查询的各种需求。本系统中多处都实现了组合查询以及模糊查询。以查询请假记录为例，代码如下：1.查询请假记录，“查询”按钮的事件代码。procedureTSelectForm.SpeedButton3Click(Sender:TObject);varsqlstr:string;begdate:string;enddate:string;beginifComboBox2.Text<>''thenbeginbegdate:=datetostr(DateTimePicker3.date);enddate:=datetostr(DateTimePicker4.date);ifcombobox2.Text='在...日'thensqlstr:='select*fromLeave_Per_DwhereStarTime>='''+begdate+'''andStarTime<'''+datetostr(DateTimePicker3.date+1)+'''andPnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%'''elseifcombobox2.Text='在...前'thensqlstr:='select*fromLeave_Per_DwhereStarTime<='''+begdate+'''andPnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%'''elseifcombobox2.Text='在...后'thensqlstr:='select*fromLeave_Per_DwhereStarTime>='''+begdate+'''andPnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%'''elseifcombobox2.Text='在...间'thensqlstr:='select*fromLeave_Per_DwhereStarTime>='''+begdate+'''andStarTime<='''+enddate+'''andPnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%''';endelsesqlstr:='select*fromLeave_Per_DwherePnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%''';ADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add(sqlstr);ADOQuery2.open;end;查询效果如图4-10。图4-10请假查询效果图（7）.汇总记录运营本系统时，选择需要记录的起始时间，点击记录，即可得到员工考勤情况的登记表（记录的信息涉及：应工作时间（小时），实际工作时间（小时），累计请假时间（半天），累计加班时间（小时），累计出差时间（半天），迟到次数（次），迟届时间累计（小时），早退次数（次），早退时间累计（小时），旷工次数（次），旷工时间累计（小时））。具体代码如下：“记录”按钮事件代码。procedureTHuizForm.SpeedButton2Click(Sender:TObject);varbm,Pno,ARno:string; //保存员工号i,j,n,counter:integer; //用于循环和计数Time:Array[0..3]ofTTime; //保存上下班时间//Hour:array[0..1]ofdouble; //保存上下午工作时间//a:double;Hour:array[0..1]ofinteger;a:integer;StartTime,EndTime:TDate; //保存始末时间TimeStamp,Late_Time,Early_Time,Work_Start,Work_end:TDateTime;//保存中间判断时间Late,Early,Absent,Leave,Errand:Boolean; //保存判断结果WorkHour,OverHour,LeaveHDay,ErrandHDay,LateTime,EarlyTime,AbsentTime,ActualTime:Integer; //保存时间间隔长度LateTimes,EarlyTimes,AbsentTimes:SmallInt;Temp:String;beginTime[0]:=strtotime(DanganForm.ADOTable4['ComeTime']);Time[1]:=strtotime(DanganForm.ADOTable4['GooffTimepm']);Time[2]:=strtotime(DanganForm.ADOTable4['ComeTimepm']);Time[3]:=strtotime(DanganForm.ADOTable4['GooffTime']);Hour[0]:=Round((Time[1]-Time[0])*24); //上午工作时间Hour[1]:=Round((Time[3]-Time[2])*24); //下午工作时间a:=Hour[0]+Hour[1]; //一天工作时间ARno:=DanganForm.ADOTable4['ARno'];StartTime:=DateTimePicker1.Date;EndTime:=DateTimePicker2.Date;begin//提取员工列表T_person.Filtered:=True;T_person.Open;n:=T_person.RecordCount;i:=0;Gauge1.Progress:=0;T_person.First;whilenotT_person.Eofdobegin//获取出勤记录Pno:=T_person['Pno'];Q_attend.Close;Q_attend.Parameters.ParamValues['Pno']:=Pno;Q_attend.Parameters.ParamValues['STARTTIME']:=StartTime;Q_attend.Parameters.ParamValues['ENDTIME']:=EndTime+1;Q_attend.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;whileTimeStamp<EndTime+0.1dobeginif(DayOfWeek(TimeStamp)<>1)and(DayOfWeek(TimeStamp)<>7)thenbeginActualTime:=ActualTime+a;forj:=0to1do //遍历班次beginLate_Time:=TimeStamp+Time[2*j];Early_Time:=TimeStamp+Time[2*j+1];//判断是否请假Q_leave.Close;Q_leave.Parameters.ParamValues['Pno']:=Pno;Q_leave.Parameters.ParamValues['STARTTIME']:=Late_Time;Q_leave.Parameters.ParamValues['ENDTIME']:=Early_Time;Q_leave.Open;Leave:=(Q_leave.RecordCount>0);//判断是否出差Q_errand.Close;Q_errand.Parameters.ParamValues['Pno']:=Pno;Q_errand.Parameters.ParamValues['STARTTIME']:=Late_Time;Q_errand.Parameters.ParamValues['ENDTIME']:=Early_Time;Q_errand.Open;errand:=(Q_leave.RecordCount>0);ifleavethen //请假Inc(LeaveHDay)elseiferrandthen //出差beginInc(ErrandHDay);WorkHour:=WorkHour+Hour[j];endelse //正常上班beginWork_start:=Late_Time;Work_end:=Early_Time;Late:=True;Absent:=False;//判断是否迟到while(notQ_attend.Eof)and(Q_attend['IOTime']<=Late_Time)dobeginLate:=(Q_attend['InOut']='O');Q_attend.Next;end;//判断是否旷工ifLatethenbeginif(notQ_attend.Eof)and(Q_attend['IOTime']<Early_Time)thenbeginWork_start:=Q_attend['IOTime']; //记录迟届时间LateTime:=LateTime+Round((Work_Start-Late_Time)*24);endelseAbsent:=True;AbsentTime:=AbsentTime+Round((Early_Time-Late_Time)*24);end;Early:=False;//判断是否早退while(notQ_attend.Eof)and(Q_attend['IOTime']<Early_Time)dobeginEarly:=(Q_attend['InOut']='O');ifEarlythenbeginWork_end:=Q_attend['IOTime'];EarlyTime:=EarlyTime+Round((Early_Time-Late_Time)*24);endelseWork_end:=Early_Time;Q_attend.Next;end;ifAbsentthenInc(AbsentTimes)elsebeginifLatethenInc(LateTimes);ifEarlythenInc(EarlyTimes);WorkHour:=WorkHour+Round((Work_end-Work_start)*24);//计算实际工作时间end;end; //一个班次判断结束end; //下一班次end; //是否休息日TimeStamp:=TimeStamp+1; //推动一天end; //后一天考勤//记录加班时间Q_overtime.Close;Q_overtime.Parameters.ParamValues['Pno']:=Pno;Q_overtime.Parameters.ParamValues['STARTTIME']:=StartTime;Q_overtime.Parameters.ParamValues['ENDTIME']:=EndTime;Q_overtime.Open;try//OverHour:=7;OverHour:=Q_overtime['SUM'];exceptOverHour:=0;end;