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

ZooFlow: Use BaseRibbonForm, deprecate frmAdmin_Base

Browse Source
This commit is contained in:
Jonathan Jenne
2021-04-26 15:22:11 +02:00
parent e742466bfb
commit 72e639dc0c
22 changed files with 115 additions and 652 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb
View File

@@ -9,11 +9,11 @@ Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Logging
Public Class frmAdmin_CWProfile
Implements frmAdmin_Interface
Implements IAdminForm
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Private Const BUTTON_REGEX_PROFILE = "BUTTON_REGEX_PROFILE"
Private Const BUTTON_SEARCH_SQL = "BUTTON_SEARCH_SQL"
@@ -26,11 +26,12 @@ Public Class frmAdmin_CWProfile
Private Pages As ClassDetailPages
Public Sub New(PrimaryKey As Integer)
MyBase.New(My.LogConfig)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = My.LogConfig.GetLogger()
Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert
End Sub
@@ -86,7 +87,7 @@ Public Class frmAdmin_CWProfile
AddHandler Pages.AnyControl_Focus, AddressOf AnyControl_Focus
AddHandler Pages.AnyControl_Changed, AddressOf AnyControl_Changed
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
End Try
End Sub
@@ -117,7 +118,7 @@ Public Class frmAdmin_CWProfile
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Public Function SaveData() As Boolean Implements IAdminForm.SaveData
If Pages.CurrentPage Is Nothing Then
Return False
End If
@@ -144,7 +145,7 @@ Public Class frmAdmin_CWProfile
Return False
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
Return False
End Try
End Function
@@ -165,7 +166,7 @@ Public Class frmAdmin_CWProfile
End If
End Sub
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Throw New NotImplementedException()
End Function
@@ -199,7 +200,7 @@ Public Class frmAdmin_CWProfile
Dim oTextEdit As TextEdit = sender
If e.Button.Tag = BUTTON_SEARCH_SQL Then
Dim oForm As New frmSQLEditor(oTextEdit.EditValue)
Dim oForm As New frmSQLEditor(My.LogConfig, My.Database) With {.SQLString = oTextEdit.EditValue}
Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then
@@ -212,7 +213,7 @@ Public Class frmAdmin_CWProfile
Dim oTextEdit As TextEdit = sender
If e.Button.Tag = BUTTON_COUNT_SQL Then
Dim oForm As New frmSQLEditor(oTextEdit.EditValue)
Dim oForm As New frmSQLEditor(My.LogConfig, My.Database) With {.SQLString = oTextEdit.EditValue}
Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then