Changeset 94 for trunk/Modules/User/UModuleUser.pas

Timestamp:

Sep 7, 2012, 10:43:02 PM (12 years ago)

Author:

chronos

Message:

• Opraveno: Zobrazení stránek s a bez modulu User.

File:

• trunk/Modules/User/UModuleUser.pas (modified) (4 diffs)

trunk/Modules/User/UModuleUser.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem;
+  Classes, SysUtils, UModularSystem, SpecializedDictionary;
 
 type
@@ -62 +62 @@
 var
   DbRows: TDbRows;
+  Data: TDictionaryStringString;
 begin
   try
     DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+
     Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `User` (' +
@@ -76 +79 @@
     '  PRIMARY KEY (`Id`)' +
     ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;');
+
+    Data.Add('Id', '1');
+    Data.Add('Name', 'anonymous');
+    Data.Add('FullName', 'Anonymous');
+    Data.Add('RegistrationTime', 'NOW()');
+    Core.CommonDatabase.Insert('User', Data);
+
     Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `UserOnline` (' +
@@ -90 +100 @@
     ') ENGINE=MEMORY  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
   finally
+    Data.Free;
     DbRows.Free;
   end;