很可能是您的代码有问题。

cn=0
sele 12
use kl
index on dh to kl
set index to kl
pdh=alltrim(thisform.text2.value)
set order to dh
seek pdh
if alltrim(dh)!=pdh
   cn=cn+1
   w=messagebox('密码错误，请重新输入！',4+32,'信息')
   do case
      case w=6
        thisform.text2.value=''
        thisform.text2.setfocus
      case w=7
        messagebox('慎重考虑，三次退出！',4+32,'警告')
        thisform.release
    endcase
    if cn=3
      thisform.release
      quit
    endif
else
    rank=yhm
    rank1=cc
    thisform.timer2.enabled=.t.
 do case
........

以上是登录代码的一部分

[此贴子已经被作者于2023-2-14 09:56编辑过]

cn=0 放在此处就是错误的

在启动程序中是否设置了系统输入法为全角字符？
或者是系统选择的字符集不一致？

[此贴子已经被作者于2023-2-14 16:32编辑过]