AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Renaming

Browse Source
This commit is contained in:
Developer01
2024-09-05 17:09:00 +02:00
parent ca01ff32ac
commit 550a9cd3ea
35 changed files with 10253 additions and 10061 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_Clipboard_Searcher/frmConfig_Basic.vb
View File

@@ -1,5 +1,4 @@
Imports DD_LIB_Standards
Imports DD_Clipboard_Watcher.ClassHotkey.ModfierKey
Imports easyFLOW.ClassHotkey.ModfierKey
Imports DigitalData.Modules.Database
Public Class frmConfig_Basic
@@ -34,12 +33,9 @@ Public Class frmConfig_Basic
'clsDatabase.Init(MyConnectionString)
If chkbxUserAut.Checked = False Then
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)
CONFIG.Config.ConnectionString = con
CONFIG.Save()
@@ -127,7 +123,7 @@ Public Class frmConfig_Basic
txtActualConnection.Text = constr
chkLogErrorsOnly.Checked = LogErrorsOnly
Catch ex As Exception
MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Error in frmConfig_Basic_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub