MS
This commit is contained in:
SchreiberM
@@ -1,4 +1,5 @@
|
||||
Public Class frmUserKonfig
|
||||
Imports DD_LIB_Standards
|
||||
Public Class frmUserKonfig
|
||||
Private Shared _Instance As frmUserKonfig = Nothing
|
||||
Public Shared Function Instance() As frmUserKonfig
|
||||
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
|
||||
@@ -38,7 +39,7 @@
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Clients:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
Sub Save_Clients()
|
||||
Try
|
||||
@@ -241,6 +242,31 @@
|
||||
Load_Groups()
|
||||
LoadGroupsForSelectedUser()
|
||||
Case 1
|
||||
Case 2
|
||||
Load_Client_relations()
|
||||
Case 3
|
||||
Try
|
||||
DD_ECMAdmin.TBAD_Users.Clear()
|
||||
Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_USER_MODULES T1 where T.GUID = T1.USER_ID AND T1.MODULE_ID = 0 ORDER BY T.USERNAME")
|
||||
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 & vbNewLine & "Check wether User is listed in User Client Relation!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
@@ -300,7 +326,7 @@
|
||||
'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 & vbNewLine & "Check whether User is listed in User Client Relation!", MsgBoxStyle.Critical)
|
||||
MsgBox("Error in Load_Selectable_Users_for_Groups:" & vbNewLine & ex.Message & vbNewLine & "Check wether User is listed in User Client Relation!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
|
||||
@@ -418,15 +444,18 @@
|
||||
|
||||
Private Sub TabControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl3.SelectedIndexChanged
|
||||
Select Case TabControl3.SelectedIndex
|
||||
Case 1
|
||||
Load_Users_not_Related_2_Client()
|
||||
Try
|
||||
cmbClientsforUser.SelectedIndex = 1
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
cmbClientsforUser.SelectedIndex = 0
|
||||
Case 0
|
||||
Load_Client_relations()
|
||||
End Select
|
||||
End Sub
|
||||
Sub Load_Client_relations()
|
||||
Load_Users_not_Related_2_Client()
|
||||
Try
|
||||
cmbClientsforUser.SelectedIndex = 1
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
cmbClientsforUser.SelectedIndex = 0
|
||||
End Sub
|
||||
Sub Load_Users_not_Related_2_Client()
|
||||
Try
|
||||
DD_ECMAdmin.TBWH_Users2.Clear()
|
||||
@@ -552,7 +581,7 @@
|
||||
'End Sub
|
||||
|
||||
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
|
||||
delete_user()
|
||||
Delete_user()
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -577,4 +606,50 @@
|
||||
Delete_user()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnopenfolder_Click(sender As Object, e As EventArgs) Handles btnopenfolder.Click
|
||||
Dim fbdia As New FolderBrowserDialog
|
||||
If fbdia.ShowDialog() = DialogResult.OK Then
|
||||
txtPath.Text = fbdia.SelectedPath
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnUpdatePath_Click(sender As Object, e As EventArgs) Handles btnUpdatePath.Click
|
||||
Dim msg As String = ""
|
||||
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
|
||||
If row.Item(0) = CBool(True) Then
|
||||
|
||||
Dim sql = "select count(*) from TBDD_VERSION_USER_UPDATE_PATH Where USER_ID = " & row.Item(5) & " AND UPPER(MODULE_NAME) = 'RECORD-ORGANIZER'"
|
||||
If clsDatabase.Execute_Scalar(sql) = 0 Then
|
||||
sql = String.Format("INSERT INTO TBDD_VERSION_USER_UPDATE_PATH (USER_ID,MODULE_NAME,UPDATE_PATH) VALUES ( ({0}, {1}, '{2}'))", row.Item(5), "RECORD-ORGANIZER", txtPath.Text)
|
||||
Else
|
||||
sql = String.Format("UPDATE TBDD_VERSION_USER_UPDATE_PATH SET UPDATE_PATH = '{0}' WHERE USER_ID = {1} AND UPPER(MODULE_NAME) = 'RECORD-ORGANIZER'", txtPath.Text, row.Item(5))
|
||||
End If
|
||||
If ClassDatabase.Execute_non_Query(sql, False) = False Then
|
||||
msg &= vbNewLine & String.Format("for User '{0}'", row.Item(1))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If msg <> String.Empty Then
|
||||
msg = "Error in Adding UpdatePath" & msg
|
||||
MsgBox(msg, MsgBoxStyle.Critical)
|
||||
Else
|
||||
For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows
|
||||
row.Item(0) = CBool(False)
|
||||
Next
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click
|
||||
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
|
||||
row.Item(0) = CBool(True)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub AuswahlAufhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswahlAufhebenToolStripMenuItem.Click
|
||||
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
|
||||
row.Item(0) = CBool(False)
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user