谢谢,这是岗位名称
var
lBizUrl: TBizURL;
FGUID,wjbh: String;
i: Integer;
Org : TOrgSystem ;
lBizNode: TBizNode;
begin
wjbh := dataedit1.Text;
lBizURl := TBizURL.Create;
Org := TOrgSystem.Create;
try
Memo1.Lines.Clear;
lBizURl.URL := 'Org:\ROOT\sccs.ogn';
FGUID := CheckBizTreeView1.BizTree.FindNodeByBizURL(lBizURl).GUID;
BizTree.BizTreeStructure.GetChildren(FGUID,Memo1.Lines,True);//,[TBizObjectKind.boOrgServer, TBizObjectKind.boOrgRoot,
for i := 0 to Memo1.Lines.Count -1 do
begin
lbizNode := BizTree.BizTreeStructure.FindNode(Memo1.Lines) as TBizNode;
if lbizNode.NodeKind = TBizObjectKind.boPositionMember then
begin
CheckBizTreeView1.SelectedNode := lBizNode;
if CheckBizTreeView1.Checked[CheckBizTreeView1.Selected] then
begin
// Dialogs.ShowMessage(lBizNode.BizURL.URL);
员工姓名怎么取 |