Changeset 29 for trunk/DbEngines/UEngineXML.pas

Timestamp:

Sep 10, 2022, 10:54:56 PM (20 months ago)

Author:

chronos

Message:

• Fixed: Load table fields in records list and record edit form.
• Fixed: Record add needs to insert new row into database.

File:

• trunk/DbEngines/UEngineXML.pas (modified) (4 diffs)

trunk/DbEngines/UEngineXML.pas

@@ -98 +98 @@
   I: Integer;
 begin
-  Row.Values.Count := Row.Parent.Fields.Count;
+  Row.Values.Count := Row.Table.Fields.Count;
   for I := 0 to Row.Values.Count - 1 do
-    Row.Values[I] := TValueClass(Row.Parent.Fields[I].GetValueClass).Create;
+    Row.Values[I] := TValueClass(Row.Table.Fields[I].GetValueClass).Create;
 
   Node2 := Node.FirstChild;
   I := 0;
   while Assigned(Node2) and (Node2.NodeName = 'Value') and (I < Row.Values.Count) do begin
-    case Row.Parent.Fields[I].DataType.FieldType of
+    case Row.Table.Fields[I].DataType.FieldType of
       ftString: TValueString(Row.Values[I]).Value := string(Node2.TextContent);
       ftInteger: TValueInteger(Row.Values[I]).Value := StrToInt(string(Node2.TextContent));
@@ -125 +125 @@
     NewNode := Node.OwnerDocument.CreateElement('Value');
     Node.AppendChild(NewNode);
-    case Row.Parent.Fields[I].DataType.FieldType of
+    case Row.Table.Fields[I].DataType.FieldType of
       ftString: NewNode.TextContent := UnicodeString(TValueString(Row.Values[I]).Value);
       ftInteger: NewNode.TextContent := UnicodeString(IntToStr(TValueInteger(Row.Values[I]).Value));
@@ -144 +144 @@
   while Assigned(Node2) and (Node2.NodeName = 'Record') do begin
     NewRecord := TRecord.Create;
-    NewRecord.Parent := Records.Parent;
+    NewRecord.Table := Records.Table;
     LoadNodeRecord(NewRecord, Node2);
     Records.Add(NewRecord);
@@ -492 +492 @@
         if Assigned(Field) then begin
           FieldIndex := Table.Fields.IndexOf(Field);
-          TValue(Row.Values[FieldIndex]).SetString(InsertValues.ValueFromIndex[ValueIndex]);
+          Row.Values[FieldIndex].SetString(InsertValues.ValueFromIndex[ValueIndex]);
         end else raise Exception.Create(Format(SColumnNotFoundInTable,
           [InsertValues.Names[ValueIndex], TableName]));