如何代码创建部门

john

可以通过CreateDept(Parent: TBizURL; AID: string; ADisplayName: string)创建部门。

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

参数说明：
返回值：所创建的部门对象；
Parent：部门的上层组织单元的BizURL；
AID：部门的ID；
ADisplayName：部门的显示名称。

例如，将一个ID为“YGJT”的机构下面创建一个显示名称为“测试部”，ID为“CSB”的部门：

procedure TMainForm.btnCreateDeptClick(Sender: TObject);
var
  lBizURL: TBizURL;
begin
  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := 'Org:\ROOT\YGJT.ogn';
    OrgSystem.CreateDept(lBizURL, 'CSB', '测试部');
    ShowTreeNode('CSB');
  finally
    lBizURL.Free;
  end;
end;