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

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

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

2、息和和计算机机技术来来进行企企业员工工考勤的的管理也也成为现现代化企企业运作作必不可可少的一一部分。一个企企业对其其职工的的正常上上下班、延时工工作及加加班工作作进行考考勤，通通过报表表的形式式输出，合合理调整整员工工工作安排排，用计计算机对对考勤数数据进行行统计分分析处理理，得到到我们所所需要的的各种统统计报表表和考勤勤原始数数据，方便了了企业对对员工的的管理。因此，开开发一个个合适的的、高质质量的、界面友友好、易于操操作的企企业考勤勤管理系系统进行行企业员员工的考考勤管理理，对企企业的长长远发展展有重大大的意义义。本考勤管管理系统统的开发发，是为为了规范范企业中中考勤的的管理工工作，为为考

3、勤管管理部门门提供一一套高效效、快捷捷的应用用软件。使用计算算机进行行考勤信信息的处处理，具具有如下下优点：（1） 及时信息息交流，改改善管理理质量通过本系系统对考考勤信息息的规范范管理，可可以及时时掌握员员工的信信息，也也能让员员工及时时了解部部门主管管发布的的通知信信息。（2） 方便查询询，提高高工作效效率。二、需求求分析本系统要要实现的的功能模模块主要要有：基基本信息息设置模模块、档档案管理理模块、审批模模块、查查询模块块、考勤勤记录模模块、汇汇总统计计模块和和系统管管理模块块。要求求提供数数据输入入、输出出和整理理功能，满满足日常常工作的的需要；具有查查询、统统计等功功能，方方便用户户

4、快捷使使用和管管理信息息，提高高工作效效率；采采用一定定的安全全保护措措施，应应分有不不同的使使用权限限，保证证系统的的实用性性；具有有系统备备份和恢恢复功能能，使系统统使用者者能容易易进行维维护，同同时软件件功能完完整、运运行稳定定、界面友好好、操作作简便。1. 对功能能的规定定针对企业业的考勤勤管理业业务，本本系统要要实现以以下功能能：（1） 基本信息息设置拥有对系系统中的的基本信信息，包包括：部部门信息息、员工工职称信信息、请请假类型型信息、加班类类型信息息、出差差类型信信息的添添加、修修改、删删除、查查询等操操作的功功能，当当大量新新的信息息需要录录入时，可可以通过过EXCCEL表表格

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

6、录录，对该该记录进进行审批批，审批批通过则则说明该该条请假假记录生生效，否否则为无无效记录录。此功功能只有有考勤主主管和部部门主管管有操作作权限。（4） 查询管理理拥有对系系统中员员工信息息、企业业考勤制制度、出出勤信息息、请假假信息、加班信信息、出出差信息息进行查查询的功功能。可可以按照照员工编编号，姓姓名，部部门名等等条件对对员工具具体信息息进行模模糊/精精确查询询。（5） 考勤记录录管理拥有对企企业员工工中的出出勤信息息、请假假信息、加班信信息、出出差信息息进行增增加、修修改、删删除、查查询等操操作，同同时具有有将相应应信息导导出到EEXCEEL表格格中的功功能。其其中只有有可以对对出勤

7、信信息进行行操作，当当有大量量员工考考勤相关关信息需需要录入入时，只只有考勤勤管理员员可以通通过EXXCELL表格导导入方式式实现。（6） 汇总统计计管理拥有对考考勤情况况进行统统计以及及报表查查看的功功能。选选择某一一时间段段，可对对该时间间段员工工的考勤勤信息进进行统计计，其中中只有审审核通过过的请假假记录，加加班记录录，出差差记录能能够参与与到考勤勤情况统统计中。可以对对统计过过的考勤勤情况通通过报表表来查看看到具体体信息。（7） 系统管理理拥有密码码修改、用户管管理、系系统初始始化、数数据备份份/恢复复、日志志查看的的功能。密码修修改供当当前登录录用户修修改自己己的密码码，修改改时需要

8、要对新密密码提供供二次输输入校对对。用户户管理提提供用户户的添加加，修改改，删除除，用户户名使用用的是员员工的编编号。系系统初始始化将系系统中的的数据都都删除，初初始化前前需对系系统中的的数据进进行备份份。数据据备份/恢复拥拥有对系系统中的的数据进进行备份份和恢复复的功能能。日志志查看拥拥有对使使用本系系统的用用户的登登录及退退出信息息进行查查看的功功能，以以维护系系统的正正常操作作。2. 对性能能的规定定为保证本本系统能能够长期期、安全全、稳定定、可靠靠、高效效的运行行，系统统须满足足以下性性能要求求：（1） 实用性：本系统统应能够够系统，便便捷，快快速的实实现对员员工作休休时间的的管理，从

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

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

11、普通员员工可以以进入系系统可以以对各类类信息进进行查询询，录入入自己的的请假，加加班及出出差的记记录，对对考勤的的统计报报表进行行查看以以及对自自己的登登录密码码进行修修改；部部门主管管除拥有有普通员员工所有有权限外外，还可可对员工工信息，通通知信息息进行添添加，修修改，删删除的操操作，对对员工输输入的请请假，加加班，出出差记录录进行审审批，对对员工某某一阶段段的考勤勤进行统统计；考考勤管理理员除拥拥有普通通员工所所有权限限外，还还可对企企业的考考勤制度度进行设设置，对对员工的的出勤信信息进行行录入或或导入，同同时也可可对员工工的请假假，加班班及出差差记录进进行批量量导入；考勤主主管具有有系统

12、的的完全管管理权限限，要定定期对系系统进行行检查和和备份，以以维护系系统的安安全。系统设计计分八个个模块：主菜单单模块，登登录模块块，档案案管理模模块，审审批管理理模块，查查询管理理模块，考考勤记录录管理模模块，汇汇总统计计管理模模块和系系统管理理模块。具体的的功能结结构图如如图1-1所示示。图3-11 企业业考勤管管理系统统功能结结构图本系统采采用Deelphhi技术术，以及及SQLL Seerveer数据据管理技技术进行行主要的的设计，数数据库用用SQLL Seerveer进行行设计和和管理。系统使用用分三种种角色，包包括：员员工，考考勤管理理员，部部门主管管，考勤勤主管。体现各各角色的的

13、使用权权限的功功能结构构图如图图1-2。图3-22 体现现各角色色使用权权限的功功能结构构图2. 数数据库设设计(1) Perssonaal(员员工信息息表)员工信息息表主要要存放员员工的基基本信息息，具体体字段信信息如表表3-11。表3-11 员工工信息表表字段名称类型长度码说明Pno员工编号号CHARR14PKP+日期期+序号Pnamme姓名VARCCHARR10Not nulllDno部门编号号CHARR14FKNot nulllPTnoo职务编号号CHARR14FKNot nulllIDCaard身份证CHARR18ShuDDi身份属地地CHARR20Sex性别CHARR2Age年龄I

14、NT-Birtth生日DATEE-Tel电话号码码VARCCHARR20Photto相片VARBBINAARY50(2) PerssonaalTyype(职称表表)职称表主主要存放放员工职职称信息息，被员员工信息息表所调调用，具具体字段段信息如如表4-9。表4-99 职称称表字段名称类型长度码说明PTnoo职称编号号CHARR14PKPT+序序号PTnaame职称名称称VARCCHARR20Not nulll(3) Depaartmmentt(部门门信息表表)部门信息息表主要要存放部部门基本本信息，提提供给员员工信息息表调用用，具体体字段信信息如表表4-110。表4-110 部部门信息息表字段

15、名称类型长度码说明Dno部门编号号CHARR14PKD+序号号Dnamme部门名称称VARCCHARR20Not nulllIntrroduuce部门简介介VARCCHARR100(4) Atteendaancee(考勤勤记录表表)考勤记录录表主要要存放员员工日常常的出勤勤信息，具具体字段段信息如如表4-11。表4-111 考考勤记录录表字段名称类型长度码说明Ano记录编号号CHARR14PKA+日期期+序号Pno员工编号号CHARR14FKNot nulllInOuut出入情况况CHARR2Not nulllATimme时间DATEETIMME-Not nulll(5) Overrworrk

16、(加加班记录录表)加班记录录表主要要存放员员工日常常加班的的记录信信息，只只有主管管审批通通过后才才能生效效，才能能进行相相应的加加班统计计，具体体字段信信息见表表4-112。表4-112 加加班记录录表字段名称类型长度码说明Ono记录编号号CHARR14PKO+日期期+序号Pno员工编号号CHARR14FKNot nulllStarrtTiime开始时间间DATEETIMME-EndTTimee结束时间间DATEETIMME-OTnoo加班类型型编号CHARR14FKNot nulllAPPrrovaal审核结果果CHARR1(6) OverrworrkTyype(加班类类型表)加班类型型表

17、主要要存放加加班类型型信息，提提供给加加班记录录表调用用，具体体字段信信息如表表4-113。表4-113 加加班类型型表字段名称类型长度码说明OTnoo加班类型型编号CHARR14PKOT+序序号OTnaame加班类型型名VARCCHARR20Not nulll(7) Erraand(出差记记录表)出差记录录表主要要存放出出差记录录信息，只有主管审批通过后才能生效，才能进行相应的出差统计，具体字段如表4-14。表4-114 出出差记录录表字段名称类型长度码说明Eno记录编号号CHARR14PKE+日期期+序号Pno员工编号号CHARR14FKNot nulllStarrtTiime开始时间间D

18、ATEETIMME-EndTTimee结束时间间DATEETIMME-Placce出差地点点VARCCHARR20ETnoo出差类型型编号CHARR14FKNot nulllAPPrrovaal审核结果果CHARR1(8) ErraandTTypee(出差差类型表表)出差类型型表主要要存放加加班类型型信息，提提供给出出差记录录表调用用，具体体字段信信息如表表4-115。表4-115 出出差类型型表字段名称类型长度码说明ETnoo出差类型型编号CHARR14PKET+序序号ETnaame出差类型型名VARCCHARR20Not nulll(9) Leavve(请请假记录录表)请假记录录表主要要存

19、放请请假记录录信息，只有主管审批通过后才能生效，才能进行相应的请假统计，具体字段如表4-16。表4-116 请请假记录录表字段名称类型长度码说明Lno记录编号号CHARR14PKL+日期期+序号Pno员工编号号CHARR14FKNot nulllStarrtTiime开始时间间DATEETIMME-EndTTimee结束时间间DATEETIMME-LTnoo请假类型型编号CHARR14FKNot nulllDemoo情况说明明VARCCHARR100APPrrovaal审核结果果CHARR1(10) LeavveTyype(请假类类型表)请假类型型表主要要存放加加班类型型信息，提提供给请请假记

20、录录表调用用，具体体字段信信息如表表4-117。表4-117 请请假类型型表字段名称类型长度码说明LTnoo请假类型型编号CHARR14PKLT+序序号LTnaame请假类型型名VARCCHARR20Not nulll(11) AtteendaanceeCouunt(出勤情情况统计计表)出勤情况况统计表表主要记记录的是是员工出出勤，请请假，加加班，出出差的一一些统计计信息，提提供给企企业管理理着进行行查看，具具体字段段信息如如表4-18。表4-118 出出勤情况况统计表表字段名称类型长度码说明ACnoo记录编号号CHARR14PKG+日期期+序号Pno员工编号号CHARR14FKNot nul

21、llARnoo制度编号号CHARR14FKNot nulllYearrMonnth年月CHARR7Not nulllShouuldTTimee应工作时时间INT-小时ActuualTTimee实际工作作时间INT-小时LeavveTiime累计请假假时间INT-半天OverrworrkTiime累计加班班时间INT-小时ErraandTTimee累计出差差时间INT-半天Latee迟到次数数SMALLLINNT-次LateeTimme迟到时间间累计INT-小时Earlly早退次数数SMALLLINNT-次EarllyTiime早退时间间累计INT-小时Abseencee旷工次数数SMALLLI

22、NNT-次AbseenceeTimme旷工时间间累计INT-小时(12) Logddb(日日志信息息表)日志信息息表主要要记录的的是企业业中的员员工登录录到系统统以及退退出系统统的信息息，具体体字段信信息如表表4-119。表4-119 日日志信息息表字段名称类型长度码说明Lognno日志编号号INT-PK自动编号号Uno用户编号号CHARR14FKNot nulllLogiinTiime登录时间间DATEETIMME-LogooutTTimee退出时间间DATEETIMME-(13) Userrdb(用户信信息表)用户信息息表主要要存储用用户的信信息，其其中员工工编号作作为用户户名进行行登录，

23、密密码默认认为12334566，同时时也定义义了用户户的角色色，具体体字段信信息如表表4-220。表4-220 用用户信息息表字段名称类型长度码说明Uno用户编号号CHARR14PKU+日期期+序号Pno员工编号号CHARR14FKNot nulllAuthhoriity角色CHARR2Passswd密码VARCCHARR20默认为12334566(14) AReggulaatioon(考考勤制度度表)考勤制度度表主要要存储的的是企业业的考勤勤制度，具具体字段段信息如如表4-21。表4-221 考考勤制度度表字段名称类型长度码说明ARnoo制度编号号CHARR14PKAR+序序号ComeeTi

24、mme上午上班班时间TIMEE-Not nulllGoofffTiimeppm上午下班班时间TIMEE-Not nulllComeeTimmepmm下午上班班时间TIMEE-Not nulllGoofffTiime下午下班班时间TIMEE-Not nulllAmemmo考勤制度度VARCCHARR100000(15) ShuDDi(属属地表)属地表主主要存储储的是身身份证前前6位所所对应的的属地名名称的信信息，录录入员工工数据中中身份证证数据时时快速得得出员工工性别，年年龄，身身份属地地，生日日信息，减减小因手手工输入入产生的的信息错错误概率率，具体体字段信信息如表表4-222。表4-222

25、属属地表字段名称类型长度码说明ID编号CHARR6PKNot nulllBM属地编号号CHARR14Not nulllDQ属地名称称VARCCHARR30Not nulll(16) Notiice(通知表表)通知表主主要存储储的是企企业中的的一些通通知信息息，具体体字段信信息如表表4-223。表4-223 通通知表字段名称类型长度码说明Nno 通知编号号CHARR14PKN+日期期+序号NTimme通知时间间Dateetimme-Titlle 通知标题题VARCCHARR30Not nulllConttentt 通知内容容CHARR50000四、系统统的实现现1. 界界面设计计系统设计计中的界

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

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

28、理界面面在主菜单单上点击击查询菜菜单下的的“请假情情况查询询”，即可可进入到到如下图图4-33请假情情况查询询界面，在在界面中中输入员员工号或或员工姓姓名、部部门名称称、请假假类型等等信息，以以及选择择时间范范围的信信息，即即可进行行组合查查询以及及模糊查查询。其其他信息息的查询询功能跟跟此功能能基本一一致，在在此不再再赘述。请假情情况查询询界面如如图4-3。图4-33 请假假情况查查询界面面(4). 信息息管理界界面信息管理理界面包包括：基基本信息息设置界界面（图图4-44）、档档案管理理界面（图图4-55）、考考勤记录录管理界界面（图图4-66）。点点击信息息管理界界面中的的“添加”按钮，

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

30、可选中相相应的员员工信息息，对其其进行删删除操作作。也可可导入/导出EExceel表格格。其他他信息管管理的功功能跟此此功能类类似，不不再赘述述。档案案管理界界面如图图4-44。图4-44 档案案管理界界面图4-55 基础础信息设设置界面面图4-66 考勤勤记录管管理界面面(5). 审批批界面在主菜单单上点击击查询菜菜单下的的“出差审审批”，即可可进入到到出差审审批界面面，如图图4-77。查询询出相应应的员工工出差信信息，觉觉得员工工的出差差信息无无误后即即可进行行审批，点点击“确定”按钮后后，会出出现“审批完完成！”的提示示。出差差审批界界面如图图4-77。图4-77 审批批界面(6). 统

31、计计界面在主菜单单上点击击查询菜菜单下的的“出差审审批”，即可可进入到到出差审审批界面面，如图图4-88。选择择需要统统计的起起始时间间，点击击统计，即即可得到到员工考考勤情况况的统计计表（统统计的信信息包括括：应工工作时间间（小时时），实实际工作作时间（小小时），累累计请假假时间（半半天），累累计加班班时间（小小时），累累计出差差时间（半半天），迟迟到次数数（次），迟迟到时间间累计（小小时），早早退次数数（次），早早退时间间累计（小小时），旷旷工次数数（次），旷旷工时间间累计（小小时）。统计需需要一些些时间，进进度条会会显示统统计的进进度。统统计界面面如图44-8。图4-88 统计计界面2.

32、 系统实现现关键技技术(1). 添加加数据时时自动编编号运行系统统时，当当需要新新增信息息时，点点击“添加”按钮，即即可进行行自动对对记录的的ID进进行编号号，以实实现编号号的规范范性。添添加数据据时自动动编号的的代码如如下：1. 自定义函函数：根根据原来来编号bbh,构构造新编编号：年年月日+3位序序列。funcctioon xxbh(bh:strringg):sstriing;var dd0,dd1,cc : strringg; beggin d0:=coopy(bh,2,88);/取取8位日日期数码码 c:=coppy(bbh,110,33);/取取最后33位数码码 d1:=foorma

33、atdaatettimee(yyyyyymmddd,noww);/获获取当天天日期 if d00 d11 theen / 如果不不是同一一天 bh:=d11+ 0011/构构造当天天第一个个编号 ellse beeginn c:=000+intttosstr(strrtoiint(c)+1);/在在原来基基础上加加1 bhh:=dd1+ccopyy(c,lenngthh(c)-2,3);/构构造编号号：日期期+3位位整数 ennd; xbbh:= bhh; ennd;(2). 员工工信息管管理中“添加”按钮的的点击事事件代码码。procceduure TDaangaanFoorm.Speeed

34、BButtton11Cliick(Sennderr: TTObjjectt);var bm:strringg;begiin if adootabble11.IssEmppty theen bbm:=P+foormaatdaatettimee(yyyyyymmddd,noww)+ 0001/构构造第一一个编号号 elsse beggin addotaablee1.LLastt; bmm:=aadottablle1Pnno;/ 读取数数据表末末尾记录录的编号号 bmm:=P+xbhh(bmm); endd; adootabble11.Apppennd;/在在表尾添添加新纪纪录 DBeeditt11

35、.Texxt:=bm;/在在编辑框框中填写写新编号号 DBGGridd2.FFiellds0.Texxt:=bm;/在在表格框框中填写写新编号号 DBeeditt12.SettFoccus;/将将光标移移到填写写姓名框框end;员工信息息添加为为例，效效果如图图4-9。图4-99 员工工信息添添加页面面(3). 输入入身份证证号回车车显示其其他相关关信息运行系统统，添加加员工信信息时，输输入身份份证号，回回车即可可显示该该身份证证号对应应员工的的身份属属地、性性别、年年龄及生生日信息息。使用用此功能能减小了了录入信信息的人人员因失失误输入入错误信信息的概概率，保保证了信信息的正正确性。运行效效

36、果图如如图5-1所示示，具体体代码如如下：1. 身身份证号号对应编编辑框回回车事件件代码。procceduure TDaangaanFoorm.DBEEditt13KKeyPPresss(SSendder: TOObjeect; vaar KKey: Chhar);consst W:arrray 1.188 oof iinteegerr = (7,9,110,55,8,4,22,1,6,33,7,9,110,55,8,4,22,1); /位权权 A:aarraay 0.10 off chhar = (1,00,x,9,88,7,6,55,4,3,22); /校验码码Var i, j, S: i

37、nntegger; NeewIDD, sshudd: sstriing; daa:Tddateetimme; kkk:boooleean;begiin kkk:= (keey=#8) or (keey=#13) orr (kkey=x) oor (keyy=XX) or (keey=#488) aand (keey=#577); iff noot kkk tthenn keey:=#0; /键盘输输入过滤滤掉非身身份证号号码 iff keey=#13 theen beeginn NNewIID:= DBBediit133.Teext; /11. 检检查长度度 iif LLenggth(Neww

38、ID) 188 thhen bbegiin meessaageDDlg(输入入的数字字不是118位，请请重新输输入!,mttErrror,mbbOK,0); DBBediit133.SeetFoocuss; exxit; eend; /22.检查查属地 ADOOqueery11.cllosee; ADOOqueery11.Paarammeteers.ParramBByNaame(sdd).Vallue:= ccopyy(NeewIDD,1,6); /给动态态SQLL语句赋赋值 ADOOqueery11.oppen; /打开，查查询记录录 if ADOOqueery11.ReecorrdCoou

39、ntt=0 theen /如如果找不不到sdd相同的的记录 beggin MMesssageeDlgg(前前面六位位数字无无效，请请检查！,mmtinnforrmattionn,mmbokk,00); DBBediit133.SeetFoocuss; eexitt; endd elsse shuud :=ADDOquueryy1.FFielldByyNamme(DQ).VValuue; /获取取属地/3. 检查查年年份份 i:=strrtoiint(coppy(NNewIID,77,4); /获获取年份份 iif ( ii220200) theen beggin MMesssageeDlgg(

40、年年份号码码无效，请请检查！,mmtinnforrmattionn,mmbokk,00); DDBeddit113.SSetFFocuus; eexitt; endd ; jj:=sstrttoinnt(ccopyy(NeewIDD,111,2); /获获取月份份 iff ( j122) theen beggin MMesssageeDlgg(月月份号码码无效，请请检查！,mmtinnforrmattionn,mmbokk,00); DBBediit133.SeetFoocuss; eexitt; endd ; ss:=sstrttoinnt(ccopyy(NeewIDD,133,2); iif ( ss331) thhen beggin MMesssageeDlgg(日日数号码码无效，请请检查！,mmtinnforrmattionn,mmbokk,00); DBBediit133.SeetFoocuss; eexitt; endd ; daa:= EnccodeeDatte(ii,j,s); /构构造生日日 /4. 检查查校验码码 s:= 0; forr i:=1