怎么做PB登录界面

[one630]

具体怎么做登录界面，要使用游标，密码输入有3次机会，不太会编写脚本语句。用户名要从数据库提取吗？

[SKY_4K_PPM]

string ls_user,ls_pass,ls_pwd
integer li_flag

ls_user = trim(sle_1.text)
ls_pass = trim(sle_2.text)

if len(ls_user)<1 then
messagebox('提示！','用户名不能为空.')
sle_1.setfocus()
return
end if
if len(ls_pass)<1 then
messagebox('提示！','密码不能为空.')
sle_2.setfocus()
return
end if

select 100 into:li_flag
from ts_user
where userid=:ls_user;

if li_flag<>100 then
messagebox('提示！','用户不存在.')
sle_1.setfocus()
return
end if

select groupid,password into:gi_groupid,:ls_pwd
from ts_user
where userid=:ls_user;

if ls_pass<>trim(ls_pwd) then
messagebox('提示！','密码不正确.')
sle_2.setfocus()
return
else
gs_name=ls_user
open(w_main)
close(parent)
end if