删除人员问题**

chenyongci

利用代码直接彻底删除人员
orgsys.DeleteObject ('Org:\PERSON\GWL.psn', [TDeleteFileOption.dfDestroy]);
这样的删除，它会删除该人员的所有人员成员吗？
删除人员之前，是否需要先代码删除所有的人员成员？假如需要，应该怎么样去实现？？
谢谢啊，，不知道怎么弄了

aDragon

static function TORGSYSTEMUTILS.DeletePersonMemberByID(APersonID:string): Boolean;
var
  lPersonMembers: TList;
  lPersonMember: TOrgUnit;
  lBizURL : TBizUrl;
  i: integer;
begin
  Result  := False;
  lPersonMembers := TList.Create;
  try
    lPersonMembers.Clear;
    OrgSys.OrgSystem.GetPersonMembers(APersonID, lPersonMembers); //
    for i := 0 to lPersonMembers.count-1 do
    begin
      lPersonMember := TOrgUnit(lPersonMembers.Items);
      lBizURL := lPersonMember.BizURL;
      if  BizSys.BizSystem.URLExists(lBizURL) then
      begin
//        OrgSys.OrgSystem.DeleteUnit(lBizURL);
        BizSys.BizSystem.DeleteObject(lBizURL,[TDeleteFileOption.dfDestroy]);
        Result  := True;
      end;
    end;
  finally
    lPersonMembers.Free;
  end;
end;