Changeset 3 for trunk/UDatabaseXML.pas

Timestamp:

Jan 18, 2015, 5:25:37 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for editing String and DateTime value types in record edit form.

Location:

trunk

Files:

• . (modified) (1 prop)
• UDatabaseXML.pas (modified) (5 diffs)

trunk

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

trunk/UDatabaseXML.pas

@@ -14 +14 @@
   private
     function GetFileName: string;
+    procedure LoadNodeRecord(Row: TRecord; Node: TDOMNode);
+    procedure SaveNodeRecord(Row: TRecord; Node: TDOMNode);
+    procedure LoadNodeRecords(Records: TRecords; Node: TDOMNode);
+    procedure SaveNodeRecords(Records: TRecords; Node: TDOMNode);
     procedure LoadNodeField(Field: TField; Node: TDOMNode);
     procedure SaveNodeField(Field: TField; Node: TDOMNode);
@@ -45 +49 @@
 end;
 
+procedure TDatabaseXML.LoadNodeRecord(Row: TRecord; Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewValue: TValue;
+  I: Integer;
+begin
+  Row.Values.Count := 0;
+  Node2 := Node.FirstChild;
+  I := 0;
+  while Assigned(Node2) and (Node2.NodeName = 'Value') do begin
+    if TField(Row.Parent.Fields[I]).FieldType = ftString then begin
+      NewValue := TValueString.Create;
+      TValueString(NewValue).Value := Node2.TextContent;
+    end else
+    if TField(Row.Parent.Fields[I]).FieldType = ftDateTime then begin
+      NewValue := TValueDateTime.Create;
+      if Node2.TextContent <> '' then
+        TValueDateTime(NewValue).Value := XMLTimeToDateTime(Node2.TextContent);
+    end else NewValue := TValue.Create;
+    Row.Values.Add(NewValue);
+    Node2 := Node2.NextSibling;
+    Inc(I);
+  end;
+end;
+
+procedure TDatabaseXML.SaveNodeRecord(Row: TRecord; Node: TDOMNode);
+var
+  I: Integer;
+  NewNode: TDOMNode;
+begin
+  for I := 0 to Row.Values.Count - 1 do begin;
+    NewNode := Node.OwnerDocument.CreateElement('Value');
+    Node.AppendChild(NewNode);
+    if TField(Row.Parent.Fields[I]).FieldType = ftString then
+      NewNode.TextContent := TValueString(Row.Values[I]).Value;
+    if TField(Row.Parent.Fields[I]).FieldType = ftDateTime then
+      NewNode.TextContent := DateTimeToXMLTime(TValueDateTime(Row.Values[I]).Value);
+  end;
+end;
+
+procedure TDatabaseXML.LoadNodeRecords(Records: TRecords; Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewRecord: TRecord;
+begin
+  Records.Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'Record') do begin
+    NewRecord := TRecord.Create;
+    NewRecord.Parent := Records.Parent;
+    LoadNodeRecord(NewRecord, Node2);
+    Records.Add(NewRecord);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
+procedure TDatabaseXML.SaveNodeRecords(Records: TRecords; Node: TDOMNode);
+var
+  I: Integer;
+  NewNode: TDOMNode;
+begin
+  for I := 0 to Records.Count - 1 do begin;
+    NewNode := Node.OwnerDocument.CreateElement('Record');
+    Node.AppendChild(NewNode);
+    SaveNodeRecord(TRecord(Records.Items[I]), NewNode);
+  end;
+end;
+
 procedure TDatabaseXML.LoadNodeField(Field: TField; Node: TDOMNode);
 begin
@@ -97 +169 @@
   if Assigned(NewNode) then
     LoadNodeFields(Table.Fields, NewNode);
+
+  NewNode := Node.FindNode('Records');
+  if Assigned(NewNode) then
+    LoadNodeRecords(Table.Records, NewNode);
 end;
 
@@ -108 +184 @@
   Node.AppendChild(NewNode);
   SaveNodeFields(Table.Fields, NewNode);
+
+  NewNode := Node.OwnerDocument.CreateElement('Records');
+  Node.AppendChild(NewNode);
+  SaveNodeRecords(Table.Records, NewNode);
 end;
 
@@ -164 +244 @@
   RootNode: TDOMNode;
 begin
+  if FileName = '' then exit;
   Doc := TXMLDocument.Create;
   with Doc do try

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml