当前位置: 代码迷 >> PB >> pb作登录界面
  详细解决方案

pb作登录界面

热度:52   发布时间:2016-04-29 08:11:20.0
pb做登录界面
代码如下:
string uid,upwd,id,pwd
id=string(sle_mid.text)
id=trim(id)
pwd=string(sle_mpwd.text)
pwd=trim(pwd)
if sle_mid.text="" or isnull(sle_mid.text) then
messagebox("缺少数据","请输入管理员名")
sle_mid.setfocus()
return
end if
select adname,adpwd
into :uid,:upwd
from manager;
if uid=id and upwd=pwd then
messagebox("right","")
else
messagebox("error","")
end if

在manager表里存了用户名和密码,现在连接数据库后从表里去出用户名和密码,但是输入正确密码还是弹出error,为什么,求解决!!

------解决方案--------------------
int li_count
select count(1) into :li_count
from manager
where id=:id and pwd=:pwd;
if sqlca.sqlcode=-1 then messagebox('',sqlca.sqlerrtext)
if li_count>0 then
messagebox("right","")
else
messagebox("error","")
end if
  相关解决方案