Changeset 20 for trunk/USystem.pas

Timestamp:

Jun 15, 2011, 11:11:59 AM (13 years ago)

Author:

george

Message:

• Added: Import relation one and many from existed database.

File:

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

trunk/USystem.pas

@@ -27 +27 @@
   TypeString = 'TypeString';
   TypeFloat = 'TypeFloat';
+  TypeDateTime = 'TypeDateTime';
 
 type
@@ -103 +104 @@
     function AddProperty(ObjectId: Integer; Name, ColumnName: string; CustomType: Integer): Integer;
     function AddPropertyNumber(ObjectId: Integer; Name,
-      ColumnName: string; Default: Integer = 0; Min: Integer = 0;
+      ColumnName: string; Default: Integer = 0; Min: Integer = Low(Integer);
       Max: Integer = High(Integer)): Integer;
     function AddPropertyFloat(ObjectId: Integer; Name,
-      ColumnName: string; Default: Integer = 0; Min: Integer = 0;
-      Max: Integer = High(Integer)): Integer;
+      ColumnName: string; Default: Double = 0; Min: Double = 0;
+      Max: Double = 0): Integer;
+    function AddPropertyDateTime(ObjectId: Integer; Name,
+      ColumnName: string; Default: TDateTime = 0; Min: TDateTime = 0;
+      Max: TDateTime = 0): Integer;
     function AddPropertyString(ObjectId: Integer; Name, ColumnName: string;
       Default: string = ''; MaxLength: Integer = 255): Integer;
@@ -307 +311 @@
 
 function TChronisBase.AddPropertyNumber(ObjectId: Integer; Name,
-  ColumnName: string; Default: Integer = 0; Min: Integer = 0;
+  ColumnName: string; Default: Integer = 0; Min: Integer = Low(Integer);
   Max: Integer = High(Integer)): Integer;
 var
@@ -339 +343 @@
 
 function TChronisBase.AddPropertyFloat(ObjectId: Integer; Name,
-  ColumnName: string; Default: Integer; Min: Integer; Max: Integer): Integer;
+  ColumnName: string; Default: Double; Min: Double; Max: Double): Integer;
 var
   DbRows: TDbRows;
@@ -356 +360 @@
     Data.Clear;
     Data.Add('CustomType', IntToStr(CustomTypeId));
-    Data.Add('Min', IntToStr(Min));
-    Data.Add('Max', IntToStr(Max));
-    Data.Add('Default', IntToStr(Default));
+    Data.Add('Min', MySQLFloatToStr(Min));
+    Data.Add('Max', MySQLFloatToStr(Max));
+    Data.Add('Default', MySQLFloatToStr(Default));
     Database.Insert(TypeFloat, Data);
+    //CustomTypeId := Database.LastInsertId;
+
+    Result := AddProperty(ObjectId, Name, ColumnName, CustomTypeId);
+  finally
+    Data.Free;
+    DbRows.Free;
+  end;
+end;
+
+function TChronisBase.AddPropertyDateTime(ObjectId: Integer; Name,
+  ColumnName: string; Default: TDateTime; Min: TDateTime; Max: TDateTime
+  ): Integer;
+var
+  DbRows: TDbRows;
+  Data: TDictionaryStringString;
+  CustomTypeId: Integer;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Data := TDictionaryStringString.Create;
+
+    Data.Clear;
+    Data.Add('Type', IntToStr(Integer(vtDateTime)));
+    Database.Insert(CustomTypeTableName, Data);
+    CustomTypeId := Database.LastInsertId;
+
+    Data.Clear;
+    Data.Add('CustomType', IntToStr(CustomTypeId));
+    Data.Add('Min', DateTimeToSQL(Min));
+    Data.Add('Max', DateTimeToSQL(Max));
+    Data.Add('Default', DateTimeToSQL(Default));
+    Database.Insert(TypeDateTime, Data);
     //CustomTypeId := Database.LastInsertId;