Initial

EDOKA/DB/DB_Allgemein/db_connection.vb

@@ -0,0 +1,91 @@
+Imports System.IO
+
+Namespace EDOKA
+    Public Class DB_Connection
+
+        Shared Sub New()
+
+            Dim fc As Integer = 0
+            If Globals.ConnectionFileName.Length = 0 Then
+                Dim Dir As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
+                Try
+                    Dim f As New frmDatenbankauswahl()
+                    Dim ChildFile As FileInfo
+                    For Each ChildFile In Dir.GetFiles()
+                        If UCase(Left(ChildFile.Name, 5)) = "EDOKA" And UCase(ChildFile.Extension) = ".CFG" Then
+                            f.ListBox1.Items.Add(ChildFile.Name)
+                            fc = fc + 1
+                        End If
+                    Next
+                    If fc > 1 Then
+                        f.ListBox1.SelectedIndex = 0
+                        f.ListBox1.Select()
+                        f.ShowDialog()
+                        Globals.ConnectionFileName = f.ListBox1.SelectedItem
+                        f.Dispose()
+                    End If
+                Catch except As Exception
+                    fc = 0
+                    Exit Sub
+                End Try
+            End If
+
+
+            'release 5.5
+            If Globals.ConnectionFileName.Length = 0 And Globals.Connection_Overwritten = False Then
+                If fc < 2 Then Globals.ConnectionFileName = "edokaconn.cfg"
+                Globals.ConnectionFileName = Application.StartupPath + "\" + Globals.ConnectionFileName
+            End If
+
+            Dim ofile As System.IO.File
+            Dim oread As System.IO.StreamReader
+            oread = ofile.OpenText(Globals.ConnectionFileName)
+            'MsgBox(Globals.ConnectionFileName)
+            sConnectionString = oread.ReadLine
+            sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
+            sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
+            Globals.sConnectionString = sConnectionString
+            oread.Close()
+            Globals.conn.sConnectionString = Globals.sConnectionString
+            If Globals.Connection_Overwritten = False Then Check_DBConn_Overwrite()
+
+            '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()
+            'Globals.conn.sConnectionString = Globals.sConnectionString
+            'Check_DBConn_Overwrite()
+        End Sub
+
+        Shared Sub Check_DBConn_Overwrite()
+            Dim clsma As New edokaDB.clsMyMitarbeiter
+
+            Dim tgnummer As String = clsma.Get_Username
+
+            Dim ConnectionFile As String
+            ConnectionFile = DivFnkt.Check_Connectionchange(tgnummer)
+            If ConnectionFile <> "" Then
+                Globals.ConnectionFileName = ConnectionFile
+                Dim ofile As System.IO.File
+                Dim oread As System.IO.StreamReader
+                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 = Globals.sConnectionString
+                oread.Close()
+                Globals.Connection_Overwritten = True
+            End If
+        End Sub
+
+
+    End Class
+
+
+End Namespace