在sqlca.sqlcode=100 时try_time才会自动加一,要是不等于100时呢,就不会加一了,也就会出现你所说的那种情况.还有try_time也没有初始化.
回复:(rmbwz)PB的登陆验证
加我QQ:107911230
定义全局变量 try_time
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 < 3 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
注意格式 你看看可以吗