SQL

Aviso/frmLogin.vb

@@ -29,6 +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.A Then
             Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
             lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor