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

Steuerung SQLGuide

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-25 14:36:55 +01:00
parent 11fc725614
commit 5cb64fd138
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Aviso/frmLogin.vb
View File

@@ -29,18 +29,18 @@ Public Class frmLogin
End If
e.Handled = True
End If
If e.Modifiers = Keys.Control And e.KeyCode = Keys.G Then
VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = Not VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED
VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER = "[SQLGUIDE01.verag.ost.dmn]"
If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
Panel1.BackColor = Color.Red
Panel1.ForeColor = Color.White
Else
Panel1.BackColor = Color.White
Panel1.ForeColor = Color.FromArgb(0, 54, 128)
End If
e.Handled = True
End If
'If e.Modifiers = Keys.Control And e.KeyCode = Keys.G Then
' VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = Not VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED
' VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER = "[SQLGUIDE01.verag.ost.dmn]"
' If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
' Panel1.BackColor = Color.Red
' Panel1.ForeColor = Color.White
' Else
' Panel1.BackColor = Color.White
' Panel1.ForeColor = Color.FromArgb(0, 54, 128)
' End If
' e.Handled = True
'End If
If e.Modifiers = Keys.Control And e.KeyCode = Keys.N Then
VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN = Not VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN
If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then