NEU

UID/Programme/frmBenutzerBerGruppen.vb

@@ -0,0 +1,86 @@
+Public Class frmBenutzerBerGruppen
+    Dim mitId = -1
+    Dim progId = -1
+    Dim codename = ""
+    Dim sql As VERAG_PROG_ALLGEMEIN.SQL
+    'Dim BerechtigungsObjekte As VERAG_PROG_ALLGEMEIN.cBerechtigungsObjekte_List
+    Dim BerechtigungenGruppen As VERAG_PROG_ALLGEMEIN.cBerechtigungenGruppen_List
+    Dim BerechtigungenBenutzerGruppenZuordnung As VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List
+
+    Sub New(mitId, progId)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.mitId = mitId
+        Me.progId = progId
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Sub New(mitId, progId, codename)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.mitId = mitId
+        Me.progId = progId
+        Me.codename = codename
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub frmBenutzerBerGruppen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        init()
+    End Sub
+
+    Sub init()
+        ' MyComboBox1.SelectedIndex = 0
+        gdvGruppen.Rows.Clear()
+
+        BerechtigungenBenutzerGruppenZuordnung = New VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung_List(mitId)
+        BerechtigungenGruppen = New VERAG_PROG_ALLGEMEIN.cBerechtigungenGruppen_List(progId)
+
+        For Each b In BerechtigungenBenutzerGruppenZuordnung.LIST
+            If b.berbgz_progId = progId Then gdvGruppen.Rows.Add(b.berbgz_id, b.Gruppenbezeichnung)
+        Next
+
+
+        MyComboBox2.Items.Clear()
+        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        For Each i In BerechtigungenGruppen.LIST
+            MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(i.bergr_bezeichnung, i.bergr_id))
+            ' MsgBox(i.bergr_bezeichnung & " _" & i.bergr_id)
+        Next
+        gdvGruppen.ClearSelection()
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If MyComboBox2._value = String.Empty Then Exit Sub
+        For Each b In BerechtigungenBenutzerGruppenZuordnung.LIST
+            If MyComboBox2._value = b.berbgz_id And b.berbgz_progId = progId Then
+                MsgBox("Die Gruppe wurde bereits zugeordnet")
+                Exit Sub
+            End If
+        Next
+        Dim BGRZ As New VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung
+        BGRZ.berbgz_progId = progId
+        BGRZ.berbgz_mitId = mitId
+        BGRZ.berbgz_bergrId = MyComboBox2._value
+        BGRZ.INSERT()
+        '  MsgBox(BGRZ.berbgz_progId & " _" & BGRZ.berbgz_mitId)
+        MyComboBox2.SelectedIndex = 0
+        init()
+
+    End Sub
+
+    Private Sub gdvGruppen_KeyDown(sender As Object, e As KeyEventArgs) Handles gdvGruppen.KeyDown
+        If gdvGruppen.SelectedRows.Count = 0 Then Exit Sub
+        If e.KeyCode = Keys.Delete Then
+            If vbYes = MsgBox("Möchten Sie die Gruppe und alle verbundenen Zuordnungen wirklich löschen?", vbYesNoCancel) Then
+                Dim BGRZ As New VERAG_PROG_ALLGEMEIN.cBerechtigungenBenutzerGruppenZuordnung
+                BGRZ.berbgz_id = gdvGruppen.SelectedRows(0).Cells("dgvGrp_id").Value
+                BGRZ.DELETE()
+                init()
+            End If
+        End If
+    End Sub
+End Class