| zlbpolly
13822
|
2005/4/7 23:07:32 |
| 很实用，非常感谢…… |
| tim001
12863
|
2005/2/26 12:24:08 |
| 好利害哦！ |
| iamdream
12836
|
2005/2/25 12:03:01 |
干吗用字符串（还需转换为整数），直接用整数就可以了：
function TForm1.IDToNewID(ID: String): String;
const
iPosPower : array[1..17] of integer = (7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9,
10, 5, 8, 4, 2);
var
i,SfzXy:Integer;
XYM:String;
//a:string;
begin
//a:='07910584216379105842';
SfzXy:=0;
for i:=1 to 17 do
begin
SfzXy:=SfzXy+StrToInt(Copy(ID,i,1))* iPosPower[i]; // strtoInt(a[i]);
Case (SfzXy Mod 11) of
0: XYM :='1';
1: XYM :='0';
2: XYM :='X';
3: XYM :='9';
4: XYM :='8';
5: XYM :='7';
6: XYM :='6';
7: XYM :='5';
8: XYM :='4';
9: XYM :='3';
10: XYM :='2';
end;
end;
Result:=XYM;
end; |
| whirlwind
9286
|
2004/11/10 13:26:47 |
| good |
| victorchang
9019
|
2004/11/1 10:30:20 |
| 有没有最新的手机库呀？ |
| pxj
6997
|
2004/7/21 8:21:44 |
| Thank you |
| crystalmoon
6565
|
2004/7/5 20:19:16 |
| 好象听说打开时安SHIFT就可以 |
| receving
5334
|
2004/5/28 21:02:34 |
| 强，这么多的数据也能搞到啊，下来学习学习，感谢先！ |
| coli5ie
3116
|
2004/3/12 16:00:41 |
| 不愧是高手！ |
| vagrant
2944
|
2004/3/10 8:05:49 |
呵呵。。。過獎了。。。。
那是因為那些表是隱藏的
你需要到Access中設置顯示隱藏的對象。。。。。。。。。。。 |
| hjma
2940
|
2004/3/10 0:32:32 |
| vagrant 朋友，的确是有数据的，只是我用ACCESS打开数据库是看不到数据的，但是用程序可以打开数据来看，厉害吧？我也不知道这个程序的开发者是怎么弄出这样的数据库来的，可能是版本问题吧？ |
| vagrant
2930
|
2004/3/9 16:09:21 |
| 真服了你，沒有數據能夠查出數據嗎？ |
| hjma
2927
|
2004/3/9 15:24:22 |
原来数据库是有数据的，只是直接双击打开时就不成功。
有这么怪异的数据库可是很少见，真这知道这位小哥是怎么弄出来的！而且怎么进行数据维护呢？ |
| hjma
2924
|
2004/3/9 15:03:34 |
这位小哥真是的，数据库里没有数据，怎么玩啊？
请帖上数据库可以吗？ |
| huangchong
1511
|
2004/1/5 0:47:06 |
| 旧号转换为新号，最后一位根据什么来加的？帮帮忙！ |
| linlinghuihui
558
|
2003/11/18 16:50:37 |
| 旧号转换为新号，最后一位根据什么来加的？ |
| sunyu
430
|
2003/10/31 11:04:22 |
| 在那里可以搞到身份证地区对照表？身份证效验码怎么算？谢谢 |
| jfzjm
317
|
2003/10/22 16:18:35 |
| 我的手机号判断有误,明明是天山通却变成了全球通卡了. |
| vagrant
303
|
2003/10/21 11:04:57 |
原来的函数有错误,
更改为如下就可以了
function TForm1.IDToNewID(ID: String): String;
var
i,SfzXy:Integer;
XYM:String;
a:array[0..17] of string;
begin
a[0]:='0';
a[1]:='7';
a[2]:='9';
a[3]:='10';
a[4]:='5';
a[5]:='8';
a[6]:='4';
a[7]:='2';
a[8]:='1';
a[9]:='6';
a[10]:='3';
a[11]:='7';
a[12]:='9';
a[13]:='10';
a[14]:='5';
a[15]:='8';
a[16]:='4';
a[17]:='2';
SfzXy:=0;
for i:=1 to 17 do
SfzXy:=SfzXy+StrToInt(Copy(ID,i,1))*strtoInt(a[i]);
Case (SfzXy Mod 11) of
0: XYM :='1';
1: XYM :='0';
2: XYM :='X';
3: XYM :='9';
4: XYM :='8';
5: XYM :='7';
6: XYM :='6';
7: XYM :='5';
8: XYM :='4';
9: XYM :='3';
10:XYM :='2';
end;
Result:=XYM;
end; |
| vagrant
300
|
2003/10/21 8:40:10 |
不好意思,里面的新旧身份证号码对照出错了...
我马上修改一下。。。 |
![]() |
|
