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

ZooFlow: Admin

Browse Source
This commit is contained in:
Jonathan Jenne
2021-05-10 14:50:21 +02:00
parent 1decc85753
commit ec2916cebd
10 changed files with 162 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb
View File

@@ -125,6 +125,8 @@ Public Class frmAdmin_ClipboardWatcher
}
})
Pages.PrepareLoad()
AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed
Catch ex As Exception
ShowErrorMessage(ex)
@@ -156,22 +158,28 @@ Public Class frmAdmin_ClipboardWatcher
ResetMessages()
If Pages.PrepareSave() = True Then
Dim oPage = Pages.Current
Try
Dim oPage = Pages.Current
Select Case oPage.TabPage.Name
Case PageProfile.Name
TBCW_PROFILESTableAdapter.Update(oPage.DataTable)
Select Case oPage.TabPage.Name
Case PageProfile.Name
TBCW_PROFILESTableAdapter.Update(oPage.DataTable)
Case PageDocumentSearch.Name
TBCW_PROF_DOC_SEARCHTableAdapter.Update(oPage.DataTable)
Case PageDocumentSearch.Name
TBCW_PROF_DOC_SEARCHTableAdapter.Update(oPage.DataTable)
Case PageDataSearch.Name
TBCW_PROF_DATA_SEARCHTableAdapter.Update(oPage.DataTable)
End Select
Case PageDataSearch.Name
TBCW_PROF_DATA_SEARCHTableAdapter.Update(oPage.DataTable)
End Select
oPage.IsInsert = False
oPage.IsInsert = False
ShowStatus($"{oPage.Name} gespeichert!")
ShowStatus($"{oPage.Name} gespeichert!")
Catch ex As Exception
ShowErrorMessage(ex)
End Try
Else
ShowStatus("Keine Änderungen!")
End If
End Sub