2401升级到2936出现业务功能树空白的问题*****急啊**

dragonsoft

从2401版本升级到2936出现加载界面后，没有业务功能树的问题，界面是空白的，请帮忙处理，急啊，请问是哪里加载错误，界面如图，

jiahaiminghr

应该是现在使用的系统主窗体的代码问题。
需要查看关于功能树的实现部分。

dragonsoft

请问张海明的QQ多少，我现在已经导出代码，需要发给他，怎么处理

jiahaiminghr

在楼主的系统初始化功能中，需要初始化一下系统空间\用户界面基础\库（兼容性保留）\公共组件库（兼容性保留）

dragonsoft

1.IE出错的问题
2.业务功能树乱乱的如何处理，用你们默认的界面登陆又，请告知
3.给出2401和2936的版本区别之处，我们好对程序排查其他问题
4.以上问题很急，请及时告知处理方式。

jiahaiminghr

1、ie出错的问题是由于楼主在代码中创建了对象没有释放导致的

2、功能树问题
1楼功能树不显示的问题，已经在qq中为楼主解决了。你说的乱乱的问题是指什么？

3、2401和2936的区别在新版本的What's new.txt文件中有详细说明

dragonsoft

没有解决了，你只是解决了一部分

jiahaiminghr

功能树的问题都是通过在兼容保留的组件库修改代码来解决，给你完整的内容：
在2936界面中使用了26xx风格的功能树，FuncNavBar是从系统空间\用户界面基础\库（兼容性保留）\公共组件库（兼容性保留）定义的

1、在TInit功能中初始化这个兼容保留的组件库
static procedure TINIT.Init;
{jhm打开此注释，兼容就的功能树}
  CommonComponentLibrary.TCommonComponentLibrary.Init; {兼容性保留}

static procedure TINIT.Uninit;   
  CommonComponentLibrary.TCommonComponentLibrary.Uninit; {兼容性保留}

2、在默认条件下，这个funcnavbar会加载当前操作员有权运行的所有功能（按照模型树的结构？）和系统库业务功能树表中定义的功能树结构
用以下代码屏蔽掉功能树表以外的内容，注：此中方式下必须要用“协同系统\配置\业务功能树配置”配置功能树结构，否则功能树无法正常显示。
procedure TBaseNavBar.Reload;
var
  I: Integer;
  lNodes: TStringList;
begin
  Groups.Clear;
  FGroups.Clear;
  FTreeViews.Clear;

  if FBaseTree <> nil then
  begin
    EnsureRoot;
    lNodes := TStringList.Create;
    try
      BaseTree.GetChildrenBySeq(cRootGUID, lNodes);
      for I := 0 to lNodes.Count - 1 do
        if CanAddGroup(lNodes.Objects[I] as TBaseNode) then
{jhm 屏蔽掉TFuncTree表没有定义的菜单项（默认是把有权限的功能按照模型树结构全部显示了）}
          if ((lNodes.Objects[I] as TBaseNode).StoredSequence < 1024) or
            ((lNodes.Objects[I] as TBaseNode).StoredSequence >= 10000) then
            DoAddGroup(lNodes.Objects[I] as TBaseNode);

    finally
      lNodes.Free;
    end;
  end;
end;

dragonsoft

现在功能树配置会报错，不能保存，然后我要在功能树增加显示功能不行啊，怎么弄

dragonsoft

分配业务功能出错