MS_04.01
This commit is contained in:
SchreiberM
@@ -29,16 +29,26 @@ Public Class frmConfig_Basic
|
||||
If result = MsgBoxResult.Yes Then
|
||||
CONNECTION_CHANGED = True
|
||||
'Set the construction string
|
||||
MyConnectionString = con 'csb.ConnectionString
|
||||
ClassDatabase.Init()
|
||||
If rbConnDefault.Checked Then
|
||||
MyConnectionString = con
|
||||
'csb.ConnectionString
|
||||
ClassDatabase.Init()
|
||||
Else
|
||||
ClassProxy.MyPROXYConnectionString = con
|
||||
End If
|
||||
My.Settings.Save()
|
||||
|
||||
If chkbxUserAut.Checked = False Then
|
||||
Dim wrapper As New ClassEncryption("!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
|
||||
SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
|
||||
If rbConnDefault.Checked Then
|
||||
SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
|
||||
Else
|
||||
SaveMySettingsValue("MyProxyConnectionString", con, "ConfigMain")
|
||||
End If
|
||||
Dim csb As New SqlClient.SqlConnectionStringBuilder
|
||||
csb.ConnectionString = MyConnectionString
|
||||
Dim constr = connection.ConnectionString
|
||||
@@ -102,54 +112,59 @@ Public Class frmConfig_Basic
|
||||
End Sub
|
||||
|
||||
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
If LICENSE_SITE_PROXY = True Then
|
||||
Me.rbConn_Proxy.Visible = True
|
||||
Else
|
||||
Me.rbConn_Proxy.Visible = False
|
||||
End If
|
||||
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
|
||||
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
|
||||
chkbxloadWDDocs.Checked = Sett_LoadWD_Docs
|
||||
chkLogErrorsOnly.Checked = LogErrorsOnly
|
||||
txtwdSearch_Count.Text = WDResultListCount.ToString
|
||||
txtTask_Popup.Text = Task_Popup_minutes.ToString
|
||||
|
||||
chkboxQuickMenue.Checked = Sett_ShowQuickMenue
|
||||
CheckBoxWD_ShowEnitityDocs.Checked = WD_ShowEnitityDocs
|
||||
Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "ConstructorForms - from Config")
|
||||
If DT.Rows.Count > 0 Then
|
||||
cmbConstructor.Enabled = True
|
||||
cmbConstructor.DataSource = DT
|
||||
cmbConstructor.DisplayMember = DT.Columns(1).ColumnName
|
||||
cmbConstructor.ValueMember = DT.Columns(0).ColumnName
|
||||
If Sett_ConstructorStart <> 0 Then
|
||||
cmbConstructor.SelectedValue = Sett_ConstructorStart
|
||||
End If
|
||||
|
||||
Else
|
||||
cmbConstructor.Enabled = False
|
||||
End If
|
||||
txtServer.Text = csb.DataSource
|
||||
cmbDatenbank.Text = csb.InitialCatalog
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
|
||||
End Try
|
||||
|
||||
Me.txtActualConnection.Text = constr
|
||||
chkbxloadWDDocs.Checked = Sett_LoadWD_Docs
|
||||
chkLogErrorsOnly.Checked = LogErrorsOnly
|
||||
txtwdSearch_Count.Text = WDResultListCount.ToString
|
||||
txtTask_Popup.Text = Task_Popup_minutes.ToString
|
||||
|
||||
chkboxQuickMenue.Checked = Sett_ShowQuickMenue
|
||||
CheckBoxWD_ShowEnitityDocs.Checked = WD_ShowEnitityDocs
|
||||
Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
If DT.Rows.Count > 0 Then
|
||||
cmbConstructor.Enabled = True
|
||||
cmbConstructor.DataSource = DT
|
||||
cmbConstructor.DisplayMember = DT.Columns(1).ColumnName
|
||||
cmbConstructor.ValueMember = DT.Columns(0).ColumnName
|
||||
If Sett_ConstructorStart <> 0 Then
|
||||
cmbConstructor.SelectedValue = Sett_ConstructorStart
|
||||
End If
|
||||
|
||||
Else
|
||||
cmbConstructor.Enabled = False
|
||||
End If
|
||||
'Catch ex As Exception
|
||||
' MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
'End Try
|
||||
|
||||
|
||||
|
||||
End If
|
||||
@@ -212,7 +227,7 @@ Public Class frmConfig_Basic
|
||||
Case 1
|
||||
cmbLanguage.SelectedIndex = cmbLanguage.FindStringExact(USER_LANGUAGE)
|
||||
Case 2
|
||||
Dim DTSCAN_folderwatch As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID, True)
|
||||
Dim DTSCAN_folderwatch As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH,SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID)
|
||||
If Not DTSCAN_folderwatch Is Nothing Then
|
||||
If DTSCAN_folderwatch.Rows.Count = 1 Then
|
||||
CURRENT_SCAN_FOLDERWATCH = DTSCAN_folderwatch.Rows(0).Item(0)
|
||||
@@ -285,7 +300,7 @@ Public Class frmConfig_Basic
|
||||
_SUBDIRECTORIES = 1
|
||||
End If
|
||||
|
||||
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'", True)
|
||||
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
|
||||
Dim sql As String
|
||||
If folderwatch Is Nothing And mypath <> "" Then
|
||||
sql = "INSERT INTO TBPMO_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE,SUBDIRECTORIES, ADDED_WHO) VALUES (" & USER_GUID & ",'" & mypath & "','SCAN', " & _SUBDIRECTORIES & ",'" & USER_USERNAME & "')"
|
||||
@@ -293,7 +308,7 @@ Public Class frmConfig_Basic
|
||||
sql = "UPDATE TBPMO_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', SUBDIRECTORIES = " & _SUBDIRECTORIES & ", CHANGED_WHO = '" & USER_USERNAME & "' where GUID = " & folderwatch
|
||||
End If
|
||||
If ClassDatabase.Execute_non_Query(sql) Then
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH, SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'", True)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT FOLDER_PATH, SUBDIRECTORIES FROM TBPMO_FOLDERWATCH_USER WHERE USER_ID = " & USER_GUID & " AND FOLDER_TYPE = 'SCAN'")
|
||||
|
||||
CURRENT_SCAN_FOLDERWATCH = DT.Rows(0).Item(0)
|
||||
CURRENT_SCAN_FOLDERWATCH_SD = DT.Rows(0).Item(1)
|
||||
@@ -322,6 +337,7 @@ Public Class frmConfig_Basic
|
||||
|
||||
Private Sub btnstartstop2_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
|
||||
If CURRENT_SCAN_FOLDERWATCH <> "" Then
|
||||
ClassFolderWatcher.DELETE_SCAN_File_User()
|
||||
CheckScanFolder(CURRENT_SCAN_FOLDERWATCH, chkSubfolder.Checked)
|
||||
CheckFWSCAN_State()
|
||||
End If
|
||||
@@ -359,7 +375,7 @@ Public Class frmConfig_Basic
|
||||
Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & cmbLanguage.Text & "' WHERE GUID = " & USER_GUID
|
||||
USER_LANGUAGE = cmbLanguage.Text
|
||||
|
||||
If ClassDatabase.Execute_non_Query(update, True) = True Then
|
||||
If ClassDatabase.Execute_non_Query(update) = True Then
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Die Sprache wurde erfolgreich geändert und nach einem Neustart angewendet!", MsgBoxStyle.Information)
|
||||
Else
|
||||
@@ -404,7 +420,7 @@ Public Class frmConfig_Basic
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -426,5 +442,83 @@ Public Class frmConfig_Basic
|
||||
|
||||
Private Sub txtPasswort_TextChanged(sender As Object, e As EventArgs) Handles txtPasswort.TextChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub rbConn_Proxy_CheckedChanged(sender As Object, e As EventArgs) Handles rbConn_Proxy.CheckedChanged
|
||||
If rbConn_Proxy.Checked Then
|
||||
Refresh_Proxy()
|
||||
Me.lblLinkedServer.Visible = True
|
||||
Me.txtLinkedServer.Visible = True
|
||||
Else
|
||||
Me.lblLinkedServer.Visible = False
|
||||
Me.txtLinkedServer.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
Sub Refresh_Proxy()
|
||||
If ClassProxy.MyPROXYConnectionString <> String.Empty Then
|
||||
Dim csb As New SqlClient.SqlConnectionStringBuilder
|
||||
csb.ConnectionString = ClassProxy.MyPROXYConnectionString
|
||||
|
||||
Dim constr = ClassProxy.MyPROXYConnectionString
|
||||
If Not constr.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
|
||||
btndeleteProxy.Visible = True
|
||||
Else
|
||||
Me.txtActualConnection.Text = ""
|
||||
btndeleteProxy.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
Private Sub rbConnDefault_CheckedChanged(sender As Object, e As EventArgs) Handles rbConnDefault.CheckedChanged
|
||||
If rbConnDefault.Checked Then
|
||||
If MyConnectionString <> String.Empty Then
|
||||
Dim csb As New SqlClient.SqlConnectionStringBuilder
|
||||
csb.ConnectionString = MyConnectionString
|
||||
|
||||
Dim constr = MyConnectionString
|
||||
If Not constr.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
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btndeleteProxy_Click(sender As Object, e As EventArgs) Handles btndeleteProxy.Click
|
||||
SaveMySettingsValue("MyProxyConnectionString", "", "ConfigMain")
|
||||
ClassProxy.MyPROXYConnectionString = ""
|
||||
Refresh_Proxy()
|
||||
End Sub
|
||||
|
||||
Private Sub txtLinkedServer_Leave(sender As Object, e As EventArgs) Handles txtLinkedServer.Leave
|
||||
SaveMySettingsValue("MyLinkedServer", txtLinkedServer.Text, "ConfigMain")
|
||||
ClassProxy.MyLinkedServer = txtLinkedServer.Text
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user