Changeset 22 for trunk/Forms/UFormFields.pas

Timestamp:

Mar 24, 2018, 12:33:48 AM (7 years ago)

Author:

chronos

Message:

• Modified: Tables creation/deletion using SQL syntax for XML backend.

File:

• trunk/Forms/UFormFields.pas (modified) (4 diffs)

trunk/Forms/UFormFields.pas

@@ -91 +91 @@
   if FormField.ShowModal = mrOk then begin
     FormField.Save(NewField);
-    Fields.Add(NewField);
+    Fields.Table.DbClient.Query('INSERT INTO ModelField ( Name , TextBefore) VALUES ( ' +
+      NewField.Name + ' , ' + NewField.TextBefore + ' )');
     ReloadList;
   end else NewField.Free;
@@ -107 +108 @@
     if FormField.ShowModal = mrOk then begin
       FormField.Save(TField(ListView1.Selected.Data));
+      Fields.Table.DbClient.Query('UPDATE ModelField SET TextBefore = ' + TField(ListView1.Selected.Data).TextBefore +
+        ' WHERE Name = ' + TField(ListView1.Selected.Data).Name);
       ReloadList;
     end;
@@ -120 +123 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    Fields.Remove(ListView1.Selected.Data);
+    Fields.Table.DbClient.Query('DELETE FROM ModelField WHERE Name = ' + TField(ListView1.Selected.Data).Name);
     ReloadList;
     UpdateInterface;
@@ -152 +155 @@
 
 procedure TFormFields.ReloadList;
+var
+  DbRows: TDbRows;
+  NewField: TField;
+  I: Integer;
 begin
+  DbRows := TDbRows.Create;
+  Fields.Table.DbClient.Query('SELECT * FROM ModelField WHERE Model = ' + Fields.Table.Name, DbRows);
+  for I := 0 to DbRows.Count - 1 do begin
+    NewField := TField.Create;
+    NewField.Table := Fields.Table;
+    Fields.Add(NewField);
+  end;
+  DbRows.Free;
+
   ListView1.Items.Count := Fields.Count;
   ListView1.Repaint;