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

Zooflow: Fix messageboxes without title

Browse Source
This commit is contained in:
Jonathan Jenne
2022-05-23 15:07:07 +02:00
parent ce7261acca
commit 39c69704f4
56 changed files with 683 additions and 432 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb
View File

@@ -12,9 +12,11 @@ Public Class frmAdmin_User
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Private Property ErrorHandler As BaseErrorHandler
Private Property Pages As ClassDetailPageManager
Private Property Logger As Logger
Private Property FormHelper As FormHelper
Public Sub New(pPrimaryKey As Integer, Optional pIsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
@@ -23,7 +25,6 @@ Public Class frmAdmin_User
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
PrimaryKey = pPrimaryKey
IsInsert = pIsInsert
ErrorHandler = New BaseErrorHandler(My.LogConfig, My.LogConfig.GetLogger, Me)
Logger = My.LogConfig.GetLogger()
End Sub
@@ -69,7 +70,7 @@ Public Class frmAdmin_User
TBDD_USERTableAdapter.Delete(PrimaryKey)
Return True
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "DeleteData")
FormHelper.ShowErrorMessage(ex, "DeleteData")
Return False
End Try
End Function
@@ -94,7 +95,7 @@ Public Class frmAdmin_User
oPage.IsInsert = False
txtStatus.Caption = $"{oPage.Name} gespeichert!"
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "ItemClick")
FormHelper.ShowErrorMessage(ex, "ItemClick")
End Try
Else
txtStatus.Caption = $"Keine Änderungen"

12
GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.vb
View File

@@ -6,7 +6,8 @@ Public Class frmAdmin_UserGroupRelations
Public ReadOnly Property LogConfig As Modules.Logging.LogConfig Implements IBaseForm.LogConfig
Public ReadOnly Property Logger As Modules.Logging.Logger Implements IBaseForm.Logger
Public ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
@@ -14,6 +15,7 @@ Public Class frmAdmin_UserGroupRelations
Private Property SelectedGroupId As Integer = Nothing
Private Property SelectedAvailableUser As Integer = Nothing
Private Property SelectedRelatedUser As Integer = Nothing
Private FormHelper As FormHelper = Nothing
Public Sub New(pPrimaryKey As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
@@ -21,7 +23,7 @@ Public Class frmAdmin_UserGroupRelations
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
LogConfig = My.LogConfig
ErrorHandler = New BaseErrorHandler(LogConfig, Me)
FormHelper = New FormHelper(LogConfig, Me)
End Sub
Private Async Sub frmAdmin_UserGroupRelations_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -39,7 +41,7 @@ Public Class frmAdmin_UserGroupRelations
Dim oTable As DataTable = Await My.DatabaseECM.GetDatatableAsync(oSQL)
GridControl2.DataSource = oTable
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "Fehler beim Laden des Formulars")
FormHelper.ShowErrorMessage(ex, "Fehler beim Laden des Formulars")
End Try
End Sub
@@ -56,7 +58,7 @@ Public Class frmAdmin_UserGroupRelations
Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
Return oTable
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "GetAvailableUsersByGroupId")
FormHelper.ShowErrorMessage(ex, "GetAvailableUsersByGroupId")
Return Nothing
End Try
End Function
@@ -72,7 +74,7 @@ Public Class frmAdmin_UserGroupRelations
Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
Return oTable
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "GetRelatedUsersByGroupId")
FormHelper.ShowErrorMessage(ex, "GetRelatedUsersByGroupId")
Return Nothing
End Try
End Function