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

MS_08.04

Browse Source
This commit is contained in:
SchreiberM
2016-04-08 14:55:25 +02:00
parent d1eb7ecb5b
commit ef2a87d849
47 changed files with 12718 additions and 9964 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -278,6 +278,31 @@
End Function
End Class
Sub Load_Selectable_Users_for_Groups()
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
newUserRow.Username = userrow.Item(1)
Try
newUserRow.Email = userrow.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = userrow.Item(0)
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next
Catch ex As Exception
MsgBox("Error in Load_Selectable_Users_for_Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Case 0
@@ -285,12 +310,8 @@
LoadGroupsForSelectedUser()
Case 1
Load_Groups()
clbUsersGroups.Items.Clear()
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
For Each userrow As DataRow In DT.Rows
clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next
Load_Selectable_Users_for_Groups()
Try
cmbGroups_Group2User.SelectedIndex = 1
Catch ex As Exception
@@ -301,17 +322,25 @@
End Sub
Private Sub btnaddSelectedUser2Group_Click(sender As Object, e As EventArgs) Handles btnaddSelectedUser2Group.Click
For Each obj As Object In clbUsersGroups.CheckedItems
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql = "select count(*) from TBDD_GROUPS_USER Where user_id = " & item.ExtraData & " 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}')", item.ExtraData, cmbGroups_Group2User.SelectedValue, Environment.UserName)
If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox(String.Format("Error in Adding User {0} to Group {1}", item.Text, cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
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, Environment.UserName)
If ClassDatabase.Execute_non_Query(sql) = 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
End If
Next
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
row.Item(0) = CBool(False)
Next
'For Each obj As Object In clbUsersGroups.CheckedItems
' Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
'Next
LoadUserForGroups()
End Sub
Private Sub LoadUserForGroups()
@@ -323,13 +352,26 @@
End Try
If groupid Is Nothing Then Exit Sub
If Not cmbGroups_Group2User.SelectedValue Is Nothing Then
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME FROM TBDD_USER T, TBDD_GROUPS_USER T1 WHERE T1.USER_ID = T.GUID AND T1.GROUP_ID = {0} ORDER BY T.USERNAME", cmbGroups_Group2User.SelectedValue)
lblUserforGroup.Text = "User for Group " & cmbGroups_Group2User.Text
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_GROUPS_USER T1 WHERE T1.USER_ID = T.GUID AND T1.GROUP_ID = {0} ORDER BY T.USERNAME", cmbGroups_Group2User.SelectedValue)
lblUserforGroup.Text = "Users for Group " & cmbGroups_Group2User.Text
Try
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
chklbxUserForGroup.Items.Clear()
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Username = row.Item(1)
Try
newUserRow.Email = row.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Catch ex As Exception
MsgBox("Error in LoadUserForGroups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -343,15 +385,24 @@
End Sub
Private Sub btndeleteUserfromGroup_Click(sender As Object, e As EventArgs) Handles btndeleteUserfromGroup.Click
For Each obj As Object In chklbxUserForGroup.CheckedItems
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql
sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", item.ExtraData)
If ClassDatabase.Execute_non_Query(sql, True) = False Then
MsgBox(String.Format("Error in deleting User {0} from Group", item.Text), MsgBoxStyle.Critical)
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
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
MsgBox(String.Format("Error in deleting User {0} from Group", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
Next
'For Each obj As Object In chklbxUserForGroup.CheckedItems
' Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
' Dim sql
' sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", item.ExtraData)
'Next
LoadUserForGroups()
Load_Selectable_Users_for_Groups()
End Sub
Private Sub ToolStripButton16_Click(sender As Object, e As EventArgs) Handles ToolStripButton24.Click
@@ -367,14 +418,26 @@
Private Sub TabControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl3.SelectedIndexChanged
Select Case TabControl3.SelectedIndex
Case 1
Try
chklbxUserClient.Items.Clear()
Dim sql = String.Format("SELECT T.GUID, T.USERNAME FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED)
DD_ECMAdmin.TBWH_Users2.Clear()
Dim sql = String.Format("SELECT T.GUID, T.USERNAME,T.EMAIL FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
For Each userrow As DataRow In DT.Rows
chklbxUserClient.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Dim newUserRow As DD_ECMAdmin.TBWH_Users2Row
newUserRow = DD_ECMAdmin.TBWH_Users2.NewTBWH_Users2Row
newUserRow.Username = userrow.Item(1)
Try
newUserRow.Email = userrow.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = userrow.Item(0)
DD_ECMAdmin.TBWH_Users2.Rows.Add(newUserRow)
' chklbxUserClient.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next
Catch ex As Exception
MsgBox("Error in LoadUserForClients:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -388,16 +451,20 @@
End Sub
Private Sub btnsaddUser2Client_Click(sender As Object, e As EventArgs) Handles btnsaddUser2Client.Click
For Each obj As Object In chklbxUserClient.CheckedItems
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql = "select count(*) from TBDD_CLIENT_USER Where user_id = " & item.ExtraData & " 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}')", item.ExtraData, cmbClientsforUser.SelectedValue, Environment.UserName)
If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox(String.Format("Error in Adding User {0} to Client {1}", item.Text, cmbGroups_Group2User.Text), MsgBoxStyle.Critical)
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
If row.Item(0) = CBool(True) Then
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, Environment.UserName)
If ClassDatabase.Execute_non_Query(sql) = 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
End If
Next
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
row.Item(0) = CBool(False)
Next
LoadUserForClient()
End Sub
Private Sub LoadUserForClient()
@@ -409,13 +476,26 @@
End Try
If clientid Is Nothing Then Exit Sub
If Not cmbClientsforUser.SelectedValue Is Nothing Then
lblUser2Client.Text = "User for Client " & cmbClientsforUser.Text
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CLIENT_ID = {0} ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue)
Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CLIENT_ID = {0} ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue)
Try
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
chklbxUsersforClient.Items.Clear()
DD_ECMAdmin.TBWH_Users1.Clear()
For Each row As DataRow In dt.Rows
chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Username = row.Item(1)
Try
newUserRow.Email = row.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Catch ex As Exception
MsgBox("Error in LoadUserForClient:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -429,47 +509,44 @@
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btndeleteUserfromClient.Click
For Each obj As Object In chklbxUsersforClient.CheckedItems
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql
sql = String.Format("DELETE FROM TBDD_CLIENT_USER WHERE GUID = {0}", item.ExtraData)
If ClassDatabase.Execute_non_Query(sql, True) = False Then
MsgBox(String.Format("Error in deleting User {0} from Client", item.Text), MsgBoxStyle.Critical)
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
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
MsgBox(String.Format("Error in deleting User {0} from Client", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
Next
'For Each obj As Object In chklbxUsersforClient.CheckedItems
' Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
'Next
LoadUserForClient()
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
If txtUserSearch2.Text = "" Then
chklbxUserForGroup.SelectedIndex = -1
End If
End Sub
'Private Sub txtUserSearch2_TextChanged(sender As Object, e As EventArgs)
' Dim i As Integer = chklbxUserForGroup.FindString(txtUserSearch2.Text)
' chklbxUserForGroup.SelectedIndex = i
' If txtUserSearch2.Text = "" Then
' chklbxUserForGroup.SelectedIndex = -1
' End If
'End Sub
Private Sub txtUserSearch3_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch3.TextChanged
Dim i As Integer = clbUsersGroups.FindString(txtUserSearch3.Text)
clbUsersGroups.SelectedIndex = i
If txtUserSearch3.Text = "" Then
clbUsersGroups.SelectedIndex = -1
End If
End Sub
'Private Sub txtUserSearch3_TextChanged(sender As Object, e As EventArgs)
' Dim i As Integer = clbUsersGroups.FindString(txtUserSearch3.Text)
' clbUsersGroups.SelectedIndex = i
' If txtUserSearch3.Text = "" Then
' clbUsersGroups.SelectedIndex = -1
' End If
'End Sub
Private Sub txtUserSearch4_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch4.TextChanged
Dim i As Integer = chklbxUserClient.FindString(txtUserSearch4.Text)
chklbxUserClient.SelectedIndex = i
If txtUserSearch2.Text = "" Then
chklbxUserClient.SelectedIndex = -1
End If
End Sub
Private Sub txtUserSearch5_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch5.TextChanged
Dim i As Integer = chklbxUsersforClient.FindString(txtUserSearch5.Text)
chklbxUsersforClient.SelectedIndex = i
If txtUserSearch2.Text = "" Then
chklbxUsersforClient.SelectedIndex = -1
End If
End Sub
'Private Sub txtUserSearch5_TextChanged(sender As Object, e As EventArgs)
' Dim i As Integer = chklbxUsersforClient.FindString(txtUserSearch5.Text)
' chklbxUsersforClient.SelectedIndex = i
' 'If txtUserSearch2.Text = "" Then
' ' chklbxUsersforClient.SelectedIndex = -1
' 'End If
'End Sub
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
Dim msg = "Sind Sie sicher, dass Sie diesen User löschen wollen?"