Changeset 98 for trunk/Modules

Timestamp:

Oct 2, 2012, 12:24:00 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Přihlašování, odhlašování, registrace a nastavení profilu uživatele.

Location:

trunk/Modules

Files:

• User/UUserControlPage.pas (modified) (6 diffs)
• ZdechovNET/UHostingPage.pas (modified) (1 diff)
• ZdechovNET/UModuleZdechovNET.pas (modified) (2 diffs)

trunk/Modules/User/UUserControlPage.pas

@@ -93 +93 @@
       Form.Load(HandlerData.Request.Post);
       with THtmlString(SubItems.AddNew(THtmlString.Create)) do
-        Text := 'Přihlášení user: ' + TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value;
+        Text := 'Přihlášení uživatele: ' + TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value;
       UserId := User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
         TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value);
-      UserOnline.Login(UserId);
+      if UserId = -1 then begin
+        with THtmlString(SubItems.AddNew(THtmlString.Create)) do
+          Text := '<br/>Chybné jméno nebo heslo';
+      end else UserOnline.Login(UserId);
       Form.Free;
     end else
@@ -157 +160 @@
       UserId := User.GetIdByNamePassword(TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value,
         TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Password').Value.Value);
-      UserOnline.Login(UserId);
+      if UserId <> -1 then UserOnline.Login(UserId);
       Form.Free;
     end else SubItems.AddNew(Form);
@@ -188 +191 @@
           Hint := 'Zadejte vaše přihlašovací jméno';
           Required := True;
+          Value.Value := User.Name;
         end;
         with AddNewItem do begin
@@ -202 +206 @@
           Required := True;
           ItemType := fitText;
+          Value.Value := User.Email;
         end;
         with AddNewItem do begin
@@ -209 +214 @@
           Required := False;
           ItemType := fitText;
+          Value.Value := User.FullName;
         end;
       end;
@@ -221 +227 @@
       with THtmlString(SubItems.AddNew(THtmlString.Create)) do
         Text := 'Profil uživatele: ' + TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value + ' uložen';
+      User.Name := TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value;
+      User.FullName := TQueryFormGroup(Form.Groups[0]).Rows.FindByName('FullName').Value.Value;
+      User.Email := TQueryFormGroup(Form.Groups[0]).Rows.FindByName('Email').Value.Value;
+      User.Save;
       Form.Free;
     end else SubItems.AddNew(Form);

trunk/Modules/ZdechovNET/UHostingPage.pas

@@ -61 +61 @@
       'Použité technologie: <a href="http://www.linux.cz/">GNU/Linux</a>, <a href="http://openvz.org/">OpenVZ</a>, <a href="http://pve.proxmox.com/">Proxmox VE</a>, <a href="http://backuppc.sourceforge.net/">BackupPC</a><br/>' +
       '<br/>' +
-      '<i>Aktualizováno: 3.4.2010</i><br/><br/>';
+      '<i>Aktualizováno: 1.10.2012</i><br/><br/>';
 
       Text := Text + '<p>Hosting je využíván především pro provoz herních serverů MMORPG her jako např. World of Warcraft (WoW), Lineage II, Aion, aj.</p>';

trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

@@ -146 +146 @@
     ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
 
+    Core.CommonDatabase.Query(DbRows,
+    'CREATE TABLE IF NOT EXISTS `HostedProject` (' +
+    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
+    '  `Name` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  `Homepage` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  `User` int(255) NOT NULL COMMENT "User.Id",' +
+    '  `TimeCreate` datetime NOT NULL,' +
+    '  `Server` int(11) DEFAULT NULL COMMENT "NetworkDevice.Id",' +
+    '  `Active` int(11) NOT NULL DEFAULT "1",' +
+    '  `WebHosting` int(11) NOT NULL,' +
+    '  PRIMARY KEY (`Id`)' +
+    ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
+
   finally
     Data.Free;
@@ -161 +174 @@
   try
     DbRows := TDbRows.Create;
+    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HostedProject`');
     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Plans`');
     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Webcam`');