Changeset 146 for trunk/Modules/System/ModuleSystem.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Unit names without U prefix.

File:

• trunk/Modules/System/ModuleSystem.pas (moved) (moved from trunk/Modules/System/UModuleSystem.pas ) (8 diffs)

trunk/Modules/System/ModuleSystem.pas

@@ -1 @@
-unit UModuleSystem;
+unit ModuleSystem;
 
 interface
@@ -28 +28 @@
 
 uses
-  UCore, USqlDatabase;
+  Core, USqlDatabase;
 
 { TModuleSystem }
@@ -42 +42 @@
     if Module.Installed then Data.Add('Installed', '1')
       else Data.Add('Installed', '0');
-    Core.CommonDatabase.Update('SystemModule', Data, 'Name="' + Module.Identification + '"');
+    Core.Core.CommonDatabase.Update('SystemModule', Data, 'Name="' + Module.Identification + '"');
   finally
     Data.Free;
@@ -72 +72 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Select(DbRows, 'SystemModule', '`Name`, `Installed`');
+    Core.Core.CommonDatabase.Select(DbRows, 'SystemModule', '`Name`, `Installed`');
     for I := 0 to DbRows.Count - 1 do
     with DbRows[I] do begin
@@ -100 +100 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
       'CREATE TABLE IF NOT EXISTS `SystemModule` (' +
       '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -127 +127 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `SystemModule`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `SystemModule`');
   finally
     DbRows.Free;
@@ -149 +149 @@
     Data := TDictionaryStringString.Create;
 
-    Core.CommonDatabase.Select(DbRows, 'SystemModule', 'Name');
+    Core.Core.CommonDatabase.Select(DbRows, 'SystemModule', 'Name');
 
     for I := 0 to Manager.Modules.Count - 1 do
@@ -166 +166 @@
       Index := 0;
       while (Index < DbRows.Count) and (DbRows[Index].Items['Name'] <> Identification) do Inc(Index);
-      if Index >= DbRows.Count then Core.CommonDatabase.Insert('SystemModule', Data)
-        else Core.CommonDatabase.Update('SystemModule', Data, 'Name="' + Identification + '"');
+      if Index >= DbRows.Count then Core.Core.CommonDatabase.Insert('SystemModule', Data)
+        else Core.Core.CommonDatabase.Update('SystemModule', Data, 'Name="' + Identification + '"');
     end;
   finally