首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

pb作登录界面

2012-07-29 
pb做登录界面代码如下:string uid,upwd,id,pwdidstring(sle_mid.text)idtrim(id)pwdstring(sle_mpwd.te

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

热点排行