Changeset 22 for trunk/Forms/UFormTables.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/UFormTables.pas (modified) (5 diffs)

trunk/Forms/UFormTables.pas

@@ -119 +119 @@
   if FormTable.ShowModal = mrOk then begin
     FormTable.Save(NewTable);
-    Tables.DbClient.Query('CREATE TABLE ' + NewTable.Name + ' (ID INTEGER)');
+    Tables.DbClient.Query('INSERT INTO Model ( Name , Caption ) VALUES ( ' +
+      NewTable.Name + ' , ' + NewTable.Caption + ' )');
     ReloadList;
   end else NewTable.Free;
@@ -130 +131 @@
     if FormTable.ShowModal = mrOk then begin
       FormTable.Save(TTable(ListView1.Selected.Data));
+      DbClient.Query('UPDATE Model SET Name = ' + TTable(ListView1.Selected.Data).Name);
       ReloadList;
     end;
@@ -138 +140 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    if MessageDlg(SRemoveTable, Format(SRemoveTableConfirm, [TTable(ListView1.Selected.Data).Name]),
+    if MessageDlg(SRemoveTable, Format(SRemoveTableConfirm, [TTable(ListView1.Selected.Data).Caption]),
     mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
-      Tables.DbClient.Query('DROP TABLE ' + TTable(ListView1.Selected.Data).Name);
+      Tables.DbClient.Query('DELETE FROM Model WHERE Name = ' + TTable(ListView1.Selected.Data).Name);
       ReloadList;
     end;
@@ -175 +177 @@
       end;
       for C := 0 to FormFields.Fields.Count - 1 do begin
-        OldField := OldTable.Fields.FindByName(TField(FormFields.Fields[C]).Name);
+        OldField := OldTable.Fields.SearchByName(TField(FormFields.Fields[C]).Name);
         if Assigned(OldField) then begin
           FI := OldTable.Fields.IndexOf(OldField);
@@ -210 +212 @@
 procedure TFormTables.FormCreate(Sender: TObject);
 begin
-  FTables := TTables.Create;
+  FTables := TTables.Create(False);
 end;