我有一个用户表,里面有用户名,密码,权限,每个用户对应不同的权限,我的登录的时候已经把权限定义成全局变量了
就是我在登录的时候写了一句代码userpower:=DataModule1.adoquerylogin.fieldbyname('power').value;
我想在单击一个菜单的时候,判断这个用户的权限,在菜单的click事件中执行如下代码:
if userpower='管理员' then
userform.show
else
application.messagebox('对不起,您没有权限','提示',mb_ok);
end;
但是不管登录用户是不是管理员都能出来userform,但是换成下面的
if userpower='管理员' then
application.messagebox('对不起,您没有权限','提示',mb_ok)
else
userform.show;
end;
就不管是不是管理员都会弹出没有权限的提示框,总是执行第一句的,怎么回事
就是我在登录的时候写了一句代码userpower:=DataModule1.adoquerylogin.fieldbyname('power').value;
我想在单击一个菜单的时候,判断这个用户的权限,在菜单的click事件中执行如下代码:
if userpower='管理员' then
userform.show
else
application.messagebox('对不起,您没有权限','提示',mb_ok);
end;
但是不管登录用户是不是管理员都能出来userform,但是换成下面的
if userpower='管理员' then
application.messagebox('对不起,您没有权限','提示',mb_ok)
else
userform.show;
end;
就不管是不是管理员都会弹出没有权限的提示框,总是执行第一句的,怎么回事
解决方案 »
- 请教深圳的朋友,顺便散分
- 强烈抗议"申请delphi区大版"这样的乱帖子
- 请教:怎样把视图和存储过程都移到程序中??(来者有分,问题解决分数不够可以再加!!)
- 想将image1的图片的路径和文件名(用日期时间表示:20050622085227.bmp)保存到数据库,怎样取得这个image1的路径和文件名?
- 一个winexec的问题?
- html help workshop制作的chm文件,如何在其中加入flash???
- 关于动态加载控件!(拜托各位大侠)
- 有没有面向DELPHI开发者的WINDOWS API方面的书???新年快乐哈!!!
- 类似于windows的注销??
- Kingron(WinAPI)老兄,救救我!
- 请教一个考勤排班程序,出现日历样式排班。
- 请问下面的代码是什么意思?尤其是最后几行?
顯示一下userpower的值,看看是否等於‘管理員’,要注意裡面是否包涵了空格的。
你的字段长度是否设置的大于“管理员”,也就是8位。如果大于8位,打个比方来说你设了10位,那么在你输入一个不足10位的
字符串时系统将用空格自动补位。也就是说“管理员”后面会多出两个空格。
着这样说来你判断if userpower='管理员' then 当然不行。你可以用trim函数(清除字符串两边的空格)来决绝。
或者将数据类型改成varchat型,这种类型的数据在遇到不足规定长度的字符串时不会用空格补位。不知道我说的请不清楚,祝你能解决问题。