起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 267|回复: 3

【结贴】如何获得组织机构中每个人员对应的功能权限**

[复制链接]
发表于 2009-3-13 10:10:22 | 显示全部楼层 |阅读模式
如题。
回复

使用道具 举报

发表于 2009-3-13 10:19:35 | 显示全部楼层
参考代码:Edit2.text是某个人员id;MemoResult是一个TMemo控件
//取得某人员的所有功能和取得某组织单元的功能
procedure TMAINFORM.Button2Click(Sender: TObject);
var
  list: org.TOrgFuncItems;
  I: integer;
begin
  MemoResult.Clear;
  list := org.TOrgFuncItems.Create;
  try
    if org.OrgSys.OrgSystem.GetPersonAllFuncs(edit2.TExt, list) then
      for I := 0 to list.Count - 1 do
        MemoResult.Lines.Add(list.Items[I].FuncDisplayName);
  finally
    list.Free;
  end;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-3-13 11:54:12 | 显示全部楼层
结贴吧
回复 支持 反对

使用道具 举报

发表于 2010-2-4 15:55:01 | 显示全部楼层
谁能帮忙翻译一下2楼的代码?
谢谢了。
我要把它运行起来要做什么准备?写到哪个位置呢?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-11 23:23 , Processed in 0.041707 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表