利用GUID來做資料庫應用程式的用戶端連線列表

bestlong

1. AppSessionTimer: TTimer;
   
2. 
   
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;
    
12. 
    
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;
    
37. 
    
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
    
48. 
    
49.   end;
    
50. end;
    
51. 
    
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
    
61. 
    
62.   end;
    
63. end;
    
64. 
    
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
    
76. 
    
77.   end;
    
78. end;
    
79. 
    
80. procedure TMainForm.FormShow(Sender: TObject);
    
81. begin
    
82.     AppSessionInit;
    
83.     AppSessionTimer.Interval := 1000 * 60 * 2;
    
84.     AppSessionTimer.Enabled := true;
    
85. end;
    
86. 
    
87. procedure TMainForm.FormActivate(Sender: TObject);
    
88. begin
    
89.         AppSessionUpdateUser;
    
90. end;
    
91. 
    
92. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
    
93. begin
    
94.   AppSessionClear;
    
95. end;
    
96. 
    
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
   
10. 
    
11. ALTER TABLE [dbo].[SESSION] ADD
    
12.         CONSTRAINT [PK_SESSION] PRIMARY KEY  CLUSTERED
    
13.         (
    
14.                 [GUID]
    
15.         ) WITH  FILLFACTOR = 90  ON [PRIMARY]
    
16. GO

複製代碼