【结贴】内网访问系统特别慢?

zfang

你打开监控了吗？

最初由 alang 发布
[B]1 打开监控选项
打开客户端config.xml文件，设置SystemMonitor的MonitorEnable为True
<SystemMonitor MonitorEnable="True" FileName="MonitorLog.sq..

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

huangyue

最初由 zfang 发布
[B]你打开监控了吗？
[QUOTE]最初由 alang 发布
[B]1 打开监控选项
打开客户端config.xml文件，设置SystemMonitor的MonitorEnable为True
<SystemMonitor MonitorEn..

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

不是改成这样么?

zfang

就是这样，然后你用ie登陆，肯定会有那个文件的。

huangyue

文件出来了,可是我不懂那里是它的瓶颈问题...?

zfang

好好看看15楼给的帖子。
再不行就把这个文件发过来吧。

huangyue

这个文件10M左右...我分解下再传上来

huangyue

2

huangyue

3

zfang

楼主，把你这段代码贴出来看看
业务模型\系统空间\系统运行库\系统核心库
static procedure TSYSTEMCORE.AddSystemLog(AContext: TContext;AType, ADescription: string);

huangyue

static procedure TSYSTEMCORE.AddSystemLog(AContext: TContext;AType, ADescription: string);
const
  cSQL = 'Select * From TSYSLOG ';
var
  lQuery: TQuery;
  lComputerIP: string;
  IsSystemManager: Boolean;
  lOperatorPosition: TOperatorPosition;
begin
  if not TSettingLib.GetDefaultConfig.RecordSystemLog or not (SysUtils.AnsiPos('SYSTEM', TSettingLib.GetDefaultConfig.SystemLogKinds) > 0) then
    Exit;

//  lComputerIP := JSSysUtils.GetComputerIPStr(JSSysUtils.GetComputerName);
  lOperatorPosition := TContextUtils.FindOperatorPosition(AContext);
  if (lOperatorPosition = nil) and not Opr.IsSystemManager(TSystemCore.Operator.ID) then
    lOperatorPosition := TSystemCore.Operator.DefaultPosition;
  lComputerIP := JSSysUtils.GetLocalIPStr;
  lQuery := TQuery.Create(AContext.Owner);
  try
    lQuery.ConnectionString := cSysDatabaseConnectionString;
    lQuery.CommandText := cSQL;
    lQuery.Open;
    lQuery.Append;
    lQuery.FieldByName('FTYPE').AsString := AType;
    lQuery.FieldByName('FDESCRIPTION').AsString := ADESCRIPTION;
    lQuery.FieldByName('FCOMPUTER').AsString := lComputerIP;
    lQuery.FieldByName('FGUID').AsString := jsCommon.CreateGUIDStr;
    lQuery.FieldByName('FDATE').AsDateTime := DateUtils.DateOf(SysSrv.SysService.Time);
    lQuery.FieldByName('FTIME').AsDateTime := DateUtils.TimeOf(SysSrv.SysService.Time);
    if Opr.IsSystemManager(TSystemCore.Operator.ID) then
    begin
      lQuery.FieldByName('FUSER').AsString := 'System';
      lQuery.FieldByName('FUSERCaption').AsString := '系统管理员';
    end
    else
    begin
      lQuery.FieldByName('FUSER').AsString := TSystemCore.Operator.ID;
      lQuery.FieldByName('FUSERCaption').AsString := TSystemCore.Operator.DisplayName;
      lQuery.FieldByName('FSTATION').AsString := lOperatorPosition.PositionID;
      lQuery.FieldByName('FDEPT').AsString := lOperatorPosition.DeptID;
      lQuery.FieldByName('FURL').AsString := lOperatorPosition.PersonMember.BizURL.URL;
      lQuery.FieldByName('FSTATIONCation').AsString := lOperatorPosition.Position.DisplayName;
      lQuery.FieldByName('FDEPTCation').AsString := lOperatorPosition.PersonMember.Parent.Parent.DisplayName;
    end;

    lQuery.Post;
    lQuery.ApplyUpdates;
  finally
    lQuery.Free;
  end;
end;