Initial commit

_AllgMainObjekte/Klassen/Globals.vb

@@ -0,0 +1,27 @@
+Module Globals
+    Public Spaltendaten As New DataTable
+    Public sConnectionString As String
+    Public conn As New DB.clsConnectionProvider
+    Public ConnectionFileName As String = ""
+    Public Mitarbeiternr As Integer
+    Public TmpFilepath As String
+    Public Objekt As New DataTable
+    Public Objekt_Beziehung As New DataTable
+    Public SecurityDaten As New DataSet
+
+    Public WithEvents Generic_Event_Handler As New _Generic_Event_Handler.Generic_Event_Handler
+
+    Public Function Check_Beziehung(ByRef TargetDBObject As String, ByVal Type1 As Integer, ByVal type2 As Integer, ByRef Change_Keys As Boolean) As Boolean
+
+        For Each dr As DataRow In Globals.Objekt_Beziehung.Rows
+            If dr.Item("Objekt1") = Type1 And dr.Item("Objekt2") = type2 And dr.Item("Aktiv") = True Then
+                TargetDBObject = dr.Item("Objektname")
+                Change_Keys = dr.Item("Key_Umdrehen")
+                Return True
+                Exit For
+            End If
+        Next
+        Return False
+    End Function
+
+End Module