自制身份证查询系统！无任何加密

cqg_111 · 发表于 2014-3-29 15:42

谢谢分享！！

杨萌 · 发表于 2014-3-30 13:42

cqg_111 发表于 2014-3-29 15:42
谢谢分享！！

应该的呵呵！

abcjem · 发表于 2014-3-30 18:49

这种创新精神非常值得我们学习，不怕想不到就怕做不到

一剑惊心 · 发表于 2014-3-31 10:36

试用了一下，感觉有几个BUG
1、

复制代码

这个代码肯定会不正确，你对截到的数据进行MOD12取余数，那么这个余数必定是0-11之间的，你再加上-3，就会出现负数的现象，你说MID函数的第二个参数是负数可能吗？
2、你似乎没有对TextBox7.Text进行赋值，导致这段代码出错

Image2.Picture = LoadPicture(ThisWorkbook.Path & "\pic" & TextBox7.Text & ".jpg")

复制代码

3，你做星座辅助的时候，似乎缺了个2月29日这个日期

cloudcrane · 发表于 2014-4-1 13:47

似乎没有对身份证的有效性进行验证。

Spirit2012 · 发表于 2014-4-2 16:08

数据源信息不对，和实际身份证信息有出入，现在511224是属于重庆市了，而非四川省。另外你这个查询的界面在那儿修改呢？

cloudcrane · 发表于 2014-4-3 10:40

本帖最后由 cloudcrane 于 2014-4-3 10:42 编辑

一剑惊心发表于 2014-3-31 10:36
试用了一下，感觉有几个BUG
1、这个代码肯定会不正确，你对截到的数据进行MOD12取余数，那么这个余数必定是 ...

应该是(年份-3)在除以12的余数，似乎应该是mod（mid（textbox1.text，7,4）-4,12）+1

sonyshop · 发表于 2014-4-8 16:32

感谢分享，学习了。

kaixin999 · 发表于 2014-4-8 23:36

学习一下，是怎么完成的。

emily901 · 发表于 2014-4-9 11:28

有点意思，学习了，谢谢分享

		自动登录	找回密码
密码			免费注册