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.
58 lines
1.5 KiB
58 lines
1.5 KiB
Imports System.IO
|
|
Imports System.Reflection
|
|
Module Globals
|
|
''' <summary>
|
|
''' Applikationsversion
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public Version As String = "2.0"
|
|
Public Versionsdatum As String = "5. November 2012"
|
|
|
|
''' <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 TKB.VV.DB.clsMitarbeiter
|
|
''' <summary>
|
|
''' Applikationsparameter
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public clsapplication As New TKB.VV.DB.clsApplication
|
|
''' <summary>
|
|
''' DB-Verbindungsklasse
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Public sConnectionString As String
|
|
Public conn As New TKB.VV.DB.clsConnectionProvider
|
|
Public ConnectionFileName As String = ""
|
|
Public dbconn As New TKB.VV.DB.DB_Connection
|
|
|
|
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
|
|
|
|
Public WithEvents MyEventHanlder As New MyGenericEventHandler
|
|
|
|
End Module
|