Projektdateien hinzufügen.

2019-08-07 12:29:10 +02:00
parent 4008832285
commit 1e9039b6ea
251 changed files with 90001 additions and 0 deletions
--- a/UID/frmMitarbeiter.vb
+++ b/UID/frmMitarbeiter.vb
@@ -0,0 +1,140 @@
+Imports System.ComponentModel
+
+Public Class frmMitarbeiter
+
+    Dim ConnStr As String
+    Private UID As New cMitarbeiter
+    Private cOptionenDAL As New cOptionenDAL
+    Private Grid_aktiv As Boolean = False
+    Private Anzahl As Integer
+    Private locZeilen As Integer = -1
+    Public mid As Integer = -1
+
+    Private Sub LoadForm(sender As Object, e As EventArgs) Handles Me.Load
+        Dim tmp As String
+        tmp = "Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=UID;"
+
+
+        ConnStr = frmMain.ConnStr
+
+        Try
+            '  Me.Size = My.Settings.frmMainSize
+            ' Me.Location = My.Settings.frmMainPosition
+        Catch ex As Exception
+            'nix tun - Standardgröße wird somit automatisch gesetzt
+        End Try
+
+
+        Grid_aktiv = True
+        Tabelle_anzeigen()
+
+    End Sub
+
+    Public Sub Tabelle_anzeigen()
+        'Paint wieder reaktivieren
+        locZeilen = -1
+        If Not Grid_aktiv Then Exit Sub
+
+        dgvUID.DataSource = UID.AnzeigeTabelle()
+
+        'Tabelle Kommt/Geht bereinigen
+        If dgvUID.RowCount = 0 Then
+            dgvUID.DataSource = Nothing
+        Else
+            Spalten_festlegen()
+            'Eintraege_festlegen()
+            'AL: Sortierung nach Ausfahrt (Zeit)
+            dgvUID.Sort(dgvUID.Columns(4), ListSortDirection.Ascending)
+        End If
+
+        'Anzeige der Anzahl gewählter/aller Datensätze
+        lblAnzahl.Text = Format(dgvUID.RowCount, "#,##0") & " ausgewählt"
+        lblAnzahl.Refresh()
+
+
+    End Sub
+
+    Private Sub Spalten_festlegen()
+        With dgvUID
+            .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("Info").DisplayIndex = 7
+            .Columns(7).DisplayIndex = 6
+
+            .Columns(0).Visible = False     'ID nicht anzeigen
+            .Columns(2).Visible = False     'PWD nicht anzeigen
+
+            .Columns(1).Width = 80
+            .Columns(1).HeaderText = "Kurzbezeichnung"
+            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns(3).Width = 150
+            .Columns(3).HeaderText = "Vorname"
+
+            .Columns(4).Width = 150
+            .Columns(4).HeaderText = "Nachname"
+
+            .Columns(5).Width = 80
+            .Columns(5).HeaderText = "Sicherheitsstufe"
+            
+            .Columns(6).Width = 175
+            .Columns(6).HeaderText = "Info"
+
+            .Columns(7).Width = 80
+            .Columns(7).HeaderText = "Niederlassung"
+
+
+        End With
+    End Sub
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Close()
+    End Sub
+
+    Private Sub dgvUID_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUID.CellDoubleClick
+        mid = dgvUID.CurrentRow.Cells(0).Value
+        frmMitarbDetails.Show()
+
+    End Sub
+
+    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        frmMitarbDetails.Show()
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        mid = dgvUID.CurrentRow.Cells(0).Value
+        frmMitarbDetails.Show()
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        Select Case MsgBox("Soll der Eintrag Wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+            Case vbYes
+                UID.delData(Convert.ToInt32(dgvUID.CurrentRow.Cells(0).Value))
+                Tabelle_anzeigen()
+            Case vbNo
+
+        End Select
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Dim l As IList(Of cMitarb)
+        l = cOptionenDAL.getDataMitarb()
+        frmPrintView.Show()
+        frmPrintView.BefüllenMitarb(l)
+    End Sub
+End Class