Changeset 92 for trunk/Modules/User/UModuleUser.pas
- Timestamp:
- Sep 7, 2012, 9:52:38 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Modules/User/UModuleUser.pas
r91 r92 36 36 Identification := 'User'; 37 37 Title := 'User management'; 38 Version := ' 0.1';38 Version := '1.0'; 39 39 License := 'GNU/LGPL v3'; 40 40 Author := 'Chronosoft'; … … 65 65 try 66 66 DbRows := TDbRows.Create; 67 Core.CommonDatabase.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `User` (' + 68 '`Id` int(11) NOT NULL AUTO_INCREMENT,' + 69 '`Name` varchar(255) NOT NULL,' + 70 '`FullName` varchar(255) NOT NULL,' + 71 '`Password` varchar(255) NOT NULL,' + 72 '`Salt` varchar(255) NOT NULL,' + 73 '`Email` varchar(255) NOT NULL,' + 74 '`RegistrationTime` datetime NOT NULL,' + 75 'PRIMARY KEY (`Id`)' + 76 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;'); 77 Core.CommonDatabase.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `UserOnline` (' + 78 '`Id` int(11) NOT NULL AUTO_INCREMENT,' + 79 '`User` int(11) NOT NULL DEFAULT ''0'',' + 80 '`ActivityTime` datetime NOT NULL DEFAULT ''0000-00-00 00:00:00'',' + 81 '`LoginTime` datetime NOT NULL DEFAULT ''0000-00-00 00:00:00'',' + 82 '`SessionId` varchar(255) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' + 83 '`IpAddress` varchar(16) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' + 84 '`HostName` varchar(255) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' + 85 '`ScriptName` varchar(255) COLLATE utf8_czech_ci NOT NULL,' + 86 'PRIMARY KEY (`Id`),' + 87 'KEY `User` (`User`)' + 88 ') ENGINE=MEMORY DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=2 ;'); 67 Core.CommonDatabase.Query(DbRows, 68 'CREATE TABLE IF NOT EXISTS `User` (' + 69 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + 70 ' `Name` varchar(255) NOT NULL,' + 71 ' `FullName` varchar(255) NOT NULL,' + 72 ' `Password` varchar(255) NOT NULL,' + 73 ' `Salt` varchar(255) NOT NULL,' + 74 ' `Email` varchar(255) NOT NULL,' + 75 ' `RegistrationTime` datetime NOT NULL,' + 76 ' PRIMARY KEY (`Id`)' + 77 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;'); 78 Core.CommonDatabase.Query(DbRows, 79 'CREATE TABLE IF NOT EXISTS `UserOnline` (' + 80 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + 81 ' `User` int(11) NOT NULL DEFAULT ''0'',' + 82 ' `ActivityTime` datetime NOT NULL DEFAULT ''0000-00-00 00:00:00'',' + 83 ' `LoginTime` datetime NOT NULL DEFAULT ''0000-00-00 00:00:00'',' + 84 ' `SessionId` varchar(255) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' + 85 ' `IpAddress` varchar(16) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' + 86 ' `HostName` varchar(255) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' + 87 ' `ScriptName` varchar(255) COLLATE utf8_czech_ci NOT NULL,' + 88 ' PRIMARY KEY (`Id`),' + 89 ' KEY `User` (`User`)' + 90 ') ENGINE=MEMORY DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 89 91 finally 90 92 DbRows.Free;
Note:
See TracChangeset
for help on using the changeset viewer.