起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 1118|回复: 1

通过组织对象的URL获得其GUID的方法

[复制链接]
发表于 2004-5-26 09:16:59 | 显示全部楼层 |阅读模式
可以利用组织单元的BizUrl通过GetSpecInfo函数获得组织单元的GUID。

函数声明:function GetSpecInfo(FileName: string): TFileSpecInfo;
命名空间:Business.System.FileSys
所属对象(类):FileSystem
函数作用:利用组织单元的BizUrl通过GetSpecInfo函数获得组织单元的GUID
参数说明:
FileName:组织单元的BizURL的文件名称。

参考示例:
procedure TCustomOrgDsgnForm.tbOKClick(Sender: TObject);
var
  lFileSpecInfo: TFileSpecInfo;
begin
  lFileSpecInfo := FileSys.FileSystem.GetSpecInfo(OrgTreeView1.SelectedNode.BizURL.Url);
  Dialogs.ShowMessage('Url:'+OrgTreeView1.SelectedNode.BizURL.Url+'的GUID:'+lFileSpecInfo.GUID);
end;
回复

使用道具 举报

发表于 2008-7-8 16:39:56 | 显示全部楼层
获取组织单元的ID方法
var
  lURL: TBizURL;
  lNode: TBizNode;
begin
  lURL := TBizURL.Create;
  try
    lURL.URL := 'Org:\ROOT\JG1.OGN\BM1.DPT\GW1.PTM\RY1.psm';
    lNode := OrgComboBox1.BizTreeView.BizTree.FindNodeByBizURL(lURL);
    caption := '人员ID为: ' + StrUtils.leftStr(lNode.ID,sysutils.StrLen(lNode.ID)-4);
  finally
    lURL.Free;
  end;
end;
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-3-28 23:04 , Processed in 0.046355 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表