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

《企业考勤管理系统的设计说明书-.pdf》由会员分享，可在线阅读，更多相关《企业考勤管理系统的设计说明书-.pdf（42页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、广西大学数学与信息科学学院数据库开发与应用课程设计报告题目：企业考勤管理系统班级：信息与计算科学121 学号：1211100 xxx 姓名：xxxxx 1 1 日期：二一四年六月一、背景与意义考勤管理系统是企业单位管理系统中最重要的信息。通过员工考勤考核管理，反映员工在一定阶段的工作成绩。而我国众多的企业都是采用传统的手工方式记录企业员工每日的出勤情况，这种方式繁琐易错，准确性、透明度、实时性差，受人为因素影响过大，增加了企业的人力资源成本。随着现代科技的进步，利用信息和计算机技术来进行企业员工考勤的管理也成为现代化企业运作必不可少的一部分。一个企业对其职工的正常上下班、延时工作及加班工作进行

2、考勤，通过报表的形式输出，合理调整员工工作安排，用计算机对考勤数据进行统计分析处理，得到我们所需要的各种统计报表和考勤原始数据，方便了企业对员工的管理。因此，开发一个合适的、高质量的、界面友好、易于操作的企业考勤管理系统进行企业员工的考勤管理，对企业的长远发展有重大的意义。本考勤管理系统的开发，是为了规范企业中考勤的管理工作，为考勤管理部门提供一套高效、快捷的应用软件。使用计算机进行考勤信息的处理，具有如下优点：（1）及时信息交流，改善管理质量通过本系统对考勤信息的规范管理，可以及时掌握员工的信息，也能让员工及时了解部门主管发布的通知信息。（2）方便查询，提高工作效率。2 2 二、需求分析本系

3、统要实现的功能模块主要有：基本信息设置模块、档案管理模块、审批模块、查询模块、考勤记录模块、汇总统计模块和系统管理模块。要求提供数据输入、输出和整理功能，满足日常工作的需要；具有查询、统计等功能，方便用户快捷使用和管理信息，提高工作效率；采用一定的安全保护措施，应分有不同的使用权限，保证系统的实用性；具有系统备份和恢复功能，使系统使用者能容易进行维护，同时软件功能完整、运行稳定、界面友好、操作简便。1.对功能的规定针对企业的考勤管理业务，本系统要实现以下功能：（1）基本信息设置拥有对系统中的基本信息，包括：部门信息、员工职称信息、请假类型信息、加班类型信息、出差类型信息的添加、修改、删除、查询

4、等操作的功能，当大量新的信息需要录入时，可以通过EXCEL 表格导入方式实现，同时也可将相应信息分别导出到EXCEL 表格中。（2）档案管理拥有对系统中的员工信息、考勤制度信息、通知信息进行增加、修改、删除、查询等操作的功能。在录入员工信息时，输入员工的身份证号，进行回车操作即可自动填充员工性别，年龄，身份属地，生日信息。当有大量新的员工信息、通知信息需要录入时，可以通过EXCEL 表格导入方式实现，同时也可将相应信息导出到EXCEL 表格中。3 3（3）审批管理拥有对系统中的请假信息、加班信息、出差信息进行审批的功能。查询出相应的记录，对该记录进行审批，审批通过则说明该条请假记录生效，否则为

5、无效记录。此功能只有考勤主管和部门主管有操作权限。（4）查询管理拥有对系统中员工信息、企业考勤制度、出勤信息、请假信息、加班信息、出差信息进行查询的功能。可以按照员工编号，姓名，部门名等条件对员工具体信息进行模糊/精确查询。（5）考勤记录管理拥有对企业员工中的出勤信息、请假信息、加班信息、出差信息进行增加、修改、删除、查询等操作，同时具有将相应信息导出到EXCEL 表格中的功能。其中只有可以对出勤信息进行操作，当有大量员工考勤相关信息需要录入时，只有考勤管理员可以通过EXCEL 表格导入方式实现。（6）汇总统计管理拥有对考勤情况进行统计以及报表查看的功能。选择某一时间段，可对该时间段员工的考勤

6、信息进行统计，其中只有审核通过的请假记录，加班记录，出差记录能够参与到考勤情况统计中。可以对统计过的考勤情况通过报表来查看到具体信息。（7）系统管理拥有密码修改、用户管理、系统初始化、数据备份/恢复、日志查看的功能。密码修改供当前登录用户修改自己的密码，修改时需要对新密码提供二次输入校对。用户管理提供用户的添加，修改，删除，用户名使用的是员工的编号。系统初始化将系统中的数据都删除，初始化前需对系统中的数据进行备份。数据备份/恢复拥有对系统中的数据进行备份和恢复的功能。日志查看拥有对使用本系统的用户的登录及退出信息进行查看的功能，以维护系统的正常操作。2.对性能的规定为保证本系统能够长期、安全、

7、稳定、可靠、高效的运行，系统须满足4 4 以下性能要求：（1）实用性：本系统应能够系统，便捷，快速的实现对员工作休时间的管理，从而保障企业的高效运营。（2）操作简单：本系统应适用于不同计算机水平的使用者，系统的操作尽可能简单易行。（3）技术先进：产品的系统设计和开发应紧跟计算机的发展潮流，产用目前较先进的设计思想，利用最先进的开发技术和开发工具。（4）安装使用简便：服务器端安装简洁明了，客户机无需再装任何软件，可直接使用。（5）适应性和可扩充性：应能广泛使用与不同的企业，开发过程中，应充分考虑可扩充问题。3.数据管理能力的要求为保证企业使用本系统中数据的完整性，须满足以下数据管理要求：（1）尽

8、可能减少故障的发生，保障好数据的备份，数据的备份采用数据库服务器的备份功能实现。（2）当系统发生故障时，当重新启动的时候，系统能够正常运行，若有数据遗失，能够通过备份来还原。（3）要保证数据的安全性，只有授权的人员才能进入系统进行相应的操作。（4）发现有错误的数据，及时地进行修改。5 5 三、系统总体分析与设计1.解决方案为企业中的员工分别分配一个用户号和密码及相应角色，员工可用该用户名和密码登录进入企业考勤管理系统。不同的角色对应有不同的使用权限：普通员工可以进入系统可以对各类信息进行查询，录入自己的请假，加班及出差的记录，对考勤的统计报表进行查看以及对自己的登录密码进行修改；部门主管除拥有

9、普通员工所有权限外，还可对员工信息，通知信息进行添加，修改，删除的操作，对员工输入的请假，加班，出差记录进行审批，对员工某一阶段的考勤进行统计；考勤管理员除拥有普通员工所有权限外，还可对企业的考勤制度进行设置，对员工的出勤信息进行录入或导入，同时也可对员工的请假，加班及出差记录进行批量导入；考勤主管具有系统的完全管理权限，要定期对系统进行检查和备份，以维护系统的安全。系统设计分八个模块：主菜单模块，登录模块，档案管理模块，审批管理模块，查询管理模块，考勤记录管理模块，汇总统计管理模块和系统管理模块。具体的功能结构图如图1-1 所示。6 6 企业考勤管理系统档案管理考勤记录汇总统计员工信息设置考

10、勤制度设置出勤记录加班记录请假记录出差记录报表查看系统设置用户管理修改密码系统初始化备份/恢复日志管理出勤情况统计通知信息设置查询员工信息查询出勤情况查询考勤制度查询请假情况查询出差情况查询加班情况查询审批请假信息审批出差信息审批加班信息审批基础信息设置部门设置请假类型设置员工职称设置加班类型设置出差情况查询出差类型设置图 3-1 企业考勤管理系统功能结构图本系统采用 Delphi 技术，以及 SQL Server数据管理技术进行主要的设计，数据库用 SQL Server进行设计和管理。系统使用分三种角色，包括：员工，考勤管理员，部门主管，考勤主管。体现各角色的使用权限的功能结构图如图1-2。

11、7 7 用户登录员工部门主管员工信息设置考勤管理员档案管理考勤记录汇总统计查询汇总统计系统设置修改密码档案管理汇总统计系统设置修改密码修改密码考勤主管系统设置档案管理考勤记录汇总统计系统设置通知信息设置报表查看报表查看考勤制度设置查询查询查询审批审批考勤记录请假记录加班记录出差记录考勤记录基础信息设置图 3-2 体现各角色使用权限的功能结构图8 8 2.数据库设计(1)Personal(员工信息表)员工信息表主要存放员工的基本信息，具体字段信息如表3-1。表 3-1 员工信息表字段名称类型长度码说明Pno 员工编号CHAR 14 PK P+日期+序号Pname 姓名VARCHAR 10 Not

12、 null Dno 部门编号CHAR 14 FK Not null PTno 职务编号CHAR 14 FK Not null IDCard 身份证CHAR 18 ShuDi 身份属地CHAR 20 Sex 性别CHAR 2 Age 年龄INT-Birth 生日DATE-Tel 电话号码VARCHAR 20 Photo 相片VARBINARY 50(2)PersonalType(职称表)职称表主要存放员工职称信息，被员工信息表所调用，具体字段信息如表 4-9。表 4-9 职称表字段名称类型长度码说明PTno职称编号CHAR14PKPT+序号PTname职称名称VARCHAR20Not null(

13、3)Department(部门信息表)部门信息表主要存放部门基本信息，提供给员工信息表调用，具体字段9 9 信息如表 4-10。表 4-10 部门信息表字段名称类型长度码说明Dno部门编号CHAR14PKD+序号Dname部门名称VARCHAR20Not nullIntroduce部门简介VARCHAR100(4)Attendance(考勤记录表)考勤记录表主要存放员工日常的出勤信息，具体字段信息如表4-11。表 4-11 考勤记录表字段名称类型长度码说明Ano记录编号CHAR14PKA+日期+序号Pno员工编号CHAR14FKNot nullInOut出入情况CHAR2Not nullATi

14、me时间DATETIME-Not null(5)Overwork(加班记录表)加班记录表主要存放员工日常加班的记录信息，只有主管审批通过后才能生效，才能进行相应的加班统计，具体字段信息见表4-12。表 4-12 加班记录表字段名称类型长度码说明Ono记录编号CHAR14PKO+日期+序号Pno员工编号CHAR14FKNot nullStartTime开始时间DATETIME-EndTime结束时间DATETIME-OTno加班类型编号CHAR14FKNot nullAPProval 审核结果CHAR 1 10 1 0(6)OverworkType(加班类型表)加班类型表主要存放加班类型信息，提

15、供给加班记录表调用，具体字段信息如表 4-13。表 4-13 加班类型表字段名称类型长度码说明OTno加班类型编号CHAR14PKOT+序号OTname加班类型名VARCHAR20Not null(7)Errand(出差记录表)出差记录表主要存放出差记录信息，只有主管审批通过后才能生效，才能进行相应的出差统计，具体字段如表4-14。表 4-14 出差记录表字段名称类型长度码说明Eno记录编号CHAR14PKE+日期+序号Pno员工编号CHAR14FKNot nullStartTime开始时间DATETIME-EndTime结束时间DATETIME-Place出差地点VARCHAR20ETno出

16、差类型编号CHAR14FKNot nullAPProval 审核结果CHAR 1(8)ErrandType(出差类型表)出差类型表主要存放加班类型信息，提供给出差记录表调用，具体字段信息如表 4-15。表 4-15 出差类型表字段名称类型长度码说明ETno出差类型编号CHAR14PKET+序号ETname出差类型名VARCHAR20Not null11 1 1(9)Leave(请假记录表)请假记录表主要存放请假记录信息，只有主管审批通过后才能生效，才能进行相应的请假统计，具体字段如表4-16。表 4-16 请假记录表字段名称类型长度码说明Lno记录编号CHAR14PKL+日期+序号Pno员工编

17、号CHAR14FKNot nullStartTime开始时间DATETIME-EndTime结束时间DATETIME-LTno请假类型编号CHAR14FKNot nullDemo 情况说明VARCHAR 100 APProval 审核结果CHAR 1(10)LeaveType(请假类型表)请假类型表主要存放加班类型信息，提供给请假记录表调用，具体字段信息如表 4-17。表 4-17 请假类型表字段名称类型长度码说明LTno请假类型编号CHAR14PKLT+序号LTname请假类型名VARCHAR20Not null(11)AttendanceCount(出勤情况统计表)出勤情况统计表主要记录的

18、是员工出勤，请假，加班，出差的一些统计信息，提供给企业管理着进行查看，具体字段信息如表4-18。12 1 2表 4-18 出勤情况统计表字段名称类型长度码说明ACno记录编号CHAR14PKG+日期+序号Pno员工编号CHAR14FKNot nullARno制度编号CHAR14FKNot nullYearMonth年月CHAR7 Not nullShouldTime应工作时间INT-小时ActualTime实际工作时间INT-小时LeaveTime累计请假时间INT-半天OverworkTime累计加班时间INT-小时ErrandTime 累计出差时间INT-半天Late 迟到次数SMALLI

19、NT-次LateTime迟到时间累计INT-小时Early 早退次数SMALLINT-次EarlyTime早退时间累计INT-小时Absence 旷工次数SMALLINT-次AbsenceTime 旷工时间累计INT-小时(12)Logdb(日志信息表)日志信息表主要记录的是企业中的员工登录到系统以及退出系统的信息，具体字段信息如表4-19。表 4-19 日志信息表字段名称类型长度码说明Logno日志编号INT-PK自动编号Uno用户编号CHAR14FKNot nullLoginTime登录时间DATETIME-LogoutTime退出时间DATETIME-13 1 3(13)Userdb(用

20、户信息表)用户信息表主要存储用户的信息，其中员工编号作为用户名进行登录，密码默认为123456，同时也定义了用户的角色，具体字段信息如表4-20。表 4-20 用户信息表字段名称类型长度码说明Uno用户编号CHAR14PKU+日期+序号Pno员工编号CHAR14FKNot nullAuthority角色CHAR2Passwd密码VARCHAR20默认为 123456(14)ARegulation(考勤制度表)考勤制度表主要存储的是企业的考勤制度，具体字段信息如表4-21。表 4-21 考勤制度表字段名称类型长度码说明ARno制度编号CHAR14PKAR+序号ComeTime上午上班时间TIME

21、-Not nullGooffTimepm上午下班时间TIME-Not nullComeTimepm 下午上班时间TIME-Not null GooffTime 下午下班时间TIME-Not null Amemo 考勤制度VARCHAR 10000(15)ShuDi(属地表)属地表主要存储的是身份证前6 位所对应的属地名称的信息，录入员工数据中身份证数据时快速得出员工性别，年龄，身份属地，生日信息，减小因手工输入产生的信息错误概率，具体字段信息如表4-22。表 4-22 属地表字段名称类型长度码说明ID 编号CHAR 6 PK Not null BM 属地编号CHAR 14 Not null D

22、Q 属地名称VARCHAR 30 Not null 14 1 4(16)Notice(通知表)通知表主要存储的是企业中的一些通知信息，具体字段信息如表4-23。表 4-23 通知表字段名称类型长度码说明Nno 通知编号CHAR 14 PK N+日期+序号NTime 通知时间Datetime-Title 通知标题VARCHAR 30 Not null Content 通知内容CHAR 5000 15 1 5四、系统的实现1.界面设计系统设计中的界面设计不同于一般的平面设计，拥有自身的设计特征。网页设计应时刻围绕“信息传达”这一主题来进行。界面力求清晰、准确、有力地传达信息。本系统主要采用的的界面

23、模板主要包括：登录界面、主菜单界面、基本信息设置界面、档案管理界面、查询管理界面、考勤记录管理界面、审核管理界面、汇总统计界面、系统管理设置界面。（1）.登录界面运行本系统后，出现如图4-1 的登录界面，输入用户名和密码，选择用户角色，点击“登录”按钮，如果输入的信息不正确，会有“用户名或密码错误，请检查!”的错误提醒，如果三次登陆错误，会有“你无权使用本系统!”的错误提醒，即每次登录，最多允许有三次登录错误的机会。当所有信息都输入正确后，可以登录到主界面，不用的用户角色进入的主界面中的功能菜单不同。登录界面允许效果图如图4-1。4-1 登录界面16 1 6(2).主菜单界面用户登录后，可进入

24、到如图4-2 的主菜单界面，在主菜单界面中，用户可以看到企业中发布的通知信息，这有利于让企业中的员工尽可能快而全面地掌握企业中消息的动态。主菜单界面如图4-2 图 4-2 主菜单界面(3).查询管理界面在主菜单上点击查询菜单下的“请假情况查询”，即可进入到如下图4-3请假情况查询界面，在界面中输入员工号或员工姓名、部门名称、请假类型等信息，以及选择时间范围的信息，即可进行组合查询以及模糊查询。其他信息的查询功能跟此功能基本一致，在此不再赘述。请假情况查询界面如图4-3。17 1 7图 4-3 请假情况查询界面(4).信息管理界面信息管理界面包括：基本信息设置界面（图4-4）、档案管理界面（图4

25、-5）、考勤记录管理界面（图4-6）。点击信息管理界面中的“添加”按钮，相应的记录信息将自动编号，在输入相应信息即可。以员工信息管理为例，点击“添加”按钮，编号处将自动填充，编号规则为：:“P+年月日+001”，输入省份证号后，回车即可得出性别、年龄、省份属地、生日等信息，在部门的编辑框处双击，即可得出企业中的部门信息，选择相应的部门，则可在该编辑框中得出相应的部门编号，也可手动输入正确的部门编号，职称的填写方式和部门的填写方式相同，再相应地填写其他信息，点击保存，如果信息填写无误，会有“保存成功！”的提示，添加信息完成。同时也可选中相应的员工信息，对其进行删除操作。也可导入/导出 Excel

26、 表格。其他信息管理的功能跟此功能类似，不再赘述。档案管理界面如图4-4。18 1 8图 4-4 档案管理界面图 4-5 基础信息设置界面19 1 9图 4-6 考勤记录管理界面(5).审批界面在主菜单上点击查询菜单下的“出差审批”，即可进入到出差审批界面，如图 4-7。查询出相应的员工出差信息，觉得员工的出差信息无误后即可进行审批，点击“确定”按钮后，会出现“审批完成！”的提示。出差审批界面如图 4-7。图 4-7 审批界面20 2 0(6).统计界面在主菜单上点击查询菜单下的“出差审批”，即可进入到出差审批界面，如图 4-8。选择需要统计的起始时间，点击统计，即可得到员工考勤情况的统计表（

27、统计的信息包括：应工作时间（小时），实际工作时间（小时），累计请假时间（半天），累计加班时间（小时），累计出差时间（半天），迟到次数（次），迟到时间累计（小时），早退次数（次），早退时间累计（小时），旷工次数（次），旷工时间累计（小时）。统计需要一些时间，进度条会显示统计的进度。统计界面如图4-8。图 4-8 统计界面21 2 12.系统实现关键技术(1).添加数据时自动编号运行系统时，当需要新增信息时，点击“添加”按钮，即可进行自动对记录的 ID 进行编号，以实现编号的规范性。添加数据时自动编号的代码如下：1.自定义函数：根据原来编号bh,构造新编号：年月日+3 位序列。function x

28、bh(bh:string):string;var d0,d1,c:string;begin d0:=copy(bh,2,8);/取 8 位日期数码c:=copy(bh,10,3);/取最后 3 位数码d1:=formatdatetime(yyyymmdd,now);/获取当天日期if d0 d1 then/如果不是同一天bh:=d1+001/构造当天第一个编号else begin c:=00+inttostr(strtoint(c)+1);/在原来基础上加 1 bh:=d1+copy(c,length(c)-2,3);/构造编号：日期+3 位整数end;xbh:=bh;end;(2).员工信息

29、管理中“添加”按钮的点击事件代码。procedure TDanganForm.SpeedButton1Click(Sender:TObject);var bm:string;begin if adotable1.IsEmpty then 22 2 2bm:=P+formatdatetime(yyyymmdd,now)+001/构造第一个编号else begin adotable1.Last;bm:=adotable1Pno;/读取数据表末尾记录的编号bm:=P+xbh(bm);end;adotable1.Append;/在表尾添加新纪录DBedit11.Text:=bm;/在编辑框中填写新编号

30、DBGrid2.Fields0.Text:=bm;/在表格框中填写新编号DBedit12.SetFocus;/将光标移到填写姓名框end;员工信息添加为例，效果如图4-9。图 4-9 员工信息添加页面23 2 3(3).输入身份证号回车显示其他相关信息运行系统，添加员工信息时，输入身份证号，回车即可显示该身份证号对应员工的身份属地、性别、年龄及生日信息。使用此功能减小了录入信息的人员因失误输入错误信息的概率，保证了信息的正确性。运行效果图如图5-1 所示，具体代码如下：1.身份证号对应编辑框回车事件代码。procedure TDanganForm.DBEdit13KeyPress(Sender

31、:TObject;var Key:Char);const W:array 1.18 of integer=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1);/位权A:array 0.10 of char=(1,0,x,9,8,7,6,5,4,3,2);/校验码Var i,j,S:integer;NewID,shud:string;da:Tdatetime;kk:boolean;begin kk:=(key=#8)or(key=#13)or(key=x)or(key=X)or(key=#48)and(key=#57);if not kk then key:=#0;/

32、键盘输入过滤掉非身份证号码if key=#13 then begin NewID:=DBedit13.Text;/1.检查长度if Length(NewID)18 then begin messageDlg(输 入 的 数 字 不 是18位，请 重 新 输入!,mtError,mbOK,0);DBedit13.SetFocus;exit;end;24 2 4/2.检查属地ADOquery1.close;ADOquery1.Parameters.ParamByName(sd).Value:=copy(NewID,1,6);/给动态 SQL 语句赋值ADOquery1.open;/打开，查询记录i

33、f ADOquery1.RecordCount=0 then/如果找不到 sd相同的记录begin MessageDlg(前 面 六 位 数 字 无 效，请 检 查！,mtinformation,mbok,0);DBedit13.SetFocus;exit;end else shud:=ADOquery1.FieldByName(DQ).Value;/获取属地/3.检查年年份i:=strtoint(copy(NewID,7,4);/获取年份if(i2020)then begin MessageDlg(年份号码无效，请检查！,mtinformation,mbok,0);DBedit13.SetF

34、ocus;exit;end;j:=strtoint(copy(NewID,11,2);/获取月份if(j12)then begin MessageDlg(月份号码无效，请检查！,mtinformation,mbok,0);DBedit13.SetFocus;exit;25 2 5end;s:=strtoint(copy(NewID,13,2);if(s31)then begin MessageDlg(日数号码无效，请检查！,mtinformation,mbok,0);DBedit13.SetFocus;exit;end;da:=EncodeDate(i,j,s);/构造生日/4.检查校验码s:

35、=0;for i:=1 to 17 do begin j:=StrToInt(NewIDi)*Wi;s:=s+j;end;s:=s mod 11;if NewID18=X then NewID18:=x;/将大写字母 X 变成小写字母 x if NewID18AS then begin messageDlg(校验码错！请重新输入!,mtError,mbOK,0);showmessagefmt(校验码错！应该是%s！请重新输入!,AS);DBedit13.SetFocus;exit;end;/5.填写证件的详细信息ADOTable1.Edit;DBedit16.Text:=shud;/属地26

36、2 6DBedit17.Text:=formatdatetime(ddddd,da);/生日DBedit18.Text:=formatdatetime(yy,date-da);/年龄if NewID17 in 1,3,5,7,9 then/以下是判别性别DBedit15.Text:=男 else DBedit15.Text:=女;end;end;(4).导出 EXCEL 表格运行系统时，可以对系统中的相应数据信息导出到excel 表格中，方便用户使用相应的数据信息。1.将某个数据表导出成Excel 表的通用函数function ExportDBGrid(DBGrid:TDBGrid;Sheet

37、Name:string):boolean;/直接保存，不显示 EXCEL Var c,r,i,j:integer;app:Olevariant;TempFileName,ResultFileName:string;begin try result:=True;app:=CreateOLEObject(Excel.application);app.WorkBooks.Add(xlWBatWorkSheet);except Application.MessageBox(Excel没有正确安装！,警告,MB_OK);result:=False;exit;end;mainForm.SaveDialog

38、1.DefaultExt:=xls;mainForm.SaveDialog1.FileName:=SheetName;27 2 7if mainForm.SaveDialog1.Execute then TempFileName:=mainForm.SaveDialog1.FileName else Exit;app.Workbooks.add;app.Visible:=false;Screen.Cursor:=crHourGlass;DBGrid.DataSource.DataSet.First;c:=DBGrid.DataSource.DataSet.FieldCount;r:=DBGri

39、d.DataSource.DataSet.RecordCount;Application.ProcessMessages;for i:=0 to c-1 do app.cells(1,1+i):=DBGrid.DataSource.DataSet.Fieldsi.DisplayLabel;for j:=1 to r do begin for i:=0 to c-1 do app.cells(j+1,1+i):=DBGrid.DataSource.DataSet.Fieldsi.AsString;DBGrid.DataSource.DataSet.Next;end;ResultFileName:

40、=TempFileName;if ResultFileName=then ResultFileName:=数据导出;if FileExists(TempFileName)then DeleteFile(TempFileName);app.Activeworkbook.saveas(TempFileName);app.Activeworkbook.close(false);app.quit;app:=unassigned;end;2.调用导出 Excel 数据的函数，“导出 Excel 表格”按钮的点击事件代码。28 2 8procedure TDanganForm.SpeedButton5Cl

41、ick(Sender:TObject);begin try Screen.Cursor:=crHourGlass;/将鼠标成沙漏状main.ExportDBGrid(DBGrid2,);/调用函数导出数据finally Screen.Cursor:=crDefault;/回复鼠标原状end;end;(5).导入 EXCEL 表格运行系统时，当需要新增大量数据时，可以通过导入Excel 表格实现批量增加的操作。注意：需要导入的Excel 表格中的数据一定要与数据表中的数据类型一致，否则会出现导入失败的情况。导入Excel 表格中数据的代码如下：procedure TDanganForm.Spee

42、dButton9Click(Sender:TObject);var oe:variant;str:string;i,j,n:integer;begin if opendialog1.Execute then opendialog1.DefaultExt:=xls;str:=opendialog1.FileName;oe:=CreateOleObject(Excel.Application);oe.workbooks.open(str);/连接所选定的 Excel 表n:=oe.Worksheets1.UsedRange.Rows.Count;/求工作表sheet1中已有数据的行数try for

43、 i:=2 to n do/从 Excel 表第 2 行开始，逐行读入(假设第一行为表头)29 2 9begin ADoTable2.Append;/添加空记录for j:=1 to ADOTable2.fieldcount do ADOTable2.Fieldsj-1.Value:=oe.worksheets1.cellsi,j.value;end;ADoTable2.Refresh;showmessage(导入完毕);except showmessage(数据库错误或有重复编号,请检查);end;end;(6).组合查询配合模糊查询组合查询配合模糊查询能够满足查询的各种需求。本系统中多处都

44、实现了组合查询以及模糊查询。以查询请假记录为例，代码如下：1.查询请假记录，“查询”按钮的事件代码。procedure TSelectForm.SpeedButton3Click(Sender:TObject);var sqlstr:string;begdate:string;enddate:string;begin if ComboBox2.Text then begin begdate:=datetostr(DateTimePicker3.date);enddate:=datetostr(DateTimePicker4.date);if combobox2.Text=在.日 then sq

45、lstr:=select*from Leave_Per_D where StarTime=+begdate+and StarTime+datetostr(DateTimePicker3.date+1)+and Pno like%+edit4.text+%and Pname like%+edit10.Text+%and Dname like%+edit9.Text+%and LTname like%+edit17.Text+%30 3 0else if combobox2.Text=在.前 then sqlstr:=select*from Leave_Per_D where StarTime=+

46、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=在.间 then sqlstr:=select*from Leave_Per_D where StarTime=+begdate+and StarTime=+enddate+and Pno like%+edit4.text+%and Pname like%+edit10.Text+%and Dname like

47、%+edit9.Text+%and LTname like%+edit17.Text+%;end else sqlstr:=select*from Leave_Per_D where Pno like%+edit4.text+%and Pname like%+edit10.Text+%and Dname like%+edit9.Text+%and LTname like%+edit17.Text+%;ADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add(sqlstr);ADOQuery2.open;end;查询效果如图 4-10。31 3

48、1图 4-10 请假查询效果图（7）.汇总统计运行本系统时，选择需要统计的起始时间，点击统计，即可得到员工考勤情况的统计表（统计的信息包括：应工作时间（小时），实际工作时间（小时），累计请假时间（半天），累计加班时间（小时），累计出差时间（半天），迟到次数（次），迟到时间累计（小时），早退次数（次），早退时间累计（小时），旷工次数（次），旷工时间累计（小时）。具体代码如下：1.“统计”按钮事件代码。procedure THuizForm.SpeedButton2Click(Sender:TObject);var bm,Pno,ARno:string;/保存员工号i,j,n,counter:in

49、teger;/用于循环和计数Time:Array0.3of TTime;/保存上下班时间/Hour:array0.1of double;/保存上下午工作时间/a:double;Hour:array0.1of integer;a:integer;StartTime,EndTime:TDate;/保存始末时间32 3 2TimeStamp,Late_Time,Early_Time,Work_Start,Work_end:TDateTime;/保存中间判断时间Late,Early,Absent,Leave,Errand:Boolean;/保存判断结果WorkHour,OverHour,LeaveHD

50、ay,ErrandHDay,LateTime,EarlyTime,AbsentTime,ActualTime:Integer;/保存时间间隔长度LateTimes,EarlyTimes,AbsentTimes:SmallInt;Temp:String;begin Time0:=strtotime(DanganForm.ADOTable4ComeTime);Time1:=strtotime(DanganForm.ADOTable4GooffTimepm);Time2:=strtotime(DanganForm.ADOTable4ComeTimepm);Time3:=strtotime(Danga