ls_user = sle_user.text
ls_pwd = sle_pwd.text
select count(*) into :ll_count from s_usercount where c_user = :ls_user and c_pwd = :ls_pwd;
if ll_count = 0 or sqlca.sqlcode = 100 then
messagebx('系统提示','用户名不存在或密码错误!')
return
else
//进入系统
open(主窗口)
end if