integer number
SELECT count(*) into :number from t_mima
where name=:sle_1.text and id=:sle_2.text using sqlca;
CONNECT USING SQLCA;
If SQLCA.SQLCode <>0 Then
MessageBox ("状态", "登录数据库出错:原因"+SQLCA.SQLErrText)
return
end if
If number=0 Then
MessageBox ("登录信息","你的登录信息不对,请重新输入!" )
enter_number=enter_number+1
if enter_number>2 then
close(parent)
return
end if
return
else
MessageBox ("登录信息","登录信息正确,欢迎使用本系统!" )
End If
open(w_main)
一个简单的登陆脚本呀,我以前用也好使的,可是从装pb就不好使了