AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dont allow empty titles for profiles/searches

Browse Source
This commit is contained in:
Jonathan Jenne
2020-12-15 10:45:30 +01:00
parent c612bf1d0d
commit b295e3db0e
2 changed files with 67 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -372,10 +372,11 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
Save_Profile()
'ClassInit.Refresh_Profile_Links()
'Refresh_ProfileScreen()
If txtProfileName.EditValue <> String.Empty Then
Save_Profile()
Else
MsgBox("Profil kann nicht ohne Profil-Name gespeichert werden!", MsgBoxStyle.Exclamation, Text)
End If
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
@@ -562,7 +563,7 @@ Public Class frmAdministration
End If
End Sub
Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
Private Sub Save_DataSearch()
Try
TBCW_PROF_DATA_SEARCHBindingSource.EndEdit()
If Not IsNothing(MyDataset.TBCW_PROF_DATA_SEARCH.GetChanges) Then
@@ -574,10 +575,18 @@ Public Class frmAdministration
End If
Catch ex As Exception
Logger.Error(ex)
'MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
If txtDataSearchName.EditValue <> String.Empty Then
Save_DataSearch()
Else
MsgBox("Daten-Suche kann nicht ohne Titel gespeichert werden!", MsgBoxStyle.Exclamation, Text)
End If
End Sub
Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick
If TBCW_PROF_DATA_SEARCHBindingSource.Count = MAX_DATA_SEARCHES Then
MsgBox($"Es können nicht mehr als {MAX_DATA_SEARCHES} Daten-Suchen angelegt werden!", MsgBoxStyle.Exclamation, Text)
@@ -596,7 +605,7 @@ Public Class frmAdministration
End If
End Sub
Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick
Private Sub Save_DocSearch()
Try
TBCW_PROF_DOC_SEARCHBindingSource.EndEdit()
If Not IsNothing(MyDataset.TBCW_PROF_DOC_SEARCH.GetChanges) Then
@@ -607,10 +616,19 @@ Public Class frmAdministration
Status_Changed("Dokument-Suche gespeichert")
End If
Catch ex As Exception
MsgBox("Unexpected Error while saving Document Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Logger.Error(ex)
End Try
End Sub
Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick
If txtDocSearchName.EditValue <> String.Empty Then
Save_DocSearch()
Else
MsgBox("Dokument-Suche kann nicht ohne Titel gespeichert werden!", MsgBoxStyle.Exclamation, Text)
End If
End Sub
Private Sub frmAdministration_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
ClassInit.Refresh_Connections()
ClassInit.Refresh_Profile_Links()