关于身份证验证系统的一点奇怪的问题。 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 关于身份证验证系统的一点奇怪的问题。

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 3194 人关注过本帖

标题：关于身份证验证系统的一点奇怪的问题。

只看楼主加入收藏

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 11 楼

得分:0

以下是引用bccn201203在2012-9-24 23:23:47的发言：

代码没问题

我说也是不知道哪里卡壳了。。。

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-24 23:27

bccn201203

等　级：蜘蛛侠
威　望：3
帖　子：680
专家分：1140
注　册：2012-3-14

第 12 楼

得分:0

Do Case

            Case  Len(Src) = 15
                Src = Left(Src, 6) + "19" + Substr(Src, 7)
            Case Len(Src) = 18
                Src = Left(Src, 17)
            Otherwise

这个地方错了
右边取1位，取的是第17位数字，不是第18位数字

2012-09-24 23:31

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 13 楼

得分:0

以下是引用bccn201203在2012-9-24 23:31:08的发言：

这个地方错了
右边取1位，取的是第17位数字，不是第18位数字

哦是啊你无敌强悍啊五体投地

你怎么发现的？我调试了半天都没找出来

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-24 23:41

bccn201203

等　级：蜘蛛侠
威　望：3
帖　子：680
专家分：1140
注　册：2012-3-14

第 14 楼

得分:0

以下是引用有容就大在2012-9-24 23:41:03的发言：

哦是啊你无敌强悍啊五体投地

你怎么发现的？我调试了半天都没找出来

从上至下，看的比你仔细点，没有什么技巧。

2012-09-24 23:43

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 15 楼

得分:0

回复 14楼 bccn201203

不调试也能看出来？火眼金睛啊

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-24 23:46

bccn201203

等　级：蜘蛛侠
威　望：3
帖　子：680
专家分：1140
注　册：2012-3-14

第 16 楼

得分:0

回复 15楼有容就大

那段代码本身也没有错误，调试是查不出来的，因为最后的校验方法没有错。就从你身份证传递参数[SRC]查起，看到了个[15位]，就发现了问题。

2012-09-24 23:49

有容就大

来　自：东土大唐
等　级：版主
威　望：74
帖　子：9048
专家分：14309
注　册：2011-11-11

第 17 楼

得分:0

以下是引用bccn201203在2012-9-24 23:49:46的发言：

那段代码本身也没有错误，调试是查不出来的，因为最后的校验方法没有错。就从你身份证传递参数[SRC]查起，看到了个[15位]，就发现了问题。

呵呵牛X
还有个问题我那个检查日期的函数是用DATE()函数的返回值来判断的为什么输入正常日期可以输入的不是正常日期
程序就跳出来了根本就不跟IF ELSE 走？比如if empty(date(1967, 67, 4)) 程序会暴走。。。

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

2012-09-24 23:56

bccn201203

等　级：蜘蛛侠
威　望：3
帖　子：680
专家分：1140
注　册：2012-3-14

第 18 楼

得分:0

以下是引用有容就大在2012-9-24 23:56:09的发言：

呵呵牛X
还有个问题我那个检查日期的函数是用DATE()函数的返回值来判断的为什么输入正常日期可以输入的不是正常日期
程序就跳出来了根本就不跟IF ELSE 走？比如if empty(date(1967, 67, 4)) 程序会暴走。。。

empty(date(1967, 67, 4)) &&系统自动识别
你自己可以写代码判断出生日期是否正确，如果不正确，用MESSAGEBOX()，显示错误信息，就不会跳出系统窗口。

[ 本帖最后由 bccn201203 于 2012-9-25 00:05 编辑 ]

2012-09-25 00:02