24 lines
590 B
VB.net
24 lines
590 B
VB.net
Imports System.IO
|
|
Imports System.Reflection
|
|
|
|
Module Globals
|
|
Public ConnectionFilename As String
|
|
Public sConnectionstring As String
|
|
Public Mitarbeiternr As Integer
|
|
Public Applikationsdaten As New DataTable
|
|
Public AppldataRow As Integer
|
|
Public Words As New Collection()
|
|
Public Apphandle As Int32
|
|
Public conn As New edokadb.clsConnectionProvider()
|
|
Public DivFnkt As New EDOKA.clsDivFnkt()
|
|
|
|
|
|
|
|
|
|
Public Function ApplicationPath() As String
|
|
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
|
End Function
|
|
|
|
|
|
End Module
|