【结】BizChart

danceyoung

x3 V2617
请教
一个单独的功能，使用TBizChart组建展示组织机构

使用
BizChart.BizURLs.Add('Org:\ROOT');
BizChart1.ShowOptions:=[TBizObjectKind.boOrgRoot, TBizObjectKind.boOrgan, TBizObjectKind.boDept,TBizObjectKind.boPositionMember, TBizObjectKind.boPersonMember, TbizObjectKind.boFolder];
BizChart1.reloadChart;
运行功能，只显示根节点。
还有什么属性设置，来完整的展现机构图呢。

谢谢。

atiger

展示组织机构
用“OrgTreeView” 、“OrgListView”、“OrgComboBox”、“OrgChart” 这些控件来展现

danceyoung

结贴。已搞定。谢谢。

aboy

共享下啊！

danceyoung

procedure TMainForm.BizFormShow(Sender: TObject);
var
    lBizURL :TBizURL;
    lOrgNodes : TStringList;
    lBizNode: TBizNode;
begin
             //BizChart1.BizURLs.Add('Org:\ROOT\1105010039.OGN');
             //BizChart1.FullExpand;
             OrgChart1.ShowOptions:=[TBizObjectKind.boOrgRoot, TBizObjectKind.boOrgan, TBizObjectKind.boDept,TBizObjectKind.boPositionMember, TBizObjectKind.boPersonMember, TbizObjectKind.boFolder];

             lBizURL := TBizURL.Create;
             lOrgNodes := TStringList.Create;

             lBizURL.URL := 'Org:\ROOT\1105010039.OGN';
             lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL);

             if lBizNode <> nil then
             begin
                lOrgNodes.AddObject(lBizNode.GUID, lBizNode);
                OrgChart1.RootNodes:=lOrgNodes;
             end;
             OrgChart1.ReloadChart;
             OrgChart1.Rotated:=false;
end;