感谢tlliqi的回答!不过我想对用户名和密码可以同时输入字母和数字,不能输入其他字符。而且密码最少要6位
以下是引用wyyq在2013-2-11 17:24:17的发言:
如过字母和数字都能输,其他字符不能输入怎么解决
在TEXT1的VALID事件中判断输入的字符是否符合要求,如果不符合要求,重新输入。
如过字母和数字都能输,其他字符不能输入怎么解决
SELECT 用户名,密码,权限 FROM 密码表 WHERE ALLTRIM(用户名)+ALLTRIM(密码)+ALLTRIM(权限)==ALLTRIM(username)+ALLTRIM(userpassword)+ALLTRIM(usertype) INTO CURSOR TEMP IF RECCOUNT([TEMP])=1 THISFORM.RELEASE do form 主界面.scx ELSE messagebox("用户名或密码错误",48,"登录提示") times=times-1 ENDIF
TEXT1.VALID事件代码 CSTR=ALLTRIM(THIS.VALUE) NLEN=LEN(CSTR) &&记录输入的密码长度 CSTR=CHRTRANC(CHRTRANC(CSTR,[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789],[]),[]) &&判断密码是否是字母或数字 IF NOT INLIST(LEN(CSTR),NLEN) MESSAGEBOX([密码中含有非字母与数字字符]) RETURN 0 ENDIF