Fix Cultures not applying, remove LIB_STANDARD dependency

This commit is contained in:
Jonathan Jenne
2023-05-15 16:34:08 +02:00
parent 227f514afa
commit 9a7ea86f2e
16 changed files with 10325 additions and 860 deletions

View File

@@ -1,5 +1,6 @@
Imports DD_LIB_Standards
Imports DD_Clipboard_Watcher.ClassHotkey.ModfierKey
Imports DigitalData.Modules.Database
Public Class frmConfig_Basic
Dim WithEvents Hotkey As New ClassHotkey(Me)
@@ -32,10 +33,10 @@ Public Class frmConfig_Basic
MyConnectionString = con 'csb.ConnectionString
'clsDatabase.Init(MyConnectionString)
If chkbxUserAut.Checked = False Then
Dim wrapper As New clsEncryption("!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 & ";"
con = MSSQLServer.EncryptConnectionString("Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";")
'Dim wrapper As New clsEncryption("!35452didalog=")
'Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text)
'Dim pw As String = cipherText
End If
'SaveConfigValue("MyConnectionString", con)