批次ID验证程序（应用程序类型）

推荐: java实现-号码验证

号码的编码原理: 号码的结构公民号码是功能的组合代码，由17位的身体代码和验证码组成. 从左到右的排列顺序如下: 六位地址码，八位数字出

腾讯云联合战在2020年“大流行”，帮助恢复工作（折扣是空前的！4核8G，5M带宽1684元/ 3年），

地址:

2020年阿里云的最低价格产品入口，包括优惠券（新老用户均可享受折扣）

地址:

我今天编写的原始软件主要用于测试数据输入的质量. 尤其是ID号码的准确性，我一直想将其发送给基层使用，但是由于各种原因却没有实现. 今天，一个地区的姐姐终于被拷打了. 哈哈，我的虚荣心终于满足了！以下是我整个程序的日志. 取出一会儿. 该程序是用VB6.0编写的. 搜索大量信息，它只能视为一种应用程序. 你开玩笑该软件用于监视WIS软件的乡镇版本输入的ID号码的准确性. 大多数事件都写在command2_click（）中实现1，软件编写思路: （1）打开WIS的乡镇版本保存路径: app.path +“ \ tjylfn \ XZDATAS \ xz.dbc”指的是“ Microsoft ActiveX数据对象2.8库”，连接到（Visual Foxpro 6.0）

设置myConn =新的ADODB.Connection

myConn.Open“驱动程序= {Microsoft Visual FoxPro驱动程序};” ＆_

“ SourceType = DBC;” ＆_

“ SourceDB =” + Text1.Text +“;” ＆_

“专有=否；”注意: text1.text是保存的路径. （2）根据选择，确定是监视“育龄妇女”还是监视其“配偶”输入的ID号. 添加控件: 选项1: 验证育龄妇女的ID号选项2: 验证丈夫的ID的ID号默认值: Option1.Value = True（3）判断育龄妇女的ID号的准确性（丈夫ID号）相同）（Jbqk）查询图书馆，以查询号码为18位的育龄妇女的信息.

mySql =“从jbqk中选择fnbm，fnxm，fncsrq，fnsfhm批量验证怎么设置，其中len（allt（fnsfhm））= 18”

myRec.Open mySql，myConn，adOpenDynamic，adLockOptimistic②根据查询结果，建立一个循环，一个接一个地判断ID号的准确性

对于行= 0到myRec.RecordCount-1

myRecTemp = myRec.Fields（“ fnsfhm”）. 值

......

下一步③根据ISO 7064: 1983，MOD 11-2校验码判断ID号，判断校验位数是否正确. 具体算法如下: 根据18位ID号的前17位，将每个数字与其对应的系数相乘，系数表如下: 12345678910111213141516116177910584216379105842然后，相乘后的结果相加，模数取模11以获得0. 数字10基于尾数对应表01234567891010X98765432加上前17位数字+尾数以获得18位ID号. 代码如下:

intTemp =（Val（左（Trim（myRecTemp），1））* 7 + _

Val（Mid（Trim（myRecTemp），2，1））* 9 + _

Val（中（Trim（myRecTemp），3，1））* 10 + _

Val（Mid（Trim（myRecTemp），4，1））* 5 + _

Val（Mid（Trim（myRecTemp），5，1））* 8 + _

Val（Mid（Trim（myRecTemp），6，1））* 4 + _

Val（Mid（Trim（myRecTemp），7，1））* 2 + _

Val（Mid（Trim（myRecTemp），8，1））* 1 + _

Val（Mid（Trim（myRecTemp），9，1））* 6 + _

Val（Mid（Trim（myRecTemp），10，1））* 3 + _

Val（Mid（Trim（myRecTemp），11，1））* 7 + _

Val（Mid（Trim（myRecTemp），12，1））* 9 + _

Val（Mid（Trim（myRecTemp），13，1））* 10 + _

Val（Mid（Trim（myRecTemp），14，1））* 5 + _

Val（Mid（Trim（myRecTemp），1

推荐: js号码验证

var vcity = {11: “北京”，12: “天津”，13: “河北”，14: “山西”，15: “内蒙古”，

21: “辽宁”，22: “吉林”，23: “黑龙江”，31: “上海”，32: “江苏”，

33: “浙江”，34:

5，1））* 8 + _

Val（Mid（Trim（myRecTemp），16，1））* 4 + _

Val（Mid（Trim（myRecTemp），17，1））* 2）Mod 11

选择案例intTemp

情况0

lastTemp =“ 1”

案例1

lastTemp =“ 0”

案例2

lastTemp =“ X”

案例3

lastTemp =“ 9”

案例4

lastTemp =“ 8”

案例5

lastTemp =“ 7”

案例6

lastTemp =“ 6”

案例7

lastTemp =“ 5”

案例8

lastTemp =“ 4”

案例9

lastTemp =“ 3”

案例10

lastTemp =“ 2”

结束选择④根据算法获得的最后一位数字和原始最后一位数字进行判断. 如果最后一位是X，则应添加大小写转换功能. 同时，将其他字段数据分配给该变量，并将其写入新（db1.mdb）数据表（temp_fnsfhm）.

如果修剪（lastTemp）<>“ X”然后

如果（左（修剪（myRecTemp），17）和lastTemp）<>修剪（myRecTemp）然后

myRec2.AddNew

myRec2.Fields（“ fnbm”）. 值= myRecTemp1

myRec2.Fields（“ fnxm”）. 值= myRecTemp2

myRec2.Fields（“ fncsrq”）. 值= myRecTemp3

myRec2.Fields（“ fnsfhm”）. 值= myRecTemp

myRec2.Update

Counter =计数器+ 1

如果结束

其他

如果（左（Trim（myRecTemp）批量验证怎么设置，17）和“ x”）<>修剪（myRecTemp）和（左（Trim（myRecTemp），17）和“ X”）<>修剪（myRecTemp）然后

myRec2.AddNew

myRec2.Fields（“ fnbm”）. 值= myRecTemp1

myRec2.Fields（“ fnxm”）. 值= myRecTemp2

myRec2.Fields（“ fncsrq”）. 值= myRecTemp3

myRec2.Fields（“ fnsfhm”）. 值= myRecTemp

myRec2.Update

Counter =计数器+ 1

如果结束

结束如果在数据网格控件上显示⑤.

设置DataGrid1.DataSource = myRec2DataGrid1.Refresh（4）添加数据导出功能并生成.txt文本格式. 具体代码参考程序，此处省略. 本文来自“ Dream Chaser”博客，拒绝转载！

推荐: 号码验证脚本功能

脚本1 if（isNaN（document.Form1.UserIDCard.value））{警告（“ ID号不是数字！”）； document.Form1.UserIDCard.focus（）; document.Form1.Use

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/jisuanjixue/article-206386-1.html