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

MS_13022016

Browse Source
This commit is contained in:
SchreiberM
2016-02-15 13:03:32 +01:00
parent 85d4120c50
commit 8016ae977e
10 changed files with 1479 additions and 1073 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
app/DD-Record-Organiser/frmConfig_Basic.vb
View File

@@ -36,7 +36,9 @@ Public Class frmConfig_Basic
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
Dim constr = connection.ConnectionString
constr = constr.Replace(csb.Password, "XXXXX")
If chkbxUserAut.Checked = False Then
constr = constr.Replace(csb.Password, "XXXXX")
End If
Me.txtActualConnection.Text = constr
End If
Catch ex As Exception
@@ -95,10 +97,16 @@ Public Class frmConfig_Basic
csb.ConnectionString = MyConnectionString
Dim constr = MyConnectionString
constr = constr.Replace(csb.Password, "XXXXX")
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
txtUser.Text = csb.UserID
cmbDatenbank.Text = csb.InitialCatalog
Catch ex As Exception
@@ -353,4 +361,22 @@ Public Class frmConfig_Basic
Me.Size = sz
Me.Location = pt
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
End Class