如何代码创建人员

john

可以通过CreatePerson(Parent: TBizURL; AID: string; ADisplayName: string)创建岗位。

函数声明：function CreatePerson (Parent: TBizURL; AID: string; ADisplayName: string): TPerson;
命名空间：Org.OrgSys
所属对象（类）：OrgSystem
函数作用：创建组织机构的人员

参数说明：
返回值：所创建的岗位对象；
Parent：创建人员所在的BizURL；
AID：人员的ID；
ADisplayName：人员的显示名称。

例如，创建一个显示名称为“李伟”，ID为“LIWEI”的人员：

procedure TMainForm.BtnCreatePersonClick(Sender: TObject);
var
  lBizURL: TBizURL;
begin
  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := 'Org:\ROOT\DW.ogn';
    OrgSystem.CreatePerson(lBizURL, 'LIWEI', '李伟');
  finally
    lBizURL.Free;
     end;
end;

alang

不能在Org:\Person下面建人员，必须建立在机构或者部门下面