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

Zooflow: administration

Browse Source
This commit is contained in:
Jonathan Jenne
2021-03-17 10:25:23 +01:00
parent 099d65ed70
commit 64137a297c
38 changed files with 2612 additions and 444 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4,7 +4,6 @@ Public Class frmAdmin_IDBAttribute
Inherits frmAdmin_Base
Implements frmAdmin_Interface
Private Property Logger As Logger Implements frmAdmin_Interface.Logger
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
@@ -14,14 +13,14 @@ Public Class frmAdmin_IDBAttribute
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = My.LogConfig.GetLogger()
Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert
End Sub
Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
TBIDB_ATTRIBUTETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE, PrimaryKey)
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)
End Try
@@ -54,9 +53,9 @@ Public Class frmAdmin_IDBAttribute
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Try
TBIDB_ATTRIBUTEBindingSource.EndEdit()
VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
If DSIDB_Stammdaten.TBIDB_ATTRIBUTE.GetChanges() IsNot Nothing Then
If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Then
HasChanges = True
If IsInsert Then
@@ -65,8 +64,10 @@ Public Class frmAdmin_IDBAttribute
txtChangedWho.EditValue = My.Application.User.UserName
End If
TBIDB_ATTRIBUTEBindingSource.EndEdit()
TBIDB_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.TBIDB_ATTRIBUTE)
VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
' TODO: Update Database
'VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
End If
Return True