注册代码如下:
SET EXACT ON
SELECT 口令表
LOCATE for thisform.text1.Value=用户名
IF EMPTY(thisform.text1.Value) or EMPTY(thisform.text2.Value)
MESSAGEBOX("用户名或口令不能为空!",16)
thisform.inputok
&&新建方法程序,实现重新输入效果
ELSE
IF !EOF()
MESSAGEBOX("对不起,该用户名已经存在,请重新输入!",16)
thisform.inputok
ELSE
IF ALLTRIM(thisform.text2.value)=ALLTRIM(thisform.text3.Value )
INSERT into 口令表(用户名,口令) values (thisform.text1.Value,thisform.text2.Value)
IF MESSAGEBOX("恭喜!您已经注册成功,是否现在登陆?",52)=6
do form 登陆.scx
ENDIF
thisform.Release
ELSE
MESSAGEBOX("两次输入口令不一致!请检查输入!",48)
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""
thisform.text1.SetFocus
ENDIF
ENDIF
ENDIF