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