程序代码：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
2013-02-11 18:35
2013-02-11 18:52
2013-02-11 18:57
2013-02-11 19:10
2013-02-11 19:16
2013-02-11 19:18
2013-02-11 19:21
程序代码：* TEXT1.INTERACTIVECHANGE 事件代码 CSTR=ALLTRIM(THIS.VALUE) NLEN=LEN(CSTR) &&记录输入的密码长度 CSTR=CHRTRANC(CSTR,CHRTRANC(CSTR,[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789],[]),[]) &&判断密码是否是字母或数字 IF NOT INLIST(LEN(CSTR),NLEN) MESSAGEBOX([密码中含有非字母与数字字符]) ENDIF
2013-02-11 19:22
2013-02-11 19:23
2013-02-11 19:26
