我编了一个登录的程序,可是输正确的用户名和密码进不去,请教!

olivebaby 发布于 2007-10-05 11:36， 2693 次点击

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

5 回复

路過2007-10-05 12:59

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

olivebaby2007-10-05 13:00

谢谢

fyh2007-10-05 21:57

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

targe1232007-10-29 11:03

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

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

freele_china2008-03-15 14:05

去空格 TRIM()