203 lines
8.4 KiB
VB.net
203 lines
8.4 KiB
VB.net
Imports System.IO
|
|
Imports System.Xml
|
|
|
|
Module ModuleMySettings
|
|
Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
|
|
Public MyConnectionString As String = ""
|
|
Public UniversalViewer As String = ""
|
|
Public PDFXChangeViewer As String = ""
|
|
Public SumatraViewer As String = ""
|
|
Public LogErrorsOnly As Boolean = True
|
|
Public PDFViewer_ZoomMode As Integer = 3
|
|
Public vpdfviewer As String = "internal"
|
|
Public Viewer As String = "docview"
|
|
Public IDX_DMS_ERSTELLT = "DMS erstellt"
|
|
Public IDX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
|
|
Public CURRENT_FILE As String = ""
|
|
|
|
Public vWLaufwerk As String = "W"
|
|
Public vVERSION_DELIMITER As String = "~"
|
|
Public vFILE_DELIMITER As String = "_"
|
|
|
|
Public Function Settings_Load()
|
|
Try
|
|
Dim DT As DataTable
|
|
'if file doesn't exist, create the file with its default xml table
|
|
If Not File.Exists(ConfigPath) Then
|
|
DT = CreateConfigTable()
|
|
DT.WriteXml(ConfigPath)
|
|
End If
|
|
DT = GetTablefromXML()
|
|
For Each Row As DataRow In DT.Rows
|
|
Select Case Row.Item("ConfigName")
|
|
Case "MyConnectionString"
|
|
Dim connstring As String
|
|
'Den ConnectonString mit verschlüsseltem PW laden
|
|
Dim csb As New SqlClient.SqlConnectionStringBuilder
|
|
csb.ConnectionString = Row.Item("Value")
|
|
If Not csb.ConnectionString = "" Then
|
|
If csb.ConnectionString.Contains("Password=") Then
|
|
'sa-
|
|
'Jetzt das Passwort entschlüsseln
|
|
Dim PWplainText As String
|
|
Dim wrapper As New ClassEncryption("!35452didalog=")
|
|
' DecryptData throws if the wrong password is used.
|
|
Try
|
|
PWplainText = wrapper.DecryptData(csb.Password)
|
|
Catch ex As Exception
|
|
ClassLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False)
|
|
PWplainText = csb.Password
|
|
End Try
|
|
connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
|
|
Else
|
|
'Windows-Auth
|
|
connstring = Row.Item("Value").ToString
|
|
End If
|
|
|
|
MyConnectionString = connstring
|
|
ClassDatabase.Init()
|
|
Else
|
|
MyConnectionString = ""
|
|
End If
|
|
Case "LogErrorsOnly"
|
|
LogErrorsOnly = CBool(Row.Item("Value"))
|
|
Case "UniversalViewer"
|
|
UniversalViewer = Row.Item("Value")
|
|
Case "PDFXChangeViewer"
|
|
PDFXChangeViewer = Row.Item("Value")
|
|
Case "PDFViewer_ZoomMode"
|
|
PDFViewer_ZoomMode = Row.Item("Value")
|
|
Case "vpdfviewer"
|
|
vpdfviewer = Row.Item("Value")
|
|
Case "Viewer"
|
|
Viewer = Row.Item("Value")
|
|
Case "SumatraViewer"
|
|
SumatraViewer = Row.Item("Value")
|
|
Case "IDX_DMS_ERSTELLT"
|
|
IDX_DMS_ERSTELLT = Row.Item("Value")
|
|
Case "IDX_DMS_ERSTELLT_ZEIT"
|
|
IDX_DMS_ERSTELLT_ZEIT = Row.Item("Value")
|
|
End Select
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
Return False
|
|
End Try
|
|
Return True
|
|
|
|
End Function
|
|
Private Function GetTablefromXML()
|
|
Try
|
|
Dim DS As New DataSet
|
|
DS.ReadXml(ConfigPath)
|
|
Return DS.Tables(0)
|
|
Catch ex As Exception
|
|
MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
Return Nothing
|
|
End Try
|
|
|
|
End Function
|
|
Private Function CreateConfigTable() As DataTable
|
|
Try
|
|
' Create sample Customers table, in order
|
|
' to demonstrate the behavior of the DataTableReader.
|
|
Dim table As New DataTable
|
|
table.TableName = "MyConfig"
|
|
|
|
' Create two columns, ID and Name.
|
|
Dim idColumn As DataColumn = table.Columns.Add("ID", _
|
|
GetType(System.Int32))
|
|
|
|
idColumn.AutoIncrement = True
|
|
idColumn.AutoIncrementSeed = 0
|
|
idColumn.AutoIncrementStep = 1
|
|
table.Columns.Add("ConfigName", GetType(System.String))
|
|
table.Columns.Add("Value", GetType(System.String))
|
|
'Set the ID column as the primary key column.
|
|
table.PrimaryKey = New DataColumn() {idColumn}
|
|
Dim newRow As DataRow = table.NewRow()
|
|
newRow("ConfigName") = "MyConnectionString"
|
|
newRow("Value") = ""
|
|
table.Rows.Add(newRow)
|
|
Dim newRow1 As DataRow = table.NewRow()
|
|
newRow1("ConfigName") = "LogErrorsOnly"
|
|
newRow1("Value") = "True"
|
|
table.Rows.Add(newRow1)
|
|
Dim newRow2 As DataRow = table.NewRow()
|
|
newRow2("ConfigName") = "UniversalViewer"
|
|
newRow2("Value") = ""
|
|
table.Rows.Add(newRow2)
|
|
Dim newRow3 As DataRow = table.NewRow()
|
|
newRow3("ConfigName") = "PDFXChangeViewer"
|
|
newRow3("Value") = ""
|
|
table.Rows.Add(newRow3)
|
|
Dim newRow7 As DataRow = table.NewRow()
|
|
newRow7("ConfigName") = "SumatraViewer"
|
|
newRow7("Value") = ""
|
|
table.Rows.Add(newRow7)
|
|
Dim newRow4 As DataRow = table.NewRow()
|
|
newRow4("ConfigName") = "PDFViewer_ZoomMode"
|
|
newRow4("Value") = "3"
|
|
table.Rows.Add(newRow4)
|
|
Dim newRow5 As DataRow = table.NewRow()
|
|
newRow5("ConfigName") = "vpdfviewer"
|
|
newRow5("Value") = "internal"
|
|
table.Rows.Add(newRow5)
|
|
Dim newRow6 As DataRow = table.NewRow()
|
|
newRow6("ConfigName") = "Viewer"
|
|
newRow6("Value") = "docview"
|
|
table.Rows.Add(newRow6)
|
|
Dim newRow8 As DataRow = table.NewRow()
|
|
newRow8("ConfigName") = "IDX_DMS_ERSTELLT"
|
|
newRow8("Value") = "DMS erstellt"
|
|
table.Rows.Add(newRow8)
|
|
Dim newRow9 As DataRow = table.NewRow()
|
|
newRow9("ConfigName") = "IDX_DMS_ERSTELLT_ZEIT"
|
|
newRow9("Value") = "DMS erstellt (Zeit)"
|
|
table.Rows.Add(newRow9)
|
|
|
|
table.AcceptChanges()
|
|
Return table
|
|
Catch ex As Exception
|
|
MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
Public Function SaveMySettingsValue(name As String, value As String)
|
|
Try
|
|
Dim DT As DataTable
|
|
DT = GetTablefromXML()
|
|
|
|
For Each Row As DataRow In DT.Rows
|
|
If Row.Item("ConfigName") = name Then
|
|
Row.Item("Value") = value
|
|
End If
|
|
Next
|
|
DT.AcceptChanges()
|
|
DT.WriteXml(ConfigPath)
|
|
Catch ex As Exception
|
|
MsgBox("Error in SaveConfigValue" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
Return False
|
|
End Try
|
|
Return True
|
|
|
|
End Function
|
|
Public Function Settings_LoadBasicConfig()
|
|
Try
|
|
Dim sql As String = "select * from tbdd_Modules where NAME = 'Record-Organizer'"
|
|
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
|
If DT.Rows.Count = 1 Then
|
|
vWLaufwerk = DT.Rows(0).Item("STRING1")
|
|
vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")
|
|
vFILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER")
|
|
Else
|
|
Return False
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Error in Settings_LoadBasicConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
|
Return False
|
|
End Try
|
|
Return True
|
|
End Function
|
|
End Module
|