Berechtigungen kopieren aus Referenzuser

This commit is contained in:
2023-06-30 15:01:55 +02:00
parent 6ce26b0614
commit cbc8f3651b
9 changed files with 1463 additions and 37 deletions

View File

@@ -0,0 +1,199 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmBenutzerBerGruppenKopieren
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBenutzerBerGruppenKopieren))
Me.Label8 = New System.Windows.Forms.Label()
Me.dgvGruppen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.cboSelectedEmployee = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblBenutzer = New System.Windows.Forms.Label()
Me.dgv_Id = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgv_progId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgv_bergrId = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgv_bez = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.dgvGruppen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label8
'
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.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(59, 13)
Me.Label8.TabIndex = 26
Me.Label8.Text = "Gruppen:"
'
'dgvGruppen
'
Me.dgvGruppen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGruppen.AllowUserToAddRows = False
Me.dgvGruppen.AllowUserToDeleteRows = False
Me.dgvGruppen.AllowUserToResizeColumns = False
Me.dgvGruppen.AllowUserToResizeRows = False
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.MultiSelect = False
Me.dgvGruppen.Name = "dgvGruppen"
Me.dgvGruppen.ReadOnly = True
Me.dgvGruppen.RowHeadersVisible = False
Me.dgvGruppen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGruppen.Size = New System.Drawing.Size(239, 260)
Me.dgvGruppen.TabIndex = 25
'
'Label1
'
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.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(233, 13)
Me.Label1.TabIndex = 30
Me.Label1.Text = "Dem Benutzer zugeordnete Programm-Gruppen."
'
'Button3
'
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.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(72, 23)
Me.Button3.TabIndex = 29
Me.Button3.Text = "OK"
Me.Button3.UseVisualStyleBackColor = True
'
'cboSelectedEmployee
'
Me.cboSelectedEmployee._allowedValuesFreiText = Nothing
Me.cboSelectedEmployee._allowFreiText = False
Me.cboSelectedEmployee._value = ""
Me.cboSelectedEmployee.FormattingEnabled = True
Me.cboSelectedEmployee.Location = New System.Drawing.Point(15, 62)
Me.cboSelectedEmployee.Name = "cboSelectedEmployee"
Me.cboSelectedEmployee.Size = New System.Drawing.Size(121, 21)
Me.cboSelectedEmployee.TabIndex = 31
'
'Label2
'
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.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(198, 13)
Me.Label2.TabIndex = 32
Me.Label2.Text = "Berechtigungen übernehmen von:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(12, 7)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(61, 13)
Me.Label3.TabIndex = 33
Me.Label3.Text = "Benutzer:"
'
'lblBenutzer
'
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.Name = "lblBenutzer"
Me.lblBenutzer.Size = New System.Drawing.Size(75, 13)
Me.lblBenutzer.TabIndex = 34
Me.lblBenutzer.Text = "Benuztername"
'
'dgv_Id
'
Me.dgv_Id.HeaderText = "Id"
Me.dgv_Id.Name = "dgv_Id"
Me.dgv_Id.ReadOnly = True
Me.dgv_Id.Width = 50
'
'dgv_progId
'
Me.dgv_progId.HeaderText = "progId"
Me.dgv_progId.Name = "dgv_progId"
Me.dgv_progId.ReadOnly = True
'
'dgv_bergrId
'
Me.dgv_bergrId.HeaderText = "bergrId"
Me.dgv_bergrId.Name = "dgv_bergrId"
Me.dgv_bergrId.ReadOnly = True
'
'dgv_bez
'
Me.dgv_bez.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.dgv_bez.HeaderText = "Bezeichnung"
Me.dgv_bez.Name = "dgv_bez"
Me.dgv_bez.ReadOnly = True
'
'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.Controls.Add(Me.lblBenutzer)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cboSelectedEmployee)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.dgvGruppen)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmBenutzerBerGruppenKopieren"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Gruppen kopieren"
CType(Me.dgvGruppen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents dgvGruppen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button3 As Button
Friend WithEvents cboSelectedEmployee As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents lblBenutzer As Label
Friend WithEvents dgv_Id As DataGridViewTextBoxColumn
Friend WithEvents dgv_progId As DataGridViewTextBoxColumn
Friend WithEvents dgv_bergrId As DataGridViewTextBoxColumn
Friend WithEvents dgv_bez As DataGridViewTextBoxColumn
End Class