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

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -107,7 +107,7 @@
Exit Sub
Else
SQL = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", userID, groupID, USER_USERNAME)
If ClassDatabase.Execute_non_Query(SQL) = True Then
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
LoadGroupsForSelectedUser()
Else
MsgBox(String.Format("Fehler beim Hinzufügen des Benutzers {0} zur Gruppe {1}", USERNAMETextBox.Text, groupName))
@@ -193,7 +193,7 @@
End If
SQL = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE USER_ID = {0} AND GROUP_ID = {1}", userID, groupID)
If ClassDatabase.Execute_non_Query(SQL) = True Then
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
LoadGroupsForSelectedUser()
Else
Throw New Exception(String.Format("Fehler beim Löschen der Gruppe {0} für Benutzer {1}", group, USERNAMETextBox.Text))
@@ -327,7 +327,7 @@
Dim sql = "select count(*) from TBDD_GROUPS_USER Where user_id = " & row.Item(5) & " AND GROUP_ID = " & cmbGroups_Group2User.SelectedValue
If ClassDatabase.Execute_Scalar(sql) = 0 Then
sql = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbGroups_Group2User.SelectedValue, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql) = False Then
If ClassDatabase.Execute_non_Query(sql, False) = False Then
MsgBox(String.Format("Error in Adding User {0} to Group {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If
End If
@@ -389,7 +389,7 @@
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", row.Item(5))
If ClassDatabase.Execute_non_Query(sql, True) = False Then
If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from Group", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -459,7 +459,7 @@
Dim sql = "select count(*) from TBDD_CLIENT_USER Where user_id = " & row.Item(5) & " AND CLIENT_ID = " & cmbClientsforUser.SelectedValue
If ClassDatabase.Execute_Scalar(sql) = 0 Then
sql = String.Format("INSERT INTO TBDD_CLIENT_USER (USER_ID, CLIENT_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbClientsforUser.SelectedValue, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql) = False Then
If ClassDatabase.Execute_non_Query(sql, False) = False Then
MsgBox(String.Format("Error in Adding User {0} to Client {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
End If
End If
@@ -516,7 +516,7 @@
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBDD_CLIENT_USER WHERE GUID = {0}", row.Item(5))
If ClassDatabase.Execute_non_Query(sql, True) = False Then
If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from Client", row.Item(1)), MsgBoxStyle.Critical)
End If
End If