学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
轻松建立自己的群组,招兵买马   
发新话题
打印

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

[求助]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



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

附件: 您所在的用户组无法下载或查看附件

TOP

用messagebox測試一下

TOP

当然有问题了,你主窗体都出来了,自然是登陆成功了,你还判断登陆次数干什么?
if g_input_time>2 then
messagebox("警告","输入用户名口令的次数太多!")
close(w_login)
else
messagebox("警告","输入有误,请重新输入")
end if
这段代码不用写ELSE.而且要在OPEN主窗体之前写.

TOP

发新话题