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/Network/ModuleNetwork.pas

    r145 r146  
    1 unit UModuleNetwork;
     1unit ModuleNetwork;
    22
    33interface
    44
    55uses
    6   Classes, SysUtils, UModularSystem, UModuleBase,
    7   UWebPage;
     6  Classes, SysUtils, UModularSystem, ModuleBase, UWebPage;
    87
    98type
    … …  
    2928
    3029uses
    31   UCore, UPageNetwork, USqlDatabase;
     30  Core, PageNetwork, USqlDatabase;
    3231
    3332{ TModuleNetwork }
    … …  
    7574    DbRows := TDbRows.Create;
    7675
    77     Core.CommonDatabase.Query(DbRows,
     76    Core.Core.CommonDatabase.Query(DbRows,
    7877    'CREATE TABLE IF NOT EXISTS `NetworkConfiguration` (' +
    7978    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
    … …  
    8988    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1; ');
    9089
    91     Core.CommonDatabase.Query(DbRows,
     90    Core.Core.CommonDatabase.Query(DbRows,
    9291    'CREATE TABLE IF NOT EXISTS `NetworkDevice` (' +
    9392    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
    … …  
    110109    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
    111110
    112     Core.CommonDatabase.Query(DbRows,
     111    Core.Core.CommonDatabase.Query(DbRows,
    113112    'CREATE TABLE IF NOT EXISTS `NetworkInterface` (' +
    114113    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
    … …  
    127126    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
    128127
    129     Core.CommonDatabase.Query(DbRows,
     128    Core.Core.CommonDatabase.Query(DbRows,
    130129    'CREATE TABLE IF NOT EXISTS `NetworkInterfaceType` (' +
    131130    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
    … …  
    137136    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
    138137
    139     Core.CommonDatabase.Query(DbRows,
     138    Core.Core.CommonDatabase.Query(DbRows,
    140139    'CREATE TABLE IF NOT EXISTS `NetworkDeviceType` (' +
    141140    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
    … …  
    159158  try
    160159    DbRows := TDbRows.Create;
    161     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkInterfaceType`');
    162     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkInterface`');
    163     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkDeviceType`');
    164     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkDevice`');
    165     Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkConfiguration`');
     160    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkInterfaceType`');
     161    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkInterface`');
     162    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkDeviceType`');
     163    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkDevice`');
     164    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkConfiguration`');
    166165  finally
    167166    DbRows.Free;
Note: See TracChangeset for help on using the changeset viewer.