以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  请大师帮忙解释一下?  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=1402)

--  作者:WUZHAN
--  发布时间:2012/2/5 20:04:00
--  请大师帮忙解释一下?
IF([注册名]="",MSGBOX("注册名不能空!",0),If([注册码] <> MID(HEXFORMAT(CODE([机器码])^3*921047) + HEXFORMAT(CODE(GetPY([注册名]))^3*921047),0,4) + "-" + MID(HEXFORMAT(CODE([机器码])^3*921047) + HEXFORMAT(CODE(GetPY([注册名]))^3*921047),4,4) + "-" + MID(HEXFORMAT(CODE([机器码])^3*921047) + HEXFORMAT(CODE(GetPY([注册名]))^3*921047),8,4) + "-" + MID(HEXFORMAT(CODE([机器码])^3*921047) + HEXFORMAT(CODE(GetPY([注册名]))^3*921047),12,4),MSGBOX("注册码错误,请重新输入!",0),MSGBOX("恭喜恭喜!注册成功",0) And CloseWindow() And HideGrid(DOCDIR+"\\pic\\bj.gif",8)))
--  作者:lyang70
--  发布时间:2012/2/6 9:03:00
--  
你把每一个函数命令的语法和意思先了解一下,最后根据If函数的语法说明,应该能懂...
--  作者:wjq1072
--  发布时间:2012/2/6 22:12:00
--  
IF([注册名]="",
如果“注册名”等于空,
MSGBOX("注册名不能空!",0),
则提示:“注册名不能空!”,否则,
If([注册码] <>
如果“注册码”不等于
MID(HEXformAT(CODE([机器码])^3*921047)+HEXformAT(CODE(GetPY([注册名]))^3*921047),0,4)+"-"+
取《由机器码中第一个字符的ASC代码的3次方再乘以921047后再转换为16进制代码》第1个4位加字符“-”
MID(HEXformAT(CODE([机器码])^3*921047)+HEXformAT(CODE(GetPY([注册名]))^3*921047),4,4)+"-"+
取《由机器码中第一个字符的ASC代码的3次方再乘以921047后再转换为16进制代码》第2个4位加字符“-”
MID(HEXformAT(CODE([机器码])^3*921047)+HEXformAT(CODE(GetPY([注册名]))^3*921047),8,4)+"-"+
取《由机器码中第一个字符的ASC代码的3次方再乘以921047后再转换为16进制代码》第3个4位加字符“-”
MID(HEXformAT(CODE([机器码])^3*921047)+HEXformAT(CODE(GetPY([注册名]))^3*921047),12,4),
取《由机器码中第一个字符的ASC代码的3次方再乘以921047后再转换为16进制代码》第4个4位加字符
形成“注册码”:××××-××××-××××-××××

MSGBOX("注册码错误,请重新输入!",0),
则提示:“注册码错误,请重新输入!”,否则,
MSGBOX("恭喜恭喜!注册成功",0) And
则提示:“恭喜恭喜!注册成功”。
CloseWindow() And
关闭注册窗口并且
HideGrid(DOCDIR+"\\pic\\bj.gif",8)))
隐藏主表。


--  作者:WUZHAN
--  发布时间:2012/2/6 23:54:00
--  
多谢大师