bk/2024-08-26-2254

Author: Cesar4D

Src/Conn/C4D.Conn.Firedac.pas

@@ -165,7 +165,7 @@ function TC4DConnFiredac.TestConnection: Boolean;
   try
     Self.LoadConnectionConfig;
     LConnectedOld := FConnection.Connected;
-    FConnection.Close; //
+    FConnection.Close;
     FConnection.Open;
     Result := FConnection.Connected;
 

Src/DB/Chat/DelphiAIDev.DB.Chat.View.dfm

@@ -334,16 +334,19 @@ object DelphiAIDevDBChatView: TDelphiAIDevDBChatView
         ExplicitHeight = 13
       end
       object lbLastGeneration: TLabel
+        AlignWithMargins = True
         Left = 422
         Top = 0
-        Width = 120
+        Width = 81
         Height = 25
+        Margins.Left = 0
+        Margins.Top = 0
+        Margins.Right = 5
+        Margins.Bottom = 0
         Align = alLeft
-        AutoSize = False
         Caption = 'lbLastGeneration'
         Layout = tlCenter
-        ExplicitLeft = 585
-        ExplicitTop = 3
+        ExplicitHeight = 13
       end
       object btnExecuteSQL: TButton
         AlignWithMargins = True
@@ -374,6 +377,22 @@ object DelphiAIDevDBChatView: TDelphiAIDevDBChatView
         TabOrder = 1
         OnClick = cBoxDatabasesClick
       end
+      object btnGenerateDatabaseReference: TButton
+        AlignWithMargins = True
+        Left = 508
+        Top = 0
+        Width = 58
+        Height = 25
+        Cursor = crHandPoint
+        Margins.Left = 0
+        Margins.Top = 0
+        Margins.Bottom = 0
+        Align = alLeft
+        Caption = 'Generate'
+        TabOrder = 2
+        OnClick = btnGenerateDatabaseReferenceClick
+        ExplicitLeft = 503
+      end
     end
   end
   object pnWait: TPanel

Src/DB/Chat/DelphiAIDev.DB.Chat.View.pas

@@ -38,7 +38,8 @@ interface
   DelphiAIDev.DB.Registers.Fields,
   C4D.Conn,
   DelphiAIDev.Utils.DBGrids,
-  DelphiAIDev.Projects.Model;
+  DelphiAIDev.Projects.Model,
+  DelphiAIDev.DB.References.View;
 
 type
   TDelphiAIDevDBChatView = class(TDockableForm)
@@ -102,6 +103,7 @@   TDelphiAIDevDBChatView = class(TDockableForm)
     lbCount: TLabel;
     Label3: TLabel;
     Ollama1: TMenuItem;
+    btnGenerateDatabaseReference: TButton;
     procedure FormShow(Sender: TObject);
     procedure cBoxSizeFontKeyPress(Sender: TObject; var Key: Char);
     procedure Cut1Click(Sender: TObject);
@@ -139,6 +141,7 @@   TDelphiAIDevDBChatView = class(TDockableForm)
     procedure SaveAllGridDataAsCSVClick(Sender: TObject);
     procedure SaveAllGridDataAsTXTClick(Sender: TObject);
     procedure DBGrid1TitleClick(Column: TColumn);
+    procedure btnGenerateDatabaseReferenceClick(Sender: TObject);
   private
     FChat: TDelphiAIDevChat;
     FSettings: TDelphiAIDevSettings;
@@ -675,6 +678,29 @@ procedure TDelphiAIDevDBChatView.FillDateLastReferences;
   lbLastGeneration.Caption := TUtils.DateTimeToStrEmpty(Self.GetFieldDBSelected.LastReferences);
 end;
 
+procedure TDelphiAIDevDBChatView.btnGenerateDatabaseReferenceClick(Sender: TObject);
+var
+  LView: TDelphiAIDevDBReferencesView;
+  LFields: TDelphiAIDevDBRegistersFields;
+begin
+  if cBoxDatabases.Items.Count < 0 then
+    Exit;
+
+  LFields := Self.GetFieldDBSelected;
+  if LFields = nil then
+    Exit;
+
+  LView := TDelphiAIDevDBReferencesView.Create(nil);
+  try
+    LView.Fields := LFields;
+    if LView.ShowModal = mrOk then
+      Self.FillDateLastReferences;
+  finally
+    LView.Free;
+  end;
+end;
+
+
 function TDelphiAIDevDBChatView.GetFieldDBSelected: TDelphiAIDevDBRegistersFields;
 begin
   Result := TDelphiAIDevDBRegistersFields(cBoxDatabases.Items.Objects[cBoxDatabases.ItemIndex]);

Src/DB/Registers/DelphiAIDev.DB.Registers.View.dfm

@@ -48,7 +48,6 @@ object DelphiAIDevDBRegistersView: TDelphiAIDevDBRegistersView
       Caption = 'Edit'
       TabOrder = 0
       OnClick = btnEditClick
-      ExplicitTop = 1
     end
     object btnClose: TButton
       AlignWithMargins = True