38 lines
1.5 KiB
VB.net
38 lines
1.5 KiB
VB.net
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 |