【结贴】权限管理

xhsoft

procedure TMainForm.Button1Click(Sender: TObject);
var
  Server: TFileSystemCacheServer;
begin
  fsmngr.OrgSystemManager.UseLocalCache := False;
  AssignFunc(sysutils.UpperCase('Org:\ROOT\SCCS.OGN\DNB.DPT\DNBJL.PTM\YJQ.psm'),
    sysutils.UpperCase('Biz:\BGZDHXT\DBGN.Func'));
  fsmngr.OrgSystemManager.UseLocalCache := True;
  Server := TFileSystemCacheServer.Create;
  try
    Server.AddURLs(';', SysSrv.SysService.ServerURL);
    Server.EnsureOrgSystem(BizSys.BizSystem.ClientAccount);
  finally
    Server.Free;
  end;
end;


为一个人添加一个功能，

如何写成为一个添加N个功能？

xhsoft

11

shangxy

如果要添加多个功能你可以使用能够多选组织机构的控件：比如上面提到的Checkbiztreeview
也可以使用TBizBrowseDialog这个控件，最好使用这个直接创建以下就可以了，不用再单独使用一个窗体了。然后把选择好后的功能中间用特殊符号分开比如“；”存到字段中，用的时候把他解析出来放到字符串列表中，然后循环调用你的那个分配功能。

xhsoft

结了！

谢谢尚老师的耐心指导！

shangxy

不谢