【搞定】关于新建人员**

sjz10

用部门管理员操作组织结构的时候，
新建人员的界面改成自己的界面如何做？查了一下组织机构资源库，发现最后调用的是TCREATEORG.NewOrg函数，此函数可以新建人员，新建岗位等。我如果想自己做窗体，是不是把
  Result := NewOrg(AContext, AParentOrg, '新建人员', 4, ANews, ADeptManager);
替换掉就可以了？还有没有更简单的方法？我就是不喜欢列表的方式填写人员信息，我觉得用表单的方式更合适一些。

alang

procedure TMAINFORM.actNewOrganExecute(Sender: TObject);
var
  lR: Boolean;
  lParentFileName: String;
begin
  lParentFileName := CurrentBizNode.FullFileName;
  FOnOperating := True;
  try
    case TAction(Sender).Tag of
      1: lR := TOrgLib.NewOrgan(Context, CurrentBizNode.BizURL, nil, FDeptManager);
      2: lR := TOrgLib.NewDept(Context, CurrentBizNode.BizURL, nil, FDeptManager);
      3: lR := TOrgLib.NewPosition(Context, CurrentBizNode.BizURL, nil, FDeptManager);
      4: lR := TOrgLib.NewPerson(Context, EnsureFolder, nil, FDeptManager);
      5: lR := TOrgLib.NewWrokGroup(Context, CurrentBizNode.BizURL, nil, FDeptManager);
      6: lR := TOrgLib.NewFolder(Context, CurrentBizNode.BizURL, nil, FDeptManager);
      else
        lR := False;
     end;
     if lR then
       CurrentView.AfterNew(lParentFileName);
  finally
    FOnOperating := False;
  end;
end;

就是修改这里的NewXXX的函数了

sjz10

是不是平台没有提供表单方式的人员信息窗体？

alang

没有，你可以自己做一个界面，然后调用平台的创建人员的函数

sjz10

OK，结帖吧。