Changeset 19 for trunk/USystem.pas

Timestamp:

Jun 14, 2011, 12:20:15 PM (13 years ago)

Author:

george

Message:

• Added: Import existed database structure form.

File:

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

trunk/USystem.pas

@@ -26 +26 @@
   TypeNumber = 'TypeNumber';
   TypeString = 'TypeString';
+  TypeFloat = 'TypeFloat';
 
 type
@@ -98 +99 @@
     Database: TSQLDatabase;
     function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
+    function AddGroup(Name: string; ParentGroupId: Integer = 0): Integer;
     function AddObject(Name, TableName, Schema: string; GroupId: Integer): Integer;
-    function AddProperty(ObjectId: Integer; Name, ColumnName: string; DataType: Integer): Integer;
+    function AddProperty(ObjectId: Integer; Name, ColumnName: string; CustomType: Integer): Integer;
     function AddPropertyNumber(ObjectId: Integer; Name,
+      ColumnName: string; Default: Integer = 0; Min: Integer = 0;
+      Max: Integer = High(Integer)): Integer;
+    function AddPropertyFloat(ObjectId: Integer; Name,
       ColumnName: string; Default: Integer = 0; Min: Integer = 0;
       Max: Integer = High(Integer)): Integer;
@@ -240 +245 @@
 end;
 
+function TChronisBase.AddGroup(Name: string; ParentGroupId: Integer): Integer;
+var
+  DbRows: TDbRows;
+  Data: TDictionaryStringString;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+    Data.Add('Name', Name);
+    Data.Add('Parent', IntToStr(ParentGroupId));
+    Database.Insert(ObjectGroupTable, Data);
+    Result := Database.LastInsertId;
+  finally
+    Data.Free;
+    DbRows.Free;
+  end;
+end;
+
 function TChronisBase.AddObject(Name, TableName, Schema: string;
   GroupId: Integer): Integer;
@@ -262 +285 @@
 
 function TChronisBase.AddProperty(ObjectId: Integer; Name, ColumnName: string;
-  DataType: Integer): Integer;
+  CustomType: Integer): Integer;
 var
   DbRows: TDbRows;
@@ -273 +296 @@
     Data.Add('Object', IntToStr(ObjectId));
     Data.Add('ColumnName', ColumnName);
-    Data.Add('CustomType', IntToStr(DataType));
+    Data.Add('CustomType', IntToStr(CustomType));
     Data.Add('Editable', '1');
     Database.Insert(PropertyTable, Data);
@@ -306 +329 @@
     Data.Add('Default', IntToStr(Default));
     Database.Insert(TypeNumber, Data);
+    //CustomTypeId := Database.LastInsertId;
+
+    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
+  finally
+    Data.Free;
+    DbRows.Free;
+  end;
+end;
+
+function TChronisBase.AddPropertyFloat(ObjectId: Integer; Name,
+  ColumnName: string; Default: Integer; Min: Integer; Max: Integer): Integer;
+var
+  DbRows: TDbRows;
+  Data: TDictionaryStringString;
+  CustomTypeId: Integer;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+
+    Data.Clear;
+    Data.Add('Type', IntToStr(Integer(vtFloat)));
+    Database.Insert(CustomTypeTableName, Data);
+    CustomTypeId := Database.LastInsertId;
+
+    Data.Clear;
+    Data.Add('CustomType', IntToStr(CustomTypeId));
+    Data.Add('Min', IntToStr(Min));
+    Data.Add('Max', IntToStr(Max));
+    Data.Add('Default', IntToStr(Default));
+    Database.Insert(TypeFloat, Data);
     //CustomTypeId := Database.LastInsertId;