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

Ansicht API-Liste und Fehlerliste

Browse Source
This commit is contained in:
d.breimaier
2023-07-17 16:54:32 +02:00
parent 565e1f9942
commit 60bc349378
11 changed files with 1774 additions and 511 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
UID/frmMain.vb
View File

@@ -29,8 +29,8 @@ Public Class frmMain
Button1.Enabled = False
btnHomepage.Enabled = False
Button6.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
btnAPI.Enabled = False
btnFehler.Enabled = False
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
btnDienstplan.Enabled = True
@@ -46,8 +46,8 @@ Public Class frmMain
btnSchulungen.Enabled = True
btnDienstplan.Enabled = True
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
btnAPI.Enabled = True
btnFehler.Enabled = True
btnHomepage.Enabled = True
Button6.Enabled = True
End If
@@ -142,12 +142,14 @@ Public Class frmMain
btnDienstplan.BackColor = Color.White : btnDienstplan.ForeColor = SystemColors.ControlText
btnProgramme.BackColor = Color.White : btnProgramme.ForeColor = SystemColors.ControlText
btnMitarbeiter.BackColor = Color.White : btnMitarbeiter.ForeColor = SystemColors.ControlText
btnAPI.BackColor = Color.White : btnAPI.ForeColor = SystemColors.ControlText
btnFehler.BackColor = Color.White : btnFehler.ForeColor = SystemColors.ControlText
sender.BackColor = System.Drawing.Color.FromArgb(0, 54, 128) 'Color.RoyalBlue
sender.ForeColor = Color.White
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
@@ -197,7 +199,7 @@ Public Class frmMain
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub btnAPI_Click(sender As Object, e As EventArgs) Handles btnAPI.Click
clrPnlMain()
Dim usrCntl As New usrCntlAPI
pnlMain.Controls.Add(usrCntl)
@@ -205,7 +207,7 @@ Public Class frmMain
button_Click(sender)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Private Sub btnFehler_Click(sender As Object, e As EventArgs) Handles btnFehler.Click
clrPnlMain()
Dim usrCntl As New usrCntlERS
pnlMain.Controls.Add(usrCntl)