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)))
隐藏主表。