【结贴】3108提醒设置**

liubin

默认 “自动提醒过期任务”复选框是没选中，并且自动检查提醒间隔时间，是30。我想叫每个用户登陆时，设计默认为，如下图：怎么设置？

shangxy

system登陆以后系统配置中应该有统一配置

liubin

应该？ 您测试过吗？我在系统配置——任务中修改如1楼图所示，然后重启服务器，再用用户等陆，没变化

shangxy

这个给你们过解决方法呀
http://bbs.justep.com/forum.php?mod=viewthread&tid=27394
13楼

liubin

那个是3102版本的问题，3108还有那个缺陷？ 就13楼那段代码，我也没看明白如何实现1楼图片的效果？

shangxy

业务模型\系统空间\系统运行库\系统函数库
static function TSystemUtils.ReadUserInfo(const AScope, AID: string; var AValue: string; AStream: TStream): Boolean;
var
  lQuery: TQuery;
begin
  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString := cSysDatabaseConnectionString;
    if Assigned(AStream) then
      lQuery.CommandText := SysUtils.Format(cSQL_GetResInfo_2_ex, [BizSys.BizSystem.ClientAccount])
    else
      lQuery.CommandText := SysUtils.Format(cSQL_GetResInfo_1_ex, [BizSys.BizSystem.ClientAccount]);
    with lQuery.Params do
    begin
      ParamByName('SCOPE').AsString := cUserScope + AScope;
      ParamByName('ID').AsString := AID;
    end;
    lQuery.Open;   //加上这句
    if lQuery.IsEmpty then
      Result := False
    else
    begin
      AValue := lQuery.FieldByName('FINFOVALUE').AsString;
      if Assigned(AStream) then
        with TBlobField(lQuery.FieldByName('FINFOVALUEEXT')) do
          if not IsNull then SaveToStream(AStream);
      Result := True;
    end;
  finally
    lQuery.Free;
  end;
end;

liubin

结贴