请教一个问题？

我使用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

//谢谢