usystemmonitor.~pas

该系统将温度数据以类似股票K线显示方式进行分析

unit uSystemMonitor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, kxiancommon,DateUtils;

type
  tfSystemMonitor = class(TForm)
    memoSys: TMemo;
    bSysCheck: TButton;
    ADODsys: TADODataSet;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bSysCheckClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fSystemMonitor: tfSystemMonitor;

implementation

{$R *.dfm}

procedure tfSystemMonitor.FormCreate(Sender: TObject);
begin
    AdodSys.Connection := adocwdkz;
end;

procedure tfSystemMonitor.FormShow(Sender: TObject);
begin
        memoSys.Top :=40;
        memosys.Left :=5;
        memosys.Height := self.ClientHeight - memosys.Top -5;
        memosys.Width :=  self.ClientWidth - memosys.Left -5;
end;

procedure tfSystemMonitor.bSysCheckClick(Sender: TObject);
var  dtLocalTime, dtSqlTime :tDateTime;
var TempStr : string;
var li_cnt :integer;
begin
     TempStr :='当前用户：['+   sUserName +'],' +  sTrueName;
     MemoSys.Lines.Add(TempStr);
     MemoSys.Lines.Add('===========================开始检测==============================');
     MemoSys.Lines.Add('   ');
     MemoSys.Lines.Add('时间检测');
     MemoSys.Lines.Add('----------------------------------------------------------------');
     with adodSys do
     begin
        CommandType := cmdText;
        CommandText :='select geTDate() as SqlTime ';
        open;
        first;
        dtSqlTime := FieldByName('SqlTime').AsDateTime;
        close;
     end;
     dtLocalTime := now();
     MemoSys.Lines.Add('服务器时间：' + DateTimeToStr(dtSqlTime));
     MemoSys.Lines.Add('  本机时间：' + DateTimeToStr(dtLocalTime));
     li_cnt := SecondsBetween(dtLocalTime,dtSqlTime);
     MemoSys.Lines.Add('  时间差异：' + IntToStr(li_cnt) +'秒');
     MemoSys.Lines.Add('  ');
     MemoSys.Lines.Add('----------------------------------------------------------------');
     MemoSys.Lines.Add('在线检测数据采集时间设置是否正确（请耐心等待，需要花费时间）');
     MemoSys.Lines.Add('----------------------------------------------------------------');
     with adodSys do
     begin
        CommandType := cmdText;
        CommandText :='select * from V_actor_time_error ';
        open;
        first;
        li_cnt := recordCount;
        close;
        if li_cnt <= 0 then
             MemoSys.Lines.Add('    采集时间设置正确')
        else
             MemoSys.Lines.Add('    采集时间设置不正确，请向管理人员报告');
     MemoSys.Lines.Add('----------------------------------------------------------------');
     end;
     MemoSys.Lines.Add('在线检测设备数据采集和传送异常报告（过去6个月内）');
     MemoSys.Lines.Add('----------------------------------------------------------------');

     with adodSys do
     begin
        CommandType := cmdText;
        CommandText :='select * from   V_ACTOR_TMP_ERROR_TOTAL';
        open;
        first;
        while (not eof ) do
        begin
             tempStr := '   '+ IntToStr( RecNo) + '     '+ FieldByName('Actorid').AsString +'    '
                                               + FieldByName('ActorName').AsString +'     '
                                               +DateTimeToStr(FieldByName('cjsj').AsDateTime) + '    '
                                               + FloatToStrF(FieldByName('wdjl').asFloat,ffFixed, 10,1);

             MemoSys.Lines.Add(tempStr);
             next;
        end;
        close;
     end;
     MemoSys.Lines.Add('   ');
     MemoSys.Lines.Add('--------------------------检测完毕--------------------------------');

end;

end.