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

atiger

可以通过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;