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

Timestamp:

Oct 9, 2012, 1:58:45 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Hlavní modul Base, který slouží jako základní rozhraní k aplikaci pro ostatní moduly. Modul System zajistí udržování seznamu instalovaných modulů v perzistentním úložišti v databázi.
• Upraveno: Správce modulů ModuleManager je nyní použit pro každé komunikační spojení zvlášť.

File:

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

trunk/Modules/User/UModuleUser.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, SpecializedDictionary;
+  Classes, SysUtils, UModularSystem, SpecializedDictionary, UUser,
+  UModuleBase, UWebPage;
 
 type
-
   { TModuleUser }
 
   TModuleUser = class(TModule)
+  private
+    UserControlPage: TWebPage; //TUserControlPage;
   public
+    User: TWebUser;
+    UserOnline: TWebOnlineUser;
+    ModuleBase: TModuleBase;
     constructor Create(Owner: TComponent); override;
     destructor Destroy; override;
@@ -21 +26 @@
     procedure Uninstall; override;
     procedure Upgrade; override;
+    procedure LoadUserInfo;
   end;
 
@@ -27 +33 @@
 
 uses
-  UCore, UUserControlPage, USqlDatabase;
+  UCore, USqlDatabase, UUserControlPage;
 
 { TModuleUser }
@@ -39 +45 @@
   License := 'GNU/LGPL v3';
   Author := 'Chronosoft';
+  Dependencies.Add('Base');
 end;
 
@@ -48 +55 @@
 procedure TModuleUser.Start;
 begin
-  Core.Pages.RegisterPage(TUserControlPage, UserControlPage, 'uzivatel');
+  BeforeStart;
+  ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
+  UserControlPage := TUserControlPage.Create(nil);
+  ModuleBase.Pages.RegisterPage(UserControlPage, 'uzivatel');
   //RegisterPage(TUserControlPage, UserControlPage, '');
-  inherited;
+  User := TWebUser.Create;
+  //User.Database := Database;
+  UserOnline := TWebOnlineUser.Create;
+  //UserOnline.Database := Database;
+  AfterStart;
 end;
 
 procedure TModuleUser.Stop;
 begin
-  inherited;
-  Core.Pages.UnregisterPage('uzivatel');
+  BeforeStop;
+  FreeAndNil(User);
+  FreeAndNil(UserOnline);
+  ModuleBase.Pages.UnregisterPage(UserControlPage);
+  FreeAndNil(UserControlPage);
+  ModuleBase := nil;
+  AfterStop;
 end;
 
@@ -183 +202 @@
 end;
 
+procedure TModuleUser.LoadUserInfo;
+begin
+  User.HandlerData := ModuleBase.HandlerData;
+  UserOnline.HandlerData := ModuleBase.HandlerData;
+  UserOnline.Update;
+  User.Id := UserOnline.User;
+  User.Load;
+end;
+
+
+
 end.