Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]身份证号码


  共有1878人关注过本帖树形打印复制链接

主题：[求助]身份证号码
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]身份证号码  发帖心情 Post By：2019/7/5 13:53:00 [只看该作者]

老师，籍贯怎样提取出来。

If e.DataCol.Name = "个人基本资料_身份证号码" Then '如果更改的是身份证号码列
    If e.DataRow.IsNull("个人基本资料_身份证号码") Then '身份证号码是否为空
        e.DataRow("个人基本资料_出生年月") = Nothing '如果为空,则清除出生日期
        e.DataRow("个人基本资料_性别") = Nothing '如果为空,则清除出生日期
        e.DataRow("个人基本资料_籍贯") = Nothing '如果为空,则清除出生日期
        e.DataRow("个人基本资料_年龄") = Nothing '如果为空,则清除出生日期
    Else
        '否则从身份证号码列中提取出生日期
        e.DataRow("个人基本资料_出生年月") = ReadBirthday(e.DataRow("个人基本资料_身份证号码"))
        e.DataRow("个人基本资料_性别") = ReadSex(e.DataRow("个人基本资料_身份证号码"))
        e.DataRow("个人基本资料_年龄") =Functions.Execute("服务器时间").Year -  e.DataRow("个人基本资
 回到顶部
帅哥哟，离线，有人找我吗？
jjjeyes
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：304 积分：2684 威望：0 精华：0 注册：2011/10/29 16:26:00 		  发帖心情 Post By：2019/7/5 14:14:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/2625.htm

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/7/5 21:50:00 [只看该作者]

老师好，下面身份号码证验证代码是狐表论坛上的，现在我要把代码设置到窗口表中。“身份证地区编码表”是外部数据表。谢谢老师帮我修改。(标出的地方想引用外部数据表）。
If e.DataCol.name = "证件号码"
    If e.DataRow.isnull("证件号码") = False
        Dim sum,ai,n As Integer
        If len(e.DataRow("证件号码")) > 15
            If len(e.DataRow("证件号码")) = 18
                If IsNumeric(e.DataRow("证件号码")) = True OrElse IsNumeric(left(e.DataRow("证件号码"),17)) = True And right(e.DataRow("证件号码"),1) = "X"
                    Dim wi() As Integer = {7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2}
                    For i As Integer = 0 To 16
                        ai = e.DataRow("证件号码").SubString(i,1)
                        sum = sum + ai*wi(i)
                    Next
                    n = sum Mod 11
                    Dim jym() As String = {"1","0","X","9","8","7","6","5","4","3","2"}
                    If jym(n) = right(e.DataRow("证件号码"),1)
                        Dim y,m,d As Integer
                        y = e.DataRow("证件号码").SubString(6,4)
                        m = e.DataRow("证件号码").SubString(10,2)
                        d = e.DataRow("证件号码").SubString(12,2)
                        If y > 1900 And y < 2100 And m > 0 And m < 13
                            If d > 0 And d <= Date.DaysInMonth(y,m)
                                e.DataRow("出生日期") = new Date(y,m,d)
                            Else
                                MessageBox.show("对不起,检测到该身份证号码持有人的出生日期的日数据不合法,请检查!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
                                Return
                            End If
                        Else
                            MessageBox.show("对不起,检测到该身份证号码持有人的出生日期的月数据不合法,请检查!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
                            Return
                        End If
                        n = e.DataRow("证件号码").SubString(16,1) Mod 2
                        If n = 1
                            e.DataRow("性别") = "男"
                        Else
                            e.DataRow("性别") = "女"
                        End If
                        Dim s As String = e.DataRow("证件号码").SubString(0,2) & "0000"
                        Dim dq As String
                        Dim dr As DataRow
                        dr = DataTables("身份证地区编码").find("编码 = " & s)
                        If dr IsNot Nothing
                            dq = dr("县级以上地区名称")
                        End If
                        s = e.DataRow("证件号码").SubString(0,4) & "00"
                        dr = DataTables("身份证地区编码").find("编码 = " & s)
                        If dr IsNot Nothing
                            dq = dq & dr("县级以上地区名称")
                        Else
                            s = e.DataRow("证件号码").SubString(0,3) & "000"
                            dr = DataTables("身份证地区编码").find("编码 = " & s)
                            If dr IsNot Nothing
                                dq = dq & dr("县级以上地区名称")
                            End If
                        End If
                        s = e.DataRow("证件号码").SubString(0,5) & "0"
                        dr = DataTables("身份证地区编码").find("编码 = " & s)
                        If dr IsNot Nothing
                            dq = dq & dr("县级以上地区名称")
                        End If
                        s = e.DataRow("证件号码").SubString(0,6)
                        dr = DataTables("身份证地区编码").find("编码 = " & s)
                        If dr IsNot Nothing
                            dq = dq & dr("县级以上地区名称")
                        End If
                        e.DataRow("籍贯") = dq
                    Else
                        MessageBox.show("对不起,该身份证号码无法通过验证,请检查!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
                    End If
                Else
                    MessageBox.show("对不起,身份证号码字符格式不合法,请重新输入!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Else
                MessageBox.show("对不起,身份证号码长度不合法,请重新输入!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Else
            If len(e.DataRow("证件号码")) < 15
                MessageBox.show("对不起,身份证号码长度不合法,请重新输入!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                Dim y,m,d As Integer
                y = e.DataRow("证件号码").SubString(6,2)
                y = 1900 + y
                m = e.DataRow("证件号码").SubString(8,2)
                d = e.DataRow("证件号码").SubString(10,2)
                If m > 0 And m < 13
                    If d > 0 And d <= Date.DaysInMonth(y,m)
                        e.DataRow("出生日期") = new Date(y,m,d)
                    Else
                        MessageBox.show("对不起,检测到该身份证号码持有人的出生日期的日数据不合法,请检查!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
                        Return
                    End If
                Else
                    MessageBox.show("对不起,检测到该身份证号码持有人的出生日期的月数据不合法,请检查!","系统提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Return
                End If
                n = e.DataRow("证件号码").SubString(14,1) Mod 2
                If n = 1
                    e.DataRow("性别") = "男"
                Else
                    e.DataRow("性别") = "女"
                End If
                Dim s As String = e.DataRow("证件号码").SubString(0,2) & "0000"
                Dim dq As String
                Dim dr As DataRow
                dr = DataTables("身份证地区编码").find("编码 = " & s)
                If dr IsNot Nothing
                    dq = dr("县级以上地区名称")
                End If
                s = e.DataRow("证件号码").SubString(0,4) & "00"
                dr = DataTables("身份证地区编码").find("编码 = " & s)
                If dr IsNot Nothing
                    dq = dq & dr("县级以上地区名称")
                Else
                    s = e.DataRow("证件号码").SubString(0,3) & "000"
                    dr = DataTables("身份证地区编码").find("编码 = " & s)
                    If dr IsNot Nothing
                        dq = dq & dr("县级以上地区名称")
                    End If
                End If
                s = e.DataRow("证件号码").SubString(0,5) & "0"
                dr = DataTables("身份证地区编码").find("编码 = " & s)
                If dr IsNot Nothing
                    dq = dq & dr("县级以上地区名称")
                End If
                s = e.DataRow("证件号码").SubString(0,6)
                dr = DataTables("身份证地区编码").find("编码 = " & s)
                If dr IsNot Nothing
                    dq = dq & dr("县级以上地区名称")
                End If
                e.DataRow("籍贯") = dq
                
            End If
        End If
    Else
        e.DataRow("性别") = Nothing
        e.DataRow("出生日期") = Nothing
        e.DataRow("籍贯") = Nothing
    End If
End If
If e.DataCol.name = "出生日期"
    If e.DataRow.isnull("出生日期") = False
        Dim tp As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))
        e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
    Else
        e.DataRow("年龄") = Nothing
    End If
End If
[此贴子已经被作者于2019/7/6 8:03:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/7/6 15:37:00 [只看该作者]

老师好，标出的代码我想改成引用外部数据表。



dr = DataTables("身份证地区编码").find("编码 = " & s)
                        If dr IsNot Nothing
                            dq = dr("县级以上地区名称")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/6 16:14:00 [只看该作者]

find改为使用sqlfind 
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2019/7/6 16:43:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = " Select * F rom {身份证籍贯编码}"
sfzxgbm = cmd.ExecuteReader(True)

老师，我想通过项目事件来引用。标出的代码不会改。（老师可以这样做吗？）

dr = DataTables("身份证地区编码").find("编码 = " & s)
                        If dr IsNot Nothing
                            dq = dr("县级以上地区名称")
[此贴子已经被作者于2019/7/6 16:43:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/6 17:03:00 [只看该作者]

如果"身份证地区编码"表已经加载，直接使用sqlfind 就行了，搞那么多花样干啥。

一些字典类的数据，比如"身份证地区编码"表这种的，一般数据相对固定，也不算多，并且是常用的，建议直接加载完整数据使用即可。业务数据才考虑动态加载和使用。

如果要使用SQLCommand，dr = DataTables("身份证地区编码").find("编码 = " & s)

改为 dr = sfzxgbm .find("编码 = " & s)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询