bestlong 怕失憶論壇

標題: 利用GUID來做資料庫應用程式的用戶端連線列表 [打印本頁]
作者: bestlong    時間: 2010-7-23 16:18     標題: 利用GUID來做資料庫應用程式的用戶端連線列表

  1. AppSessionTimer: TTimer;

  3. procedure TMainForm.AppSessionInit;
  4. begin
  5.   try
  6.     qyTemp.Close;
  7.     qyTemp.SQL.Clear;
  8.     qyTemp.SQL.Add('select GUID=Convert(VarChar(36),newID())');
  9.     qyTemp.Open;
  10.     SessionGUID := qyTemp.FieldByName('GUID').AsString;
  11.     qyTemp.Close;

  13.     qyTemp.SQL.Clear;
  14.     qyTemp.SQL.Add('select * from SESSION where GUID=:GUID');
  15.     qyTemp.ParamByName('GUID').AsString := SessionGUID;
  16.     qyTemp.RequestLive := true;
  17.     qyTemp.Open;
  18.     if qyTemp.IsEmpty then
  19.     begin
  20.       qyTemp.Insert;
  21.       qyTemp.FieldByName('GUID').AsString := SessionGUID;
  22.       qyTemp.FieldByName('STARTTIME').AsDateTime := gsStartTime;
  23.       qyTemp.FieldByName('LASTTIME').AsDateTime := now;
  24.       qyTemp.FieldByName('HOSTNAME').AsString := GetPCName;
  25.       qyTemp.FieldByName('USERID').AsString   := '';
  26.       qyTemp.FieldByName('USERNAME').AsString := '';
  27.       qyTemp.Post;
  28.     end else begin
  29.       MyMsg('資料庫 SESSION_GUID 問題請重新連線');
  30.       Self.Close;
  31.     end;
  32.     qyTemp.Close;
  33.     qyTemp.RequestLive := False;
  34.   except
  35.   end;
  36. end;

  38. procedure TMainForm.AppSessionUpdateUser;
  39. begin
  40.   try
  41.     qyTemp.SQL.Clear;
  42.     qyTemp.SQL.Add('update SESSION set USERNAME = :USERNAME,USERID = :USERID where GUID=:GUID');
  43.     qyTemp.ParamByName('GUID').AsString := SessionGUID;
  44.     qyTemp.ParamByName('USERID').AsString   := gsUser_num;
  45.     qyTemp.ParamByName('USERNAME').AsString := gsUser_nam;
  46.     qyTemp.ExecSQL;
  47.   except

  49.   end;
  50. end;

  52. procedure TMainForm.AppSessionUpdateLastTime;
  53. begin
  54.   try
  55.     qyTemp.SQL.Clear;
  56.     qyTemp.SQL.Add('update SESSION set LASTTIME = :LASTTIME where GUID=:GUID');
  57.     qyTemp.ParamByName('GUID').AsString := SessionGUID;
  58.     qyTemp.ParamByName('LASTTIME').AsDateTime := Now;
  59.     qyTemp.ExecSQL;
  60.   except

  62.   end;
  63. end;

  65. procedure TMainForm.AppSessionClear;
  66. begin
  67.   try
  68.     qyTemp.SQL.Clear;
  69.     qyTemp.SQL.Add('delete from SESSION');
  70.     qyTemp.SQL.Add('where LASTTIME is null ');
  71.     qyTemp.SQL.Add('   or (datediff(minute,LASTTIME,getDate())>5)');
  72.     qyTemp.SQL.Add('   or (GUID=:GUID)');
  73.     qyTemp.ParamByName('GUID').AsString := SessionGUID;
  74.     qyTemp.ExecSQL;
  75.   except

  77.   end;
  78. end;

  80. procedure TMainForm.FormShow(Sender: TObject);
  81. begin
  82.     AppSessionInit;
  83.     AppSessionTimer.Interval := 1000 * 60 * 2;
  84.     AppSessionTimer.Enabled := true;
  85. end;

  87. procedure TMainForm.FormActivate(Sender: TObject);
  88. begin
  89.         AppSessionUpdateUser;
  90. end;

  92. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
  93. begin
  94.   AppSessionClear;
  95. end;

  97. procedure TMainForm.AppSessionTimerTimer(Sender: TObject);
  98. begin
  99.   AppSessionUpdateLastTime;
  100. end;
複製代碼
資料表 Schema
  1. CREATE TABLE [dbo].[SESSION] (
  2.         [GUID] [char] (36) NOT NULL ,
  3.         [STARTTIME] [datetime] NOT NULL ,
  4.         [LASTTIME] [datetime] NOT NULL ,
  5.         [HOSTNAME] [varchar] (15) NULL ,
  6.         [USERID] [varchar] (15) NULL ,
  7.         [USERNAME] [varchar] (15) NULL
  8. ) ON [PRIMARY]
  9. GO

  11. ALTER TABLE [dbo].[SESSION] ADD
  12.         CONSTRAINT [PK_SESSION] PRIMARY KEY  CLUSTERED
  13.         (
  14.                 [GUID]
  15.         ) WITH  FILLFACTOR = 90  ON [PRIMARY]
  16. GO
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5