Question

pb中设置登陆密码错三次就关闭窗口 下面是源程序

string pw
if sle_1.text="" then
messagebox("提示","请输入用户名！")
sle_1.setfocus()//聚焦

else

select mm into :pw from t_yh where yhm=:sle_1.text//选择MM到：从t_yh yhm赋值 PW：sle_1.text
using sqlca;

if sqlca.sqlcode<>0 then//sql代码
messagebox("错误","用户不存在，~n~n请重新输入！")
sle_1.text=""
sle_1.setfocus()//聚焦

else

if sle_2.text<>pw then
messagebox("错误","密码错误，~n~n请重新输入！")
sle_2.text=""
sle_2.setfocus()//聚焦

else
open(w_main)
username=sle_1.text//用户名

int yh,yhg,qx,xt,lx,zw,dq,ry,dj,kh,kht,khc,khx,khs

select qyh,qyhg,qqx,qxt,qlx,qzw,qdq,qry,qdj,qkh,qkht,qkhc,qkhx,qkhs
into :yh,:yhg,:qx,:xt,:lx,:zw,:dq,:ry,:dj,:kh,:kht,:khc,:khx,:khs
from t_qx
where yhm=:sle_1.text
using sqlca;

if yh<>1 then
m_main.m_用户设置.visible=false
end if

if yhg<>1 then
m_main.m_用户设置.m_用户管理.visible=false
end if

if qx<>1 then
m_main.m_用户设置.m_权限管理.visible=false
end if

if xt<>1 then
m_main.m_系统设置.visible=false
end if

if lx<>1 then
m_main.m_系统设置.m_类型设置.visible=false
end if

if zw<>1 then
m_main.m_系统设置.m_职务设置.visible=false
end if

if dq<>1 then
m_main.m_系统设置.m_地区设置.visible=false
end if

if ry<>1 then
m_main.m_系统设置.m_人员设置.visible=false
end if

if dj<>1 then
m_main.m_系统设置.m_等级设置.visible=false
end if

if kh<>1 then
m_main.m_客户信息管理.visible=false
end if

if kht<>1 then
m_main.m_客户信息管理.m_客户信息录入.visible=false
end if

if khc<>1 then
m_main.m_客户信息管理.m_客户信息查询.visible=false
end if

if khx<>1 and khs<>1 then
m_main.m_客户信息管理.m_客户信息更改.visible=false
end if

quanxx=string(khx)
quanxs=string(khs)
quanxc=string(khc)
timer(0.1,w_main)//计时器

close(parent)

end if

end if

end if

Answer 1

先定义 instance 实例变量 ii_time
Integer ii_time=1 //登录磨困次数

在
if sqlca.sqlcode<>0 then//sql代码
messagebox("错误","用户不祥樱存在，~n~n请重新输入！")
sle_1.text=""
sle_1.setfocus()//聚焦

else

if sle_2.text<>pw then
messagebox("错误","密码错误，~n~n请重新输入！")
sle_2.text=""
sle_2.setfocus()//聚焦

两个语句中加入下面的语句

IF ii_time=3 THEN
MessageBox('登录错误','对不起，您已经三次错误输入!',Exclamation!)
HALT CLOSE
ELSE
ii_time++
MessageBox('登录错误','请输入正确的用户名或密码瞎宴念',Exclamation!)
END IF