如何利用Visual Basic開發身份證號碼批量驗證工具軟件

如何利用Visual Basic開發身份證號碼批量驗證工具軟件

　　如何利用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+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）綠色免安裝、小巧。
　　
　　（甘肅省通渭縣第二中學）