| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2706 人关注过本帖
标题:[求助]pb的人事管理系统登陆界面代码问题
只看楼主 加入收藏
zyfoggy
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-5-25
收藏
 问题点数:0 回复次数:2 
[求助]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



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

搜索更多相关主题的帖子: 人事 界面 系统 代码 登陆 
2007-05-25 18:27
路過
Rank: 3Rank: 3
等 级:论坛游侠
威 望:7
帖 子:160
专家分:111
注 册:2006-12-15
收藏
得分:0 
用messagebox測試一下

2007-05-28 08:08
黎明前的黑暗
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-6-7
收藏
得分:0 
当然有问题了,你主窗体都出来了,自然是登陆成功了,你还判断登陆次数干什么?
if g_input_time>2 then
messagebox("警告","输入用户名口令的次数太多!")
close(w_login)
else
messagebox("警告","输入有误,请重新输入")
end if
这段代码不用写ELSE.而且要在OPEN主窗体之前写.
2007-06-07 15:29
快速回复:[求助]pb的人事管理系统登陆界面代码问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023887 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved