Imports DigitalData.Modules.Logging

Public Class frmAdmin_Attribute
    Implements ZooFlow_AdminEditForm

    Private Property PrimaryKey As Long Implements ZooFlow_AdminEditForm.PrimaryKey
    Private Property Logger As Logger Implements ZooFlow_AdminEditForm.Logger

    Public Sub New(PrimaryKey As String)
        ' 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
    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)
        Catch ex As Exception
            Logger.Error(ex)
        End Try
    End Sub
End Class