fits/db-chat

Author: Cesar4D

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

@@ -176,6 +176,7 @@   TDelphiAIDevDBChatView = class(TDockableForm)
     function GetFieldDBSelected: TDelphiAIDevDBRegistersFields;
     function GetJsonDatabase: string;
     procedure HandleErrorExecutingSQLCommand(const E: Exception);
+    procedure ValidateIfDatabaseSelected;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -671,7 +672,7 @@ procedure TDelphiAIDevDBChatView.FillDateLastReferences;
 begin
   lbLastGeneration.Caption := '';
 
-  if cBoxDatabases.Items.Count < 0 then
+  if cBoxDatabases.Items.Count <= 0 then
     Exit;
 
   lbLastGeneration.Caption := TUtils.DateTimeToStrEmpty(Self.GetFieldDBSelected.LastReferences);
@@ -682,8 +683,7 @@ procedure TDelphiAIDevDBChatView.btnGenerateDatabaseReferenceClick(Sender: TObje
   LView: TDelphiAIDevDBReferencesView;
   LFields: TDelphiAIDevDBRegistersFields;
 begin
-  if cBoxDatabases.Items.Count < 0 then
-    Exit;
+  Self.ValidateIfDatabaseSelected;
 
   LFields := Self.GetFieldDBSelected;
   if LFields = nil then
@@ -699,9 +699,15 @@ procedure TDelphiAIDevDBChatView.btnGenerateDatabaseReferenceClick(Sender: TObje
   end;
 end;
 
+procedure TDelphiAIDevDBChatView.ValidateIfDatabaseSelected;
+begin
+  if cBoxDatabases.Items.Count <= 0 then
+    TUtils.ShowMsgAndAbort('Please select a database to continue', cBoxDatabases);
+end;
 
 function TDelphiAIDevDBChatView.GetFieldDBSelected: TDelphiAIDevDBRegistersFields;
 begin
+  Self.ValidateIfDatabaseSelected;
   Result := TDelphiAIDevDBRegistersFields(cBoxDatabases.Items.Objects[cBoxDatabases.ItemIndex]);
 end;
 
@@ -721,7 +727,6 @@ procedure TDelphiAIDevDBChatView.ProcessSend;
   FSettings.ValidateFillingSelectedAI;
 
   mmReturn.Lines.Clear;
-  Self.WaitingFormON;
 
   LQuestion := FSettings.LanguageQuestions.GetLanguageDefinition;
 
@@ -738,6 +743,7 @@ procedure TDelphiAIDevDBChatView.ProcessSend;
     LQuestion := LQuestion + FSettings.DefaultPrompt + sLineBreak;
   LQuestion := LQuestion + mmQuestion.Lines.Text;
 
+  Self.WaitingFormON;
   LTask := TTask.Create(
     procedure
     begin
@@ -802,6 +808,8 @@ procedure TDelphiAIDevDBChatView.btnExecuteSQLClick(Sender: TObject);
   LCommand: string;
   LField: TDelphiAIDevDBRegistersFields;
 begin
+  Self.ValidateIfDatabaseSelected;
+
   LCommand := Trim(mmReturn.Lines.Text);
   if LCommand.IsEmpty then
     TUtils.ShowMsgAndAbort('No SQL command informed');
@@ -887,12 +895,18 @@ procedure TDelphiAIDevDBChatView.CopyAllGridDataClick(Sender: TObject);
 
 procedure TDelphiAIDevDBChatView.SaveAllGridDataAsCSVClick(Sender: TObject);
 begin
+  if DataSource1.DataSet.IsEmpty then
+    TUtils.ShowMsgAndAbort('There is no data to be exported');
+
   TUtilsDBGrids.DBGridToCSV(DBGrid1);
   TUtils.ShowV('File saved successfully');
 end;
 
 procedure TDelphiAIDevDBChatView.SaveAllGridDataAsTXTClick(Sender: TObject);
 begin
+  if DataSource1.DataSet.IsEmpty then
+    TUtils.ShowMsgAndAbort('There is no data to be exported');
+
   TUtilsDBGrids.DBGridToTxt(DBGrid1);
   TUtils.ShowV('File saved successfully');
 end;