[求助]pb的人事管理系统登陆界面代码问题

麻烦哪位大虾帮我看下，这是怎么回事。
这个是系统设置的用户、口令、权限

下面是代码，运行后登陆系统总是显示‘输入有误，请重新输入’

//string now_grade
string correct_pswd,sdate
time d_date
d_date=now()
sdate=string(d_date)
if sle_1.text="" or sle_2.text="" then
messagebox("警告!","用户名密码不能为空")
sle_1.setfocus( )
sle_2.setfocus( )

else
g_input_time=g_input_time+1
g_user=sle_1.text
g_pwd=sle_2.text
g_power=sle_3.text

select user_pwd into :correct_pswd from user_info
where user_id=:g_user;

if trim(g_pwd)=trim(correct_pswd) then

select user_power into :g_power from user_info

where user_id=:g_user;
open(w_main)
//close(w_login)

if trim(g_power) = "管理员" then

w_main.ChangeMenu(m_menu)
// w_main.ToolbarVisible = true
else

w_main.ChangeMenu(m_menuist)
//w_main.ToolbarVisible = true
end if
close(w_login)

else

if g_input_time>2 then
messagebox("警告","输入用户名口令的次数太多!")
close(w_login)
else
messagebox("警告","输入有误,请重新输入")
end if
end if
end if
//end if



麻烦帮我看下，代码是不是有问题，谢谢阿