Berechtigungen kopieren

2023-06-30 16:27:56 +02:00
parent cbc8f3651b
commit f8e3a71c37
2 changed files with 64 additions and 17 deletions
--- a/UID/Programme/frmBenutzerBerGruppenKopieren.Designer.vb
+++ b/UID/Programme/frmBenutzerBerGruppenKopieren.Designer.vb
@@ -32,6 +32,7 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.lblBenutzer = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
        Me.dgv_Id = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.dgv_progId = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.dgv_bergrId = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -44,7 +45,7 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.Label8.AutoSize = True
        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.ForeColor = System.Drawing.Color.Black
-        Me.Label8.Location = New System.Drawing.Point(9, 112)
+        Me.Label8.Location = New System.Drawing.Point(9, 175)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(59, 13)
        Me.Label8.TabIndex = 26
@@ -60,7 +61,7 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.dgvGruppen.BackgroundColor = System.Drawing.Color.White
        Me.dgvGruppen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvGruppen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.dgv_Id, Me.dgv_progId, Me.dgv_bergrId, Me.dgv_bez})
-        Me.dgvGruppen.Location = New System.Drawing.Point(12, 128)
+        Me.dgvGruppen.Location = New System.Drawing.Point(12, 191)
        Me.dgvGruppen.MultiSelect = False
        Me.dgvGruppen.Name = "dgvGruppen"
        Me.dgvGruppen.ReadOnly = True
@@ -74,7 +75,7 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.Black
-        Me.Label1.Location = New System.Drawing.Point(12, 99)
+        Me.Label1.Location = New System.Drawing.Point(12, 162)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(233, 13)
        Me.Label1.TabIndex = 30
@@ -84,7 +85,7 @@ Partial Class frmBenutzerBerGruppenKopieren
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button3.ForeColor = System.Drawing.Color.Black
-        Me.Button3.Location = New System.Drawing.Point(179, 411)
+        Me.Button3.Location = New System.Drawing.Point(179, 474)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(72, 23)
        Me.Button3.TabIndex = 29
@@ -97,7 +98,7 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.cboSelectedEmployee._allowFreiText = False
        Me.cboSelectedEmployee._value = ""
        Me.cboSelectedEmployee.FormattingEnabled = True
-        Me.cboSelectedEmployee.Location = New System.Drawing.Point(15, 62)
+        Me.cboSelectedEmployee.Location = New System.Drawing.Point(15, 125)
        Me.cboSelectedEmployee.Name = "cboSelectedEmployee"
        Me.cboSelectedEmployee.Size = New System.Drawing.Size(121, 21)
        Me.cboSelectedEmployee.TabIndex = 31
@@ -107,7 +108,7 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.Label2.AutoSize = True
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.ForeColor = System.Drawing.Color.Black
-        Me.Label2.Location = New System.Drawing.Point(9, 46)
+        Me.Label2.Location = New System.Drawing.Point(9, 109)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(198, 13)
        Me.Label2.TabIndex = 32
@@ -129,17 +130,30 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.lblBenutzer.AutoSize = True
        Me.lblBenutzer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblBenutzer.ForeColor = System.Drawing.Color.Black
-        Me.lblBenutzer.Location = New System.Drawing.Point(12, 25)
+        Me.lblBenutzer.Location = New System.Drawing.Point(12, 30)
        Me.lblBenutzer.Name = "lblBenutzer"
        Me.lblBenutzer.Size = New System.Drawing.Size(75, 13)
        Me.lblBenutzer.TabIndex = 34
        Me.lblBenutzer.Text = "Benuztername"
        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.ForeColor = System.Drawing.Color.Black
+        Me.Button1.Location = New System.Drawing.Point(15, 55)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(105, 26)
+        Me.Button1.TabIndex = 35
+        Me.Button1.Text = "Berechtg. löschen"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
        'dgv_Id
        '
        Me.dgv_Id.HeaderText = "Id"
        Me.dgv_Id.Name = "dgv_Id"
        Me.dgv_Id.ReadOnly = True
+        Me.dgv_Id.Visible = False
        Me.dgv_Id.Width = 50
        '
        'dgv_progId
@@ -147,12 +161,14 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.dgv_progId.HeaderText = "progId"
        Me.dgv_progId.Name = "dgv_progId"
        Me.dgv_progId.ReadOnly = True
+        Me.dgv_progId.Width = 50
        '
        'dgv_bergrId
        '
        Me.dgv_bergrId.HeaderText = "bergrId"
        Me.dgv_bergrId.Name = "dgv_bergrId"
        Me.dgv_bergrId.ReadOnly = True
+        Me.dgv_bergrId.Visible = False
        '
        'dgv_bez
        '
@@ -166,7 +182,8 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(271, 446)
+        Me.ClientSize = New System.Drawing.Size(271, 518)
+        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.lblBenutzer)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
@@ -178,7 +195,7 @@ Partial Class frmBenutzerBerGruppenKopieren
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmBenutzerBerGruppenKopieren"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "Gruppen kopieren"
+        Me.Text = "Benutzergruppen kopieren"
        CType(Me.dgvGruppen, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
@@ -192,6 +209,7 @@ Partial Class frmBenutzerBerGruppenKopieren
    Friend WithEvents Label2 As Label
    Friend WithEvents Label3 As Label
    Friend WithEvents lblBenutzer As Label
+    Friend WithEvents Button1 As Button
    Friend WithEvents dgv_Id As DataGridViewTextBoxColumn
    Friend WithEvents dgv_progId As DataGridViewTextBoxColumn
    Friend WithEvents dgv_bergrId As DataGridViewTextBoxColumn
--- a/UID/Programme/frmBenutzerBerGruppenKopieren.vb
+++ b/UID/Programme/frmBenutzerBerGruppenKopieren.vb
@@ -6,9 +6,10 @@ Public Class frmBenutzerBerGruppenKopieren
    Dim copiedmitId = -1
    Dim progId = -1
    Dim codename = ""
+    Dim mitarbeitername As StringBuilder
    Dim sql As VERAG_PROG_ALLGEMEIN.SQL
    'Dim BerechtigungsObjekte As VERAG_PROG_ALLGEMEIN.cBerechtigungsObjekte_List
-    Dim BerechtigungenGruppen As VERAG_PROG_ALLGEMEIN.cBerechtigungenGruppen_List
+    Dim BerechtigungenBenutzerGruppenZuordnungNeuerUser As VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List
    Dim BerechtigungenBenutzerGruppenZuordnung As VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List

    Sub New(copiedmitId)
@@ -38,7 +39,7 @@ Public Class frmBenutzerBerGruppenKopieren

        Dim currentMA As New VERAG_PROG_ALLGEMEIN.cMitarbeiter
        currentMA.LOAD(copiedmitId)
-        Dim mitarbeitername = New StringBuilder()
+        mitarbeitername = New StringBuilder()
        mitarbeitername.Append(currentMA.mit_vname)
        mitarbeitername.Append("")
        mitarbeitername.Append(currentMA.mit_nname)
@@ -53,19 +54,25 @@ Public Class frmBenutzerBerGruppenKopieren
        cboSelectedEmployee.fillWithSQL("SELECT [mit_id],[mit_username] + ' (' + mit_vname + ' ' + mit_nname + ') ' + mit_firma FROM [ADMIN].[dbo].[tblMitarbeiter] /*INNER JOIN [ADMIN].[dbo].[tblBerProg] ON mit_id=[bepr_userId] INNER JOIN [ADMIN].[dbo].[tblBerechtigungen] ON  [ber_id]=[bepr_berId] " &
                                " WHERE ber_progId=" & progId & " AND [ber_allowed]=1*/ ORDER BY mit_username", False, "ADMIN", True)

+        initBerechitungslist()
+
+
        dgvGruppen.ClearSelection()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If cboSelectedEmployee._value = String.Empty Then Exit Sub
-        For Each b In BerechtigungenBenutzerGruppenZuordnung.LIST
-            If cboSelectedEmployee._value = b.berbgz_mitId And b.berbgz_progId = progId Then

-            Else
+        If dgvGruppen.RowCount = 0 Then
+            MsgBox("Keine Berechtigungen gefunden!")
+            Exit Sub
+        End If

-            End If
-        Next
+        If BerechtigungenBenutzerGruppenZuordnungNeuerUser.LIST.Count > 0 Then
+            MsgBox("Für Mitarbeiter " & mitarbeitername.ToString & vbNewLine & " wurden bereits Berechtigungen gesetzt, Berechtigungen vorher löschen!")
+            Exit Sub
+        End If


        For Each row As DataGridViewRow In dgvGruppen.Rows
@@ -109,7 +116,6 @@ Public Class frmBenutzerBerGruppenKopieren
        BerechtigungenBenutzerGruppenZuordnung = New VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List(cboSelectedEmployee._value)


-
        For Each b In BerechtigungenBenutzerGruppenZuordnung.LIST
            dgvGruppen.Rows.Add(b.berbgz_id, b.berbgz_progId, b.berbgz_bergrId, b.Gruppenbezeichnung)
        Next
@@ -126,4 +132,27 @@ Public Class frmBenutzerBerGruppenKopieren
        'Next

    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim a As MsgBoxResult = MsgBox("Sollen die Berechtigungen für Mitarbeiter " & mitarbeitername.ToString & "zurückgsetzt/gelöscht werden?", vbYesNo)
+        If a = vbYes Then
+            For Each b In BerechtigungenBenutzerGruppenZuordnungNeuerUser.LIST
+                b.DELETE()
+            Next
+            initBerechitungslist()
+        End If
+
+
+    End Sub
+
+    Private Sub initBerechitungslist()
+        BerechtigungenBenutzerGruppenZuordnungNeuerUser = New VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List(copiedmitId)
+
+        If BerechtigungenBenutzerGruppenZuordnungNeuerUser.LIST.Count > 0 Then
+            Button1.Enabled = True
+        Else
+            Button1.Enabled = False
+        End If
+
+    End Sub
 End Class