【结帖】3002版本工作台如何去掉**

欧诺万德

我在配置库里面修改了，不知道是不是这么去掉工作台

欧诺万德

运行出现错误

jiahaiming

这个函数是用来取消默认功能权限的，不能实现楼主的需求。
试试修改runfuncs

欧诺万德

这个试过，反复编译很多次了

shangxy

procedure TBusinessConfig.LoadDefault(IniFile: TBaseXMLIniFile);
begin
  if not CheckVersion(IniFile) then
    Exit;

  { 常规 }
  SaveOnExit := IniFile.ReadBool(GetSection, cSaveOnExit, SaveOnExit);
  SaveToolWindowLayout := IniFile.ReadBool(GetSection, cSaveToolWindowLayout, SaveToolWindowLayout);
  SaveActiveFunc := IniFile.ReadBool(GetSection, cSaveActiveFunc, SaveActiveFunc);
  SaveLastOpenFuncCount := IniFile.ReadInteger(GetSection, cSaveLastOpenFuncCount, SaveLastOpenFuncCount);
  ActiveFunc := IniFile.ReadString(GetSection, cActiveFunc, ActiveFunc);
  // TODO: 废弃 OpenFuncs := IniFile.ReadString(GetSection, 'OpenFuncs', OpenFuncs);
  DefaultDesktopID := IniFile.ReadString(GetSection, cDefaultDesktopID, DefaultDesktopID);
  Style := TViewAttributesStyle(IniFile.ReadInteger(GetSection, cStyle, Integer(DefaultStyle)));
  ReadOnlyColor := TColor(IniFile.ReadInteger(GetSection, cReadOnlyColor, Integer(DefaultReadOnlyColor)));
  RequiredColor := TColor(IniFile.ReadInteger(GetSection, cRequiredColor, Integer(DefaultRequiredColor)));
  { Messenger }
  RunMessenger := IniFile.ReadBool(GetSection, cRunMessenger, RunMessenger);
  { 快捷面板 }
  ShortcutFuncs := IniFile.ReadString(GetSection, 'ShortcutFuncs', ShortcutFuncs);
  {激活的面板}
  ActiveDesktopID := IniFile.ReadString(GetSection, 'ActiveDesktopID', ActiveDesktopID);
  { 工作台 }
  [B]//RunFuncs := IniFile.ReadString(GetSection, 'RunFuncs', RunFuncs);[/B]

  if Assigned(FOnLoad) then
    FOnLoad(Self, IniFile);
end;

接着注释掉上面的粗体看看

jiahaiming

那应该是在系统数据库的系统信息表里缓存了配置信息，楼主删除User_system这条记录就可以了。

zfang

反馈下。

欧诺万德

这个问题已经OK了，还有个问题，你们是不是有文件把数据库的用户密码的记录下来了，我用wise打包出来一个安装包，原数据源配置是用户名为SA，密码为123，我打包出来后在一个新环境下安装，新环境的数据库用户名SA，密码为itsm.我配置数据源时用SA,123连接测试是成功，但用IE登录却提示SA密码错误，我从SQL SERVER中把密码改回123,就能成功

jiahaiming

检查一下tomcat中的配置文件（server.xml），这里记录了数据源的访问参数

欧诺万德

我通过服务器配置工具应该改过来了才对呀，
我在你们的服务器配置工具里改密码了，连接测试是通过的
用IE访问却报SA密码不对，我怀疑是哪个缓冲文件造成的