【结贴】权限问题**

ccseasy

如果我以“船舶检验处”的“部门管理员”的身份登陆，当我点击组织机构的下拉框时，只显示船舶检验处，不想显示所有部门，请问怎么实现？

jiahaiming

http://bbs.justep.com/forum.php?mod=viewthread&tid=1222

ccseasy

我的是OrgComboBox1不是OrgTreeView1
所以没有StartWithNodes.Clear属性、StartWithNodes.AddObject()属性等，怎么办？
能否举一个OrgComboBox1的例子。

Akon

procedure TMainForm.Button1Click(Sender: TObject);
var
  lBizNode: TBizNode;
  lBizNodes: TStrings;
  lOrgUnit: TOrgUnit;
  lContextCurrent: TContextCurrent;
begin
  lContextCurrent := TContextCurrent.Create(Context);
  lBizNodes := TStringList.Create;
  try
    lOrgUnit := lContextCurrent.Dept;
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(TOrgUnit(lContextCurrent.Dept).BizURL);
    if Assigned(lBizNode) then
      lBizNodes.AddObject(lBizNode.GUID,lBizNode);
    OrgComboBox1.BizTreeView.StartWithNodes := lBizNodes;
    OrgComboBox1.BizTreeView.ReloadTree;
  finally
    lBizNodes.Free;
    lContextCurrent.Free;
  end;

Akon

楼主,还有问题不?没问题就结贴了