如何利用VisualBasic开发身份证号码批量验证工具软件

如何利用VisualBasic开发身份证号码批量

验证工具软件

导读：本文如何利用VisualBasic开发身份证号码批量验证工具软件，仅供参考，如果觉得很不错，欢迎点评和分享。

如何利用Visual Basic开发身份证号码批量验证工具软件作者/刘小龙

通过对身份证号码实际应用中存在的问题进行详细分析，我们发现每学年的学籍建档、国家助学金申报等方面都离不开身份证号码。同时，人工核对信息工作量大，也易出错，势必对工作造成一定的影响。为此，我们运用大学学习的一些VB知识，根据身份证号码编码规则编写了《身份证号码批量验证工具》软件，使身份证号码核对工作变得简单、轻松。

一、软件的设计步骤

二、软件详细设计

1. 解决方案与软件特色

本程序使用VB在Windows XP环境开发，解决了身份证号码验证过程中存在的易出错、工作量大的问题，支持Excel文件批量验证及信息追加，绿色免安装、小巧、实用性强。

2. 具体设计

下面就根据软件的操作流程图进行介绍软件的功能和实现原理：

（1）操作流程图。

参数设置说明：身份证号码、性别、出生年月所在列均以阿拉伯数字表示，性别、出生年月信息的追加属于选择项。

（2）身份证号码校验值计算函数代码。

Public Function sfzjym（num As String）As String

Dim n1，n2，n3，n4，n5，n6，n7，n8，n9，n10，n11，n12，n13，n14，n15，n16，n17，y，s As Integer

n1=Val（Mid$（num，1，1））*7

n2=Val（Mid$（num，2，1））*9

n3=Val（Mid$（num，3，1））*10

n4=Val（Mid$（num，4，1））*5

n5=Val（Mid$（num，5，1））*8

n6=Val（Mid$（num，6，1））*4

n7=Val（Mid$（num，7，1））*2

n8=Val（Mid$（num，8，1））*1

n9=Val（Mid$（num，9，1））*6

n10=Val（Mid$（num，10，1））*3

n11=Val（Mid$（num，11，1））*7

n12=Val（Mid$（num，12，1））*9

n13=Val（Mid$（num，13，1））*10

n14=Val（Mid$（num，14，1））*5

n15=Val（Mid$（num，15，1））*8

n16=Val（Mid$（num，16，1））*4

n17=Val（Mid$（num，17，1））*2

y=n1+n2+n3+n4+n5+n6+n7+n8+n9+n10+n11+n12+n13+n 14+n15+n16+n17

s=y Mod 11

Select Cases

Case 0

sfzjym=“1”

Case 1

sfzjym=“0”

Case 2

sfzjym=“X”

Case 3

sfzjym=“9”

Case 4

sfzjym=“8”

Case 5

sfzjym=“7”

Case 6

sfzjym=“6”

Case 7

sfzjym=“5”

Case 8

sfzjym=“4”

Case 9

sfzjym=“3”

Case 10

sfzjym=“2”

End Select

End Function

函数参数为18位身份证号码，返回值为身份证号码的校验值，即身份证号码最后一位，整个计算过程严格按照GB11643-1999 《公民身份号码》中的规定完成。

（3）验证代码。

Private Sub yz_Click（）

On Error GoTo errh

Dim app As Excel.Application

Dim appworkbook As Workbook

Dim appworksheet As Worksheet

Dim hs1 As Integer，hs2 As Integer，err As Integer

Dim adr As String，sfzbh As String

err=0

dkdhk.Action=1

adr$=Mid$（dkdhk.InitDir &“\”& dkdhk.FileName，2，Len（dkdhk.InitDir & “\” & dkdhk.FileName）- 1）Set app=New Excel.Application

Set appworkbook=app.Workbooks.Open（adr$）

Set appworksheet=appworkbook.Sheets（1）

Do While appworksheet.Cells（2，1）“”

hs1=hs1+1

Loop

jc.Max=hs1

For hs2=2 To hs1+1

sfzbh$=appworksheet.Cells（hs2，Val（l1.Text））

If Mid$（sfzbh$，18，1）=“x"”Then

appworksheet.Cells（hs2，Val（l1.Text））=Mid$（sfzbh$，1，17）& “X”

sfzbh$=Mid$（sfzbh$，1，17）& “X”

End If

If Len（sfzbh$）18 Then

err=err+1

appworksheet.Cells（hs2，Val（l1.Text））=“不够18位” & sfzbh$

appworksheet.Cells（hs2,Val（l1.Text））。Font.ColorIndex=3 Else

If Mid$（sfzbh$，18，1）sfzjym（sfzbh$）Then

err=err+1

appworksheet.Cells（hs2，Val（l1.Text））=“校验码错误” & sfzbh$

appworksheet.Cells（hs2,Val（l1.Text））。Font.ColorIndex=3 Else

If jz1.Value=1 Then

If Mid$（sfzbh$，17，1）Mod 2=1 Then

appworksheet.Cells（hs2，Val（xb.Text））=“男”

Else

appworksheet.Cells（hs2，Val（xb.Text））=“女”

End If

End If

If jz2.Value=1 Then

appworksheet.Cells（hs2，Val（csny.Text））=Mid$（sfzbh$，7，4）& “-”& Mid$（sfzbh$，11，2）& “-” & Mid$（sfzbh$，13，2）

End If

End If

End If

jc.Value=hs2-2

Next hs2

“MsgBox ”数据验证完成，到文件中查看验证结果“& ”（共验证“& hs1 &”条记录，发现“& err &”处身份证错误信息）“，48，”

提示

app.Visible=True

errh：

End Sub

（4）验证代码需要完成的任务。

①判断身份证号码所在列参数填写是否正确；②判断是否追加性别、出生年月及所在列参数；③读取Excel文件中的身份证号码，根据调用计算身份证号码校验码sfzjym函数判断身份证号码是否正确；

④对正确的身份证号码自动校正小写x为大写X；⑤给Excel文件反馈判断信息及错误原因，若选择追加性别、出生年月选项，将对正确的身份证号码相关记录添加性别、出生年月；⑥弹窗提示验证信息量与错误信息量，并自动打开验证的Excel文件。

三、程序所体现特点与应用性

因日常工作中存在着身份证号码大量核对带来的各种问题，经过详细的分析和研究，提出了开发《身份证号码批量验证工具》程序的想法。程序经过反反复复的严格测试，完全能够胜任身份证号码批量验证这一工作，充分体现在下面几点：（1）实用性强，支持对Excel 数据的批量验证与信息自动追加；（2）整个操作过程简单、易懂、工作量小；（3）对错误信息有准确的、详细的提示信息，方便二次修正；

（4）绿色免安装、小巧。

（甘肃省通渭县第二中学）感谢阅读，希望能帮助您！