PB系统登录输入有误，请重新输入

time d_date
d_date=now()
integer flag=0
string ls_no,ff
ff=string(d_date)
//sle_no.text=''
//sle_name.text=''
open pt;
if ii_time<3 then
do
fetch pt into:ls_no,:ls_name;
IF sle_no.text=ls_no or sle_name.text=ls_name THEN
m_main.m_1.m_2.enabled=true
messagebox('Welcome!','欢迎你的到来，'+ls_name+'!'+'现在是:'+ff)
close pt;
flag=1;
m_main.m_1.m_还书处理.enabled=true
m_main.m_1.m_当前借阅.enabled=true
m_main.m_书库操作.m_书库修改.enabled=false
m_main.m_读者操作.m_读者管理.enabled=false
m_main.m_用户管理.m_管理入口.enabled=false
w_main.title='图书馆管理系统---当前读者： '+ls_name
exit

end if
loop while sqlca.sqlcode<>100;
close pt;
if flag=0 then
MessageBox('登录错误','输入有误，请重新输入!')
sle_no.setfocus()
ii_time++
end if
else
MessageBox('登录错误','对不起，你无权使用本系统!')
close(w_1)
end if
name=ls_name
if flag=1 then close(w_1)

咋了？？

哪看来的程序啊？

绝对是误人子弟，这段代码问题很多啊！

游标使用不标准。可参考PB帮助，何时打开提取数据关闭等等，还有这个

do

loop loop while sqlca.sqlcode =0 // 不要用<>100,因为-1时也<>100

SQL语句貌似也有问题，

现在是每次都执行

if flag=0 then

MessageBox('登录错误','输入有误，请重新输入!') ii_time++ end if

.

.

.