【结贴】获取人员部门**

ccseasy · 发表于 2008-6-19 09:52:11

用户手册上也和上面你写的那几句话一样啊
在说了也没详细具体的说，你就给我写个例子就行了，OrgChildren(OrgKey('BGS', '', ''), OrgCondition('*.PSM', '', ''), True, False)怎么用？对于你来说还不简单!

shangxy · 发表于 2008-6-19 09:59:53

http://bbs.justep.com/forum.php? ... GetBizURLsByOrgExpr
4楼

ccseasy · 发表于 2008-6-19 10:24:35

我通过您的指点引用下面的代码：
procedure TRYTCPXSJTJform.ToolButton2Click(Sender: TObject);
var urls: TStrings;
begin
urls:=TStringList.Create();
OrgSys.OrgSystem.GetBizURLsByOrgExpr(' OrgChildren(OrgKey(''BGS'', '''', ''''),OrgCondition(''*.psm'','''',''''),true,false)',urls) ;
memo1.lines.add(urls.Text);
end;

运行后显示结果如下：

Org:\ROOT\NJFS.OGN\BGS.DPT\GLY.PTM\CCSE.PSM
Org:\ROOT\NJFS.OGN\BGS.DPT\GLY.PTM\MMX.PSM
Org:\ROOT\NJFS.OGN\BGS.DPT\GLY.PTM\CJ.PSM

人员取出来了，有没有好的方法得到CCSE、MMX、CJ？

shangxy · 发表于 2008-6-19 10:44:54

lBizUrl :=TBizUrl.Create;
  lBizUrl.URL :='Org:\ROOT\NJFS.OGN\BGS.DPT\GLY.PTM\CCSE.PSM';
  lOrgUnit :=org.OrgSys.OrgSystem.GetUnit(lBizURL);
  Dialogs.ShowMessage(lOrgUnit.ID);

ccseasy · 发表于 2008-6-19 10:57:06

现在提示没有定义?
lBizUrl和lOrgUnit分别声明为什么类型的?

ccseasy · 发表于 2008-6-19 11:11:04

如下错误信息

jiahaiming · 发表于 2008-6-19 11:13:02

lBizurl := TBizUrl.Create;
TBizUrl

ccseasy · 发表于 2008-6-19 14:01:03

lOrgUnit声明什么类型的阿？刚才那个声明好了

jiahaiming · 发表于 2008-6-19 14:18:41

TOrgUnit

ccseasy · 发表于 2008-6-19 15:18:13

为什么加上图中红丝框中的那句话就死机阿？不加就没事，我想得到一个人员的字符串

		自动登录	找回密码
密码			立即注册