Changeset 21 for trunk/Forms/UImportStructureForm.pas

Timestamp:

Jun 16, 2011, 10:32:01 AM (13 years ago)

Author:

george

Message:

• Added: Item selection form for TypeRelationOne.
• Modified: Primary keys have to have their property record for each object.
• Added: Object propery havet to be initialized with Editable flag.

File:

• trunk/Forms/UImportStructureForm.pas (modified) (2 diffs)

trunk/Forms/UImportStructureForm.pas

@@ -160 +160 @@
         PropType := Columns[C].Values['DATA_TYPE'];
         if Columns[C].Values['CONSTRAINT_TYPE'] = 'FOREIGN KEY' then begin
+          RefObjectIndex := ObjectIdByName(Columns[C].Values['REFERENCED_TABLE_NAME']);
           PropertyId := Core.System.AddPropertyRelationOne(ObjectId, PropertyName, PropertyName,
-            ObjectIdByName(Columns[C].Values['REFERENCED_TABLE_NAME']));
+            True, StrToInt(TSQLTable(SQLTables[RefObjectIndex]).Table.Values['ObjId']));
         end else
         if PropType = 'int' then
-          PropertyId := Core.System.AddPropertyNumber(ObjectId, PropertyName, PropertyName);
+          PropertyId := Core.System.AddPropertyNumber(ObjectId, PropertyName, PropertyName, True);
         if PropType = 'varchar' then
-          PropertyId := Core.System.AddPropertyString(ObjectId, PropertyName, PropertyName);
+          PropertyId := Core.System.AddPropertyString(ObjectId, PropertyName, PropertyName, True);
         if PropType = 'float' then
-          PropertyId := Core.System.AddPropertyFloat(ObjectId, PropertyName, PropertyName);
+          PropertyId := Core.System.AddPropertyFloat(ObjectId, PropertyName, PropertyName, True);
         if PropType = 'datetime' then
-          PropertyId := Core.System.AddPropertyDateTime(ObjectId, PropertyName, PropertyName);
+          PropertyId := Core.System.AddPropertyDateTime(ObjectId, PropertyName, PropertyName, True);
         Columns[C].Add('Id', IntToStr(PropertyId));
         Memo1.Lines.Add('Create property "' + PropertyName + '" of type ' + PropType + '"');
@@ -192 +193 @@
           RefPropertyId := StrToInt(TSQLTable(SQLTables[T]).Columns[RefPropertyId].Values['Id']);
           PropertyId := Core.System.AddPropertyRelationMany(StrToInt(TSQLTable(SQLTables[RefObjectIndex]).Table.Values['ObjId']), TableName, TableName,
-            RefPropertyId);
+            True, RefPropertyId);
         end;
       end;