单点登陆权限验证问题**

Mephist

对, 从网页logon,不显示登陆对话框,,这个是已经实现了的.
现在的需求是对于没有分配功能权限的系统用户,不让登陆平台,而目前的形式是没有任何功能权限的用户同样能正常登陆平台

alang

现在的现象是不是，如果没有功能权限，也是可以进入平台的？

alang

Logon是调用的底层平台的Operator.Logon，不是系统初始化中的
如果要实现这个需求，只能在网页中，通过sql语句判断是否某个用户时候存在可以执行的功能，如果有，才调用logon登陆平台

Mephist

最初由 alang 发布
[B]Logon是调用的底层平台的Operator.Logon，不是系统初始化中的
如果要实现这个需求，只能在网页中，通过sql语句判断是否某个用户时候存在可以执行的功能，如果有，才调用lo..

以下省略...... [/B]

对,本来是想这样的,但是我问了下你们那边的技术人员, 他说不建议直接操作数据库, 最好在平台处理. 所以才这样做.. 如果可以查sql的话,请问下怎么可以统计某用户的所有已分配功能权限 ???

alang

思路如下：
  1 组织单元的功能权限在 组织机构索引表中，fid="OrgUnit.FuncRef"
2 针对人员，找到他的每一个人员成员（在组织机构系统表中,FKind=".PSM"）
3 然后一级一级往上，找每一级组织单元的功能权限
这样就可以找到人员的所有功能权限了

linjiawei

插一下, ,楼主可以看看系统初始话的这段代码:

procedure TInit.DoRun;
var
  lContext: TContext;
  lOperator: TOperator;
  lClassURL: TBizClassURL;
begin
  inherited DoRun;

  lClassURL := TBizClassURL.Create;
  try
    lClassURL.BizURL.URL := 'Biz:\COLLABORATION\TaskServiceFunc.Func';
    if BizSys.BizSystem.URLExists(lClassURL.BizURL) then
    begin
      FCMPlatform := BizSys.BizService.CreateBizObject(lClassURL, Context) as TFunc;
      FCMPlatform.Run('');
    end
    else
      FCMPlatform := nil;
  finally
    lClassURL.Free;
  end;

  lContext := Context.FindParentContext(BizSys.IL_PERSON);
  if lContext <> nil then
    lOperator := lContext.Owner as TOperator;

  if lOperator <> nil then
    TSystemCore.SetOperator(lOperator);

  if TSystemCore.Operator = nil then   //满足这个条件才执行TSystemCore.Logon方法
  begin
    FLogoned := InternalLogon;
    if not FLogoned then
    begin
      Terminate;
      Exit;
    end;
  end;

  { 给公共组件库中的当前用户属性赋值 }
  TCommonComponentLibrary.UserSystem.CurrentUser := TSystemCore.Operator;
  { 调用系统接口方法创建主窗体 }
  MainForm := TSystemCore.SystemInterface.CreateMainForm(Context);
end;

Mephist

最初由 alang 发布
[B]思路如下：
  1 组织单元的功能权限在 组织机构索引表中，fid="OrgUnit.FuncRef"
2 针对人员，找到他的每一个人员成员（在组织机构系统表中,FKind=".PSM"）
3 然后一?.

以下省略...... [/B]

是不是说要判断人员,人员所属岗位,部门,机构是不是都没有被分配功能???
这样好像比较麻烦额..问下有没得现成的sql.

alang

没有现成的sql语句，都是要通过代码拼出来的

aDragon

楼主的问题解决了没？

aDragon

先结贴了！