374 lines
13 KiB
VB.net
374 lines
13 KiB
VB.net
Imports System.ComponentModel
|
|
|
|
Public Class usrCntlMitarbeiter
|
|
|
|
|
|
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 uctrlMitarbeiter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
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()
|
|
txtSuche.Focus()
|
|
End Sub
|
|
|
|
Public Sub Tabelle_anzeigen()
|
|
If TabControl1.SelectedIndex = 0 Then
|
|
showVERAGATILLA("VERAG")
|
|
ElseIf TabControl1.SelectedIndex = 1 Then
|
|
showVERAGATILLA("ATILLA")
|
|
ElseIf TabControl1.SelectedIndex = 2 Then
|
|
showVERAGATILLA("IMEX")
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub showVERAGATILLA(firma)
|
|
'Paint wieder reaktivieren
|
|
locZeilen = -1
|
|
If Not Grid_aktiv Then Exit Sub
|
|
|
|
|
|
|
|
Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt FROM tblMitarbeiter WHERE (mit_firma='" & firma & "' OR mit_firma='ALL') "
|
|
|
|
If txtSuche.Text <> "" Then
|
|
sql &= " AND (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') "
|
|
End If
|
|
|
|
If cbx.CheckState <> CheckState.Indeterminate Then
|
|
sql &= " AND mit_gekuendigt=" & IIf(cbx.Checked, 1, 0)
|
|
End If
|
|
|
|
|
|
If firma = "VERAG" Then
|
|
|
|
' dgvVERAG.DataSource = UID.AnzeigeTabelleFirma(sql)
|
|
|
|
dgvVERAG.SET_SQL(sql, "ADMIN")
|
|
dgvVERAG.LOAD()
|
|
'Tabelle Kommt/Geht bereinigen
|
|
If dgvVERAG.RowCount = 0 Then
|
|
dgvVERAG.DataSource = Nothing
|
|
Else
|
|
sortVERAG()
|
|
'Eintraege_festlegen()
|
|
'AL: Sortierung nach Ausfahrt (Zeit)
|
|
dgvVERAG.Sort(dgvVERAG.Columns(3), ListSortDirection.Ascending)
|
|
End If
|
|
ElseIf firma = "ATILLA" Then
|
|
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
|
|
|
|
dgvATILLA.SET_SQL(sql, "ADMIN")
|
|
dgvATILLA.LOAD()
|
|
|
|
'Tabelle Kommt/Geht bereinigen
|
|
If dgvATILLA.RowCount = 0 Then
|
|
dgvATILLA.DataSource = Nothing
|
|
Else
|
|
sortATILLA()
|
|
'Eintraege_festlegen()
|
|
'AL: Sortierung nach Ausfahrt (Zeit)
|
|
dgvATILLA.Sort(dgvATILLA.Columns(3), ListSortDirection.Ascending)
|
|
End If
|
|
ElseIf firma = "IMEX" Then
|
|
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
|
|
|
|
dgvIMEX.SET_SQL(sql, "ADMIN")
|
|
dgvIMEX.LOAD()
|
|
|
|
'Tabelle Kommt/Geht bereinigen
|
|
If dgvIMEX.RowCount = 0 Then
|
|
dgvIMEX.DataSource = Nothing
|
|
Else
|
|
sortIMEX()
|
|
'Eintraege_festlegen()
|
|
'AL: Sortierung nach Ausfahrt (Zeit)
|
|
dgvIMEX.Sort(dgvIMEX.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
|
|
.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 Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
Dim Firma = ""
|
|
Select Case TabControl1.SelectedIndex
|
|
Case 0 : Firma = "VERAG"
|
|
Case 1 : Firma = "ATILLA"
|
|
Case 2 : Firma = "IMEX"
|
|
End Select
|
|
Dim frmMitarbDetails As New frmMitarbDetails(Firma)
|
|
frmMitarbDetails.Show()
|
|
AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
Dim frmMitarbDetails As New frmMitarbDetails
|
|
frmMitarbDetails.mid = dgvVERAG.CurrentRow.Cells(0).Value
|
|
frmMitarbDetails.Show()
|
|
AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
If TabControl1.SelectedIndex = 0 Then
|
|
Select Case MsgBox("Soll der Mitarbeiter '" & dgvVERAG.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
|
Case vbYes
|
|
UID.delData(Convert.ToInt32(dgvVERAG.CurrentRow.Cells(0).Value))
|
|
Tabelle_anzeigen()
|
|
Case vbNo
|
|
|
|
End Select
|
|
ElseIf TabControl1.SelectedIndex = 1 Then
|
|
Select Case MsgBox("Soll der Mitarbeiter '" & dgvATILLA.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
|
Case vbYes
|
|
UID.delData(Convert.ToInt32(dgvATILLA.CurrentRow.Cells(0).Value))
|
|
Tabelle_anzeigen()
|
|
Case vbNo
|
|
|
|
End Select
|
|
ElseIf TabControl1.SelectedIndex = 2 Then
|
|
Select Case MsgBox("Soll der Mitarbeiter '" & dgvIMEX.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
|
Case vbYes
|
|
UID.delData(Convert.ToInt32(dgvIMEX.CurrentRow.Cells(0).Value))
|
|
Tabelle_anzeigen()
|
|
Case vbNo
|
|
|
|
End Select
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
Dim l As IList(Of VERAG_PROG_ALLGEMEIN.cMitarbeiter)
|
|
l = cOptionenDAL.getDataMitarb()
|
|
frmPrintView.Show()
|
|
frmPrintView.BefüllenMitarb(l)
|
|
End Sub
|
|
|
|
|
|
Private Sub handleClose()
|
|
Tabelle_anzeigen()
|
|
frmMain.BringToFront()
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvVERAG_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellDoubleClick
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim frmMitarbDetails As New frmMitarbDetails
|
|
frmMitarbDetails.mid = dgvVERAG.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()
|
|
Me.Cursor = Cursors.Default
|
|
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
|
|
End Sub
|
|
|
|
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
|
|
txtSuche.Text = ""
|
|
txtSuche.Focus()
|
|
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
|
|
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
|
|
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
|
|
|
|
Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
|
|
Tabelle_anzeigen()
|
|
End Sub
|
|
|
|
Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckStateChanged
|
|
Tabelle_anzeigen()
|
|
End Sub
|
|
End Class
|