58 lines
1.5 KiB
Plaintext
58 lines
1.5 KiB
Plaintext
Imports System.IO
|
|
Imports System.Reflection
|
|
Module Globals
|
|
''' <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 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
|
|
|
|
|
|
''' <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
|