【结贴】登陆系统后的默认功能**

lixy

标准风格主窗体里面有这样的代码
FConfig := TBusinessConfig.Create(Opr.IsSystemManager(TSystemCore.Operator.ID));
TBusinessConfig就是9楼的类，可以加一个属性，在这句话后面把岗位名称传递进来。

chenyongci

你在配置库搜索
  { 系统运行后在主窗体调用自动运行的功能 }
  AutoRunFuncs := IniFile.ReadString(GetSection, 'AutoRunFuncs', AutoRunFuncs);
把这个从inifile读的过程，换成你的判断过程。

我直接修改这个过程，比如：
  AutoRunFuncs:='Biz:\RESACC\FUNC\ADMINVISITPRO.FUNC'  ;   

系统运行的时候也没有运行这个功能啊。。。。
到底怎么实现……

chenyongci

解决了，对于这个起作用的是RunFuncs，而不是AutoRunFuncs。。。

走弯路走了一天，，

先结吧，有问题，再问

lixy

修改，标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.RunAutoRunFuncs;
var
  lAutoRunFuncs: TStrings;
  I: Integer;
begin
  lAutoRunFuncs := TStringList.Create;
  try
    lAutoRunFuncs.Delimiter := ';';
    lAutoRunFuncs.QuoteChar := '''';
    lAutoRunFuncs.DelimitedText := TSettingLib.GetConfig.AutoRunFuncs;
    try
      for I:= 0 to lAutoRunFuncs.Count - 1 do
        RunAutoRunFunc(lAutoRunFuncs[I]);
    except
    end;
  finally
    lAutoRunFuncs.Free;
  end;
  {
  RunAutoRunFunc('Biz:\COLLABORATION\TaskRemindFunc.Func');
  RunAutoRunFunc('Biz:\COLLABORATION\CalendarCreatorFunc.Func');
  }
end;

chenyongci

AutoRunFuncs读出来的是两个系统默认的功能，后来发现时RunFuncs读出来的才是相当于工作台一样的效果。。

后来发现RunFuncs这个上面的注释就写着“工作台”，呵呵，

终于解决了，多谢啊

lixy

因为这个配置版本有点乱，抱歉了。
所以我们也没办法试验。