You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
85 lines
2.5 KiB
85 lines
2.5 KiB
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.2"
|
|
Public Versionsdatum As String = "16. Januar 2021"
|
|
|
|
|
|
''' <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
|