请教一个问题?
我使用PB8.0开发一个登录界框时,本来预想是:
在单行编辑框sle_username内输入用户名,按回车,焦点移到单行编辑框sle_password上,方法是在sle_username的modified事件脚本中写入:
if keydown(13) then sle_password.setfocus()
再输入密码,再按回车,触发命令按钮cb_ok的clicked事件,方法是在sle_password的modified事件脚本中写入:
if keydown(13) then cb_ok.triggerevent(clicked!)
//cb_ok的clicked事件的脚本如下:
string username
string password
username=trim(sle_username.text)
SELECT CRM_User.Password
INTO :password
FROM CRM_User
WHERE CRM_User.Name=:username
USING SQLCA;
if SQLCA.SQLCode=0 then
if trim(password)=trim(sle_password.text) then
open(w_main)
close(parent)
else
//如果密码不正确的话,会执行到这里。
messagebox("客户关系管理","您的密码错误",Exclamation!,ok!)
sle_password.text=""
sle_password.setfocus()
//点了确定以后,光标在sle_password内,但是输入无效,
//点击该控件也无效,只有先点其它控件,再点它才能输入,请问这是为什么?
end if
else
messagebox("客户关系管理","您的用户名错误",Exclamation!,ok!)
sle_username.text=""
sle_password.text=""
sle_username.setfocus()
end if
//谢谢