现在位置:范文先生网>理工论文>计算机信息技术>如何利用Visual Basic开发身份证号码批量验证工具软件

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

时间:2022-04-29 17:27:03 计算机信息技术 我要投稿
  • 相关推荐

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

  如何利用Visual Basic开发身份证号码批量验证工具软件
  
  作者/刘小龙
  
  通过对身份证号码实际应用中存在的问题进行详细分析,我们发现每学年的学籍建档、国家助学金申报等方面都离不开身份证号码。同时,人工核对信息工作量大,也易出错,势必对工作造成一定的影响。为此,我们运用大学学习的一些VB知识,根据身份证号码编码规则编写了《身份证号码批量验证工具》软件,使身份证号码核对工作变得简单、轻松。
  
  一、软件的设计步骤
如何利用Visual Basic开发身份证号码批量验证工具软件  
  二、软件详细设计
  
  1. 解决方案与软件特色
  
  本程序使用VB在Windows XP环境开发,解决了身份证号码验证过程中存在的易出错、工作量大的问题,支持Excel文件批量验证及信息追加,绿色免安装、小巧、实用性强。
  
  2. 具体设计
  
  下面就根据软件的操作流程图进行介绍软件的功能和实现原理:
  
  (1)操作流程图。
如何利用Visual Basic开发身份证号码批量验证工具软件  
  参数设置说明:身份证号码、性别、出生年月所在列均以阿拉伯数字表示,性别、出生年月信息的追加属于选择项。
  
  (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+n14+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)绿色免安装、小巧。
  
  (甘肃省通渭县第二中学)