Kunednkontakte, Bereichitungsgruppen (Ansicht), StartOptions, etc.

This commit is contained in:
2026-01-30 16:43:34 +01:00
parent 0b6a5c9956
commit f7bde33bb4
9 changed files with 1290 additions and 1040 deletions

View File

@@ -25,9 +25,12 @@ Partial Class frmBerechtigungenUser
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBerechtigungenUser))
Me.gdvGruppen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.lbl = New System.Windows.Forms.Label()
Me.cb_inaktivAusblenden = New System.Windows.Forms.CheckBox()
Me.dgvGrp_id = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgvGrp_bez = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.lbl = New System.Windows.Forms.Label()
Me.Firma = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.inaktiv = New System.Windows.Forms.DataGridViewCheckBoxColumn()
CType(Me.gdvGruppen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -40,7 +43,7 @@ Partial Class frmBerechtigungenUser
Me.gdvGruppen.AllowUserToResizeRows = False
Me.gdvGruppen.BackgroundColor = System.Drawing.Color.White
Me.gdvGruppen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gdvGruppen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.dgvGrp_id, Me.dgvGrp_bez})
Me.gdvGruppen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.dgvGrp_id, Me.dgvGrp_bez, Me.Firma, Me.inaktiv})
Me.gdvGruppen.Location = New System.Drawing.Point(12, 33)
Me.gdvGruppen.MultiSelect = False
Me.gdvGruppen.Name = "gdvGruppen"
@@ -50,6 +53,25 @@ Partial Class frmBerechtigungenUser
Me.gdvGruppen.Size = New System.Drawing.Size(302, 533)
Me.gdvGruppen.TabIndex = 21
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(13, 14)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(119, 13)
Me.lbl.TabIndex = 22
Me.lbl.Text = "Benutzer in der Gruppe:"
'
'cb_inaktivAusblenden
'
Me.cb_inaktivAusblenden.AutoSize = True
Me.cb_inaktivAusblenden.Location = New System.Drawing.Point(233, 14)
Me.cb_inaktivAusblenden.Name = "cb_inaktivAusblenden"
Me.cb_inaktivAusblenden.Size = New System.Drawing.Size(81, 17)
Me.cb_inaktivAusblenden.TabIndex = 23
Me.cb_inaktivAusblenden.Text = "nur akt. MA"
Me.cb_inaktivAusblenden.UseVisualStyleBackColor = True
'
'dgvGrp_id
'
Me.dgvGrp_id.HeaderText = "Id"
@@ -65,20 +87,25 @@ Partial Class frmBerechtigungenUser
Me.dgvGrp_bez.Name = "dgvGrp_bez"
Me.dgvGrp_bez.ReadOnly = True
'
'lbl
'Firma
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(13, 14)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(119, 13)
Me.lbl.TabIndex = 22
Me.lbl.Text = "Benutzer in der Gruppe:"
Me.Firma.HeaderText = "Firma"
Me.Firma.Name = "Firma"
Me.Firma.ReadOnly = True
'
'inaktiv
'
Me.inaktiv.HeaderText = "Inaktiv"
Me.inaktiv.Name = "inaktiv"
Me.inaktiv.ReadOnly = True
Me.inaktiv.Width = 50
'
'frmBerechtigungenUser
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(326, 576)
Me.Controls.Add(Me.cb_inaktivAusblenden)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.gdvGruppen)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -92,7 +119,10 @@ Partial Class frmBerechtigungenUser
End Sub
Friend WithEvents gdvGruppen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents lbl As Label
Friend WithEvents cb_inaktivAusblenden As CheckBox
Friend WithEvents dgvGrp_id As DataGridViewTextBoxColumn
Friend WithEvents dgvGrp_bez As DataGridViewTextBoxColumn
Friend WithEvents lbl As Label
Friend WithEvents Firma As DataGridViewTextBoxColumn
Friend WithEvents inaktiv As DataGridViewCheckBoxColumn
End Class