9d73dfcc5d
Neue Formulare (`crmCockpit_UserTest`, `frmCockpitConfig`, `frmUserSelect`) zur Verwaltung und Konfiguration von Cockpit-Daten hinzugefügt. Die Benutzerführung wurde durch moderne UI-Elemente (z. B. Ribbon-Leisten, Baumansichten) und spezifische Fehlermeldungen verbessert. Die Datei `licenses.licx` wurde aktualisiert, um neue DevExpress-Komponenten zu unterstützen. Änderungen in `frmMain` umfassen einen neuen Button zur Konfiguration des Cockpits. SQL-Integration und Logging wurden erweitert, um die Nachverfolgbarkeit und Fehlerbehandlung zu verbessern. Neue Ressourcen und strukturierte Datenmodelle wurden hinzugefügt, um die Code-Qualität und Wiederverwendbarkeit zu erhöhen.
73 lines
3.2 KiB
VB.net
73 lines
3.2 KiB
VB.net
Public Class frmUserSelect
|
|
Public SelectedUserName As String
|
|
Public SelectedUserID As Integer
|
|
Public SelectedUserLanguage As String
|
|
Private Sub frmUserSelect_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Dim oSQL = "SELECT [SQL_COMMAND] FROM TBDD_SQL_COMMANDS WITH (NOLOCK) where TITLE = 'GHOST_SELECT'"
|
|
Dim DT_USER = DatabaseFallback.GetDatatableECM(oSQL)
|
|
'
|
|
If IsNothing(DT_USER) Then
|
|
LOGGER.Info($"Ghost Select 1 [{oSQL}] was nothing, now trying 2nd..")
|
|
oSQL = "SELECT CONFIG_VALUE FROM TBIDB_BASE WITH (NOLOCK) WHERE CONFIG_NAME = 'GHOST_SELECT'"
|
|
If Not IsNothing(oSQL) Then
|
|
oSQL = DatabaseFallback.GetScalarValueIDB(oSQL)
|
|
DT_USER = DatabaseFallback.GetDatatableIDB(oSQL)
|
|
Else
|
|
LOGGER.Info($"GHOST Select 2 [{oSQL}] was nothing, Exit.")
|
|
MsgBox("No SQL for Ghostmode via SQL. Check Your configuration.", MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
Try
|
|
If Not IsNothing(DT_USER) Then
|
|
oSQL = DT_USER.Rows(0).Item(0)
|
|
DT_USER = DatabaseFallback.GetDatatableECM(oSQL)
|
|
GridControl1.DataSource = DT_USER
|
|
LOGGER.Info($"Received [{DT_USER.Rows.Count}] Users to select!")
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Error Load_Users:" & vbNewLine & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
|
Dim oFocusedUserName
|
|
Try
|
|
oFocusedUserName = GridView1.GetFocusedRowCellValue(GridView1.Columns("UserName"))
|
|
|
|
If IsNothing(oFocusedUserName) Then
|
|
oFocusedUserName = GridView1.GetFocusedRowCellValue(GridView1.Columns("USERNAME"))
|
|
End If
|
|
If IsNothing(oFocusedUserName) Then
|
|
oFocusedUserName = GridView1.GetFocusedRowCellValue(GridView1.Columns("USER_NAME"))
|
|
End If
|
|
If IsNothing(oFocusedUserName) Then
|
|
oFocusedUserName = GridView1.GetFocusedRowCellValue(GridView1.Columns("USER"))
|
|
End If
|
|
Catch ex As Exception
|
|
oFocusedUserName = GridView1.GetFocusedRowCellValue(GridView1.Columns("UserName"))
|
|
If IsNothing(oFocusedUserName) Then
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
End Try
|
|
If oFocusedUserName <> String.Empty Then
|
|
SelectedUserName = oFocusedUserName
|
|
Dim oDT As DataTable = DatabaseFallback.GetDatatableECM("SELECT * FROM TBDD_USER WITH (NOLOCK) WHERE USERNAME = '" & oFocusedUserName & "'")
|
|
If Not IsNothing(oDT) Then
|
|
SelectedUserID = oDT.Rows(0).Item("GUID")
|
|
SelectedUserLanguage = oDT.Rows(0).Item("LANGUAGE")
|
|
Else
|
|
MsgBox("Error: User not found in TBDD_USER!", MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
Me.Close()
|
|
|
|
Else
|
|
MsgBox("Please choose an user for ghostmode!", MsgBoxStyle.Information)
|
|
End If
|
|
End Sub
|
|
End Class |