Imports DigitalData.GUIs.Common.Base

Public Class frmAdmin_User
    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 Property ErrorHandler As BaseErrorHandler

    Public Sub New(pPrimaryKey As Integer, Optional pIsInsert As Boolean = False)
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        PrimaryKey = pPrimaryKey
        IsInsert = pIsInsert
        ErrorHandler = New BaseErrorHandler(My.LogConfig, My.LogConfig.GetLogger, Me)
    End Sub

    Private Sub frmAdmin_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            TBDD_USERTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString

            If IsInsert Then
                TBDD_USERBindingSource.AddNew()
            Else
                TBDD_USERTableAdapter.Fill(DSDD_Stammdaten.TBDD_USER, PrimaryKey)

            End If
        Catch ex As System.Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
        Try
            TBDD_USERTableAdapter.Delete(PrimaryKey)
            Return True
        Catch ex As Exception
            ErrorHandler.ShowErrorMessage(ex, "DeleteData")
            Return False
        End Try
    End Function
    Public Function SaveData() As Boolean
        Try
            TBDD_USERBindingSource.EndEdit()

            If DSDD_Stammdaten.TBDD_USER.GetChanges() IsNot Nothing Then
                HasChanges = True

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

                TBDD_USERBindingSource.EndEdit()
                TBDD_USERTableAdapter.Update(DSDD_Stammdaten.TBDD_USER)
            End If

            Return True
        Catch ex As Exception
            ErrorHandler.ShowErrorMessage(ex, "DeleteData")
            Return False
        End Try
    End Function

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

    End Sub
End Class