Changeset 91 for trunk/Modules

Timestamp:

Sep 7, 2012, 8:36:13 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Modulární systém přepracován tak, aby podporoval metody Install, Uninstall a Upgrade použitelné pro persistentní data. Původní metody Install a Uninstall přejmenovýny na Start a Stop.

Location:

trunk/Modules/User

Files:

• UModuleUser.pas (modified) (3 diffs)
• UUserControlPage.lfm (added)
• UUserControlPage.pas (added)

trunk/Modules/User/UModuleUser.pas

@@ -16 +16 @@
     constructor Create(Owner: TComponent); override;
     destructor Destroy; override;
+    procedure Start; override;
+    procedure Stop; override;
     procedure Install; override;
     procedure Uninstall; override;
-    procedure Update; override;
+    procedure Upgrade; override;
   end;
 
+
 implementation
+
+uses
+  UCore, UUserControlPage, USqlDatabase;
 
 { TModuleUser }
@@ -28 +34 @@
 begin
   inherited;
+  Identification := 'User';
+  Title := 'User management';
+  Version := '0.1';
+  License := 'GNU/LGPL v3';
+  Author := 'Chronosoft';
 end;
 
@@ -35 +46 @@
 end;
 
-procedure TModuleUser.Install;
+procedure TModuleUser.Start;
 begin
+  Core.Pages.RegisterPage(TUserControlPage, UserControlPage, 'uzivatel');
+  //RegisterPage(TUserControlPage, UserControlPage, '');
   inherited;
 end;
 
-procedure TModuleUser.Uninstall;
+procedure TModuleUser.Stop;
 begin
   inherited;
+  Core.Pages.UnregisterPage('uzivatel');
 end;
 
-procedure TModuleUser.Update;
+procedure TModuleUser.Install;
+var
+  DbRows: TDbRows;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Core.CommonDatabase.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `User` (' +
+  '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
+  '`Name` varchar(255) NOT NULL,' +
+  '`FullName` varchar(255) NOT NULL,' +
+  '`Password` varchar(255) NOT NULL,' +
+  '`Salt` varchar(255) NOT NULL,' +
+  '`Email` varchar(255) NOT NULL,' +
+  '`RegistrationTime` datetime NOT NULL,' +
+  'PRIMARY KEY (`Id`)' +
+  ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;');
+    Core.CommonDatabase.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `UserOnline` (' +
+  '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
+  '`User` int(11) NOT NULL DEFAULT ''0'',' +
+  '`ActivityTime` datetime NOT NULL DEFAULT ''0000-00-00 00:00:00'',' +
+  '`LoginTime` datetime NOT NULL DEFAULT ''0000-00-00 00:00:00'',' +
+  '`SessionId` varchar(255) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' +
+  '`IpAddress` varchar(16) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' +
+  '`HostName` varchar(255) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' +
+  '`ScriptName` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+  'PRIMARY KEY (`Id`),' +
+  'KEY `User` (`User`)' +
+  ') ENGINE=MEMORY  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=2 ;');
+  finally
+    DbRows.Free;
+  end;
+  inherited Install;
+end;
+
+procedure TModuleUser.Uninstall;
+var
+  DbRows: TDbRows;
+begin
+  inherited Uninstall;
+  try
+    DbRows := TDbRows.Create;
+    Core.CommonDatabase.Query(DbRows, 'DROP TABLE `User`');
+    Core.CommonDatabase.Query(DbRows, 'DROP TABLE `UserOnline`');
+  finally
+    DbRows.Free;
+  end;
+end;
+
+procedure TModuleUser.Upgrade;
 begin
   inherited;