【结】[请求]权限分配问题

cfcjlu123

但是，我建立了一个人员，并且把功能权限分配到人员上，30楼的图中就能正常显示功能权限，模块拆分后登陆，也能正常加载各个功能模块。请版主帮忙~~

cfcjlu123

后来又查看了一下别的岗位的人员，也有查看人员功能的时候能够看到功能权限的，但是登陆上去，模块拆分后也是加载不了功能模块~~~~

cfcjlu123

没人管？

cfcjlu123

怎么没人帮忙吗？周五晚上提的问题，今天一天都没动静？

zfang

最初由 cfcjlu123 发布
[B]修改前默认的代码肯定没问题，但是没有模块拆分了~ [/B]

如果 取消你的那个模块拆分逻辑，是正常的话，那就去检查你的这个逻辑 是否存在什么问题。
从你上面描述我们也没看出 是什么问题。请楼主 一点点试试吧。
可以从下面的方式着手：先取消你的那个拆分逻辑，正常了，然后 再一点点 加进去这个逻辑，看到底是哪块 出的问题。这样定位到了问题就好去找解决方法了。

cfcjlu123

取消模块拆分肯定好用。而且服务器中的组织机构中的人员有可以正常加载功能的，也有不能的，这样是逻辑的问题吗?

zfang

恩，应该是那部分的逻辑问题。
你可以分析一下，有的能的账号与 不能的账号他们之间是什么区别，另外，你可以分别调试一下，那部分逻辑 对于上面两种账号 他们是否执行的 代码应该是不同的部分。你查一下是否有问题。

cfcjlu123

那两种账号就是一样的，很让人无语，而且我试过多个同事的机器，都好用

cfcjlu123

代码就是你们论坛上提供的代码，看了，感觉没什么问题~

cfcjlu123

procedure TOperatorFuncNavBar.LoadFuncs;
var
  lFuncURLs: TStringList;
  lFuncItem: TOperatorFuncItem;
  I: Integer;
  YWKJID:string;
begin
  YWKJID:=GetParamValue('Biz:\SYSTEM\SYSPARAMS.PARAMGROUP\MKFL.Param');
  lFuncURLs := TStringList.Create;
  FAllocatedFuncs.BeginUpdate;
  try
    TContextUtils.GetAllocatedFuncs(FContext, lFuncURLs);

    FAllocatedFuncs.Clear;
    for I := 0 to lFuncURLs.Count - 1 do
    begin
    if stringutils.Pos(YWKJID,lFuncURLs)<>0 then
    begin
      lFuncItem := TOperatorFuncItem(lFuncURLs.Objects[I]);
      FAllocatedFuncs.Add(lFuncItem.FuncURL.FileName);
      end;
    end;
  finally
    FAllocatedFuncs.EndUpdate;
    lFuncURLs.Free;
  end;
end;