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

MS2909

Browse Source
This commit is contained in:
SchreiberM
2015-09-29 12:16:23 +02:00
parent 379a63d9a8
commit 80247e18dd
31 changed files with 1808 additions and 524 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
Global_Indexer/frmConfig_Basic.vb
View File

@@ -82,21 +82,7 @@ Public Class frmConfig_Basic
End Sub
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Not MyConnectionString = String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
Dim constr = MyConnectionString
constr = constr.Replace(csb.Password, "XXXXX")
Me.txtActualConnection.Text = constr
Me.txtuniversalViewer.Text = UniversalViewer
'Me.txtActualConnection.Text = MyConnectionString
CheckBox1.Checked = LogErrorsOnly
End If
If UniversalViewer = String.Empty Then
Me.TabControl1.SelectedIndex = 1
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -116,10 +102,11 @@ Public Class frmConfig_Basic
Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
End Sub
Dim reload As Boolean = False
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Case 2
reload = True
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID, MyConnectionString)
If Not folderwatch Is Nothing Then
CURRENT_FOLDERWATCH = folderwatch
@@ -157,7 +144,8 @@ Public Class frmConfig_Basic
btnstartstop2.Text = "Überwachung starten"
btnstartstop2.Image = My.Resources.bell_go
End If
reload = False
Me.DataGridView1.DataSource = DTEXCLUDE_FILES
End Select
End Sub
@@ -167,9 +155,17 @@ Public Class frmConfig_Basic
End Sub
Sub CheckFolder(mypath As String, FOLDER_TYPE As String)
Try
If (Not System.IO.Directory.Exists(mypath)) Then
System.IO.Directory.CreateDirectory(mypath)
End If
Try
If (Not System.IO.Directory.Exists(mypath)) Then
System.IO.Directory.CreateDirectory(mypath)
End If
Catch ex As Exception
ClassLogger.Add(" >> Fehler beim Erstellen des Folderwatchordners: " & mypath, False)
ClassLogger.Add(" >> " & ex.Message, False)
MsgBox("Fehler beim Erstellen des Folderwatchordners: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString)
Dim sql As String
If folderwatch Is Nothing Then
@@ -183,16 +179,17 @@ Public Class frmConfig_Basic
If FOLDER_TYPE = "SCAN" Then
CURRENT_SCAN_FOLDERWATCH = folderwatch
Me.txtScanFolderWatch.Text = CURRENT_SCAN_FOLDERWATCH
Else
CURRENT_FOLDERWATCH = folderwatch
Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH
End If
End If
If FW_started = True And FOLDER_TYPE = "DEFAULT" Then
ClassFolderWatcher.Restart_FolderWatch()
End If
If FWSCAN_started = True And FOLDER_TYPE = "SCAN" Then
ClassFolderWatcher.Restart_FolderWatchSCAN()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CheckFolder:")
End Try
@@ -239,16 +236,33 @@ Public Class frmConfig_Basic
End If
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
If formloaded = True Then
SaveConfigValue("LogErrorsOnly", CheckBox1.Checked)
ClassLogger.Add(" >> LogErrorsOnly auf '" & CheckBox1.Checked & "' umgestellt", False)
LogErrorsOnly = CheckBox1.Checked
SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
ClassLogger.Add(" >> LogErrorsOnly auf '" & chkLogErrorsOnly.Checked & "' umgestellt", False)
LogErrorsOnly = chkLogErrorsOnly.Checked
End If
End Sub
Private Sub frmConfig_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If Not MyConnectionString = String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
Dim constr = MyConnectionString
constr = constr.Replace(csb.Password, "XXXXX")
Me.txtActualConnection.Text = constr
End If
Me.txtuniversalViewer.Text = UniversalViewer
chkLogErrorsOnly.Checked = LogErrorsOnly
If ERROR_STATE = "FAILED CONNECTION" Then
Me.TabControl1.SelectedIndex = 0
ElseIf ERROR_STATE = "NO UV" Then
Me.TabControl1.SelectedIndex = 1
End If
formloaded = True
End Sub
Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnopenlog.Click
Process.Start(ClassLogger.DateiSpeicherort)
@@ -269,7 +283,7 @@ Public Class frmConfig_Basic
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
If CURRENT_FOLDERWATCH <> "" Then
If CURRENT_SCAN_FOLDERWATCH <> "" Then
CheckFWSCAN_State()
End If
End Sub
@@ -277,4 +291,20 @@ Public Class frmConfig_Basic
Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
My.Settings.Save()
End Sub
Private Sub txtScanFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtScanFolderWatch.TextChanged
If reload = True Then Exit Sub
CheckFolder(txtScanFolderWatch.Text, "SCAN")
End Sub
Private Sub txtFolderWatch_TextChanged(sender As Object, e As EventArgs) Handles txtFolderWatch.TextChanged
If reload = True Then Exit Sub
CheckFolder(txtFolderWatch.Text, "DEFAULT")
End Sub
Private Sub btnSaveExclusionFiles_Click(sender As Object, e As EventArgs) Handles btnSaveExclusionFiles.Click
DTEXCLUDE_FILES.AcceptChanges()
DTEXCLUDE_FILES.WriteXml(PATH_FileExclusions)
MsgBox("Änderungen gespeichert!", MsgBoxStyle.Information)
End Sub
End Class