Initial commit

_AllgMainObjekte/DB/db_connection.vb

@@ -0,0 +1,38 @@
+Imports System.IO
+Namespace DB
+    ''' <summary>
+    ''' Dynamische Datenbank-Verbindung aufbauen. Verwendet wird standardmässig Vertragsverwaltung.cfg.
+    ''' Sollen Datenbank-Verbindungen zur Auswahl angezeigt werden, werden sämntliche Datenbank-Verbindungsdateien 
+    ''' mit dem Namen "Vertragsverwaltung....cfg" berücksichtigt
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public Class DB_Connection
+
+        ''' <summary>
+        ''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
+        ''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
+        ''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
+        ''' 
+        ''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
+        ''' </summary>
+        ''' <remarks></remarks>
+        Sub New()
+
+            Dim ofile As System.IO.File
+            Dim oread As System.IO.StreamReader
+            Try
+                oread = ofile.OpenText(Globals.ConnectionFileName)
+                sConnectionString = oread.ReadLine
+                sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
+                sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
+                Globals.sConnectionString = sConnectionString
+                Globals.conn.sConnectionString = sConnectionString
+                oread.Close()
+            Catch
+            End Try
+        End Sub
+
+    End Class
+
+End Namespace
+