edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

APIZugange, Mitarbeiter, StartOptions, UTA.

Browse Source
This commit is contained in:
d.breimaier
2024-08-27 10:11:30 +02:00
parent 2535a268a7
commit 6f3dbaa305
16 changed files with 6976 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
UID/Mitarbeiter/frmMitarbeiter.vb
View File

@@ -52,7 +52,7 @@ Public Class frmMitarbeiter
'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, cast (case when mit_timasId is null then 0 else 1 end as bit) mit_ze FROM tblMitarbeiter "
Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt, cast (case when mit_timasId is null then 0 else 1 end as bit) mit_ze, cast (case when isnull([mit_DAKOSY_SB],'')<> '' and isnull([mit_DAKOSY_SBFull],'')<>'' then 1 else 0 end as bit) mit_DAKOSY FROM tblMitarbeiter "
If txtSuche.Text <> "" Then
sql &= " WHERE (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') "
End If
@@ -93,24 +93,24 @@ Public Class frmMitarbeiter
'.Columns("Info").DisplayIndex = 7
.Columns(7).DisplayIndex = 6
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns("mit_id").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("mit_username").Width = 80
.Columns("mit_username").HeaderText = "Kurzbezeichnung"
.Columns("mit_username").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(3).Width = 150
.Columns(3).HeaderText = "Vorname"
.Columns("mit_vname").Width = 150
.Columns("mit_vname").HeaderText = "Vorname"
.Columns(4).Width = 150
.Columns(4).HeaderText = "Nachname"
.Columns("mit_nname").Width = 150
.Columns("mit_nname").HeaderText = "Nachname"
.Columns(5).Width = 80
.Columns(5).HeaderText = "Sicherheitsstufe"
.Columns(6).Width = 175
.Columns(6).HeaderText = "Info"
.Columns("mit_niederlassung").Width = 80
.Columns("mit_niederlassung").HeaderText = "Sicherheitsstufe"
.Columns("mit_niederlassung").Width = 175
.Columns("mit_niederlassung").HeaderText = "Info"
.Columns(7).Width = 80
.Columns(7).HeaderText = "Niederlassung"