Changeset 36 for trunk/Application/UUser.pas

Timestamp:

Oct 29, 2010, 10:44:13 PM (14 years ago)

Author:

george

Message:

• Přidáno: Neodokončená třída TPageList a TQueryString.
• Přidáno: Částečná podpora pro přihlašování uživatelů.

File:

• trunk/Application/UUser.pas (modified) (5 diffs)

trunk/Application/UUser.pas

@@ -8 +8 @@
   Classes, SysUtils, synacode, USqlDatabase, UCommon, UHTTPServer;
 
+const
+  AnonymousUserId = 1;
+
 type
   EDuplicateItem = class(Exception);
@@ -15 +18 @@
 
   TWebUser = class
+    FullName: string;
     Database: TSqlDatabase;
     HandlerData: THTTPHandlerData;
@@ -47 +51 @@
   Id: Integer;
 begin
-  DbRows := Database.Query('SELECT * FROM `UserOnline` WHERE `SessionId`="' +
-    HandlerData.Request.Cookies.Values['SessionId'] + '"');
-  if DbRows.Count > 0 then begin
-    // Update exited
-    Id := StrToInt(DbRows[0].Values['Id']);
+  try
+    DbRows := Database.Query('SELECT * FROM `UserOnline` WHERE `SessionId`="' +
+      HandlerData.Request.Cookies.Values['SessionId'] + '"');
+    if DbRows.Count > 0 then begin
+      // Update exited
+      Id := StrToInt(DbRows[0].Values['Id']);
+      User := StrToInt(DbRows[0].Values['User']);
+      DbRows.Free;
+      DbRows := Database.Query('UPDATE `UserOnline` SET `ActivityTime` = NOW() WHERE `Id`=' + IntToStr(Id));
+    end else begin
+      // Create new record
+      DbRows.Free;
+      DbRows := Database.Query('INSERT INTO `UserOnline` (`User`, `ActivityTime`, `SessionId`) ' +
+        'VALUES (1, NOW(), "' + HandlerData.Request.Cookies.Values['SessionId'] + '")');
+      Id := Database.LastInsertId;
+      User := 1;
+    end;
+  finally
     DbRows.Free;
-    DbRows := Database.Query('UPDATE `UserOnline` SET `ActivityTime` = NOW() WHERE `Id`=' + IntToStr(Id));
-  end else begin
-    // Create new record
-    DbRows.Free;
-    DbRows := Database.Query('INSERT INTO `UserOnline` (`User`, `ActivityTime`, `SessionId`) ' +
-      'VALUES (1, NOW(), "' + HandlerData.Request.Cookies.Values['SessionId'] + '")');
-    Id := Database.LastInsertId;
   end;
-  DbRows.Destroy;
 end;
 
@@ -69 +78 @@
 begin
   Logout;
-  DbRows := Database.Query('UPDATE `UserOnline` SET `User` = ' + IntToStr(User) + ', `LoginTime` = NOW() WHERE `SessionId`="' +
-    HandlerData.Request.Cookies.Values['SessionId'] + '"');
-  DbRows.Destroy;
+  try
+    DbRows := Database.Query('UPDATE `UserOnline` SET `User` = ' + IntToStr(User) + ', `LoginTime` = NOW() WHERE `SessionId`="' +
+      HandlerData.Request.Cookies.Values['SessionId'] + '"');
+  finally
+    DbRows.Free;
+  end;
   Self.User := User;
 end;
@@ -79 +91 @@
   DbRows: TDbRows;
 begin
-  if Id = 1 then Update;
-  if User <> 1 then begin
-    DbRows := Database.Query('UPDATE `UserOnline` SET `User` = 1 WHERE `SessionId`="' +
+  if Id = AnonymousUserId then Update;
+  if User <> AnonymousUserId then begin
+    DbRows := Database.Query('UPDATE `UserOnline` SET `User` = ' + IntToStr(AnonymousUserId) + ' WHERE `SessionId`="' +
       HandlerData.Request.Cookies.Values['SessionId'] + '"');
     DbRows.Destroy;
-    User := 1;
+    User := AnonymousUserId;
   end;
 end;