表 users(id,name,quanxian)其中quanxian为0,1 . 登陆窗口中判断登陆
select userpwd into :pwd from users where userid=:username;
if userpwd=trim(pwd) then
select quanxian into :right from quanxian where userid=:username;//取出该用户的权限值放入全局变量 right中
open(w_main)
close(parent)
w_main的open事件:
if right="1" then //判断权限值
m_main.m_1.enabled=false
end if
我这样做的,但是好象不起作用,难道程序有问题,望大家指点。先谢谢楼上2位大哥了。