求助PB设计程序登陆代码问题
最近在做一个PB的登陆界面，但是用下面的代码始终不行，即使输入正确的用户名和密码都显示用户编号或密码错误，以下是代码，求各位大神帮帮小弟
string ls_user_id
string ls_password
long ll_count
ls_user_id=trim(sle_user_id.text)
ls_password=trim(sle_password.text)
If ls_user_id= '' or isnull(ls_user_id) then
messagebox('提示','请输入用户编号!')
return
end if
If ls_password= '' or isnull(ls_password) then
messagebox('提示','请输入用户密码!')
return
end if
select count(*) into :ll_count from yh_xx where user_id =:ls_user_id and password =:ls_password;
If ll_count<1 then
messagebox('提示','用户编号或密码错误')
return
end if
select user_name into :g_user_name from yh_xx where user_id=:ls_user_id;
g_user_id=ls_user_id
open(w_xjsk_main)
close(parent)

[解决办法]
确认你的代码前面有连过数据库吗？
[解决办法]
多看看PB联机帮助
涉及与数据库/事务相关的，看看
Transaction object
执行sql语句后，看看
SQLCA.SQLCode
SQLCA.SQLErrText
很容易找到问题