An Haufen Zeug

Dokumentation/Classes/Class1.vb

@@ -11,6 +11,13 @@ Public Class Class1
     'Public Shared FilePath As String = "\\192.168.0.253\backup\temp_Sebastian\Spielwiese\Doku"
     Public Shared FilePath As String ' = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
     Public Shared Absender As String = "Absender Standard"
+    'Public Shared sAppPath As String = Application.StartupPath
+    Public Shared Standorte As New List(Of String)
+    Public Shared AlleStandorte As New List(Of String)
+    Public Shared LoggedOnUser As New cBenutzer
+    Public Shared LoggedOnUserRights As New List(Of cBerechtigungen)
+    Public Shared DebugMode As Boolean = False
+    Public Shared GroupUsers As List(Of cBenutzer)
 
     Public Shared Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
         Dim dgvType As Type = dgv.[GetType]()
@@ -19,6 +26,30 @@ Public Class Class1
         pi.SetValue(dgv, True, Nothing)
     End Sub
 
+    Public Shared Function CheckDebug()
+        Dim Startparameter As String = ""
+        Dim i As Integer
+        For Each s As String In Environment.GetCommandLineArgs
+            If i > 0 Then
+                If s = "/d" Or s = "-d" Then
+                    Startparameter = "debug"
+                Else
+                End If
+            End If
+            i += 1
+        Next
+
+        If Main.sAppPath Like "*\bin\Debug" Or Startparameter = "debug" Then
+            DebugMode = True
+
+            Class1.DBConString = "Server=DEVELOPER\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+            Class1.FilePath = "\\192.168.0.253\backup\temp_Sebastian\DokuTest"
+        Else
+            Class1.DBConString = "Server=192.168.0.94\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+            Class1.FilePath = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
+        End If
+    End Function
+
 
 
     Public Shared Function SQLnQ(command As String)