Initial commit

DokMD/Backup/DokSA/Klassen/db_connection.vb

@@ -0,0 +1,21 @@
+Imports System.IO
+Namespace EDOKA
+    Public Class DB_Connection
+
+        Shared Sub New()
+            Dim fc As Integer = 0
+            If fc < 2 Then Globals.ConnectionFileName = "edokaconn.cfg"
+            Dim ofile As System.IO.File
+            Dim oread As System.IO.StreamReader
+            oread = ofile.OpenText(Application.StartupPath + "\" + Globals.ConnectionFileName)
+            sConnectionString = oread.ReadLine
+            sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
+            sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
+            Globals.sConnectionString = sConnectionString
+            oread.Close()
+        End Sub
+
+    End Class
+
+
+End Namespace