Changeset 98 for trunk/Modules/User

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.

File:

• trunk/Modules/User/UUserControlPage.pas (modified) (6 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);