140 lines
4.3 KiB
VB.net
140 lines
4.3 KiB
VB.net
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 |