diff --git a/UID/Programme/frmBenutzerBerGruppenKopieren.Designer.vb b/UID/Programme/frmBenutzerBerGruppenKopieren.Designer.vb index 54ba466..beafdb6 100644 --- 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 diff --git a/UID/Programme/frmBenutzerBerGruppenKopieren.vb b/UID/Programme/frmBenutzerBerGruppenKopieren.vb index 9a8c02b..bc71d7e 100644 --- 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 \ No newline at end of file