起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 551|回复: 0

如何获取Business平台中Business对象的类型

[复制链接]
发表于 2004-12-9 16:19:51 | 显示全部楼层 |阅读模式
可以通过GetObjectKind(AURL: TBizURL)获取平台中Business对象的类型。

函数声明:function GetObjectKind(AURL: TBizURL): TBizObjectKind;
命名空间:Business.Model.BizSys
所属对象(类):BizSystem
函数作用:获取Business对象的类型
参数说明:
返回值:Business对象的类型。

例如:Business.Model.BizSys.BizSystem.GetObjectKind
(‘Biz:\JUSTEP\JUSTEPMEMO.Func’);

procedure TMainForm.btnGetObjectKindClick(Sender: TObject);
var
  lBizURL: string;
begin
lBizURL := 'Biz:\SYSTEM\SysOrganDesignForm.Func';
  MemoResult.Lines.Add('对象类型:');
  case BizSys.BizSystem.GetObjectKind(lBizURL) of
    TBizObjectKind.boDept: MemoResult.Lines.Add('Dept');
    TBizObjectKind.boOrgan: MemoResult.Lines.Add('Organ');
    TBizObjectKind.boOrgRoot: MemoResult.Lines.Add('Orgroot');
    TBizObjectKind.boPosition: MemoResult.Lines.Add('Position');
    TBizObjectKind.boPositionRoot: MemoResult.Lines.Add('Positionroot');
    TBizObjectKind.boPerson: MemoResult.Lines.Add('Person');
    TBizObjectKind.boFunc: MemoResult.Lines.Add('Func');
    TBizObjectKind.boToolBar: MemoResult.Lines.Add('ToolBar');
  end;
end;
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-12-23 05:50 , Processed in 0.037023 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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