www.pudn.com > woool12.rar > GlobaSession.pas

unit GlobaSession; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Grids, ExtCtrls; 
 
type 
  TfrmGlobaSession = class(TForm) 
    StringGrid: TStringGrid; 
    RefTimer: TTimer; 
    procedure FormCreate(Sender: TObject); 
    procedure RefTimerTimer(Sender: TObject); 
  private 
    procedure RefShow(); 
    { Private declarations } 
  public 
    procedure ShowDlg(); 
    { Public declarations } 
  end; 
 
var 
  frmGlobaSession: TfrmGlobaSession; 
 
implementation 
 
uses IDSocCli, Grobal2; 
 
{$R *.dfm} 
 
procedure TfrmGlobaSession.FormCreate(Sender: TObject); 
begin 
  StringGrid.Cells[0,0]:='登录帐号'; 
  StringGrid.Cells[1,0]:='IP地址'; 
  StringGrid.Cells[2,0]:='会话ID'; 
  StringGrid.Cells[3,0]:='登录时间'; 
end; 
 
procedure TfrmGlobaSession.ShowDlg; 
begin 
  RefTimer.Enabled:=True; 
  RefShow(); 
  ShowModal; 
  RefTimer.Enabled:=False; 
end; 
 
procedure TfrmGlobaSession.RefTimerTimer(Sender: TObject); 
begin 
  RefShow(); 
end; 
 
procedure TfrmGlobaSession.RefShow; 
var 
  i:integer; 
  GlobaSessionInfo:pTGlobaSessionInfo; 
begin 
  StringGrid.RowCount:=FrmIDSoc.GlobaSessionList.Count + 1; 
  if StringGrid.RowCount > 1 then StringGrid.FixedRows:=1; 
  for i:=0 to FrmIDSoc.GlobaSessionList.Count -1 do begin 
    GlobaSessionInfo:=FrmIDSoc.GlobaSessionList.Items[i]; 
    if GlobaSessionInfo <> nil then begin 
      StringGrid.Cells[0,i+1]:=GlobaSessionInfo.sAccount; 
      StringGrid.Cells[1,i+1]:=GlobaSessionInfo.sIPaddr; 
      StringGrid.Cells[2,i+1]:=IntToStr(GlobaSessionInfo.nSessionID); 
      StringGrid.Cells[3,i+1]:=DateTimeToStr(GlobaSessionInfo.dAddDate); 
    end; 
  end; 
end; 
 
end.