Changeset 146 for trunk/Modules/ZdechovNET/ModuleZdechovNET.pas

Timestamp:

Dec 29, 2023, 11:44:26 PM (11 months ago)

Author:

chronos

Message:

• Modified: Unit names without U prefix.

File:

• trunk/Modules/ZdechovNET/ModuleZdechovNET.pas (moved) (moved from trunk/Modules/ZdechovNET/UModuleZdechovNET.pas ) (8 diffs)

trunk/Modules/ZdechovNET/ModuleZdechovNET.pas

@@ -1 @@
-unit UModuleZdechovNET;
+unit ModuleZdechovNET;
 
 interface
 
 uses
-  Classes, SysUtils, UModularSystem, UWebPage, URobotsPage,
-  UWebSession, DateUtils, UModuleBase, UModuleUser, UIPTVPage,
-  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
-  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUser,
-  UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
+  Classes, SysUtils, UModularSystem, UWebPage, RobotsPage,
+  WebSession, DateUtils, ModuleBase, ModuleUser, IPTVPage,
+  InternetPage, HostingPage, HistoryPage, DocumentsPage, VoIPPage,
+  LinksPage, PlansPage, ServerInfoPage, WebCamPage, User,
+  NetworkPage, AboutPage, ContactPage, ProjectsPage;
 
 type
@@ -49 +49 @@
 
 uses
-  UCore, USqlDatabase, UXmlClasses, UHtmlClasses, UUtils;
+  Core, USqlDatabase, UXmlClasses, UHtmlClasses, Utils;
 
 { TModuleZdechovNET }
@@ -169 +169 @@
     DbRows := TDbRows.Create;
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `VPSHosting` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -181 +181 @@
     ') ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `History` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -189 +189 @@
     ') ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `Webcam` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -204 +204 @@
     ') ENGINE=MyISAM DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     '  CREATE TABLE IF NOT EXISTS `Plans` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -217 +217 @@
     ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `HostedProject` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -245 +245 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HostedProject`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Plans`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Webcam`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `VPSHosting`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `History`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HostedProject`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Plans`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Webcam`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `VPSHosting`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `History`');
   finally
     DbRows.Free;