TaskFlow/DD_PM_WINDREAM/frmKonfig.vb

Imports System.Globalization

Public Class frmKonfig
    Private email As New ClassEmail
    Dim formshown As Boolean = False
    Private Sub btnuniversalview_Click(sender As System.Object, e As System.EventArgs) Handles btnuniversalview.Click
        With OpenFileDialog1
            ' Do
            .Filter = "Viewer.Exe|*.exe"
            .FilterIndex = 1
            .Title = "Pfad zu Universal Viewer.exe:"
            If .ShowDialog() = DialogResult.OK Then
                Me.txtUniversalViewer.Text = .FileName
                SaveMySettingsValue("UniversalViewer", txtUniversalViewer.Text)
            End If
        End With
    End Sub
    Private Sub frmKonfig_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBPM_KONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen.

        Try
            If Viewer = "uviewer" Then
                rbuviewer.Checked = True
            Else
                rbwddocview.Checked = True
            End If
            If MyConnectionString = String.Empty Then
                Me.TabControl1.SelectedIndex = 1
                Load_ConString("")
            Else
                Load_ConString(MyConnectionString)
                Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
                Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
            End If
            If UniversalViewer = String.Empty Then
                UniversalViewer = Application.StartupPath & "\programs\Universal Viewer\Viewer.exe"
                SaveMySettingsValue("UniversalViewer", UniversalViewer)
            End If
            txtUniversalViewer.Text = UniversalViewer
            txtUniversalViewer.Text = UniversalViewer
            txtpdfxchange.Text = PDFXChangeViewer
            txtSumatra.Text = SumatraViewer
            chkLogErrorsOnly.Checked = CBool(LogErrorsOnly)
            Me.txtpdfxchange.Text = PDFXChangeViewer

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Formload Grundkonfig:")
        End Try
    End Sub

    Private Sub rbuviewer_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbuviewer.CheckedChanged
        If rbuviewer.Checked Then
            Viewer = "uviewer"
            txtUniversalViewer.Text = UniversalViewer
            GroupBox1.Visible = False
            rbSumatra.Checked = False
            rbPDFX_Change.Checked = False
        Else
            Viewer = "docview"
            GroupBox1.Visible = True
        End If
        SaveMySettingsValue("Viewer", Viewer)
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnpdfxchange.Click
        With OpenFileDialog1
            ' Do
            .Filter = "PDFXCview.Exe|*.exe"
            .FilterIndex = 1
            .Title = "Pfad zu PDF XChange Viewer.exe:"
            If .ShowDialog() = DialogResult.OK Then
                Me.txtpdfxchange.Text = .FileName
                SaveMySettingsValue("PDFXChangeViewer", txtpdfxchange.Text)
            End If
        End With
    End Sub
    Private Sub cmbDatenbank_Click(sender As System.Object, e As System.EventArgs) Handles cmbDatenbank.Click
        Try
            Me.Cursor = Cursors.WaitCursor
            Dim csb As New SqlClient.SqlConnectionStringBuilder
            csb.DataSource = Me.txtServer.Text
            csb.IntegratedSecurity = False
            csb.UserID = Me.txtUser.Text
            csb.Password = Me.txtPasswort.Text

            Dim con As String
            If chkbxUserAut.Checked Then
                con = "Data Source=" & Me.txtServer.Text & ";Trusted_Connection=True;"
            Else
                con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";"
            End If
            Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString)
            connection.Open()
            Dim cmd As New SqlClient.SqlCommand("sp_databases", connection)
            cmd.CommandType = CommandType.StoredProcedure
            ' Ausführen und Ergebnis in einer ListBox anzeigen
            Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
            If dr.HasRows Then
                Do While dr.Read
                    cmbDatenbank.Items.Add(dr("Database_Name"))
                Loop
                cmbDatenbank.DroppedDown = True
            End If
            connection.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:")
        End Try
        Cursor = Cursors.Default
    End Sub

    Private Sub BtnConnect_Click(sender As System.Object, e As System.EventArgs) Handles BtnConnect.Click
        Try
            Dim con As String
            If chkbxUserAut.Checked Then
                con = "Data Source=" & Me.txtServer.Text & ";Initial Catalog=" & Me.cmbDatenbank.Text & ";Trusted_Connection=True;"
            Else
                con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";"
            End If

            Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString)
            'während Verbindungsaufbau Sanduhr-Mauszeiger
            Cursor = Cursors.WaitCursor
            connection.Open()
            Cursor = Cursors.Default
            'DialogResult = Windows.Forms.DialogResult.OK
            Dim result As MsgBoxResult
            result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = MsgBoxResult.Yes Then
                'ConnectionString in Anwendung speichern
                MyConnectionString = con
                ClassDatabase.Init()
                'Das Passwort verschlüsseln
                If chkbxUserAut.Checked = False Then
                    Dim wrapper As New ClassEncryption("!35452didalog=")
                    Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text)
                    Dim pw As String = cipherText
                    con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
                End If
                SaveMySettingsValue("MyConnectionString", con)
                My.Settings.Save()
                Load_ConString(MyConnectionString)
                Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
                Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
            End If
        Catch ex As Exception
            Cursor = Cursors.Default
            MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

    Private Sub btnSumatra_Click(sender As System.Object, e As System.EventArgs) Handles btnSumatra.Click
        With OpenFileDialog1
            ' Do
            .Filter = "SumatraPDF.exe|*.exe"
            .FilterIndex = 1
            .Title = "Pfad zu SumatraPDF.exe:"
            If .ShowDialog() = DialogResult.OK Then
                Me.txtSumatra.Text = .FileName
                SaveMySettingsValue("SumatraViewer", txtSumatra.Text)
            End If
        End With
    End Sub
    Private Sub frmKonfig_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
        formshown = True
        Select Case vpdfviewer
            Case "internal"
                rbPDF_internal.Checked = True
            Case "none"
                rbPDFX_Change.Checked = False
                rbSumatra.Checked = False
            Case "pdfxchange"
                rbPDFX_Change.Checked = True
                rbSumatra.Checked = False
            Case "sumatra"
                rbPDFX_Change.Checked = False
                rbSumatra.Checked = True
                If SumatraViewer = String.Empty Then
                    SumatraViewer = Application.StartupPath & "\programs\SumatraPDF\SumatraPDF.exe"
                    txtSumatra.Text = SumatraViewer
                End If
            Case "system"
                rbSystem.Checked = True

        End Select
    End Sub

    Private Sub rbPDFX_Change_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbPDFX_Change.CheckedChanged
        If rbPDFX_Change.Checked And formshown = True Then
            If PDFXChangeViewer = String.Empty Then
                MsgBox("Bitte geben Sie den Installationspfad von PDF XChange-Viewer an!", MsgBoxStyle.Exclamation)
            End If
            vpdfviewer = "pdfxchange"
            SaveMySettingsValue("vpdfviewer", vpdfviewer)
        End If

    End Sub

    Private Sub rbSumatra_CheckedChanged(sender As Object, e As System.EventArgs) Handles rbSumatra.CheckedChanged
        If rbSumatra.Checked And formshown = True Then
            vpdfviewer = "sumatra"
            SaveMySettingsValue("vpdfviewer", vpdfviewer)
            '    lblSumatra.Visible = True
            '    txtSumatra.Visible = True
            '    btnSumatra.Visible = True
            'Else
            '    lblSumatra.Visible = False
            '    txtSumatra.Visible = False
            '    btnSumatra.Visible = False
        End If

    End Sub
    Private Sub btnno_pdf_viewer_Click(sender As System.Object, e As System.EventArgs) Handles btnno_pdf_viewer.Click
        vpdfviewer = "none"
        SaveMySettingsValue("vpdfviewer", vpdfviewer)

        rbPDF_internal.Checked = False
        rbPDFX_Change.Checked = False
        txtpdfxchange.Text = ""
        rbSumatra.Checked = False
        txtSumatra.Text = ""
        rbSystem.Checked = False
    End Sub

    Private Sub chkbxUserAut_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserAut.CheckedChanged
        If chkbxUserAut.Checked Then
            Me.txtPasswort.Enabled = False
            Me.txtUser.Enabled = False
        Else
            Me.txtPasswort.Enabled = True
            Me.txtUser.Enabled = True
        End If
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnLogMail.Click
        email.Send_Log_Mail("<b> Log-/SupportMail von Process-Manager DD.</b> <p>", _
                                "Support-Mail Process-Manager", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support@didalog.de", False, True)
    End Sub

    Private Sub TBPM_KONFIGURATIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TBPM_KONFIGURATIONBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)

    End Sub

    Private Sub Button1_Click_3(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("Culture-Name: " & CultureInfo.CurrentCulture.Name & vbNewLine & "Culture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentCulture.ThreeLetterISOLanguageName & vbNewLine & _
               "CurrentUICulture-Name: " & CultureInfo.CurrentUICulture.Name & vbNewLine & "CurrentUICulture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName)
    End Sub

    Private Sub rbSystem_CheckedChanged(sender As Object, e As EventArgs) Handles rbSystem.CheckedChanged
        If rbSystem.Checked And formshown = True Then
            vpdfviewer = "system"
            SaveMySettingsValue("vpdfviewer", vpdfviewer)
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim p As Process
        Dim processes As Process()
        processes = Process.GetProcesses()
        Dim msg As String
        For Each p In processes
            If p.ProcessName <> "svchost" Then
                msg = msg & p.ProcessName & vbNewLine
            End If


        Next
        MsgBox("Liste der Processnames: " & vbNewLine & msg, MsgBoxStyle.Information)
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs)
        My.Settings.Save()
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbPDF_internal.CheckedChanged
        If rbPDF_internal.Checked And formshown = True Then
            vpdfviewer = "internal"
            rbPDFX_Change.Checked = False
            txtpdfxchange.Text = ""
            rbSumatra.Checked = False
            txtSumatra.Text = ""
            rbSystem.Checked = False
            SaveMySettingsValue("vpdfviewer", vpdfviewer)
        End If
    End Sub
    Sub Load_ConString(constr As String)
        If constr <> "" And constr.Contains("Password") Then
            Dim csb As New SqlClient.SqlConnectionStringBuilder
            csb.ConnectionString = MyConnectionString
            constr = constr.Replace(csb.Password, "XXXXX")
        End If
        
        Me.txtActualConnection.Text = constr
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        ' Specify that the link was visited.
        Me.LinkLabel1.LinkVisited = True
        ' Navigate to a URL.
        System.Diagnostics.Process.Start("http://www.didalog.de/Support")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Process.Start(Application.UserAppDataPath())
    End Sub

    Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnopenlog.Click
        Process.Start(ClassLogger.DateiSpeicherort)
    End Sub

    Private Sub txtIntervall_TextChanged(sender As Object, e As EventArgs) Handles txtIntervall.TextChanged
        My.Settings.Save()
    End Sub

    Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
        LogErrorsOnly = chkLogErrorsOnly.Checked
        SaveMySettingsValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
    End Sub
End Class