我编了一个登录的程序,可是输正确的用户名和密码进不去,请教!
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
