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.
61 lines
1.5 KiB
61 lines
1.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>
|
|
Public Version As String = "1.0"
|
|
Public Versionsdatum As String = "1. Januar 2013"
|
|
|
|
''' <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 Mitarbeiternr As Integer
|
|
''' <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 Tempfilepath As String = ""
|
|
|
|
|
|
Public SecurityDaten As New DataSet
|
|
Public Spaltendaten As New DataTable
|
|
Public ToolTipDaten As New DataSet
|
|
Public Set_ToolTips As Boolean = False
|
|
|
|
|
|
''' <summary>
|
|
''' Aktueller Applikationspfad
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Function ApplicationPath() As String
|
|
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
|
End Function
|
|
|
|
|
|
|
|
|
|
End Module
|