Changeset 20 for trunk/Forms/UFormTables.pas

Timestamp:

Mar 23, 2018, 1:59:25 PM (7 years ago)

Author:

chronos

Message:

• Modified: Database classes reorganized. Now TDbConnectProfile is class which holds information about connection to database.
• Modified: TDbManager is top most class for managing other database classes.
• Modified: TDbConnectParams class contains client specific parameters for connect profile.

File:

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

trunk/Forms/UFormTables.pas

@@ -45 +45 @@
       Selected: Boolean);
   private
-    FDatabase: TDatabase;
-    procedure SetDatabase(AValue: TDatabase);
-    { private declarations }
+    FTables: TTables;
+    procedure SetTables(AValue: TTables);
   public
-    property Database: TDatabase read FDatabase write SetDatabase;
+    property Tables: TTables read FTables write SetTables;
     procedure UpdateInterface;
     procedure ReloadList;
@@ -74 +73 @@
 procedure TFormTables.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < Database.Tables.Count) then
-  with TTable(Database.Tables[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < FTables.Count) then
+  with TTable(FTables[Item.Index]) do begin
     Item.Caption := Caption;
     Item.SubItems.Add(IntToStr(RecordsCount));
-    Item.Data := Database.Tables[Item.Index];
+    Item.Data := FTables[Item.Index];
   end
 end;
@@ -88 +87 @@
 end;
 
-procedure TFormTables.SetDatabase(AValue: TDatabase);
-begin
-  if FDatabase = AValue then Exit;
-  FDatabase := AValue;
+procedure TFormTables.SetTables(AValue: TTables);
+begin
+  if FTables = AValue then Exit;
+  FTables := AValue;
   ReloadList;
 end;
@@ -97 +96 @@
 procedure TFormTables.UpdateInterface;
 begin
-  ListView1.Enabled := Assigned(Database);
-  AAdd.Enabled := Assigned(Database);
-  AModify.Enabled := Assigned(Database) and Assigned(ListView1.Selected);
-  ARemove.Enabled := Assigned(Database) and Assigned(ListView1.Selected);
-  AShowRecords.Enabled := Assigned(Database) and Assigned(ListView1.Selected);
-  AShowFields.Enabled := Assigned(Database) and Assigned(ListView1.Selected);
+  ListView1.Enabled := Assigned(Tables);
+  AAdd.Enabled := Assigned(Tables);
+  AModify.Enabled := Assigned(Tables) and Assigned(ListView1.Selected);
+  ARemove.Enabled := Assigned(Tables) and Assigned(ListView1.Selected);
+  AShowRecords.Enabled := Assigned(Tables) and Assigned(ListView1.Selected);
+  AShowFields.Enabled := Assigned(Tables) and Assigned(ListView1.Selected);
 end;
 
@@ -111 +110 @@
   NewTable := TTable.Create;
   NewTable.Name := SNewTable;
-  NewTable.Database := Database;
+  NewTable.DbClient := Tables.DbClient;
   FormTable.Load(NewTable);
   if FormTable.ShowModal = mrOk then begin
     FormTable.Save(NewTable);
-    Database.Tables.Add(NewTable);
+    Tables.Add(NewTable);
     ReloadList;
   end else NewTable.Free;
@@ -136 +135 @@
     if MessageDlg(SRemoveTable, Format(SRemoveTableConfirm, [TTable(ListView1.Selected.Data).Name]),
     mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
-      Database.Tables.Remove(ListView1.Selected.Data);
+      Tables.Remove(ListView1.Selected.Data);
       ReloadList;
     end;
@@ -202 +201 @@
 procedure TFormTables.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  Database.Save;
+  //Tables.DbClient.Save;
 end;
 
@@ -218 +217 @@
   I: Integer;
 begin
-  for I := 0 to Database.Tables.Count - 1 do
-    TTable(Database.Tables[I]).LoadRecordsCount;
-  if Assigned(Database) then begin
-    ListView1.Items.Count := Database.Tables.Count;
+  for I := 0 to Tables.Count - 1 do
+    TTable(Tables[I]).LoadRecordsCount;
+  if Assigned(Tables) then begin
+    ListView1.Items.Count := Tables.Count;
     ListView1.Repaint;
   end else ListView1.Items.Count := 0;