neu

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -33,6 +33,12 @@ Public Class usrCntlMitarbeiter
             showVERAGATILLA("ATILLA")
         ElseIf TabControl1.SelectedIndex = 2 Then
             showVERAGATILLA("IMEX")
+        ElseIf TabControl1.SelectedIndex = 3 Then
+            showVERAGATILLA("UNISPED")
+        ElseIf TabControl1.SelectedIndex = 4 Then
+            showVERAGATILLA("AMBAR")
+        ElseIf TabControl1.SelectedIndex = 5 Then
+            showVERAGATILLA("FRONTOFFICE")
         End If
     End Sub
 
@@ -64,7 +70,7 @@ Public Class usrCntlMitarbeiter
             If dgvVERAG.RowCount = 0 Then
                 dgvVERAG.DataSource = Nothing
             Else
-                sortVERAG()
+                sortDGV(dgvVERAG)
                 'Eintraege_festlegen()
                 'AL: Sortierung nach Ausfahrt (Zeit)
                 dgvVERAG.Sort(dgvVERAG.Columns(3), ListSortDirection.Ascending)
@@ -79,7 +85,7 @@ Public Class usrCntlMitarbeiter
             If dgvATILLA.RowCount = 0 Then
                 dgvATILLA.DataSource = Nothing
             Else
-                sortATILLA()
+                sortDGV(dgvATILLA)
                 'Eintraege_festlegen()
                 'AL: Sortierung nach Ausfahrt (Zeit)
                 dgvATILLA.Sort(dgvATILLA.Columns(3), ListSortDirection.Ascending)
@@ -94,111 +100,67 @@ Public Class usrCntlMitarbeiter
             If dgvIMEX.RowCount = 0 Then
                 dgvIMEX.DataSource = Nothing
             Else
-                sortIMEX()
+                sortDGV(dgvIMEX)
                 'Eintraege_festlegen()
                 'AL: Sortierung nach Ausfahrt (Zeit)
                 dgvIMEX.Sort(dgvIMEX.Columns(3), ListSortDirection.Ascending)
             End If
+        ElseIf firma = "UNISPED" Then
+            ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
+
+            dgvUNISPED.SET_SQL(sql, "ADMIN")
+            dgvUNISPED.LOAD()
+
+            'Tabelle Kommt/Geht bereinigen
+            If dgvUNISPED.RowCount = 0 Then
+                dgvUNISPED.DataSource = Nothing
+            Else
+                sortDGV(dgvUNISPED)
+                'Eintraege_festlegen()
+                'AL: Sortierung nach Ausfahrt (Zeit)
+                dgvUNISPED.Sort(dgvUNISPED.Columns(3), ListSortDirection.Ascending)
+            End If
+        ElseIf firma = "AMBAR" Then
+            ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
+
+            dgvAMBAR.SET_SQL(sql, "ADMIN")
+            dgvAMBAR.LOAD()
+
+            'Tabelle Kommt/Geht bereinigen
+            If dgvAMBAR.RowCount = 0 Then
+                dgvAMBAR.DataSource = Nothing
+            Else
+                sortDGV(dgvAMBAR)
+                'Eintraege_festlegen()
+                'AL: Sortierung nach Ausfahrt (Zeit)
+                dgvAMBAR.Sort(dgvAMBAR.Columns(3), ListSortDirection.Ascending)
+            End If
+
+        ElseIf firma = "FRONTOFFICE" Then
+            ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
+
+            dgvFRONTOFFICE.SET_SQL(sql, "ADMIN")
+            dgvFRONTOFFICE.LOAD()
+
+            'Tabelle Kommt/Geht bereinigen
+            If dgvFRONTOFFICE.RowCount = 0 Then
+                dgvFRONTOFFICE.DataSource = Nothing
+            Else
+                sortDGV(dgvFRONTOFFICE)
+            'Eintraege_festlegen()
+            'AL: Sortierung nach Ausfahrt (Zeit)
+            dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending)
+
+            End If
         End If
 
 
     End Sub
 
 
-    Private Sub sortVERAG()
-        With dgvVERAG
-            .RowTemplate.Height = 20
-            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
-            .AllowUserToAddRows = False
-            .AllowUserToDeleteRows = False
-            .AllowUserToOrderColumns = False
-            .AllowUserToResizeColumns = False
-            .AllowUserToResizeRows = False
-            .RowTemplate.ReadOnly = True
-            .RowHeadersVisible = False
-            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
 
-            .AllowUserToOrderColumns = True
-
-            .Columns(0).Visible = False     'ID nicht anzeigen
-
-            .Columns(1).Width = 150
-            .Columns(1).HeaderText = "Username"
-            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-
-            .Columns(2).Width = 100
-            .Columns(2).HeaderText = "Vorname"
-
-            .Columns(3).Width = 130
-            .Columns(3).HeaderText = "Nachname"
-
-            .Columns(4).Width = 85
-            .Columns(4).HeaderText = "Niederlassung"
-
-            .Columns(5).Width = 85
-            .Columns(5).HeaderText = "Abteilung"
-
-            .Columns(6).Width = 120
-            .Columns(6).HeaderText = "Email"
-
-            .Columns(7).Width = 120
-            .Columns(7).HeaderText = "TelefonNr."
-
-            .Columns(8).Width = 80
-            .Columns(8).HeaderText = "Gekündigt"
-
-
-        End With
-    End Sub
-
-    Private Sub sortATILLA()
-        With dgvATILLA
-            .RowTemplate.Height = 20
-            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
-            .AllowUserToAddRows = False
-            .AllowUserToDeleteRows = False
-            .AllowUserToOrderColumns = False
-            .AllowUserToResizeColumns = False
-            .AllowUserToResizeRows = False
-            .RowTemplate.ReadOnly = True
-            .RowHeadersVisible = False
-            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
-
-            .AllowUserToOrderColumns = True
-
-            .Columns(0).Visible = False     'ID nicht anzeigen
-
-            .Columns(1).Width = 150
-            .Columns(1).HeaderText = "Username"
-            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-
-            .Columns(2).Width = 100
-            .Columns(2).HeaderText = "Vorname"
-
-            .Columns(3).Width = 130
-            .Columns(3).HeaderText = "Nachname"
-
-            .Columns(4).Width = 85
-            .Columns(4).HeaderText = "Niederlassung"
-
-            .Columns(5).Width = 85
-            .Columns(5).HeaderText = "Abteilung"
-
-            .Columns(6).Width = 120
-            .Columns(6).HeaderText = "Email"
-
-            .Columns(7).Width = 120
-            .Columns(7).HeaderText = "TelefonNr."
-
-            .Columns(8).Width = 80
-            .Columns(8).HeaderText = "Gekündigt"
-
-
-        End With
-    End Sub
-
-    Private Sub sortIMEX()
-        With dgvIMEX
+    Private Sub sortDGV(dgv As DataGridView)
+        With dgv
             .RowTemplate.Height = 20
             .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
             .AllowUserToAddRows = False
@@ -248,6 +210,9 @@ Public Class usrCntlMitarbeiter
             Case 0 : Firma = "VERAG"
             Case 1 : Firma = "ATILLA"
             Case 2 : Firma = "IMEX"
+            Case 3 : Firma = "UNISPED"
+            Case 4 : Firma = "AMBAR"
+            Case 5 : Firma = "FRONTOFFICE"
         End Select
         Dim frmMitarbDetails As New frmMitarbDetails(Firma)
         frmMitarbDetails.Show()
@@ -285,6 +250,31 @@ Public Class usrCntlMitarbeiter
                     Tabelle_anzeigen()
                 Case vbNo
 
+            End Select
+        ElseIf TabControl1.SelectedIndex = 3 Then
+            Select Case MsgBox("Soll der Mitarbeiter '" & dgvUNISPED.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+                Case vbYes
+                    UID.delData(Convert.ToInt32(dgvUNISPED.CurrentRow.Cells(0).Value))
+                    Tabelle_anzeigen()
+                Case vbNo
+
+            End Select
+        ElseIf TabControl1.SelectedIndex = 4 Then
+            Select Case MsgBox("Soll der Mitarbeiter '" & dgvAMBAR.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+                Case vbYes
+                    UID.delData(Convert.ToInt32(dgvAMBAR.CurrentRow.Cells(0).Value))
+                    Tabelle_anzeigen()
+                Case vbNo
+
+            End Select
+
+        ElseIf TabControl1.SelectedIndex = 5 Then
+            Select Case MsgBox("Soll der Mitarbeiter '" & dgvFRONTOFFICE.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+                Case vbYes
+                    UID.delData(Convert.ToInt32(dgvFRONTOFFICE.CurrentRow.Cells(0).Value))
+                    Tabelle_anzeigen()
+                Case vbNo
+
             End Select
         End If
 
@@ -304,33 +294,13 @@ Public Class usrCntlMitarbeiter
     End Sub
 
 
-    Private Sub dgvVERAG_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellDoubleClick
+
+    Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick
         Me.Cursor = Cursors.WaitCursor
         Dim frmMitarbDetails As New frmMitarbDetails
-        frmMitarbDetails.mid = dgvVERAG.CurrentRow.Cells(0).Value
+        frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value
         frmMitarbDetails.ShowDialog(Me)
-        dgvVERAG.RELOAD()
-        Me.Cursor = Cursors.Default
-        '  AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
-    End Sub
-
-    Private Sub dgvATILLA_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATILLA.CellDoubleClick
-        Me.Cursor = Cursors.WaitCursor
-        Dim frmMitarbDetails As New frmMitarbDetails
-        frmMitarbDetails.mid = dgvATILLA.CurrentRow.Cells(0).Value
-        frmMitarbDetails.ShowDialog(Me)
-        dgvATILLA.RELOAD()
-        Me.Cursor = Cursors.Default
-        ' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
-    End Sub
-
-
-    Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick
-        Me.Cursor = Cursors.WaitCursor
-        Dim frmMitarbDetails As New frmMitarbDetails
-        frmMitarbDetails.mid = dgvIMEX.CurrentRow.Cells(0).Value
-        frmMitarbDetails.ShowDialog(Me)
-        dgvIMEX.RELOAD()
+        sender.RELOAD()
         Me.Cursor = Cursors.Default
         ' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
     End Sub
@@ -341,25 +311,26 @@ Public Class usrCntlMitarbeiter
         Tabelle_anzeigen()
     End Sub
 
-    Private Sub dgvVERAG_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellContentClick
 
-    End Sub
 
     Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
+
+        Dim dgv As DataGridView = Nothing
+
+        Select Case TabControl1.SelectedIndex
+            Case 0 : dgv = dgvVERAG
+            Case 1 : dgv = dgvATILLA
+            Case 2 : dgv = dgvIMEX
+            Case 3 : dgv = dgvUNISPED
+            Case 4 : dgv = dgvAMBAR
+            Case 5 : dgv = dgvFRONTOFFICE
+        End Select
+
         If e.KeyCode = Keys.Return Then
-            If TabControl1.SelectedIndex = 0 Then
-                If dgvVERAG.SelectedRows.Count > 0 Then
-                    dgvVERAG_CellContentClick(dgvVERAG, New DataGridViewCellEventArgs(0, dgvVERAG.SelectedRows(0).Index))
-                End If
-            ElseIf TabControl1.SelectedIndex = 1 Then
-                If dgvATILLA.SelectedRows.Count > 0 Then
-                    dgvATILLA_CellContentClick(dgvATILLA, New DataGridViewCellEventArgs(0, dgvATILLA.SelectedRows(0).Index))
-                End If
+            If dgv.SelectedRows.Count > 0 Then
+                dgvIMEX_CellContentClick(dgv, New DataGridViewCellEventArgs(0, dgv.SelectedRows(0).Index))
             End If
-        ElseIf TabControl1.SelectedIndex = 1 Then
-            If dgvIMEX.SelectedRows.Count > 0 Then
-                dgvIMEX_CellContentClick(dgvIMEX, New DataGridViewCellEventArgs(0, dgvIMEX.SelectedRows(0).Index))
-            End If 
+
         End If
     End Sub