偶而看到介绍说VFP工具中的“修饰”可以美化程序的缩进，想起原来曾自己做过一个程序完成这个功能，就把程序用这个功能美化了。结果，问题出现了，诸多变量值或运行结果不正确。百般检查，程序中变量赋值的变量名错了，我改！我改改改。。。。。。直到某天！
（注意）用修饰时，突然发现，修饰后的变量名被改成上面一个变量名了！我Ctrl+Z,变回来了，再修饰，又变了。

特意提醒：工具中的“修饰”功能千万别用了，检查逻辑过程可以看一下，看完了还是Ctrl+Z吧。

当然，我用的是本站提供的V9，别的版本不知道。
最后，感谢本站提供V9，真心的。

不用这么质疑吧？VFP我用的挺开心的，没必要抵毁。

图片我发不上去，QQ传给你？有想看的都回QQ号。

或者你用下面的代码试试。注意CZYMM名称的变化。从CZYMM变为CZYMM1。

MEMSZ='0123456789'
MEMZM='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
IF .NOT. ALLT(THISFORM.TEXT1.VALUE)==ALLT(THISFORM.TEXT2.VALUE)
MESSAGEBOX('  两次输入的密码不一致, 请重新输入 !  ',(0+48),'提示信息')
THISFORM.TEXT1.VALUE=SPACE(10)
THISFORM.TEXT2.VALUE=SPACE(10)
THISFORM.TEXT1.SETFOCUS
*RETURN 0
ELSE
MEMMM=ALLTRIM(THISFORM.TEXT1.VALUE)
IF LEN(ALLTRIM(thisform.text1.Value))<6 .OR. LEN(ALLTRIM(thisform.text2.Value))<6
MESSAGEBOX('  密码必须大于等于6位! 请重新输入......',(0+48),'提示信息')
THISFORM.TEXT1.SetFocus
ENDIF
MEMSB1=0
MEMSB2=0
FOR MEMLS=1 TO LEN(MEMMM)
   IF AT(SUBSTR(MEMMM,MEMLS,1),MEMSZ)<>0
      MEMSB1=1
   ELSE
      IF AT(SUBSTR(MEMMM,MEMLS,1),MEMZM)<>0
         MEMSB2=1
      ELSE
         MESSAGEBOX('  密码含非法字符! 请重新输入......',(0+48),'提示信息')
         THISFORM.TEXT1.SetFocus
      ENDIF
   ENDIF
ENDFOR
IF MEMSB1=0 .OR. MEMSB2=0
   MESSAGEBOX('  密码必须包含至少一位字母或一位数字! 请重新输入......',(0+48),'提示信息')
   THISFORM.TEXT1.SetFocus
else

MEMCZYMM=ALLT(THISFORM.CZYMM1.VALUE)
MEMCZYMM1=ALLT(THISFORM.TEXT1.VALUE)
MEMCZYMM2=ALLT(THISFORM.TEXT2.VALUE)
IF LEN(MEMCZYMM1)=0
THISFORM.TEXT1.SETFOCUS
ELSE
SET EXAC ON
SELE 1
USE CZYB
LOCA FOR ALLT(CZYBM)=ALLT(SYSCZYBM) .AND. ALLTRIM(PAJIE(CZYXM,CZRQ,CZYMM))=ALLT(MEMCZYMM)
IF EOF()
MESSAGEBOX('  你谁啊你, 密码不能靠猜的 ! 不准你修改......  ',(0+48),'提示信息')
USE
THISFORM.RELEASE
ELSE
REPLACE CZRQ WITH DATETIME()
REPL czyxm WITH likoum(sysczyxm,czrq),CZYMM WITH PAJIA(SYSCZYXM,CZRQ,MEMCZYMM1)
USE
MESSAGEBOX('  密码修改成功 ! 下次登录要输入新密码啦......  ',(0+48),'提示信息')
*SET EXAC OFF
sysczylx1=sysczylx
THISFORM.RELEASE
ENDIF
ENDIF
ENDIF
endif

[ 本帖最后由 xdzhhq 于 2012-6-19 15:46 编辑 ]

呵呵，问题找到了，在工具--修饰中有个符号选项，选大写、小写和不改变都不影响。如选“与第一次匹配”，则会出现问题。但它把MEMCZYMM1的“1”加到CZYMM后面就太没道理了。不过，这已经不重要了。