怎么把新功能做的和计划中心一样可以设置管理权限？**

qiezi

如题。

zfang

参考业务模型\协同系统\计划\计划中心资源\计划常用过滤和业务模型\协同系统\计划\计划中心资源里的 GetFilter

qiezi

TStringUtils在那个包里？帮助没找到

zfang

NameSpace: Business.System
--------------------------------------------------------------------------------
StringUtils = class(System.Object)
public
  static function Copy(S: string; Index: Longint; Count: Longint): string;
  static function CopyAnsi(S: string; Index: Longint; Count: Longint): string;
  static procedure Delete(S: string; Index: Longint; Count: Longint);
  static procedure DeleteAnsi(S: string; Index: Longint; Count: Longint);
  static procedure Insert(Source: string; S: string; Index: Longint);
  static procedure InsertAnsi(Source: string; S: string; Index: Longint);
  static function Length(S: string): Longint;
  static function LengthAnsi(S: string): Longint;
  static function Pos(SubStr: string; S: string): Longint;
  static function PosAnsi(SubStr: string; S: string): Longint;
  static function PosIgnoreCase(SubStr: string; S: string): Longint;
  static function PosIgnoreCaseAnsi(SubStr: string; S: string): Longint;
end;

qiezi

1、[U]TStringUtils.GetRootURLs[/U] (DeptURLs, lRootURLs);
2、管理权限在那个表中？

zfang

1、TStringUtils.GetRootURLs (DeptURLs, lRootURLs);
TStringUtils在业务模型\系统空间\系统运行库\系统函数库中

zfang

2、管理权限在那个表中？
楼主你要做什么呢？

qiezi

我想根据管理权限赋予用户查看相应数据，

zfang

那你看业务模型\协同系统\计划\计划中心资源\计划常用过滤中的那个部门，他就是根据当前登陆用户所拥有的管理权限，列出所有的下属的。

zfang

提供一个代码给你，可以根据人员成员参数获得其所拥有的管理权限的函数
function TMainForm.GetSubordinations(APersonMember: TOrgUnit): TStrings;
var
  lOrgUnit : TOrgUnit;
  lOrgSubordinationItems : TOrgSubordinationItems;
  i : integer;
  ResultUrls : TStrings;
begin
  ResultUrls := TStringList.Create;
  lOrgSubordinationItems := TOrgSubordinationItems.Create;//定义TOrgSubordinationItems对象，里面存储一个下属列表
  try
    OrgSys.OrgSystem.GetAllSubordinationItems(APersonMember, lOrgSubordinationItems);
    if lOrgSubordinationItems.Count > 0 then
      for i := 0 to lOrgSubordinationItems.Count-1 do
        begin
          lOrgUnit := OrgSys.OrgSystem.FindUnit(lOrgSubordinationItems.DeptID,
            lOrgSubordinationItems.PositionID, lOrgSubordinationItems.PersonID);
          ResultUrls.Add(lOrgUnit.BizUrl.URL);
        end
    else
      ResultUrls.Add(APersonMember.BizUrl.URL);
  finally
    lOrgSubordinationItems.Free;
    Result := ResultUrls;
  end;
end;