string ls_user,ls_password
ls_user=sle_user.text

if sle_user.text="" or sle_password.text="" then
messagebox("","用户名或口令不能为空！")
return
end if
select yhkl
into:ls_password
from yhkl
where yhmc=:ls_user and yhkl=:ls_password
using sqlca;
if sle_password.text=ls_password then
open(w_main)
close(parent)
else
messagebox("","用户名或口令错误！")
end if

將and yhkl=:ls_password 去掉，試一下

谢谢

string ls_user,ls_password,ls_passValue
ls_user=Trim(sle_user.text)
ls_password = trim(sle_password.text)

if (ISnull(ls_user) or ls_User = '') OR (ISNULL(ls_password )or ls_password = '') then
messagebox("","用户名或口令不能为空！")
return
end if
select yhkl
into:ls_passValue
from yhkl
where yhmc=:ls_user;
using sqlca;
if ls_PassValue=ls_password then
open(w_main)
close(parent)
else
messagebox("","用户名或口令错误！")
end if

將and yhkl=:ls_password 去掉，試一下

这个去不去没有关系的,只是他没有在前面为其赋值而已, ls_password=sle_password.text;