Changeset 24 for trunk/Forms/UMainForm.pas

Timestamp:

Oct 21, 2011, 11:12:09 PM (13 years ago)

Author:

george

Message:

• Add: Support for storing module skeleton.

File:

• trunk/Forms/UMainForm.pas (modified) (3 diffs)

trunk/Forms/UMainForm.pas

@@ -383 +383 @@
         ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     end;
+
+      if Tables.IndexOf(ModuleTable) = -1 then begin
+      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + ModuleTable + '` ( ' +
+        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
+        '`Name` VARCHAR(255) NOT NULL,' +
+        '`Author` VARCHAR(255) NOT NULL,' +
+        '`Website` VARCHAR(255) NOT NULL,' +
+        '`Version` VARCHAR(255) NOT NULL,' +
+        '`License` VARCHAR(255) NOT NULL,' +
+        '`Description` TEXT NOT NULL,' +
+        'PRIMARY KEY (`Id`)' +
+        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
+    end;
   finally
     Tables.Free;
@@ -409 +422 @@
   GroupId: Integer;
   EnumId: Integer;
+  ModuleId: Integer;
+  ModuleBaseId: Integer;
 begin
   with Core.System do begin
@@ -485 +500 @@
     AddPropertyRelationMany(ObjectPropertyGroupId, 'Properties', 'Properties', True, ObjectPropertyIdGroup);
     AddPropertyRelationMany(PropertyTypeId, 'Custom types', 'CustomTypes', True, CustomTypeIdType);
+  ModuleId := AddObject('Modules', 'Module', Core.System.Database.Database, GroupId);
+    AddPropertyNumber(ModuleId, 'Id', 'Id', False);
+    AddPropertyString(ModuleId, 'Name', 'Name', True);
+    AddPropertyString(ModuleId, 'Author', 'Author', True);
+    AddPropertyString(ModuleId, 'Website', 'Website', False);
+    AddPropertyString(ModuleId, 'Version', 'Version', True);
+    AddPropertyText(ModuleId, 'Description', 'Description', False);
+    AddPropertyString(ModuleId, 'License', 'License', False);
+
+  ModuleBaseId := AddModule('Base', 'Chronos', '', '0.1', '', 'GNU/GPL');
   end;
 end;