MS Common Language Switch

GUIs.Common/frmLanguage_Select.vb

@@ -0,0 +1,37 @@
+Public Class frmLanguage_Select
+    Dim _Database As Modules.Database.MSSQLServer
+    Dim _Username As String
+    Dim _ModShort As String
+    Dim _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