如何通过人员ID获取人员被分配到的部门和岗位成员

蔚蓝海岸

可以通过函数GetPersonMembers获取人员的岗位成员的集合，然后通过岗位成员的Parent属性获得其上层的组织单元，比如部门、机构等组织单元对象。

函数声明：function GetPersonMembers(AID: string; List: TList):Boolean;
命名空间：Business.Model.Org
所属对象（类）：OrgSys.OrgSystem
函数作用：通过组织单元ID获取组织单元的所有运行功能（包括继承的业务功能）。

参数说明：
返回值：布尔类型，表示是否有返回结果；
AID：表示一个人员的ID；
List：返回人员被分配到的岗位成员的集合。

procedure TMainForm. btnGetDeptPositionClick(Sender: TObject);
var
   lPersonMembers: TList;
   lPersonMember: TOrgUnit;
   I: integer;
   ls: string;
begin
   lPersonMembers := TList.Create;
   try
    OrgSys.OrgSystem.GetPersonMembers('zxx', lPersonMembers); //人员ID为zxx
      for I := 0 to lPersonMembers.count - 1 do
     begin
       lPersonMember := TOrgUnit(lPersonMembers.Items[I]);
       ls := '岗位名称：' + lPersonMember.Parent.DisplayName + '  部门名称:' +
         lPersonMember.Parent.Parent.DisplayName + '  机构名称:' +
         lPersonMember.Parent.Parent.Parent.DisplayName;
       MemoResult.Lines.Add(ls);
        end;
   finally
     lPersonMembers.Free;
   end;
end;