Initial commit

SW/AssessmentMgmt/Utils/Globals.vb

@@ -0,0 +1,61 @@
+Imports System.IO
+Imports System.Reflection
+Module Globals
+    ''' <summary>
+    ''' Applikationsversion
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public Version As String = "1.1"
+    Public Versionsdatum As String = "23. Juli 2017"
+
+    ''' <summary>
+    ''' Applikationsdaten
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer
+
+    'Public TTContextMenuStrip As New ContextMenuStrip
+
+
+    ''' <summary>
+    ''' Angemelderter Mitarbeiter
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public clsmitarbeiter As New DB.clsMitarbeiter
+    ''' <summary>
+    ''' Applikationsparameter
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public clsapplication As New DB.clsApplication
+    ''' <summary>
+    ''' DB-Verbindungsklasse
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public sConnectionString As String
+    Public conn As New DB.clsConnectionProvider
+    Public ConnectionFileName As String = ""
+    Public dbconn As New DB.DB_Connection
+
+    Public SecurityDaten As New DataSet
+    Public Spaltendaten As New DataTable
+    Public ToolTipDaten As New DataSet
+    Public Set_ToolTips As Boolean = False
+    Public treedata_for_search As New DataTable
+
+    Public GueltigImages As New ImageList
+    Public StatusImages As New ImageList
+
+
+    ''' <summary>
+    ''' Aktueller Applikationspfad
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function ApplicationPath() As String
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+    Public WithEvents MyEventHanlder As New MyGenericEventHandler
+
+End Module