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

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

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

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

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

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

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

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

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

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

10、采用Delphi技术，以及SQL Server数据管理技术进行主要的设计，数据库用SQL Server进行设计和管理。系统使用分三种角色，包括：员工，考勤管理员，部门主管，考勤主管。体现各角色的使用权限的功能结构图如图1-2。图3-2 体现各角色使用权限的功能结构图2. 数据库设计(1) Personal(员工信息表)员工信息表主要存放员工的基本信息，具体字段信息如表3-1。表3-1 员工信息表字段名称类型长度码说明Pno员工编号CHAR14PKP+日期+序号Pname姓名VARCHAR10Not nullDno部门编号CHAR14FKNot nullPTno职务编号CHAR14FKNot n

11、ullIDCard身份证CHAR18ShuDi身份属地CHAR20Sex性别CHAR2Age年龄INT-Birth生日DATE-Tel电话号码VARCHAR20Photo相片VARBINARY50(2) PersonalType(职称表)职称表主要存放员工职称信息，被员工信息表所调用，具体字段信息如表4-9。表4-9 职称表字段名称类型长度码说明PTno职称编号CHAR14PKPT+序号PTname职称名称VARCHAR20Not null(3) Department(部门信息表)部门信息表主要存放部门基本信息，提供给员工信息表调用，具体字段信息如表4-10。表4-10 部门信息表字段名称类型

12、长度码说明Dno部门编号CHAR14PKD+序号Dname部门名称VARCHAR20Not nullIntroduce部门简介VARCHAR100(4) Attendance(考勤记录表)考勤记录表主要存放员工日常的出勤信息，具体字段信息如表4-11。表4-11 考勤记录表字段名称类型长度码说明Ano记录编号CHAR14PKA+日期+序号Pno员工编号CHAR14FKNot nullInOut出入情况CHAR2Not nullATime时间DATETIME-Not null(5) Overwork(加班记录表)加班记录表主要存放员工日常加班的记录信息，只有主管审批通过后才能生效，才能进行相应的

13、加班统计，具体字段信息见表4-12。表4-12 加班记录表字段名称类型长度码说明Ono记录编号CHAR14PKO+日期+序号Pno员工编号CHAR14FKNot nullStartTime开始时间DATETIME-EndTime结束时间DATETIME-OTno加班类型编号CHAR14FKNot nullAPProval审核结果CHAR1(6) OverworkType(加班类型表)加班类型表主要存放加班类型信息，提供给加班记录表调用，具体字段信息如表4-13。表4-13 加班类型表字段名称类型长度码说明OTno加班类型编号CHAR14PKOT+序号OTname加班类型名VARCHAR20No

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

15、如表4-15。表4-15 出差类型表字段名称类型长度码说明ETno出差类型编号CHAR14PKET+序号ETname出差类型名VARCHAR20Not null(9) Leave(请假记录表)请假记录表主要存放请假记录信息，只有主管审批通过后才能生效，才能进行相应的请假统计，具体字段如表4-16。表4-16 请假记录表字段名称类型长度码说明Lno记录编号CHAR14PKL+日期+序号Pno员工编号CHAR14FKNot nullStartTime开始时间DATETIME-EndTime结束时间DATETIME-LTno请假类型编号CHAR14FKNot nullDemo情况说明VARCHAR1

16、00APProval审核结果CHAR1(10) LeaveType(请假类型表)请假类型表主要存放加班类型信息，提供给请假记录表调用，具体字段信息如表4-17。表4-17 请假类型表字段名称类型长度码说明LTno请假类型编号CHAR14PKLT+序号LTname请假类型名VARCHAR20Not null(11) AttendanceCount(出勤情况统计表)出勤情况统计表主要记录的是员工出勤，请假，加班，出差的一些统计信息，提供给企业管理着进行查看，具体字段信息如表4-18。表4-18 出勤情况统计表字段名称类型长度码说明ACno记录编号CHAR14PKG+日期+序号Pno员工编号CHAR

17、14FKNot nullARno制度编号CHAR14FKNot nullYearMonth年月CHAR7Not nullShouldTime应工作时间INT-小时ActualTime实际工作时间INT-小时LeaveTime累计请假时间INT-半天OverworkTime累计加班时间INT-小时ErrandTime累计出差时间INT-半天Late迟到次数SMALLINT-次LateTime迟到时间累计INT-小时Early早退次数SMALLINT-次EarlyTime早退时间累计INT-小时Absence旷工次数SMALLINT-次AbsenceTime旷工时间累计INT-小时(12) Log

18、db(日志信息表)日志信息表主要记录的是企业中的员工登录到系统以及退出系统的信息，具体字段信息如表4-19。表4-19 日志信息表字段名称类型长度码说明Logno日志编号INT-PK自动编号Uno用户编号CHAR14FKNot nullLoginTime登录时间DATETIME-LogoutTime退出时间DATETIME-(13) Userdb(用户信息表)用户信息表主要存储用户的信息，其中员工编号作为用户名进行登录，密码默认为123456，同时也定义了用户的角色，具体字段信息如表4-20。表4-20 用户信息表字段名称类型长度码说明Uno用户编号CHAR14PKU+日期+序号Pno员工编号

19、CHAR14FKNot nullAuthority角色CHAR2Passwd密码VARCHAR20默认为123456(14) ARegulation(考勤制度表)考勤制度表主要存储的是企业的考勤制度，具体字段信息如表4-21。表4-21 考勤制度表字段名称类型长度码说明ARno制度编号CHAR14PKAR+序号ComeTime上午上班时间TIME-Not nullGooffTimepm上午下班时间TIME-Not nullComeTimepm下午上班时间TIME-Not nullGooffTime下午下班时间TIME-Not nullAmemo考勤制度VARCHAR10000(15) ShuD

20、i(属地表)属地表主要存储的是身份证前6位所对应的属地名称的信息，录入员工数据中身份证数据时快速得出员工性别，年龄，身份属地，生日信息，减小因手工输入产生的信息错误概率，具体字段信息如表4-22。表4-22 属地表字段名称类型长度码说明ID编号CHAR6PKNot nullBM属地编号CHAR14Not nullDQ属地名称VARCHAR30Not null(16) Notice(通知表)通知表主要存储的是企业中的一些通知信息，具体字段信息如表4-23。表4-23 通知表字段名称类型长度码说明Nno 通知编号CHAR14PKN+日期+序号NTime通知时间Datetime-Title 通知标题

21、VARCHAR30Not nullContent 通知内容CHAR5000四、系统的实现1. 界面设计系统设计中的界面设计不同于一般的平面设计，拥有自身的设计特征。网页设计应时刻围绕“信息传达”这一主题来进行。界面力求清晰、准确、有力地传达信息。本系统主要采用的的界面模板主要包括：登录界面、主菜单界面、基本信息设置界面、档案管理界面、查询管理界面、考勤记录管理界面、审核管理界面、汇总统计界面、系统管理设置界面。 （1）. 登录界面运行本系统后，出现如图4-1的登录界面，输入用户名和密码，选择用户角色，点击“登录”按钮，如果输入的信息不正确，会有“用户名或密码错误，请检查!”的错误提醒 ，如果三

22、次登陆错误，会有“你无权使用本系统!”的错误提醒，即每次登录，最多允许有三次登录错误的机会。当所有信息都输入正确后，可以登录到主界面，不用的用户角色进入的主界面中的功能菜单不同。登录界面允许效果图如图4-1。4-1 登录界面(2). 主菜单界面用户登录后，可进入到如图4-2的主菜单界面，在主菜单界面中，用户可以看到企业中发布的通知信息，这有利于让企业中的员工尽可能快而全面地掌握企业中消息的动态。主菜单界面如图4-2图4-2 主菜单界面(3).查询管理界面在主菜单上点击查询菜单下的“请假情况查询”，即可进入到如下图4-3请假情况查询界面，在界面中输入员工号或员工姓名、部门名称、请假类型等信息，以

23、及选择时间范围的信息，即可进行组合查询以及模糊查询。其他信息的查询功能跟此功能基本一致，在此不再赘述。请假情况查询界面如图4-3。图4-3 请假情况查询界面(4). 信息管理界面信息管理界面包括：基本信息设置界面（图4-4）、档案管理界面（图4-5）、考勤记录管理界面（图4-6）。点击信息管理界面中的“添加”按钮，相应的记录信息将自动编号，在输入相应信息即可。以员工信息管理为例，点击“添加”按钮，编号处将自动填充，编号规则为：:“P+年月日+001”，输入省份证号后，回车即可得出性别、年龄、省份属地、生日等信息，在部门的编辑框处双击，即可得出企业中的部门信息，选择相应的部门，则可在该编辑框中得

24、出相应的部门编号，也可手动输入正确的部门编号，职称的填写方式和部门的填写方式相同，再相应地填写其他信息，点击保存，如果信息填写无误，会有“保存成功！”的提示，添加信息完成。同时也可选中相应的员工信息，对其进行删除操作。也可导入/导出Excel表格。其他信息管理的功能跟此功能类似，不再赘述。档案管理界面如图4-4。图4-4 档案管理界面图4-5 基础信息设置界面图4-6 考勤记录管理界面(5). 审批界面在主菜单上点击查询菜单下的“出差审批”，即可进入到出差审批界面，如图4-7。查询出相应的员工出差信息，觉得员工的出差信息无误后即可进行审批，点击“确定”按钮后，会出现“审批完成！”的提示。出差审

25、批界面如图4-7。图4-7 审批界面(6). 统计界面在主菜单上点击查询菜单下的“出差审批”，即可进入到出差审批界面，如图4-8。选择需要统计的起始时间，点击统计，即可得到员工考勤情况的统计表（统计的信息包括：应工作时间（小时），实际工作时间（小时），累计请假时间（半天），累计加班时间（小时），累计出差时间（半天），迟到次数（次），迟到时间累计（小时），早退次数（次），早退时间累计（小时），旷工次数（次），旷工时间累计（小时）。统计需要一些时间，进度条会显示统计的进度。统计界面如图4-8。图4-8 统计界面2. 系统实现关键技术(1). 添加数据时自动编号运行系统时，当需要新增信息时，点击“添

26、加”按钮，即可进行自动对记录的ID进行编号，以实现编号的规范性。添加数据时自动编号的代码如下：1. 自定义函数：根据原来编号bh,构造新编号：年月日+3位序列。function xbh(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'/构造当

27、天第一个编号 else begin c:='00'+inttostr(strtoint(c)+1);/在原来基础上加1 bh:=d1+copy(c,length(c)-2,3);/构造编号：日期+3位整数 end; xbh:= bh; end;(2). 员工信息管理中“添加”按钮的点击事件代码。procedure TDanganForm.SpeedButton1Click(Sender: TObject);var bm:string;begin if adotable1.IsEmpty then bm:='P'+formatdatetime('yyyym

28、mdd',now)+ '001'/构造第一个编号 else begin adotable1.Last; bm:=adotable1'Pno'/ 读取数据表末尾记录的编号 bm:='P'+xbh(bm); end; adotable1.Append;/在表尾添加新纪录 DBedit11.Text:=bm;/在编辑框中填写新编号 DBGrid2.Fields0.Text:=bm;/在表格框中填写新编号 DBedit12.SetFocus;/将光标移到填写姓名框end;员工信息添加为例，效果如图4-9。图4-9 员工信息添加页面(3). 输入身

29、份证号回车显示其他相关信息运行系统，添加员工信息时，输入身份证号，回车即可显示该身份证号对应员工的身份属地、性别、年龄及生日信息。使用此功能减小了录入信息的人员因失误输入错误信息的概率，保证了信息的正确性。运行效果图如图5-1所示，具体代码如下：1. 身份证号对应编辑框回车事件代码。procedure TDanganForm.DBEdit13KeyPress(Sender: 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.

30、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 (k

31、ey>=#48) and (key<=#57); if not kk then key:=#0; /键盘输入过滤掉非身份证号码 if key=#13 then begin NewID:= DBedit13.Text; /1. 检查长度 if Length(NewID) <> 18 then begin messageDlg('输入的数字不是18位，请重新输入!',mtError,mbOK,0); DBedit13.SetFocus; exit; end; /2.检查属地 ADOquery1.close; ADOquery1.Parameters.Para

32、mByName('sd').Value:= copy(NewID,1,6); /给动态SQL语句赋值 ADOquery1.open; /打开，查询记录 if ADOquery1.RecordCount=0 then /如果找不到sd相同的记录 begin MessageDlg('前面六位数字无效，请检查！',mtinformation,mbok,0); DBedit13.SetFocus; exit; end else shud :=ADOquery1.FieldByName('DQ').Value; /获取属地/3. 检查年年份 i:=strt

33、oint(copy(NewID,7,4); /获取年份 if ( i<1900) or ( i>2020) then begin MessageDlg('年份号码无效，请检查！',mtinformation,mbok,0); DBedit13.SetFocus; exit; end ; j:=strtoint(copy(NewID,11,2); /获取月份 if ( j<1) or ( j>12) then begin MessageDlg('月份号码无效，请检查！',mtinformation,mbok,0); DBedit13.Set

34、Focus; exit; end ; s:=strtoint(copy(NewID,13,2); if ( s<1) or ( s>31) then begin MessageDlg('日数号码无效，请检查！',mtinformation,mbok,0); DBedit13.SetFocus; exit; end ; da:= EncodeDate(i,j,s); /构造生日 /4. 检查校验码 s:= 0; for i:=1 to 17 do begin j:= StrToInt(NewIDi) * Wi; s:= s + j; end; s:= s mod 11

35、; if NewID18='X' then NewID18:='x' /将大写字母X变成小写字母x if NewID18<>AS then begin messageDlg('校验码错！请重新输入!',mtError,mbOK,0); showmessagefmt('校验码错！应该是%s！请重新输入!',AS); DBedit13.SetFocus; exit; end; /5. 填写证件的详细信息 ADOTable1.Edit; DBedit16.Text :=shud; /属地 DBedit17.Text :=fo

36、rmatdatetime('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表格中，方

37、便用户使用相应的数据信息。1. 将某个数据表导出成Excel表的通用函数function ExportDBGrid(DBGrid: TDBGrid; SheetName: string): boolean;/直接保存，不显示EXCELVarc, r, i, j: integer;app: Olevariant;TempFileName, ResultFileName: string;begintry result := True; app := CreateOLEObject('Excel.application'); app.WorkBooks.Add(xlWBatWorkS

38、heet); except Application.MessageBox('Excel没有正确安装！','警告',MB_OK); result := False; exit; end; mainForm.SaveDialog1.DefaultExt:='xls' mainForm.SaveDialog1.FileName := SheetName; if mainForm.SaveDialog1.Execute then TempFileName := mainForm.SaveDialog1.FileName else Exit; app.Wo

39、rkbooks.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 do app.cells(1, 1 + i) := DBGrid.DataSource.DataSet.Fieldsi.Displa

40、yLabel; 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 := TempFileName; if ResultFileName = '' then ResultFileName := '数据导出' if FileExists(TempFileName) then De

41、leteFile(TempFileName); app.Activeworkbook.saveas(TempFileName); app.Activeworkbook.close(false); app.quit; app := unassigned;end;2. 调用导出Excel数据的函数，“导出Excel表格”按钮的点击事件代码。procedure TDanganForm.SpeedButton5Click(Sender: TObject);begin try Screen.Cursor := crHourGlass; /将鼠标成沙漏状 main.ExportDBGrid(DBGrid2

42、,''); /调用函数导出数据 finally Screen.Cursor := crDefault; /回复鼠标原状 end;end;(5).导入EXCEL表格运行系统时，当需要新增大量数据时，可以通过导入Excel表格实现批量增加的操作。注意：需要导入的Excel表格中的数据一定要与数据表中的数据类型一致，否则会出现导入失败的情况。导入Excel表格中数据的代码如下：procedure TDanganForm.SpeedButton9Click(Sender: TObject); var oe:variant; str:string; i,j,n:integer; begi

43、n 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中已有数据的行数 tryfor i:=2 to n do /从Excel表第2行开始，逐行读入(假设第一行为表头) begin A

44、DoTable2.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). 组合查询配合模糊查询组合查询配合模糊查询能够满足查询的各种需求。本系统中多处都实现了组合查询以及模糊查询。以查询请假记录为例，代码如下：1

45、. 查询请假记录，“查询”按钮的事件代码。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='在.

46、日' then sqlstr := ' select * from Leave_Per_D where StarTime>='''+ begdate + ''' and StarTime<''' +datetostr(DateTimePicker3.date+1) + ''' and Pno like ''%'+ edit4.text + '%'' and Pname like ''%'+ edit1

47、0.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 + ''&

48、#39; and Pno like ''%'+ edit4.text + '%'' and Pname like ''%'+ edit10.Text + '%'' and Dname like ''%'+ edit9.Text + '%'' and LTname like ''%'+ edit17.Text + '%''' else if combobox2.Text='在.后'

49、then sqlstr := ' select * from Leave_Per_D where StarTime>='''+ begdate + ''' and Pno like ''%'+ edit4.text + '%'' and Pname like ''%'+ edit10.Text + '%'' and Dname like ''%'+ edit9.Text + '%'' and

50、 LTname like ''%'+ edit17.Text + '%''' else if combobox2.Text='在.间' then sqlstr := ' select * from Leave_Per_D where StarTime>='''+ begdate + ''' and StarTime<=''' + enddate + ''' and Pno like ''%&#

51、39;+ edit4.text + '%'' and Pname like ''%'+ edit10.Text + '%'' and Dname like ''%'+ edit9.Text + '%'' and LTname like ''%'+ edit17.Text + '%''' end else sqlstr := ' select * from Leave_Per_D where Pno like &#

52、39;'%'+ 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。图4-10 请假查询效果图（7）. 汇总统计运行本系统时，选择需要统计的起始时间，点击统计，即可得到员工考勤情况的统计表（统计的信息包括：应工作时间（小时），实际工作时间（小时），累计请假时间（半天），累计加班时间（小时），累计出差时间（半天），迟到次数（次），迟到时间累计（小时），早退次数（次），早退时间累计（小时），旷工次数（次），旷工时间累计（小时）。具体代码如下：1. “统计”按钮事件代码。procedure THuizForm.SpeedButton2Cli