First pass of new config
This commit is contained in:
Jonathan Jenne
@@ -11,37 +11,39 @@ Public Class frmKonfig
|
||||
.Title = "Pfad zu Universal Viewer.exe:"
|
||||
If .ShowDialog() = DialogResult.OK Then
|
||||
Me.txtUniversalViewer.Text = .FileName
|
||||
SaveMySettingsValue("UniversalViewer", txtUniversalViewer.Text)
|
||||
CONFIG.Config.UniversalViewerPath = txtUniversalViewer.Text
|
||||
CONFIG.Save()
|
||||
'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
|
||||
If VIEWER_ALL = "uviewer" Then
|
||||
rbuviewer.Checked = True
|
||||
Else
|
||||
rbwddocview.Checked = True
|
||||
End If
|
||||
If MyConnectionString = String.Empty Then
|
||||
If CONNECTION_STRING = String.Empty Then
|
||||
Me.TabControl1.SelectedIndex = 1
|
||||
Load_ConString("")
|
||||
Else
|
||||
Load_ConString(MyConnectionString)
|
||||
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Load_ConString(CONNECTION_STRING)
|
||||
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
||||
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)
|
||||
If VIEWER_UNIVERSAL = String.Empty Then
|
||||
VIEWER_UNIVERSAL = Application.StartupPath & "\programs\Universal Viewer\Viewer.exe"
|
||||
CONFIG.Config.UniversalViewerPath = VIEWER_UNIVERSAL
|
||||
CONFIG.Save()
|
||||
'SaveMySettingsValue("UniversalViewer", VIEWER_UNIVERSAL)
|
||||
End If
|
||||
txtUniversalViewer.Text = UniversalViewer
|
||||
txtUniversalViewer.Text = UniversalViewer
|
||||
txtpdfxchange.Text = PDFXChangeViewer
|
||||
txtSumatra.Text = SumatraViewer
|
||||
chkLogErrorsOnly.Checked = CBool(LogErrorsOnly)
|
||||
Me.txtpdfxchange.Text = PDFXChangeViewer
|
||||
txtUniversalViewer.Text = VIEWER_UNIVERSAL
|
||||
txtUniversalViewer.Text = VIEWER_UNIVERSAL
|
||||
txtpdfxchange.Text = VIEWER_XCHANGE
|
||||
txtSumatra.Text = VIEWER_SUMATRA
|
||||
chkLogErrorsOnly.Checked = CBool(LOG_ERRORS_ONLY)
|
||||
Me.txtpdfxchange.Text = VIEWER_XCHANGE
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Formload Grundkonfig:")
|
||||
@@ -50,16 +52,19 @@ Public Class frmKonfig
|
||||
|
||||
Private Sub rbuviewer_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbuviewer.CheckedChanged
|
||||
If rbuviewer.Checked Then
|
||||
Viewer = "uviewer"
|
||||
txtUniversalViewer.Text = UniversalViewer
|
||||
VIEWER_ALL = "uviewer"
|
||||
txtUniversalViewer.Text = VIEWER_UNIVERSAL
|
||||
GroupBox1.Visible = False
|
||||
rbSumatra.Checked = False
|
||||
rbPDFX_Change.Checked = False
|
||||
Else
|
||||
Viewer = "docview"
|
||||
VIEWER_ALL = "docview"
|
||||
GroupBox1.Visible = True
|
||||
End If
|
||||
SaveMySettingsValue("Viewer", Viewer)
|
||||
|
||||
CONFIG.Config.DefaultViewer = VIEWER_ALL
|
||||
CONFIG.Save()
|
||||
'SaveMySettingsValue("Viewer", VIEWER_ALL)
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnpdfxchange.Click
|
||||
@@ -70,8 +75,10 @@ Public Class frmKonfig
|
||||
.Title = "Pfad zu PDF XChange Viewer.exe:"
|
||||
If .ShowDialog() = DialogResult.OK Then
|
||||
Me.txtpdfxchange.Text = .FileName
|
||||
PDFXChangeViewer = .FileName
|
||||
SaveMySettingsValue("PDFXChangeViewer", txtpdfxchange.Text)
|
||||
VIEWER_XCHANGE = .FileName
|
||||
CONFIG.Config.XChangeViewerPath = txtpdfxchange.Text
|
||||
CONFIG.Save()
|
||||
'SaveMySettingsValue("PDFXChangeViewer", txtpdfxchange.Text)
|
||||
End If
|
||||
End With
|
||||
End Sub
|
||||
@@ -92,8 +99,9 @@ Public Class frmKonfig
|
||||
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
|
||||
Dim cmd As New SqlClient.SqlCommand("sp_databases", connection) With {
|
||||
.CommandType = CommandType.StoredProcedure
|
||||
}
|
||||
' Ausführen und Ergebnis in einer ListBox anzeigen
|
||||
Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
|
||||
If dr.HasRows Then
|
||||
@@ -128,7 +136,7 @@ Public Class frmKonfig
|
||||
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
|
||||
CONNECTION_STRING = con
|
||||
ClassDatabase.Init()
|
||||
'Das Passwort verschlüsseln
|
||||
If chkbxUserAut.Checked = False Then
|
||||
@@ -137,10 +145,16 @@ Public Class frmKonfig
|
||||
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
|
||||
|
||||
'SaveMySettingsValue("MyConnectionString", con)
|
||||
'My.Settings.Save()
|
||||
|
||||
CONNECTION_STRING = con
|
||||
CONFIG.Config.ConnectionString = con
|
||||
CONFIG.Save()
|
||||
|
||||
Load_ConString(CONNECTION_STRING)
|
||||
Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
||||
Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@@ -157,13 +171,16 @@ Public Class frmKonfig
|
||||
.Title = "Pfad zu SumatraPDF.exe:"
|
||||
If .ShowDialog() = DialogResult.OK Then
|
||||
Me.txtSumatra.Text = .FileName
|
||||
SaveMySettingsValue("SumatraViewer", txtSumatra.Text)
|
||||
|
||||
CONFIG.Config.SumatraViewerPath = txtSumatra.Text
|
||||
VIEWER_SUMATRA = txtSumatra.Text
|
||||
'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
|
||||
Select Case VIEWER_PDF
|
||||
Case "internal"
|
||||
rbPDF_internal.Checked = True
|
||||
Case "none"
|
||||
@@ -175,9 +192,9 @@ Public Class frmKonfig
|
||||
Case "sumatra"
|
||||
rbPDFX_Change.Checked = False
|
||||
rbSumatra.Checked = True
|
||||
If SumatraViewer = String.Empty Then
|
||||
SumatraViewer = Application.StartupPath & "\programs\SumatraPDF\SumatraPDF.exe"
|
||||
txtSumatra.Text = SumatraViewer
|
||||
If VIEWER_SUMATRA = String.Empty Then
|
||||
VIEWER_SUMATRA = Application.StartupPath & "\programs\SumatraPDF\SumatraPDF.exe"
|
||||
txtSumatra.Text = VIEWER_SUMATRA
|
||||
End If
|
||||
Case "system"
|
||||
rbSystem.Checked = True
|
||||
@@ -187,19 +204,27 @@ Public Class frmKonfig
|
||||
|
||||
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
|
||||
If VIEWER_XCHANGE = String.Empty Then
|
||||
MsgBox("Bitte geben Sie den Installationspfad von PDF XChange-Viewer an!", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
vpdfviewer = "pdfxchange"
|
||||
SaveMySettingsValue("vpdfviewer", vpdfviewer)
|
||||
|
||||
VIEWER_PDF = "pdfxchange"
|
||||
|
||||
CONFIG.Config.PDFViewer = VIEWER_PDF
|
||||
CONFIG.Save()
|
||||
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
|
||||
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)
|
||||
VIEWER_PDF = "sumatra"
|
||||
CONFIG.Config.PDFViewer = VIEWER_PDF
|
||||
CONFIG.Save()
|
||||
|
||||
'VIEWER_PDF = "sumatra"
|
||||
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
|
||||
' lblSumatra.Visible = True
|
||||
' txtSumatra.Visible = True
|
||||
' btnSumatra.Visible = True
|
||||
@@ -208,11 +233,12 @@ Public Class frmKonfig
|
||||
' 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)
|
||||
VIEWER_PDF = "none"
|
||||
CONFIG.Config.PDFViewer = VIEWER_PDF
|
||||
CONFIG.Save()
|
||||
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
|
||||
|
||||
rbPDF_internal.Checked = False
|
||||
rbPDFX_Change.Checked = False
|
||||
@@ -251,8 +277,10 @@ Public Class frmKonfig
|
||||
|
||||
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)
|
||||
VIEWER_PDF = "system"
|
||||
CONFIG.Config.PDFViewer = VIEWER_PDF
|
||||
CONFIG.Save()
|
||||
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -277,19 +305,21 @@ Public Class frmKonfig
|
||||
|
||||
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbPDF_internal.CheckedChanged
|
||||
If rbPDF_internal.Checked And formshown = True Then
|
||||
vpdfviewer = "internal"
|
||||
VIEWER_PDF = "internal"
|
||||
rbPDFX_Change.Checked = False
|
||||
txtpdfxchange.Text = ""
|
||||
rbSumatra.Checked = False
|
||||
txtSumatra.Text = ""
|
||||
rbSystem.Checked = False
|
||||
SaveMySettingsValue("vpdfviewer", vpdfviewer)
|
||||
CONFIG.Config.PDFViewer = VIEWER_PDF
|
||||
CONFIG.Save()
|
||||
'SaveMySettingsValue("vpdfviewer", VIEWER_PDF)
|
||||
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
|
||||
csb.ConnectionString = CONNECTION_STRING
|
||||
constr = constr.Replace(csb.Password, "XXXXX")
|
||||
End If
|
||||
|
||||
@@ -312,11 +342,14 @@ Public Class frmKonfig
|
||||
End Sub
|
||||
|
||||
Private Sub txtIntervall_TextChanged(sender As Object, e As EventArgs) Handles txtIntervall.TextChanged
|
||||
' TODO: This is not used anywhere?
|
||||
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)
|
||||
LOG_ERRORS_ONLY = chkLogErrorsOnly.Checked
|
||||
CONFIG.Config.LogErrorsOnly = LOG_ERRORS_ONLY
|
||||
CONFIG.Save()
|
||||
'SaveMySettingsValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user