Ignore:
Timestamp:
Dec 29, 2023, 11:44:26 PM (11 months ago)
Author:
chronos
Message:
  • Modified: Unit names without U prefix.
File:
1 moved

Legend:

Unmodified
Added
Removed
  • trunk/Modules/User/ModuleUser.pas

    r145 r146  
    1 unit UModuleUser;
     1unit ModuleUser;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UModularSystem, UUser, UModuleBase, UWebPage;
     6  Classes, SysUtils, UModularSystem, User, ModuleBase, UWebPage;
    77
    88type
     
    3030
    3131uses
    32   UCore, USqlDatabase, UUserControlPage;
     32  Core, USqlDatabase, UserControlPage;
    3333
    3434{ TModuleUser }
     
    8484    DbRows := TDbRows.Create;
    8585
    86     Core.CommonDatabase.Query(DbRows,
     86    Core.Core.CommonDatabase.Query(DbRows,
    8787    'CREATE TABLE IF NOT EXISTS `User` (' +
    8888    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
     
    9696    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;');
    9797
    98     Core.CommonDatabase.Query(DbRows,
     98    Core.Core.CommonDatabase.Query(DbRows,
    9999    'CREATE TABLE IF NOT EXISTS `UserOnline` (' +
    100100    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
     
    110110    ') ENGINE=MEMORY  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
    111111
    112     Core.CommonDatabase.Query(DbRows,
     112    Core.Core.CommonDatabase.Query(DbRows,
    113113    'CREATE TABLE IF NOT EXISTS `PermissionGroup` (' +
    114114    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
     
    117117    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
    118118
    119     Core.CommonDatabase.Query(DbRows,
     119    Core.Core.CommonDatabase.Query(DbRows,
    120120    'CREATE TABLE IF NOT EXISTS `PermissionGroupAssignment` (' +
    121121    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
     
    129129    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
    130130
    131     Core.CommonDatabase.Query(DbRows,
     131    Core.Core.CommonDatabase.Query(DbRows,
    132132    'CREATE TABLE IF NOT EXISTS `PermissionOperation` (' +
    133133    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
     
    143143    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
    144144
    145     Core.CommonDatabase.Query(DbRows,
     145    Core.Core.CommonDatabase.Query(DbRows,
    146146    '  CREATE TABLE IF NOT EXISTS `PermissionUserAssignment` (' +
    147147    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
     
    155155    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
    156156
    157     Core.CommonDatabase.Query(DbRows,
     157    Core.Core.CommonDatabase.Query(DbRows,
    158158    'ALTER TABLE `PermissionGroupAssignment`' +
    159159    '  ADD CONSTRAINT `PermissionGroupAssignment_ibfk_1` FOREIGN KEY (`Group`) REFERENCES `permissiongroup` (`Id`),' +
     
    161161    '  ADD CONSTRAINT `PermissionGroupAssignment_ibfk_3` FOREIGN KEY (`AssignedOperation`) REFERENCES `permissionoperation` (`Id`);');
    162162
    163     Core.CommonDatabase.Query(DbRows,
     163    Core.Core.CommonDatabase.Query(DbRows,
    164164    'ALTER TABLE `PermissionUserAssignment`' +
    165165    '  ADD CONSTRAINT `PermissionUserAssignment_ibfk_1` FOREIGN KEY (`User`) REFERENCES `user` (`Id`),' +
     
    180180    DbRows := TDbRows.Create;
    181181
    182     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionUserAssignment`');
    183     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionGroupAssignment`');
    184     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionGroup`');
    185     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionOperation`');
    186     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `User`');
    187     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `UserOnline`');
     182    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionUserAssignment`');
     183    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionGroupAssignment`');
     184    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionGroup`');
     185    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionOperation`');
     186    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `User`');
     187    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `UserOnline`');
    188188  finally
    189189    DbRows.Free;
Note: See TracChangeset for help on using the changeset viewer.