《企业考勤管理系统的设计说明书27622.docx》由会员分享，可在线阅读，更多相关《企业考勤管理系统的设计说明书27622.docx（69页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、广西大学数学与信息科学学院数据库开开发与应应用课程设计报报告题目 ： 企业考考勤管理理系统 班 级：信信息与计计算科学学1211学 号：1121111000xxxx 姓 名：xxxxxxx日 期： 二一一四年六六月一、 背景景与意义义考勤管理系系统是企企业单位位管理系系统中最最重要的的信息。通通过员工工考勤考考核管理理，反映映员工在在一定阶阶段的工工作成绩绩。而我我国众多多的企业业都是采采用传统统的手工工方式记记录企业业员工每每日的出出勤情况况，这种方方式繁琐琐易错，准准确性、透透明度、实实时性差差，受人人为因素素影响过过大，增增加了企企业的人人力资源源成本。随随着现代代科技的的进步，利利用信
2、息息和计算算机技术术来进行行企业员员工考勤勤的管理理也成为为现代化化企业运运作必不不可少的的一部分分。一个个企业对对其职工工的正常常上下班班、延时时工作及及加班工工作进行行考勤，通通过报表表的形式式输出，合合理调整整员工工工作安排排，用计计算机对对考勤数数据进行行统计分分析处理理，得到到我们所所需要的的各种统统计报表表和考勤勤原始数数据，方便了了企业对对员工的的管理。因此，开开发一个个合适的的、高质质量的、界面友友好、易于操操作的企企业考勤勤管理系系统进行行企业员员工的考考勤管理理，对企企业的长长远发展展有重大大的意义义。本考勤管理理系统的的开发，是是为了规规范企业业中考勤勤的管理理工作，为为
3、考勤管管理部门门提供一一套高效效、快捷捷的应用用软件。使用计算机机进行考考勤信息息的处理理，具有有如下优优点：（1） 及时信息交交流，改改善管理理质量通过本系统统对考勤勤信息的的规范管管理，可可以及时时掌握员员工的信信息，也也能让员员工及时时了解部部门主管管发布的的通知信信息。（2） 方便查询，提提高工作作效率。二、需求分分析本系统要实实现的功功能模块块主要有有：基本本信息设设置模块块、档案案管理模模块、审审批模块块、查询询模块、考考勤记录录模块、汇汇总统计计模块和和系统管管理模块块。要求求提供数数据输入入、输出出和整理理功能，满满足日常常工作的的需要；具有查查询、统统计等功功能，方方便用户户
4、快捷使使用和管管理信息息，提高高工作效效率；采采用一定定的安全全保护措措施，应应分有不不同的使使用权限限，保证证系统的的实用性性；具有有系统备备份和恢恢复功能能，使系统统使用者者能容易易进行维维护，同同时软件件功能完完整、运运行稳定定、界面友好好、操作作简便。1. 对对功能的的规定针对企业的的考勤管管理业务务，本系系统要实实现以下下功能：（1） 基本信息设设置拥有对系统统中的基基本信息息，包括括：部门门信息、员员工职称称信息、请请假类型型信息、加加班类型型信息、出出差类型型信息的的添加、修修改、删删除、查查询等操操作的功功能，当当大量新新的信息息需要录录入时，可可以通过过EXCCEL表表格导入
5、入方式实实现，同同时也可可将相应应信息分分别导出出到EXXCELL表格中中。（2） 档案管理拥有对系统统中的员员工信息息、考勤勤制度信信息、通通知信息息进行增增加、修修改、删删除、查查询等操操作的功功能。在在录入员员工信息息时，输输入员工工的身份份证号，进进行回车车操作即即可自动动填充员员工性别别，年龄龄，身份份属地，生生日信息息。当有有大量新新的员工工信息、通通知信息息需要录录入时，可可以通过过EXCCEL表表格导入入方式实实现，同同时也可可将相应应信息导导出到EEXCEEL表格格中。（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-11所示。图3-1 企业考考勤管理理系统功功能结构构图本系统采用用Dellphii技术，以以及SQQL SServver数数据管理理技术进进行主要要的设计计，数据据库用SSQL Serrverr进行设设计和管管理。系统使用分分三种角角色，包包括：员员工，考考勤管理理员，部部门主管管，考勤勤主管。体体现各角角色的使使用权限限
13、的功能能结构图图如图11-2。图3-2 体现各各角色使使用权限限的功能能结构图图2. 数据据库设计计(1) Persoonall(员工工信息表表)员工信息表表主要存存放员工工的基本本信息，具具体字段段信息如如表3-1。表3-1 员工信信息表字段名称类型长度码说明Pno员工编号CHAR14PKP+日期+序号Pnamee姓名VARCHHAR10Not nnulllDno部门编号CHAR14FKNot nnulllPTno职务编号CHAR14FKNot nnulllIDCarrd身份证CHAR18ShuDii身份属地CHAR20Sex性别CHAR2Age年龄INT-Birthh生日DATE-Tel电
14、话号码VARCHHAR20Photoo相片VARBIINARRY50(2) PersoonallTyppe(职职称表)职称表主要要存放员员工职称称信息，被被员工信信息表所所调用，具具体字段段信息如如表4-9。表4-9 职称表表字段名称类型长度码说明PTno职称编号CHAR14PKPT+序号号PTnamme职称名称VARCHHAR20Not nnulll(3) Deparrtmeent(部门信信息表)部门信息表表主要存存放部门门基本信信息，提提供给员员工信息息表调用用，具体体字段信信息如表表4-110。表4-100 部门门信息表表字段名称类型长度码说明Dno部门编号CHAR14PKD+序号Dna
15、mee部门名称VARCHHAR20Not nnulllIntrooducce部门简介VARCHHAR100(4) Attenndannce(考勤记记录表)考勤记录表表主要存存放员工工日常的的出勤信信息，具具体字段段信息如如表4-11。表4-111 考勤勤记录表表字段名称类型长度码说明Ano记录编号CHAR14PKA+日期+序号Pno员工编号CHAR14FKNot nnulllInOutt出入情况CHAR2Not nnulllATimee时间DATETTIMEE-Not nnulll(5) Overwworkk(加班班记录表表)加班记录表表主要存存放员工工日常加加班的记记录信息息，只有有主管审审
16、批通过过后才能能生效，才才能进行行相应的的加班统统计，具具体字段段信息见见表4-12。表4-122 加班班记录表表字段名称类型长度码说明Ono记录编号CHAR14PKO+日期+序号Pno员工编号CHAR14FKNot nnulllStarttTimme开始时间DATETTIMEE-EndTiime结束时间DATETTIMEE-OTno加班类型编编号CHAR14FKNot nnulllAPProovall审核结果CHAR1(6) OverwworkkTyppe(加加班类型型表)加班类型表表主要存存放加班班类型信信息，提提供给加加班记录录表调用用，具体体字段信信息如表表4-113。表4-133 加
17、班班类型表表字段名称类型长度码说明OTno加班类型编编号CHAR14PKOT+序号号OTnamme加班类型名名VARCHHAR20Not nnulll(7) Errannd(出出差记录录表)出差记录表表主要存存放出差差记录信信息，只只有主管管审批通通过后才才能生效效，才能能进行相相应的出出差统计计，具体体字段如如表4-14。表4-144 出差差记录表表字段名称类型长度码说明Eno记录编号CHAR14PKE+日期+序号Pno员工编号CHAR14FKNot nnulllStarttTimme开始时间DATETTIMEE-EndTiime结束时间DATETTIMEE-Placee出差地点VARCHH
18、AR20ETno出差类型编编号CHAR14FKNot nnulllAPProovall审核结果CHAR1(8) ErranndTyype(出差类类型表)出差类型表表主要存存放加班班类型信信息，提提供给出出差记录录表调用用，具体体字段信信息如表表4-115。表4-155 出差差类型表表字段名称类型长度码说明ETno出差类型编编号CHAR14PKET+序号号ETnamme出差类型名名VARCHHAR20Not nnulll(9) Leavee(请假假记录表表)请假记录表表主要存存放请假假记录信信息，只只有主管管审批通通过后才才能生效效，才能能进行相相应的请请假统计计，具体体字段如如表4-16。表4
19、-166 请假假记录表表字段名称类型长度码说明Lno记录编号CHAR14PKL+日期+序号Pno员工编号CHAR14FKNot nnulllStarttTimme开始时间DATETTIMEE-EndTiime结束时间DATETTIMEE-LTno请假类型编编号CHAR14FKNot nnulllDemo情况说明VARCHHAR100APProovall审核结果CHAR1(10) LeaveeTyppe(请请假类型型表)请假类型表表主要存存放加班班类型信信息，提提供给请请假记录录表调用用，具体体字段信信息如表表4-117。表4-177 请假假类型表表字段名称类型长度码说明LTno请假类型编编号C
20、HAR14PKLT+序号号LTnamme请假类型名名VARCHHAR20Not nnulll(11) AttenndannceCCounnt(出出勤情况况统计表表)出勤情况统统计表主主要记录录的是员员工出勤勤，请假假，加班班，出差差的一些些统计信信息，提提供给企企业管理理着进行行查看，具具体字段段信息如如表4-18。表4-188 出勤勤情况统统计表字段名称类型长度码说明ACno记录编号CHAR14PKG+日期+序号Pno员工编号CHAR14FKNot nnulllARno制度编号CHAR14FKNot nnulllYearMMontth年月CHAR7Not nnulllShoulldTiime
21、应工作时间间INT-小时ActuaalTiime实际工作时时间INT-小时LeaveeTimme累计请假时时间INT-半天OverwworkkTimme累计加班时时间INT-小时ErranndTiime累计出差时时间INT-半天Late迟到次数SMALLLINTT-次LateTTimee迟到时间累累计INT-小时Earlyy早退次数SMALLLINTT-次EarlyyTimme早退时间累累计INT-小时Absennce旷工次数SMALLLINTT-次AbsennceTTimee旷工时间累累计INT-小时(12) Logdbb(日志志信息表表)日志信息表表主要记记录的是是企业中中的员工工登录到到
22、系统以以及退出出系统的的信息，具具体字段段信息如如表4-19。表4-199 日志志信息表表字段名称类型长度码说明Lognoo日志编号INT-PK自动编号Uno用户编号CHAR14FKNot nnulllLoginnTimme登录时间DATETTIMEE-LogouutTiime退出时间DATETTIMEE-(13) Userddb(用用户信息息表)用户信息表表主要存存储用户户的信息息，其中中员工编编号作为为用户名名进行登登录，密密码默认认为12334566，同时时也定义义了用户户的角色色，具体体字段信信息如表表4-220。表4-200 用户户信息表表字段名称类型长度码说明Uno用户编号CHAR
23、14PKU+日期+序号Pno员工编号CHAR14FKNot nnulllAuthooritty角色CHAR2Passwwd密码VARCHHAR20默认为11234456(14) AReguulattionn(考勤勤制度表表)考勤制度表表主要存存储的是是企业的的考勤制制度，具具体字段段信息如如表4-21。表4-211 考勤勤制度表表字段名称类型长度码说明ARno制度编号CHAR14PKAR+序号号ComeTTimee上午上班时时间TIME-Not nnulllGoofffTimmepmm上午下班时时间TIME-Not nnulllComeTTimeepm下午上班时时间TIME-Not nnull
24、lGoofffTimme下午下班时时间TIME-Not nnulllAmemoo考勤制度VARCHHAR100000(15) ShuDii(属地地表)属地表主要要存储的的是身份份证前66位所对对应的属属地名称称的信息息，录入入员工数数据中身身份证数数据时快快速得出出员工性性别，年年龄，身身份属地地，生日日信息，减减小因手手工输入入产生的的信息错错误概率率，具体体字段信信息如表表4-222。表4-222 属地地表字段名称类型长度码说明ID编号CHAR6PKNot nnulllBM属地编号CHAR14Not nnulllDQ属地名称VARCHHAR30Not nnulll(16) Noticce(
25、通通知表)通知表主要要存储的的是企业业中的一一些通知知信息，具具体字段段信息如如表4-23。表4-233 通知知表字段名称类型长度码说明Nno 通知编号CHAR14PKN+日期+序号NTimee通知时间Datettimee-Titlee 通知标题VARCHHAR30Not nnulllConteent 通知内容CHAR5000四、系统的的实现1. 界面面设计系统设计中中的界面面设计不不同于一一般的平平面设计计，拥有有自身的的设计特特征。网网页设计计应时刻刻围绕“信息传传达”这一主主题来进进行。界界面力求求清晰、准准确、有有力地传传达信息息。本系统主要要采用的的的界面面模板主主要包括括：登录录界
26、面、主主菜单界界面、基基本信息息设置界界面、档档案管理理界面、查查询管理理界面、考考勤记录录管理界界面、审审核管理理界面、汇汇总统计计界面、系系统管理理设置界界面。 （1）. 登登录界面面运行本系统统后，出出现如图图4-11的登录录界面，输输入用户户名和密密码，选选择用户户角色，点点击“登录”按钮，如如果输入入的信息息不正确确，会有有“用户名名或密码码错误，请请检查!”的错误误提醒 ，如果果三次登登陆错误误，会有有“你无权权使用本本系统!”的错误误提醒，即即每次登登录，最最多允许许有三次次登录错错误的机机会。当当所有信信息都输输入正确确后，可可以登录录到主界界面，不不用的用用户角色色进入的的主
27、界面面中的功功能菜单单不同。登登录界面面允许效效果图如如图4-1。4-1 登登录界面面(2). 主菜单单界面用户登录后后，可进进入到如如图4-2的主主菜单界界面，在在主菜单单界面中中，用户户可以看看到企业业中发布布的通知知信息，这这有利于于让企业业中的员员工尽可可能快而而全面地地掌握企企业中消消息的动动态。主主菜单界界面如图图4-22图4-2 主菜单单界面(3).查查询管理理界面在主菜单上上点击查查询菜单单下的“请假情情况查询询”，即可可进入到到如下图图4-33请假情情况查询询界面，在在界面中中输入员员工号或或员工姓姓名、部部门名称称、请假假类型等等信息，以以及选择择时间范范围的信信息，即即可
28、进行行组合查查询以及及模糊查查询。其其他信息息的查询询功能跟跟此功能能基本一一致，在在此不再再赘述。请请假情况况查询界界面如图图4-33。图4-3 请假情情况查询询界面(4). 信息管管理界面面信息管理界界面包括括：基本本信息设设置界面面（图44-4）、档档案管理理界面（图图4-55）、考考勤记录录管理界界面（图图4-66）。点点击信息息管理界界面中的的“添加”按钮，相相应的记记录信息息将自动动编号，在在输入相相应信息息即可。以以员工信信息管理理为例，点点击“添加”按钮，编编号处将将自动填填充，编编号规则则为：:“P+年年月日+0011”，输入入省份证证号后，回回车即可可得出性性别、年年龄、省
29、省份属地地、生日日等信息息，在部部门的编编辑框处处双击，即即可得出出企业中中的部门门信息，选选择相应应的部门门，则可可在该编编辑框中中得出相相应的部部门编号号，也可可手动输输入正确确的部门门编号，职职称的填填写方式式和部门门的填写写方式相相同，再再相应地地填写其其他信息息，点击击保存，如如果信息息填写无无误，会会有“保存成成功！”的提示示，添加加信息完完成。同同时也可可选中相相应的员员工信息息，对其其进行删删除操作作。也可可导入/导出EExceel表格格。其他他信息管管理的功功能跟此此功能类类似，不不再赘述述。档案案管理界界面如图图4-44。图4-4 档案管管理界面面图4-5 基础信信息设置置
30、界面图4-6 考勤记记录管理理界面(5). 审批界界面在主菜单上上点击查查询菜单单下的“出差审审批”，即可可进入到到出差审审批界面面，如图图4-77。查询询出相应应的员工工出差信信息，觉觉得员工工的出差差信息无无误后即即可进行行审批，点点击“确定”按钮后后，会出出现“审批完完成！”的提示示。出差差审批界界面如图图4-77。图4-7 审批界界面(6). 统计界界面在主菜单上上点击查查询菜单单下的“出差审审批”，即可可进入到到出差审审批界面面，如图图4-88。选择择需要统统计的起起始时间间，点击击统计，即即可得到到员工考考勤情况况的统计计表（统统计的信信息包括括：应工工作时间间（小时时），实实际工
31、作作时间（小小时），累累计请假假时间（半半天），累累计加班班时间（小小时），累累计出差差时间（半半天），迟迟到次数数（次），迟迟到时间间累计（小小时），早早退次数数（次），早早退时间间累计（小小时），旷旷工次数数（次），旷旷工时间间累计（小小时）。统统计需要要一些时时间，进进度条会会显示统统计的进进度。统统计界面面如图44-8。图4-8 统计界界面2. 系统实现关关键技术术(1). 添加数数据时自自动编号号运行系统时时，当需需要新增增信息时时，点击击“添加”按钮，即即可进行行自动对对记录的的ID进进行编号号，以实实现编号号的规范范性。添添加数据据时自动动编号的的代码如如下：1. 自定义函数数：
32、根据据原来编编号bhh,构造造新编号号：年月月日+33位序列列。functtionn xbbh(bbh:sstriing):sttrinng;var d00,d11,c : sstriing; begiin dd0:=coppy(bbh,22,8);/取取8位日日期数码码 cc:=ccopyy(bhh,100,3);/取取最后33位数码码 dd1:=forrmattdattetiime(yyyyymmmddd,nnow);/获获取当天天日期 iif d0 d1 tthenn / 如果不不是同一一天 bbh:=d1+ 0001/构构造当天天第一个个编号 elsse beggin c:=000+i
33、intttosttr(sstrttoinnt(cc)+11);/在在原来基基础上加加1 bh:=d11+coopy(c,llenggth(c)-2,33);/构构造编号号：日期期+3位位整数 endd; xbhh:= bh; endd;(2). 员工信信息管理理中“添加”按钮的的点击事事件代码码。proceedurre TTDanngannForrm.SSpeeedBuuttoon1CClicck(SSendder: TOObjeect);var bbm:sstriing;beginn if aadottablle1.IsEEmptty tthenn bmm:=P+forrmattdattet
34、iime(yyyyymmmddd,nnow)+ 0011/构构造第一一个编号号 elsee begiin adootabble11.Laast; bm:=addotaablee1Pnoo;/ 读取数数据表末末尾记录录的编号号 bm:=PP+xxbh(bm); end; adottablle1.Apppendd;/在在表尾添添加新纪纪录 DBeddit111.TTextt:=bbm;/在在编辑框框中填写写新编号号 DBGrrid22.Fiieldds00.TTextt:=bbm;/在在表格框框中填写写新编号号 DBeddit112.SSetFFocuus;/将将光标移移到填写写姓名框框end;员
35、工信息添添加为例例，效果果如图44-9。图4-9 员工信信息添加加页面(3). 输入身身份证号号回车显显示其他他相关信信息运行系统，添添加员工工信息时时，输入入身份证证号，回回车即可可显示该该身份证证号对应应员工的的身份属属地、性性别、年年龄及生生日信息息。使用用此功能能减小了了录入信信息的人人员因失失误输入入错误信信息的概概率，保保证了信信息的正正确性。运运行效果果图如图图5-11所示，具具体代码码如下：1. 身份份证号对对应编辑辑框回车车事件代代码。proceedurre TTDanngannForrm.DDBEddit113KeeyPrresss(Seendeer: TObbjecct;
36、 varr Keey: Chaar);constt W:aarraay 1.18 off inntegger = (7,99,100,5,8,44,2,1,66,3,7,99,100,5,8,44,2,1); /位权 AA:arrrayy 00.110 of chaar = (1,0,xx,9,8,77,6,5,44,3,2); /校校验码Var i, j, S: inttegeer; NewwID, shhud: sttrinng; da:Tdaatettimee; kk:boooleaan;beginn kk:= (keyy=#88) oor (keyy=#113) or (keey=x)
37、 orr (kkey=X) oor (keyy=#48) annd (keyy=#57); if nott kkk thhen keyy:=#0; /键键盘输入入过滤掉掉非身份份证号码码 if keyy=#113 tthenn beggin NeewIDD:= DBeeditt13.Texxt; /1. 检查查长度 iff Leengtth(NNewIID) 18 theen beeginn messsaggeDllg(输入的的数字不不是188位，请请重新输输入!,mttErrror,mbbOK,0); DBeeditt13.SettFoccus; exiit; ennd; /2.检查属属地
38、AADOqquerry1.cloose; AADOqquerry1.Parrameeterrs.PParaamByyNamme(sd).VValuue:= coopy(NewwID,1,66); /给动态态SQLL语句赋赋值 AADOqquerry1.opeen; /打打开，查查询记录录 iif AADOqquerry1.ReccorddCouunt=0 tthenn /如果果找不到到sd相相同的记记录 bbegiin MeessaageDDlg(前面面六位数数字无效效，请检检查！,mttinfformmatiion,mbbok,0); DBeeditt13.SettFoccus; exxit
39、; eend eelsee sshudd :=ADOOqueery11.FiielddByNNamee(DDQ).Vaaluee; /获取属属地/3. 检查年年年份 ii:=sstrttoinnt(ccopyy(NeewIDD,7,4); /获获取年份份 iff ( i20020) tthenn bbegiin MeessaageDDlg(年份份号码无无效，请请检查！,mmtinnforrmattionn,mmbokk,00); DBBediit133.SeetFoocuss; exxit; eend ; j:=sttrtoointt(coopy(NewwID,11,2); /获获取月份份 i
40、f ( j12) tthenn bbegiin MeessaageDDlg(月份份号码无无效，请请检查！,mmtinnforrmattionn,mmbokk,00); DBeeditt13.SettFoccus; exxit; eend ; s:=sttrtoointt(coopy(NewwID,13,2); iff ( s311) theen bbegiin MeessaageDDlg(日数数号码无无效，请请检查！,mmtinnforrmattionn,mmbokk,00); DBeeditt13.SettFoccus; exxit; eend ; da:= EEncoodeDDatee(i,j,ss); /构构造生日日 /4. 检查校校验码 ss:= 0; ffor i:=1 tto 117 ddo bbegiin j:= SttrTooIntt(NeewIDDi) * Wi; s:= s + jj; eend; s:= ss mood 111; if NewwID18=XX tthenn NeewIDD188:=x; /将大大写字母母X变成成小写字字母x