定义全局变量 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
注意格式 你看看可以吗