Changeset 24 for trunk/USystem.pas

Timestamp:

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

Author:

george

Message:

• Add: Support for storing module skeleton.

File:

• trunk/USystem.pas (modified) (5 diffs)

trunk/USystem.pas

@@ -16 +16 @@
   PropertyTypeTable = 'Type';
   PropertyGroupTable = 'PropertyGroup';
+  ModuleTable = 'Module';
   TypeEnumeration = 'TypeEnumeration';
   TypeFile = 'TypeFile';
@@ -119 +120 @@
     function AddPropertyString(ObjectId: Integer; Name, ColumnName: string;
       Editable: Boolean; Default: string = ''; MaxLength: Integer = 255): Integer;
+    function AddPropertyText(ObjectId: Integer; Name, ColumnName: string;
+      Editable: Boolean; Default: string = ''): Integer;
     function AddPropertyRelationOne(ObjectId: Integer; Name, ColumnName: string;
       Editable: Boolean; ReferedObject: Integer): Integer;
@@ -126 +129 @@
     function AddEnumeration(Name: string): Integer;
     function AddEnumerationState(Enum: Integer; Name: string): Integer;
+    function AddModule(Name, Author, Website, Version, Description, License: string): Integer;
     procedure LoadTypes;
     constructor Create;
@@ -435 +439 @@
 end;
 
+function TChronisBase.AddPropertyText(ObjectId: Integer; Name,
+  ColumnName: string; Editable: Boolean; Default: string): Integer;
+var
+  DbRows: TDbRows;
+  Data: TDictionaryStringString;
+  CustomTypeId: Integer;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+
+    Data.Clear;
+    Data.Add('Type', IntToStr(Integer(vtText)));
+    Database.Insert(CustomTypeTableName, Data);
+    CustomTypeId := Database.LastInsertId;
+
+    Data.Clear;
+    Data.Add('CustomType', IntToStr(CustomTypeId));
+    Data.Add('Default', Default);
+    Database.Insert(TypeString, Data);
+    //CustomTypeId := Database.LastInsertId;
+
+    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId, Editable);
+  finally
+    Data.Free;
+    DbRows.Free;
+  end;
+end;
+
 function TChronisBase.AddPropertyRelationOne(ObjectId: Integer; Name,
   ColumnName: string; Editable: Boolean; ReferedObject: Integer): Integer;
@@ -539 +572 @@
     Data.Add('Name', Name);
     Database.Insert(EnumerationState, Data);
+    Result := Database.LastInsertId;
+  finally
+    Data.Free;
+    DbRows.Free;
+  end;
+end;
+
+function TChronisBase.AddModule(Name, Author, Website, Version, Description,
+  License: string): Integer;
+var
+  DbRows: TDbRows;
+  Data: TDictionaryStringString;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+    Data.Add('Name', Name);
+    Data.Add('Author', Author);
+    Data.Add('Website', Website);
+    Data.Add('Version', Version);
+    Data.Add('Description', Description);
+    Data.Add('License', License);
+    Database.Insert(ModuleTable, Data);
     Result := Database.LastInsertId;
   finally