Changeset 21 for trunk/Forms/UFormTables.pas

Timestamp:

Mar 23, 2018, 3:06:47 PM (7 years ago)

Author:

chronos

Message:

• Modified: Allow to create and remove tables for XML backend.

File:

• trunk/Forms/UFormTables.pas (modified) (8 diffs)

trunk/Forms/UFormTables.pas

@@ -40 +40 @@
     procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -45 +47 @@
       Selected: Boolean);
   private
+    FDbClient: TDbClient;
     FTables: TTables;
-    procedure SetTables(AValue: TTables);
+    procedure SetDbClient(AValue: TDbClient);
   public
-    property Tables: TTables read FTables write SetTables;
+    property DbClient: TDbClient read FDbClient write SetDbClient;
+    property Tables: TTables read FTables;
     procedure UpdateInterface;
     procedure ReloadList;
@@ -87 +91 @@
 end;
 
-procedure TFormTables.SetTables(AValue: TTables);
-begin
-  if FTables = AValue then Exit;
-  FTables := AValue;
+procedure TFormTables.SetDbClient(AValue: TDbClient);
+begin
+  if FDbClient = AValue then Exit;
+  FDbClient := AValue;
+  FTables.DbClient := AValue;
   ReloadList;
 end;
@@ -114 +119 @@
   if FormTable.ShowModal = mrOk then begin
     FormTable.Save(NewTable);
-    Tables.Add(NewTable);
+    Tables.DbClient.Query('CREATE TABLE ' + NewTable.Name + ' (ID INTEGER)');
     ReloadList;
   end else NewTable.Free;
@@ -135 +140 @@
     if MessageDlg(SRemoveTable, Format(SRemoveTableConfirm, [TTable(ListView1.Selected.Data).Name]),
     mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
-      Tables.Remove(ListView1.Selected.Data);
+      Tables.DbClient.Query('DROP TABLE ' + TTable(ListView1.Selected.Data).Name);
       ReloadList;
     end;
@@ -201 +206 @@
 procedure TFormTables.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  //Tables.DbClient.Save;
+end;
+
+procedure TFormTables.FormCreate(Sender: TObject);
+begin
+  FTables := TTables.Create;
+end;
+
+procedure TFormTables.FormDestroy(Sender: TObject);
+begin
+  FTables.Free;
 end;
 
@@ -208 +222 @@
   I: Integer;
 begin
+  ReloadList;
   for I := 0 to ToolBar1.ButtonCount - 1 do
     ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
@@ -217 +232 @@
   I: Integer;
 begin
+  if Assigned(DbClient) then DbClient.LoadTables(Tables)
+    else Tables.Clear;
   for I := 0 to Tables.Count - 1 do
     TTable(Tables[I]).LoadRecordsCount;