如何取消系统默认的用户权限

jiahaiminghr

用户登录后，系统会自动为用户分配许多默认的功能权限，如：客户中心、计划中心、客户沟通管理等。
可以在“系统空间\简洁风格\界面库\窗体库\标准风格主窗体”中，注释掉以下代码，取消系统为用户分配的默认权限。

procedure GetDefaultFuncs(AFuncs: TOrgFuncAllocItems);
begin
  AFuncs.AddItem('Biz:\COLLABORATION\DesktopFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\SchedulerFunc.Func');

  AFuncs.AddItem('Biz:\COLLABORATION\TaskCenterFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\PlanCenterFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\JustepMail.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\DecisionCenterFunc.Func');

  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\UserMngFunc.Func');

  AFuncs.AddItem('Biz:\COLLABORATION\MyTaskFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\TaskRelationViewFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\PlanBrowseFunc.Func');

  AFuncs.AddItem('Biz:\COLLABORATION\WorkRecordFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WORKTASKFUNC.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WorkRemindFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WorkLogFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WorkAdviceFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WorkWeekPlanFunc.Func');


  AFuncs.AddItem('Biz:\COLLABORATION\WorkAdviceDealFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WorkLogDealFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WorkRecordDealFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WorkRemindDealFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WorkTaskDealFunc.Func');
  AFuncs.AddItem('Biz:\COLLABORATION\WorkWeekPlanDealFunc.Func');

  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\CstmCommRecordFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\CSTMTRACKTFUNC.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\PresaleWorkTaskFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\UserCommRecordFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\UserTrackRecordFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\CHIEFMEETINGRECFUNC.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\WORKWEEKREPORTFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\ProductDemandFUNC.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\ProductQuestionFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\ProductQuestionFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\DATEAPPLICATIONFunc.Func');

  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\CstmCommRecordDealFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\CSTMTRACKDEALFUNC.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\PresaleWorkTaskDealFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\UserCommRecordDealFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\UserTrackRecordDealFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\CHIEFMEETINGRECDEALFUNC.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\WORKWEEKREPORTDEALfunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\ProductDemandDealFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\ProductQuestionDealFunc.Func');
  AFuncs.AddItem('Biz:\OPERATION\CRMSPACE\DATEAPPLICATIONDEALFUNC.Func');

end;