楼主,我不知道你的真实意图。
我下面的方式就是控制在删除人员成员的时候,控制岗位成员节点下必须要保留一个人员成员,否则不允许删除(具体逻辑你按照这样的逻辑来控制就可以了)
业务模型\系统空间\系统功能\组织机构\组织机构设计器\主窗体
procedure TMAINFORM.actDeleteExecute(Sender: TObject); 事件中
if CurrentOperateNode.NodeKind = TBizObjectKind.boPersonMember then
begin
CurrentOperateNode.Parent.OwnerTree.GetChildren(CurrentOperateNode.Parent.GUID,lChildren,True);
if lChildren.Count >=2 then
BizSysUtils.DeleteBizObject(lBizNodes, True)
else
。。。。。
end
else
BizSysUtils.DeleteBizObject(lBizNodes, True);
注
lChildren: TStrings; |