我在command1中的click输入


if empty(thisform.text1.value) or empty(thisform.text2.value)
    messagebox("输入的信息不完整,请重新输入!",48,"警告")
    inpswd1=inpswd1+1
    if inpswd1>=3
        messagebox("请不要乱来!!",64,"警告")
        thisform.release
    else
        thisform.text1.value=""
        thisform.text2.value=""
        thisform.text1.setfocus
    endif
else
    sele 口令
    locate for 用户名=alltrim(thisform.text1.value)
    if 密码=alltrim(thisform.text2.value)
        thisform.release
        do case
        case mm=3
            do form 数据输入维护选择表
        case mm=4
            do form 删除界面
        endcase
    else
        messagebox("输入的信息有误,请重新输入!",64,"警告")
        inpswd1=inpswd1+1
        if inpswd1>=3
            messagebox("请不要乱来!!",64,"警告")
            thisform.release
        else
            thisform.text1.value=""
            thisform.text2.value=""
            thisform.text1.setfocus
        endif
    endif
endif

command2是退出 click是  thisform.release

口令 是我的一个表，  数据删除维护选择表 和 删除界面 是我做的表单

可是我一运行  它就报错 说 找不到别名 口令

我把口令 改成 kouling 还是不行   ，求解答  

 

你没打开口令表，所以找不到

表在使用前必须在某个空闲的工作区中打开的。

if .not. used("口令")
    use 口令 in 0
endif
sele 口令
locate for 用户名=alltrim(thisform.text1.value)
……
在(endif)之后加
use in 口令