Initial commit

BEA - Kopie/Utils/Crypto.vb

@@ -0,0 +1,34 @@
+Module Crypto
+    Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
+        Dim i As Integer, c As Integer
+        Dim strBuff As String
+
+        strPwd = UCase$(strPwd)
+        If Len(strPwd) Then
+            For i = 1 To Len(strText)
+                c = Asc(Mid$(strText, i, 1))
+                c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
+                strBuff = strBuff & Chr(c And &HFF)
+            Next i
+        Else
+            strBuff = strText
+        End If
+        EncryptText = strBuff
+    End Function
+
+    Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
+        Dim i As Integer, c As Integer
+        Dim strBuff As String
+        strPwd = UCase$(strPwd)
+        If Len(strPwd) Then
+            For i = 1 To Len(strText)
+                c = Asc(Mid$(strText, i, 1))
+                c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
+                strBuff = strBuff & Chr(c And &HFF)
+            Next i
+        Else
+            strBuff = strText
+        End If
+        DecryptText = strBuff
+    End Function
+End Module

BEA - Kopie/Utils/Globals.vb

@@ -0,0 +1,84 @@
+Imports System.IO
+Imports System.Reflection
+Module Globals
+    Public WithEvents Generic_Event_Handler As New _Generic_Event_Handler.Generic_Event_Handler
+    ''' <summary>
+    ''' Applikationsversion
+    ''' </summary>
+    ''' <remarks></remarks>
+    ''' 
+    'Enum Struktur_Selectiontype
+    '    Berechtigung = 0
+    '    Organisation = 1
+    '    Personal = 2
+    '    Plattform = 3
+    '    Server = 4
+    '    Verwaltungdurch = 5
+    '    Verwaltungmit = 6
+    'End Enum
+
+    Public Version As String = "2.0"
+    Public Versionsdatum As String = "28. März 2015"
+
+
+    ''' <summary>
+    ''' Applikationsdaten
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer
+    Public Treehandle 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 Objekt As New DataTable
+    Public Objekt_Beziehung As New DataTable
+
+
+    ''' <summary>
+    ''' Aktueller Applikationspfad
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function ApplicationPath() As String
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+    Public ncol As New Collection
+
+    Public ExcelExport_Form_exists As Boolean = False
+
+    Public TempTreeControl As New DevComponents.AdvTree.AdvTree
+    Public TempTreeControl1 As New DevComponents.AdvTree.AdvTree
+    Public TempTreeOldParentNode As New DevComponents.AdvTree.Node
+    Public TempTreeNewParentNode As New DevComponents.AdvTree.Node
+    Public TempTreeCurrentNode As New DevComponents.AdvTree.Node
+    Public MoveCopy As Integer = 0
+    Public MoveCopy_Grid As Object
+    Public Update_Treedata_for_search As Boolean = True
+    Public treedata_for_search As New DataTable
+End Module