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

stage

Browse Source
This commit is contained in:
SchreiberM
2022-05-24 08:51:12 +02:00
parent 1be949b1b6 92559f4d6e
commit 5acf231ce0
61 changed files with 819 additions and 597 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.Designer.vb generated
View File

@@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBAttribute
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>

2
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.Designer.vb generated
View File

@@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBEntity
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _

12
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.vb
View File

@@ -1,19 +1,21 @@
Imports DigitalData.Modules.Logging
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Logging
Public Class frmAdmin_IDBEntity
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
Private FormHelper As FormHelper
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
InitializeBaseForm(My.LogConfig)
Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert
FormHelper = New FormHelper(My.LogConfig, Me)
End Sub
Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -27,7 +29,7 @@ Public Class frmAdmin_IDBEntity
End If
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "frmAdmin_IDBEntity_Load")
End Try
End Sub
@@ -74,7 +76,7 @@ Public Class frmAdmin_IDBEntity
Return True
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "SaveData")
Return False
End Try
End Function
@@ -84,7 +86,7 @@ Public Class frmAdmin_IDBEntity
TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey)
Return True
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "DeleteData")
Return False
End Try
End Function

2
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.Designer.vb generated
View File

@@ -2,7 +2,7 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBObjectStore
Inherits BaseRibbonForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _

10
GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.vb
View File

@@ -1,4 +1,6 @@
Public Class frmAdmin_IDBObjectStore
Imports DigitalData.GUIs.Common
Public Class frmAdmin_IDBObjectStore
Implements IAdminForm
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
@@ -6,7 +8,7 @@
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Private FormHelper As FormHelper
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Dim oStorePath As String = String.Empty
@@ -19,9 +21,9 @@
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
InitializeBaseForm(My.LogConfig)
Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert
FormHelper = New FormHelper(My.LogConfig, Me)
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
@@ -103,7 +105,7 @@
Return True
Catch ex As Exception
ShowErrorMessage(ex)
FormHelper.ShowErrorMessage(ex, "SaveData")
Return False
End Try
End Function