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

jj

Browse Source
This commit is contained in:
Jonathan Jenne
2019-08-09 17:12:34 +02:00
parent ee2cacb6cd
commit 16a6febb34
21 changed files with 531 additions and 402 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -113,12 +113,16 @@ Public Class frmAdministration
TBCW_PROF_DOC_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DOC_SEARCH, PROFILE_IDTextBox.Text)
If MyDataset.TBCW_PROF_DOC_SEARCH.Count = 0 Then
LayoutControlDocs.Enabled = False
Else
LayoutControlDocs.Enabled = True
End If
TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = MyConnectionString
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
If MyDataset.TBCW_PROF_DATA_SEARCH.Count = 0 Then
LayoutControlData.Enabled = False
Else
LayoutControlData.Enabled = True
End If
Catch ex As Exception
MsgBox("Unexpected Error in Refresh Profile User: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -637,9 +641,9 @@ Public Class frmAdministration
Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
If CtrlApplicationAssignment1.Control_CreateAssignment(PROFILE_IDTextBox.Text) = False Then
MsgBox("Error while saving control", MsgBoxStyle.Critical, Text)
MsgBox("Error while creating control", MsgBoxStyle.Critical, Text)
Else
Status_Changed("Feld-Zuordnung gespeichert")
Status_Changed("Feld-Zuordnung angelegt")
End If
End Sub
@@ -655,7 +659,11 @@ Public Class frmAdministration
Status_Changed("Feld-Zuordnung gelöscht")
End Sub
Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
Private Sub BarButtonItem25_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem25.ItemClick
If CtrlApplicationAssignment1.Control_SaveAssignment() = False Then
MsgBox("Error while saving control", MsgBoxStyle.Critical, Text)
Else
Status_Changed("Feld-Zuordnung gespeichert")
End If
End Sub
End Class