Imports DigitalData.Modules.Logging

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 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.
        Me.PrimaryKey = PrimaryKey
        Me.IsInsert = IsInsert
    End Sub

    Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            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
    End Sub

    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
        ResetMessages()

        If SaveData() And HasChanges Then
            ShowStatus("Attribute gespeichert!")
        End If
    End Sub

    Private Sub ResetMessages()
        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
    End Sub

    Private Sub ShowStatus(Message As String)
        labelStatus.Caption = Message
        labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        ResetMessages()

        If SaveData() Then
            Close()
        End If
    End Sub

    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
        Try
            VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()

            If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Then
                HasChanges = True

                If IsInsert Then
                    txtAddedWho.EditValue = My.Application.User.UserName
                Else
                    txtChangedWho.EditValue = My.Application.User.UserName
                End If

                VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()

                ' TODO: Update Database
                'VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
            End If

            Return True
        Catch ex As Exception
            ShowError(ex)
            Return False
        End Try
    End Function
    Private Sub Update_Datasource()
        Dim oupdate = $"UPDATE TBIDB_ATTRIBUTE
                        SET TITLE = '@TITLE', 
                        TYP_ID = @TYP_ID, 
                        MULTI_CONTEXT = @MULTI_CONTEXT, 
                        VIEW_SEQUENCE = @VIEW_SEQUENCE, 
                        VIEW_VISIBLE = @VIEW_VISIBLE, 
                        COMMENT = @COMMENT
                        WHERE (GUID = @GUID)"
    End Sub

    Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
        Try
            TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey)
            Return True
        Catch ex As Exception
            ShowError(ex)
            Return False
        End Try
    End Function

    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
        If MsgBox($"Wollen Sie das Attribut [{PrimaryKey}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
            If DeleteData() Then
                Close()
            End If
        End If
    End Sub
End Class