AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_31.03

Browse Source
This commit is contained in:
SchreiberM
2016-03-31 17:29:40 +02:00
parent 49f2dc6f3f
commit b9eb1e1981
36 changed files with 5461 additions and 2247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
app/DD-Record-Organiser/frmUserKonfig.vb
View File

@@ -89,11 +89,10 @@
Private Sub btnAddUserToGroup_Click(sender As Object, e As EventArgs) Handles btnAddUserToGroup.Click
Try
Dim user As DataRowView = GetSelectedUserObject()
Dim group As DataRowView = GetSelectedGroupObject()
Dim userID As Integer = user.Item(0)
Dim userName As String = user.Item(3)
Dim userID As Integer = USER_GUIDTextBox.Text
Dim groupID As Integer = group.Item(0)
Dim groupName As String = group.Item(1)
@@ -103,14 +102,14 @@
Dim userInGroup = ClassDatabase.Execute_Scalar(SQL)
If Not IsNothing(userInGroup) Then
MsgBox(String.Format("Der Benutzer {0} ist bereits Mitglied der Gruppe {1}", userName, groupName), MsgBoxStyle.Exclamation)
MsgBox(String.Format("Der Benutzer {0} ist bereits Mitglied der Gruppe {1}", USERNAMETextBox.Text, groupName), MsgBoxStyle.Exclamation)
Exit Sub
Else
SQL = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", userID, groupID, Environment.UserName)
If ClassDatabase.Execute_non_Query(SQL) = True Then
LoadGroupsForSelectedUser()
Else
MsgBox(String.Format("Fehler beim Hinzufügen des Benutzers {0} zur Gruppe {1}", userName, groupName))
MsgBox(String.Format("Fehler beim Hinzufügen des Benutzers {0} zur Gruppe {1}", USERNAMETextBox.Text, groupName))
End If
End If
Catch ex As Exception
@@ -118,11 +117,6 @@
End Try
End Sub
Private Function GetSelectedUserObject() As DataRowView
Dim user As DataRowView = lbUsers.SelectedItem
Return user
End Function
Private Function GetSelectedGroupObject() As DataRowView
Dim group As DataRowView = cmbGroup.SelectedItem
Return group
@@ -184,9 +178,7 @@
Private Sub btnRemoveUserFromGroup_Click(sender As Object, e As EventArgs) Handles btnRemoveUserFromGroup.Click
Try
Dim user As DataRowView = GetSelectedUserObject()
Dim userID As Integer = user.Item(0)
Dim userName As String = user.Item(3)
Dim userID As Integer = USER_GUIDTextBox.Text
Dim group As String = GetSelectedGroupObjectFromList()
' Gruppen ID über Name auslesen
@@ -203,7 +195,7 @@
If ClassDatabase.Execute_non_Query(SQL) = True Then
LoadGroupsForSelectedUser()
Else
Throw New Exception(String.Format("Fehler beim Löschen der Gruppe {0} für Benutzer {1}", group, userName))
Throw New Exception(String.Format("Fehler beim Löschen der Gruppe {0} für Benutzer {1}", group, USERNAMETextBox.Text))
End If
Catch ex As Exception
MsgBox("Error in btnRemoveUserFromGroup_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -447,15 +439,6 @@
Next
LoadUserForClient()
End Sub
Private Sub txtUserSearch1_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch1.TextChanged
Dim i As Integer = lbUsers.FindString(txtUserSearch1.Text)
lbUsers.SelectedIndex = i
If txtUserSearch1.Text = "" Then
lbUsers.SelectedIndex = -1
End If
End Sub
Private Sub txtUserSearch2_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch2.TextChanged
Dim i As Integer = chklbxUserForGroup.FindString(txtUserSearch2.Text)
chklbxUserForGroup.SelectedIndex = i