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 Class Constants
Public Const NO_ROW_HANDLE = -1 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 End Class

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

@ -94,7 +94,7 @@ Public Class frmDataResultList
CreateDataGrid(GridView3, oResult.Datatable) CreateDataGrid(GridView3, oResult.Datatable)
Case Else 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 Exit For
End Select End Select
Next Next
@ -108,7 +108,7 @@ Public Class frmDataResultList
SwitchMainContainerHorizontal.Enabled = False SwitchMainContainerHorizontal.Enabled = False
SwitchDetailContainerHorizontal.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 Case 1
SplitContainerControl1.SetPanelCollapsed(True) SplitContainerControl1.SetPanelCollapsed(True)
SplitContainerControl2.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) UpdateGridHeader(index, oResult.Datatable.Rows.Count)
Case Else 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 Exit For
End Select End Select
Next Next
@ -116,7 +116,7 @@ Public Class frmDocumentResultList
SwitchMainContainerHorizontal.Enabled = False SwitchMainContainerHorizontal.Enabled = False
SwitchDetailContainerHorizontal.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 Case 1
SplitContainerControl1.SetPanelCollapsed(True) SplitContainerControl1.SetPanelCollapsed(True)
SplitContainerControl2.SetPanelCollapsed(True) SplitContainerControl2.SetPanelCollapsed(True)