Public Class frmLanguage_Select
    Private ReadOnly _Database As Modules.Database.MSSQLServer
    Private ReadOnly _Username As String
    Private ReadOnly _ModShort As String
    Private ReadOnly _DT_LANG As DataTable

    Public Property pChanged As Boolean = False

    Public Sub New(pLogConfig As Modules.Logging.LogConfig, oConStringECM As String, pUserName As String, pDT_LANG As DataTable, pModShort As String)
        _Database = New Modules.Database.MSSQLServer(pLogConfig, oConStringECM)
        _DT_LANG = pDT_LANG
        _Username = pUserName
        _ModShort = pModShort
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        cmbLanguage.DataSource = _DT_LANG
        cmbLanguage.DisplayMember = _DT_LANG.Columns.Item("LANG_CODE").ColumnName
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub btnStep1_Click(sender As Object, e As EventArgs) Handles btnStep1.Click
        If cmbLanguage.SelectedIndex <> -1 Then
            btnStep1.Enabled = False
            btnStep2.Visible = True
        End If

    End Sub

    Private Sub btnStep2_Click(sender As Object, e As EventArgs) Handles btnStep2.Click
        Dim update As String = $"UPDATE TBDD_USER SET [LANGUAGE] = '{cmbLanguage.Text}', CHANGED_WHO = 'LANG_CHANGE_GUI_{_ModShort}' WHERE USERNAME = '{_Username}'"
        If _Database.ExecuteNonQuery(update) = True Then
            pChanged = True
            Me.Close()
        End If
    End Sub
End Class