Berechtigungen kopieren

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

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
+        If BerechtigungenBenutzerGruppenZuordnungNeuerUser.LIST.Count > 0 Then
-        Next
+            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