MS
This commit is contained in:
SchreiberM
199
DD_Clipboard_Searcher/frmConfig_Basic.vb
Normal file
199
DD_Clipboard_Searcher/frmConfig_Basic.vb
Normal file
@@ -0,0 +1,199 @@
|
||||
Imports System.Threading
|
||||
Imports System.Globalization
|
||||
Imports DD_LIB_Standards
|
||||
Public Class frmConfig_Basic
|
||||
Dim formloaded As Boolean = False
|
||||
Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
|
||||
Try
|
||||
Dim con As String
|
||||
If chkbxUserAut.Checked Then
|
||||
con = "Server=" & Me.txtServer.Text & ";Database=" & 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
|
||||
Dim msg = "Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?"
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "Connection was successfully opened!" & vbNewLine & "Would You like to save it?"
|
||||
End If
|
||||
result = MessageBox.Show(msg, "Database-Connection", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
If result = MsgBoxResult.Yes Then
|
||||
CONNECTION_CHANGED = True
|
||||
'Set the construction string
|
||||
MyConnectionString = con 'csb.ConnectionString
|
||||
clsDatabase.Init(MyConnectionString)
|
||||
My.Settings.Save()
|
||||
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 & ";"
|
||||
End If
|
||||
SaveConfigValue("MyConnectionString", con)
|
||||
Dim csb As New SqlClient.SqlConnectionStringBuilder
|
||||
csb.ConnectionString = MyConnectionString
|
||||
Dim constr = connection.ConnectionString
|
||||
If chkbxUserAut.Checked = False Then
|
||||
constr = constr.Replace(csb.Password, "XXXXX")
|
||||
End If
|
||||
Me.txtActualConnection.Text = constr
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Cursor = Cursors.Default
|
||||
MsgBox("Error in Connectionbuild: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub cmbDatenbank_MouseClick(sender As Object, e As MouseEventArgs) Handles cmbDatenbank.MouseClick
|
||||
Load_Databases()
|
||||
End Sub
|
||||
Sub Load_Databases()
|
||||
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 & ";"
|
||||
con = "Server=" & Me.txtServer.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
|
||||
cmbDatenbank.Items.Clear()
|
||||
Do While dr.Read
|
||||
cmbDatenbank.Items.Add(dr("Database_Name"))
|
||||
Loop
|
||||
cmbDatenbank.DroppedDown = True
|
||||
Else
|
||||
MsgBox("The standard-databases could not be retrieved. The default database will be set!" & vbNewLine & "Check rights in sql-server for user: " & Me.txtUser.Text, MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
connection.Close()
|
||||
Catch ex As Exception
|
||||
If ex.Message.ToLower.Contains("he standard-databases") Or ex.Message.ToLower.Contains("ie standard-datenbanken") Then
|
||||
cmbDatenbank.Text = "DD_ECM"
|
||||
End If
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Databases:")
|
||||
End Try
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
If Not MyConnectionString = String.Empty Then
|
||||
CONNECTION_CHANGED = False
|
||||
Try
|
||||
Dim csb As New SqlClient.SqlConnectionStringBuilder
|
||||
csb.ConnectionString = MyConnectionString
|
||||
|
||||
Dim constr = MyConnectionString
|
||||
If Not MyConnectionString.Contains("Trusted") Then
|
||||
constr = constr.Replace(csb.Password, "XXXXX")
|
||||
txtUser.Text = csb.UserID
|
||||
chkbxUserAut.Checked = False
|
||||
Else
|
||||
chkbxUserAut.Checked = True
|
||||
End If
|
||||
|
||||
Try
|
||||
txtServer.Text = csb.DataSource
|
||||
cmbDatenbank.Text = csb.InitialCatalog
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Me.txtActualConnection.Text = constr
|
||||
chkLogErrorsOnly.Checked = LogErrorsOnly
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub chkbxloadWDDocs_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
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 btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click
|
||||
Process.Start(Application.UserAppDataPath())
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Process.Start(ClassLogger.DateiSpeicherort)
|
||||
End Sub
|
||||
|
||||
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
|
||||
LogErrorsOnly = chkLogErrorsOnly.Checked
|
||||
SaveConfigValue("LogErrorsOnly", LogErrorsOnly)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub frmConfig_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
formloaded = True
|
||||
End Sub
|
||||
|
||||
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
|
||||
Select Case TabControl1.SelectedIndex
|
||||
Case 1
|
||||
|
||||
|
||||
|
||||
End Select
|
||||
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 txtActualConnection_TextChanged(sender As Object, e As EventArgs) Handles txtActualConnection.TextChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cmbDatenbank_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDatenbank.SelectedIndexChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtPasswort_Leave(sender As Object, e As EventArgs) Handles txtPasswort.Leave
|
||||
|
||||
End Sub
|
||||
Private Sub txtPasswort_TextChanged(sender As Object, e As EventArgs) Handles txtPasswort.TextChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user