MS_appLib
This commit is contained in:
Digital Data - Marlon Schreiber
321
app/DD_PM_WINDREAM/frmKonfig.vb
Normal file
321
app/DD_PM_WINDREAM/frmKonfig.vb
Normal file
@@ -0,0 +1,321 @@
|
||||
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
|
||||
Reference in New Issue
Block a user