Changeset 146 for trunk/Modules/User


Ignore:
Timestamp:
Dec 29, 2023, 11:44:26 PM (11 months ago)
Author:
chronos
Message:
  • Modified: Unit names without U prefix.
Location:
trunk/Modules/User
Files:
4 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;

  • trunk/Modules/User/User.pas

    r145 r146  
    1 unit UUser;
     1unit User;
    22
    33interface

  • trunk/Modules/User/UserControlPage.pas

    r145 r146  
    1 unit UUserControlPage;
     1unit UserControlPage;
    22
    33interface
    … …  
    55uses
    66  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UXmlClasses,
    7   UWebObjects, UModuleUser, UModuleBase;
     7  WebObjects, ModuleUser, ModuleBase;
    88
    99type
    … …  
    3232
    3333uses
    34   UCore, UUtils, UUser, UWebSession;
     34  Core, Utils, User, WebSession;
    3535
    3636  { TUserControlPage }
    … …  
    6363  UserId: Integer;
    6464begin
    65   with TWebSession(HandlerData), Core, HtmlDocument.Body do begin
     65  with TWebSession(HandlerData), Core.Core, HtmlDocument.Body do begin
    6666    Form := TQueryForm.Create;
    6767    with Form do begin
    … …  
    108108  UserId: Integer;
    109109begin
    110   with TWebSession(HandlerData), Core, HtmlDocument.Body do begin
     110  with TWebSession(HandlerData), Core.Core, HtmlDocument.Body do begin
    111111    Form := TQueryForm.Create;
    112112    with Form do begin
    … …  
    162162procedure TUserControlPage.HandleLogout(HandlerData: THTTPHandlerData);
    163163begin
    164   with TWebSession(HandlerData), Core, HtmlDocument.Body do begin
     164  with TWebSession(HandlerData), Core.Core, HtmlDocument.Body do begin
    165165    ModuleUser.UserOnline.Logout;
    166166    with SubItems.AddString do
Note: See TracChangeset for help on using the changeset viewer.