1.0.9.0

UID/frmLogin.vb

@@ -34,10 +34,10 @@
     End Sub
 
     Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If sAppPath Like "*\bin\Debug" Then
-            txtUser.Text = "sebastian"
-            txtPwd.Text = "verag#3"
-        End If
+        'If sAppPath Like "*\bin\Debug" Then
+        '    txtUser.Text = "sebastian"
+        '    txtPwd.Text = "verag#3"
+        'End If
         If TESTSYSTEM Then lblTestsystem.Visible = True
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM
         'Dim tmp As String
@@ -87,5 +87,42 @@
 
     Private Sub txtUser_TextChanged(sender As Object, e As EventArgs) Handles txtUser.TextChanged
 
+    End Sub
+
+    Private Sub frmLogin_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+        If e.Modifiers = Keys.Control And e.KeyCode = Keys.T Then
+            ' MsgBox(Environment.MachineName)
+            TESTSYSTEM = Not TESTSYSTEM
+            initstart()
+            If Environment.MachineName = "YLPS023046" Then
+                txtUser.Text = "ADMIN"
+                txtPwd.Text = "verag#2"
+            ElseIf Environment.MachineName = "NBMIESENBECK" Then
+                txtUser.Text = "sebastian"
+                txtPwd.Text = "verag#3"
+            End If
+        End If
+    End Sub
+    Sub initstart()
+
+
+        'DEV FMZOLL
+        If TESTSYSTEM Then
+            ' cGlobal.ConnStrFMZOLL = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLLConnectionString
+            lblTestsystem.Visible = True
+        Else
+            lblTestsystem.Visible = False
+        End If
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM
+
+
+        ' txtSachbear.Text = ""
+        'txtKennwort.Text = ""
+
+        txtUser.Text = SystemInformation.UserName
+        txtUser.Focus()
+
+
     End Sub
 End Class