【结贴】2936版本组织机构设计器的性能问题**

dragonsoft

兼容性的不能使用会报错，这个我之前有在论坛贴出帖子，兼容性的是满足要求但是不能使用主要是这个问题，我想知道人员这块如何改成和2936版本的建模工具里头的一样，并且部门的打开功能以及展开速度快就ok

zfang

8楼的提供的数据已经导入，确实比较慢，正在找原因，请楼主等待。

dragonsoft

谢谢了，如果找到原因请尽快告知

dragonsoft

除了速度以外，要改成和建模工具的方式一样要如何修改代码

shangxy

由于29系列就是放到一起进行展示的，没有办法进行修改，只能升级到3000以后的版本来解决了。

shangxy

29系列版本的组织机构、岗位、人员都在一个界面上、楼主想要把组织机构、岗位、和人员分成3个页面这个改动比较大，和重现自己在开发一边组织机构差不多。建议升级到3000以上版本就是楼主想要的模式了。

shangxy

3000以后的版本需要修改的一下代码展开人员速度才会快一些：
业务模型\系统空间\系统功能\组织机构\组织机构设计器\主窗体：
procedure TMAINFORM.ShowPersons;
var
  lNode: TBizNode;
  lChildren, lKinds: TStrings;
  I: Integer;
  lAllow: Boolean;
begin
  if CurrentViewTree <> TCurrentViewTree.cvtPerson then
    Exit;
//  olvPerson.Clear;
  if not FOnOperating then
    if Assigned(CurrentBizNode) and FDeptManager.IsCanOperate(CurrentBizNode.BizURL.URL) then
    begin
      lNode := BizTree.BizTreeStructure.FindNodeByBizURL(EnsureFolder);
      lChildren := TStringList.Create;
      lKinds := TStringList.create;
      try
        lKinds.Add('.PSN');
        BizTree.BizTreeStructure.GetChildrenByKinds(lNode.GUID, lChildren, False, lKinds);
        if Assigned(olvPerson.OnInsert) then
        begin
          for I := lChildren.Count - 1 downto 0 do
          begin
            lAllow := True;
            olvPerson.OnInsert(olvPerson, TBizNode(lChildren.Objects[I]), lAllow);
            if not lAllow then
              lChildren.Delete(I);
          end;
        end;
        olvPerson.Nodes := lChildren;
      finally
        lKinds.Free;
        lChildren.Free;
      end;

//      olvPerson.RootNode := lBizNode;//BizTree.BizTreeStructure.FindNodeByFullFileName(EnsureFolder.FileName);
      //
      if olvPerson.Items.Count = 0 then
        olvPerson.Reload;
    end
    else
      olvPerson.Clear;
end;

dragonsoft

测试先

dragonsoft

2936版本没有这段代码是吧

shangxy

是的，这个代码只有3000以后的版本有，
上次打电话与楼主沟通过，目前这个版本无法解决这个速度慢的问题，只能升级到3000以后。