【搞定】为什么所有的用户默认都具有这个功能？**

chumj · 发表于 2006-12-30 18:57:34

为用户分配功能权限时，不知道什么原因，有一个功能在所有的用户中都能够看到，
但是我没有为这些用户分配这个功能的权限呀。
我查看了岗位、部门等的权限，都没有，请问是什么原因呢？

chumj · 发表于 2006-12-30 21:42:35

经过调试运行，发现：
procedure TOperatorFuncTree.LoadFuncFullFileNames;
var
  I: Integer;
  lOpr: TOperator;
  lPos: TOperatorPosition;
  lFuncItem: TOperatorFuncItem;
  lFuncItems: TOperatorFuncItems;
begin
  lOpr := FContext.GetParentContext(BizSys.IL_PERSON).Owner as TOperator;
  if FContext.FindParentContext(BizSys.IL_POSITION) <> nil then
lPos := FContext.GetParentContext(BizSys.IL_POSITION).Owner as TOperatorPosition
  else
lPos := nil;

  lFuncItems := lOpr.FuncItems;
  for I := 0 to lFuncItems.Count - 1 do
  begin
lFuncItem := lFuncItems.Items[I];
if (lPos = nil) or lFuncItem.Has(lPos) then
begin
   FFuncFullFileNames.AddObject(lFuncItem.FuncFileName, lFuncItem);
   ExcludeFiles(lFuncItem.FuncFileName, FFuncFullFileNames);
end;
  end;
end;
在这个函数中：
lOpr := FContext.GetParentContext(BizSys.IL_PERSON).Owner as TOperator;
此时查看lOpr.FuncItems，就已经包含了这个功能
帮忙分析一下吧，谢谢

chumj · 发表于 2006-12-30 22:14:39

我修改这个功能的名称后提示我“转换文件名失败”；
删除这个功能也报错。

aPanther · 发表于 2006-12-31 08:50:40

楼主，版本号？

chumj · 发表于 2006-12-31 11:36:55

版本是2423

aPanther · 发表于 2006-12-31 11:45:30

你看看这个有没有帮助：
http://bbs.justep.com/forum.php?mod=viewthread&tid=12077

chumj · 发表于 2006-12-31 12:48:42

ok，搞定了，谢谢

		自动登录	找回密码
密码			立即注册