起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 174|回复: 7

【结】组织机构设计器

[复制链接]
发表于 2009-1-8 10:48:08 | 显示全部楼层 |阅读模式
我给一个管理员分配了组织机构设计器的功能权限;怎么能实现管理员在增加人员(可以增加多个人员,这个可以实现) 删除人员的时候"部门1"下的"岗位"里的"人员"必需有一个人员存在,不能为空
回复

使用道具 举报

发表于 2009-1-8 11:36:34 | 显示全部楼层
楼主,你可以在业务模型\系统空间\系统功能\组织机构\组织机构设计器\主窗体
这里看一下删除逻辑。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-1-8 16:21:53 | 显示全部楼层
好我试试吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-1-9 08:55:42 | 显示全部楼层
我试过了,还是不行能不能给点思路
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-1-9 09:38:15 | 显示全部楼层
您说的是主窗体中右键删除和工具栏里的删除按钮
我现在想把一个地方弄明白了其它就都明白了
我现在改的是"分配人员窗体"里'<'的事件
能给个思路吗????

分配人员.jpg

344.81 KB, 下载次数: 93

回复 支持 反对

使用道具 举报

发表于 2009-1-9 10:07:39 | 显示全部楼层
楼主,我不知道你的真实意图。
我下面的方式就是控制在删除人员成员的时候,控制岗位成员节点下必须要保留一个人员成员,否则不允许删除(具体逻辑你按照这样的逻辑来控制就可以了)
业务模型\系统空间\系统功能\组织机构\组织机构设计器\主窗体
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;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-1-9 10:44:50 | 显示全部楼层
呵呵
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-1-9 17:15:11 | 显示全部楼层
人员是可以了
谢谢
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-28 14:48 , Processed in 0.044117 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表