麻烦哪位大虾帮我看下,这是怎么回事。
这个是系统设置的用户、口令、权限
下面是代码,运行后登陆系统总是显示‘输入有误,请重新输入’
//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
麻烦帮我看下,代码是不是有问题,谢谢阿