[请求] 请问怎么实现删除人员id**

ikd

请问怎么实现删除人员id:

请问怎么实现（用代码）删除人员（A），可使后来者（B）可使用用他（A）的帐号，重新注册新的成员

谢谢！

ikd

procedure TZCSP.ExitMenber;
   var
   lBizURL: TBizURL;
   lpid: String;// 人员id
   lPerson: TPerson;

   begin

     lBizURL := TBizURL.Create;
      lpid:= DataSetBroker1.DataSet.FieldByName ('Account').AsString;
           lPerson := OrgSys.OrgSystem.FindPerson(lpid); // 寻找人
             try
      with BizSys.BizSystem do
      begin
       DeleteObject(lPerson.BizURL ,[]);
       end;
      
finally
    lBizURL.Free;

   end;
   end;

ikd

有人注意么？

atiger

请问楼主遇到啥问题，是不能彻底删除，还是根本就不能删除掉
这样问题，自己设置断点跟踪一下，例如DeleteObject(lPerson.BizURL ,[]); 这里面传进去的DeleteObject 第一个参数，是删除单元的Bizur 是一个字符串，你传进去的对不，实际组织机构上有这样的一个对象吗？

参考http://bbs.justep.com/forum.php?mod=viewthread&tid=1474

ikd

请问彻底删除（A）后可以，新注册的人员（B）可用（A）的id注册么？

atiger

当然可以了

atiger

？？

atiger

这个帖子我结了，有问题请重新起帖子