Delphi身份证号码相关处理单元及例程

本压缩包主要包括了身份证号码相关处理单元ascidnum.pas、2004年9月30日的县及县以上行政区划代码定义文件regioncode.dat、18位公民身份证号码的编排规则以及一个示例程序idn.exe及其源代码。
　　 区划代码转换为名称的部分，需要从外部文件中读取区划定义的数据(如随单元发布的文件regioncode.dat)。 
　　 该文件为纯文本文件，每行是一个代码和名称的对应关系。代码和名称之间以逗号作分隔。以#开头的行作为注释行，空行不处理。程序中作了一定的容错处理，通常情况下，不正确的数据会被略过。但在重新编排时，还是请尽量保证数据的正确性。 
 
　　 另外，为了保证查找的效率，所以要求文件中的记录按区划代码由小到大的顺序排列。  
<img border="0" alt="2006210203045843.gif" src="https://samool.com/attachments/date_201001/65025adacdf099ed609d059cdf03ad5a.gif" />
　　公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位校验码。其含义如下：
　　1. 地址码：表示编码对象常住户口所在县(市、旗、区)的行政区划代码，按GB/T2260的规定执行。
　　2. 出生日期码：表示编码对象出生的年、月、日，按GB/T7408的规定执行，年、月、日分别用4位、2位、2位数字表示，之间不用分隔符。
　　3. 顺序码：表示在同一地址码所标识的区域范围内，对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。
　　校验的计算方式：
　　1. 对前17位数字本体码加权求和 
　　公式为：S = Sum(Ai * Wi), i = 0, ... , 16 
　　其中Ai表示第i位置上的身份证号码数字值，Wi表示第i位置上的加权因子，其各位对应的值依次为： 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
　　2. 以11对计算结果取模 
　　Y = mod(S, 11)
　　3. 根据模的值得到对应的校验码 
　　对应关系为： 
　　   Y值： 0 1 2 3 4 5 6 7 8 9 10 
　　校验码： 1 0 X 9 8 7 6 5 4 3 2

本压缩包主要包括了身份证号码相关处理单元ascidnum.pas、2004年9月30日的县及县以上行政区划代码定义文件regioncode.dat、18位公民身份证号码的编排规则以及一个示例程序idn.exe及其源代码。
　　 区划代码转换为名称的部分，需要从外部文件中读取区划定义的数据(如随单元发布的文件regioncode.dat)。 
　　 该文件为纯文本文件，每行是一个代码和名称的对应关系。代码和名称之间以逗号作分隔。以#开头的行作为注释行，空行不处理。程序中作了一定的容错处理，通常情况下，不正确的数据会被略过。但在重新编排时，还是请尽量保证数据的正确性。 
 
　　 另外，为了保证查找的效率，所以要求文件中的记录按区划代码由小到大的顺序排列。&nbsp;&nbsp;
<img border="0" alt="2006210203045843.gif" src="https://samool.com/attachments/date_201001/65025adacdf099ed609d059cdf03ad5a.gif" />
　　公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位校验码。其含义如下：
　　1. 地址码：表示编码对象常住户口所在县(市、旗、区)的行政区划代码，按GB/T2260的规定执行。
　　2. 出生日期码：表示编码对象出生的年、月、日，按GB/T7408的规定执行，年、月、日分别用4位、2位、2位数字表示，之间不用分隔符。
　　3. 顺序码：表示在同一地址码所标识的区域范围内，对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。
　　校验的计算方式：
　　1. 对前17位数字本体码加权求和 
　　公式为：S = Sum(Ai * Wi), i = 0, ... , 16 
　　其中Ai表示第i位置上的身份证号码数字值，Wi表示第i位置上的加权因子，其各位对应的值依次为： 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
　　2. 以11对计算结果取模 
　　Y = mod(S, 11)
　　3. 根据模的值得到对应的校验码 
　　对应关系为： 
　　&nbsp;&nbsp; Y值： 0 1 2 3 4 5 6 7 8 9 10 
　　校验码： 1 0 X 9 8 7 6 5 4 3 2

最后修改：2010 年 02 月 16 日

支持就是力量

Delphi身份证号码相关处理单元及例程

发表评论取消回复
使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款

google map 离线地图操作方法

《小猪佩奇、粉红猪小妹、Peppa Pig》高清1080p 中英文原版下载

《Stanley博士的家》高智商游戏

设置WebBrowser的Referrer值

彭丹邓家佳同性恋电影《除却巫山》介绍

sql server定期自动备份数据库

[更新]电信无线快车在WindowsXp SP3下的怪事

狮子座流星雨蔚为壮观 1小时内千颗流星坠落[图]

[Ai] 魅族手机大全详细介绍

我的夏威夷之旅—— “一见钟情”

Delphi身份证号码相关处理单元及例程

发表评论 取消回复 使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款

Delphi身份证号码相关处理单元及例程

发表评论取消回复
使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款