AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

GUIs.Common: improve error message

Browse Source
This commit is contained in:
Jonathan Jenne 2020-06-17 11:19:01 +02:00
parent 41879e3999
commit 00ac955f78
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
GUIs.Common/Constants.vb
View File

@ -1,3 +1,8 @@
Public Class Constants
Public Const NO_ROW_HANDLE = -1
Public Shared ReadOnly MESSAGE_TOO_MANY_SEARCHES = "You have more than three searches configured. This Window will only show the first three result lists!"
Public Shared ReadOnly MESSAGE_ERROR_IN_SEARCHES = $"An error occurred while executing searches or no searches were found!{vbNewLine}
Please check the SQL Queries for errors and if the correct connection was configured.{vbNewLine}{vbNewLine}
For more information check the Logfile."
End Class

4
GUIs.Common/DataResultList/frmDataResultList.vb
View File

@ -94,7 +94,7 @@ Public Class frmDataResultList
CreateDataGrid(GridView3, oResult.Datatable)
Case Else
MessageBox.Show("You have more than three searches configured. This Window will only show the first three result lists!")
MessageBox.Show(Constants.MESSAGE_TOO_MANY_SEARCHES)
Exit For
End Select
Next
@ -108,7 +108,7 @@ Public Class frmDataResultList
SwitchMainContainerHorizontal.Enabled = False
SwitchDetailContainerHorizontal.Enabled = False
MessageBox.Show("Es ist ein Fehler beim Ausführen der Suchen aufgetreten oder es wurden keine Suchen gefunden!", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
MessageBox.Show(Constants.MESSAGE_ERROR_IN_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Case 1
SplitContainerControl1.SetPanelCollapsed(True)
SplitContainerControl2.SetPanelCollapsed(True)

4
GUIs.Common/DocumentResultList/frmDocumentResultList.vb
View File

@ -102,7 +102,7 @@ Public Class frmDocumentResultList
UpdateGridHeader(index, oResult.Datatable.Rows.Count)
Case Else
MessageBox.Show("You have more than three searches configured. This Window will only show the first three result lists!", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
MessageBox.Show(Constants.MESSAGE_TOO_MANY_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit For
End Select
Next
@ -116,7 +116,7 @@ Public Class frmDocumentResultList
SwitchMainContainerHorizontal.Enabled = False
SwitchDetailContainerHorizontal.Enabled = False
MessageBox.Show("Es ist ein Fehler beim Ausführen der Suchen aufgetreten oder es wurden keine Suchen gefunden!", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
MessageBox.Show(Constants.MESSAGE_ERROR_IN_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Case 1
SplitContainerControl1.SetPanelCollapsed(True)
SplitContainerControl2.SetPanelCollapsed(True)