VB如何自动保存_VB开发的身份证个人信息自动识别软件

今天我们共同来看一下用VB编写的实用小工具--身份证自动提取性别、年龄、出生日期等个人信息的软件。

身份证是我们每个公民都有的，根据它可以唯一识别出具体是某个人。

程序实现功能：

当用户单击”输入身份证号”按钮时，弹出输入对话框，用户输入身份证信息后，从身份证号中提取个人相关信息并显示在窗体上。

程序实现过程分析：

1、单击“输入身份证号”按钮，使用InputBox函数弹出以下对话框：

身份证号=InputBox(对话框提示信息，标题，默认值)

当用户选择InputBox 的“确定”按钮时，执行身份证号判断操作。

具体判断过程如下：

当用户输入的身份证号不足18位时，使用Msgbox函数，做出以下提示

应用技巧：

1 )检测身份证号长度使用 Len() 函数； 2 )使用 If选择 结构判断身份证号是否正确：    if   身份证号不足 18 位  then      msgbox 给出提示     else    在指定控件显示出生年月、性别以及年龄 End If

3、当信息录入正确时，在指定控件显示出生年月、性别以及年龄。

1) 在名为shengri的文本框中显示出生年月，出生年月为身份证号的第7-14位

提示：使用mid函数

2)在名为nianling的文本框中显示年龄

提示：使用year(now())获得系统日期的年份，使用mid函数获取身份证中年份信息，相减可得年龄。

3)在名为xingbie的文本框中显示性别：身份证的第17位为偶数则为“女”，奇数为“男”。

提示：提取身份证第17位，放入整型变量x中，判断x的奇偶性(x mod 2=0 则 x为偶数，否则为奇数)，由此可以决定性别

4、保存工程文件和窗体文件。

窗体界面设计

代码实现

Private Sub Command1_Click() '输入身份证号

Dim sfzh As String   '定义身份证号为字符类型，位数大，且最后一位存在X

sfzh = InputBox("请输入18位身份证号", "身份证提取程序")  '输入对话框使用

If Len(sfzh) < 18 Then

MsgBox "身份证号输入错误，请重新输入！", vbOKOnly, "错误提醒"

Else

id = sfzh   '身份证号

tiqu (sfzh)    '调用自定义tiqu过程

End If

End Sub

Public Sub tiqu(sfzh As String)   '自定义过程

Dim x As Integer

shengri = Mid(sfzh, 7, 8)     ‘生日’

nianling = Year(Now()) - Mid(sfzh, 7, 4)   '年龄

x = Val(Mid(sfzh, 17, 1))

If x Mod 2 = 0 Then

xingbie = "女"

Else

xingbie = "男"     '性别

End If

End Sub

实际运行图

大家在学习VB中有不懂之处或者需要VB视频学习资料，可以长按下图添加学习小编微信，更多VB精彩编程内容，尽在跟我学VB。