AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests 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

4
GUIs.ZooFlow/Administration/frmAdmin_Interface.vb → GUIs.ZooFlow/Administration/IAdminForm.vb
View File

@@ -1,6 +1,4 @@
Imports DigitalData.Modules.Logging
Public Interface frmAdmin_Interface
Public Interface IAdminForm
Property PrimaryKey As Integer
Property HasChanges As Boolean
Property IsInsert As Boolean

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

@@ -1,30 +0,0 @@
Imports DevExpress.XtraBars.Ribbon
Imports DigitalData.Modules.Logging
Partial Public MustInherit Class BaseForm
Inherits RibbonForm
Friend Logger As Logger
Public Sub New()
Logger = My.LogConfig?.GetLogger
End Sub
Public Sub ShowInfo(Message As String)
MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Public Sub ShowError(Message As String)
MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Sub
Public Sub ShowError(Exception As Exception)
Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, 2)
Logger.Error(Exception)
ShowError($"Error in {oCallingClass}:{vbNewLine}{Exception.Message}")
End Sub
End Class
Partial Public Class frmAdmin_Base
Inherits BaseForm
End Class

114
GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.Designer.vb generated
View File

@@ -1,114 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAdmin_CWDataSearch
Inherits frmAdmin_Base
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 3
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(800, 66)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Speichern und Schließen"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check3
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Speichern"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save6
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "RibbonPage1"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'frmAdmin_CWDataSearch
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmAdmin_CWDataSearch"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Clipboard Watcher - Datensuche"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
End Class

120
GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.resx
View File

@@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

15
GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.vb
View File

@@ -1,15 +0,0 @@
Public Class frmAdmin_CWDataSearch
Implements frmAdmin_Interface
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 Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Throw New NotImplementedException()
End Function
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
Throw New NotImplementedException()
End Function
End Class

6
GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb generated
View File

@@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_CWProfile
Inherits frmAdmin_Base
Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>

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

6
GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb generated
View File

@@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Globix
Inherits frmAdmin_Base
Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>

20
GUIs.ZooFlow/Administration/frmAdmin_Globix.vb
View File

@@ -1,18 +1,18 @@
Imports DigitalData.Modules.Logging
Public Class frmAdmin_Globix
Inherits frmAdmin_Base
Implements frmAdmin_Interface
Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges
Public Property IsInsert As Boolean = False Implements frmAdmin_Interface.IsInsert
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
Implements IAdminForm
Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
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
@@ -22,7 +22,7 @@ Public Class frmAdmin_Globix
TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
End Try
End Sub
@@ -51,7 +51,7 @@ Public Class frmAdmin_Globix
End If
End Sub
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Public Function SaveData() As Boolean Implements IAdminForm.SaveData
Try
TBDD_DOKUMENTARTBindingSource.EndEdit()
@@ -70,7 +70,7 @@ Public Class frmAdmin_Globix
Return True
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
Return False
End Try
End Function
@@ -79,7 +79,7 @@ Public Class frmAdmin_Globix
End Sub
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Throw New NotImplementedException()
End Function
End Class

6
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb generated
View File

@@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBAttribute
Inherits frmAdmin_Base
Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>

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

@@ -1,12 +1,9 @@
Imports DigitalData.Modules.Logging
Public Class frmAdmin_IDBAttribute
Implements IAdminForm
Public Class frmAdmin_IDBAttribute
Inherits frmAdmin_Base
Implements frmAdmin_Interface
Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges
Public Property IsInsert As Boolean = False Implements frmAdmin_Interface.IsInsert
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
@@ -22,7 +19,7 @@ Public Class frmAdmin_IDBAttribute
TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE)
VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
End Try
End Sub
@@ -51,7 +48,7 @@ Public Class frmAdmin_IDBAttribute
End If
End Sub
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Public Function SaveData() As Boolean Implements IAdminForm.SaveData
Try
VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
@@ -72,7 +69,7 @@ Public Class frmAdmin_IDBAttribute
Return True
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
Return False
End Try
End Function
@@ -87,12 +84,12 @@ Public Class frmAdmin_IDBAttribute
WHERE (GUID = @GUID)"
End Sub
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Try
TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey)
Return True
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
Return False
End Try
End Function

6
GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb generated
View File

@@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBEntity
Inherits frmAdmin_Base
Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _

22
GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb
View File

@@ -1,18 +1,18 @@
Imports DigitalData.Modules.Logging
Public Class frmAdmin_IDBEntity
Inherits frmAdmin_Base
Implements frmAdmin_Interface
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
Implements IAdminForm
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
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
@@ -21,7 +21,7 @@ Public Class frmAdmin_IDBEntity
Try
TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
End Try
End Sub
@@ -49,7 +49,7 @@ Public Class frmAdmin_IDBEntity
End If
End Sub
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Public Function SaveData() As Boolean Implements IAdminForm.SaveData
Try
TBIDB_BUSINESS_ENTITYBindingSource.EndEdit()
@@ -68,17 +68,17 @@ Public Class frmAdmin_IDBEntity
Return True
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
Return False
End Try
End Function
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Try
TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey)
Return True
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
Return False
End Try
End Function

6
GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb generated
View File

@@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_SourceSQL
Inherits frmAdmin_Base
Inherits BaseRibbonForm
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>

18
GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb
View File

@@ -2,13 +2,13 @@
Imports DevExpress.XtraLayout
Public Class frmAdmin_SourceSQL
Implements frmAdmin_Interface
Implements IAdminForm
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Public Sub New(PrimaryKey As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
@@ -28,7 +28,7 @@ Public Class frmAdmin_SourceSQL
ValidationHelper()
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
End Try
End Sub
@@ -69,7 +69,7 @@ Public Class frmAdmin_SourceSQL
Return oControlList
End Function
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Public Function SaveData() As Boolean Implements IAdminForm.SaveData
Try
@@ -90,17 +90,17 @@ Public Class frmAdmin_SourceSQL
Return True
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
Return False
End Try
End Function
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Try
TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey)
Return True
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
Return False
End Try
End Function

3
GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb generated
View File

@@ -1,9 +1,10 @@
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Start
Inherits frmAdmin_Base
Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>

8
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
View File

@@ -9,8 +9,6 @@ Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants
Imports DevExpress.XtraGrid
Public Class frmAdmin_Start
Inherits frmAdmin_Base
Private CurrentModule As String
Private CurrentPage As String
Private CurrentItem As ClassDetailForm.DetailData
@@ -25,7 +23,7 @@ Public Class frmAdmin_Start
TreeListMenu.ExpandAll()
End Sub
Private Sub DetailForm_Closed(sender As Object, e As frmAdmin_Interface)
Private Sub DetailForm_Closed(sender As Object, e As IAdminForm)
If e.HasChanges Then
Load_SQLData()
Load_GridData(DetailForm.DetailDataList.Item(CurrentPage))
@@ -103,7 +101,7 @@ Public Class frmAdmin_Start
CurrentPage = e.Node.Tag.ToString
End If
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
End Try
End Sub
@@ -206,7 +204,7 @@ Public Class frmAdmin_Start
End If
End If
Catch ex As Exception
ShowError(ex)
ShowErrorMessage(ex)
End Try
End Sub