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 :='當(dāng)前用戶：['+   sUserName +'],' +  sTrueName;
     MemoSys.Lines.Add(TempStr);
     MemoSys.Lines.Add('===========================開始檢測==============================');
     MemoSys.Lines.Add('   ');
     MemoSys.Lines.Add('時(shí)間檢測');
     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('服務(wù)器時(shí)間：' + DateTimeToStr(dtSqlTime));
     MemoSys.Lines.Add('  本機(jī)時(shí)間：' + DateTimeToStr(dtLocalTime));
     li_cnt := SecondsBetween(dtLocalTime,dtSqlTime);
     MemoSys.Lines.Add('  時(shí)間差異：' + IntToStr(li_cnt) +'秒');
     MemoSys.Lines.Add('  ');
     MemoSys.Lines.Add('----------------------------------------------------------------');
     MemoSys.Lines.Add('在線檢測數(shù)據(jù)采集時(shí)間設(shè)置是否正確（請耐心等待，需要花費(fèi)時(shí)間）');
     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('    采集時(shí)間設(shè)置正確')
        else
             MemoSys.Lines.Add('    采集時(shí)間設(shè)置不正確，請向管理人員報(bào)告');
     MemoSys.Lines.Add('----------------------------------------------------------------');
     end;
     MemoSys.Lines.Add('在線檢測設(shè)備數(shù)據(jù)采集和傳送異常報(bào)告（過去6個(gè)月內(nèi)）');
     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.