判断某个人员是否是另一个人员上级的方法

atiger

请参考下面的代码试试

var
  AExpr:string;
  ABizUrls:TStringList;
  ABizUrl:TBizUrl;
begin
  ABizUrls:=TStringList.Create;
  try
    AExpr:='OrgManager(OrgKey(''XSB'', ''XSY'', ''LXW''), '', False)';
//参数：部门编号，岗位编号、人员编号
    Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(AExpr,ABizUrls);
    ABizUrl:=Org.OrgSys.OrgSystem.GetURL('CGB','CGY','LG');
    if ABizUrls.IndexOf(ABizUrl.URL)>0 then
      Dialogs.ShowMessage('Yes');
  finally
    ABizUrls.Free;
  end;
end;