PB的登陆验证
string pass_word,mangername
string username
mangername=trim(sle_1.text)
pass_word=trim(sle_2.text)
select manger_name
into :username
from manger
where manger_name =: mangername and password =: pass_word
using sqlca;
if try_time < 4 then
if sqlca.sqlcode=0 then
messagebox("登陆成功","欢迎管理员:")
w_main.visible=true
close(parent)
elseif sqlca.sqlcode=100 then
messagebox("警告","输入错误，请再输入一次!!",exclamation!)
sle_1.setfocus()
sle_1.text=''
sle_2.text=''
try_time++;
end if
else
messagebox("系统警告","您尝试登陆的次数超过三次,"+"系统将不允许你登陆(@_@)"+" ,请与管理员联系!!",stopsign!)
cb_1.enabled=false
end if
无论我输入多少次错误，也不出现超过三次尝试的系统警告。希望高手大哥可以指点下。我是一个PB的新手也就一两天。最近在做图书管理系统。希望有这方面的大哥们给些交流意见。我想认识几个朋友。不知道你们是不是嫌弃我。希望你们可以带我走一程。谢谢。如果有意者留下QQ吧。我会加你们的。期待...........
