【结贴】权限管理

shangxy · 发表于 2009-8-5 14:20:26

这个就是给人员id位zy的人分配dmfpgn这个功能权限。

xhsoft · 发表于 2009-8-5 14:21:41

给固定人分配固定权限，

这两个值应该是变量呀

不应该是这里写死的吧

shangxy · 发表于 2009-8-5 14:25:44

是啊，这两个值就是你申请人要填写的，传入这个函数中就行了。

xhsoft · 发表于 2009-8-5 14:27:48

可以是变量？

应该定义成什么类型？

shangxy · 发表于 2009-8-5 14:38:21

字符串就可以

xhsoft · 发表于 2009-8-5 14:41:48

AssignFunc(sysutils.UpperCase('Org:\ROOT\SCCS.OGN\DNB.DPT\DNBJL.PTM\YJQ.psm'),
sysutils.UpperCase('Biz:\BGZDHXT\DBGN.Func'));
修改后测试了一下，发现yjq并没有得到这个功能权限

shangxy · 发表于 2009-8-5 15:05:47

按钮中还有其他的的代码么？缓存关闭的那些代码你添加进去了么？

xhsoft · 发表于 2009-8-5 15:06:43

按钮中没有其他代码了

xhsoft · 发表于 2009-8-5 15:11:41

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;

xhsoft · 发表于 2009-8-5 15:28:53

运行起来就可以了

当初申请的时候，怎么取功能和人员的url呢

		自动登录	找回密码
密码			立即注册