程序代码:
TEXT1.VALID事件代码 CSTR=ALLTRIM(THIS.VALUE) NLEN=LEN(CSTR) &&记录输入的密码长度 IF NLEN<6 MESSAGEBOX([密码长度少于6位,请重新输入]) RETURN 0 ENDIF CSTR=CHRTRANC(CHRTRANC(CSTR,[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789],[]),[]) &&判断密码是否是字母或数字 IF NOT INLIST(LEN(CSTR),NLEN) MESSAGEBOX([密码中含有非字母与数字字符]) RETURN 0 ENDIF
坚守VFP最后的阵地