74 lines
2.8 KiB
VB.net
74 lines
2.8 KiB
VB.net
Public Class frmLoginUserSelect
|
|
|
|
Private Sub frmLoginUserSelect_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
|
|
If e.KeyCode = Keys.Return Then
|
|
Login()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmLoginUserSelect_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Dim Sql = String.Format("SELECT T.* FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
|
|
WHERE T2.SHORT_NAME = 'ADDI'")
|
|
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
|
|
Try
|
|
DD_ECMAdmin.TBAD_Users.Clear()
|
|
|
|
For Each row As DataRow In DT_USER.Rows
|
|
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
|
|
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
|
|
newUserRow.Username = row.Item("USERNAME")
|
|
newUserRow.Surname = row.Item("NAME")
|
|
newUserRow.Prename = row.Item("PRENAME")
|
|
Try
|
|
newUserRow.Email = row.Item("EMAIL")
|
|
Catch ex As Exception
|
|
newUserRow.Email = ""
|
|
End Try
|
|
|
|
newUserRow.ID = row.Item("GUID")
|
|
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
|
|
' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox("Error Load_Users:" & vbNewLine & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
|
|
Login()
|
|
End Sub
|
|
Sub Login()
|
|
Try
|
|
Dim COUNT As Integer
|
|
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
|
|
If row.Item(0) = CBool(True) Then
|
|
COUNT += 1
|
|
End If
|
|
|
|
Next
|
|
If COUNT = 1 Then
|
|
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
|
|
If row.Item(0) = CBool(True) Then
|
|
Dim User = row.Item("USERNAME")
|
|
USER_USERNAME = row.Item("USERNAME")
|
|
USER_PERSONIFIED_TEST = True
|
|
Me.Close()
|
|
End If
|
|
Next
|
|
Else
|
|
If COUNT > 0 Then
|
|
MsgBox("Please choose one User!", MsgBoxStyle.Exclamation)
|
|
Else
|
|
MsgBox("Please choose only one User!", MsgBoxStyle.Exclamation)
|
|
End If
|
|
|
|
Exit Sub
|
|
End If
|
|
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
|
|
row.Item(0) = CBool(False)
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox("Error while Login in as special user: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
End Class |