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

improve man index settings

Browse Source
This commit is contained in:
Jonathan Jenne
2020-05-11 11:38:35 +02:00
parent 349671c2d3
commit 7f329d9f0d
2 changed files with 58 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
Global_Indexer/frmAdministration.vb
View File

@@ -340,9 +340,9 @@ Public Class frmAdministration
'Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text)
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
btnSQLView.Visible = True
btnSQLView.Enabled = True
Else
btnSQLView.Visible = False
btnSQLView.Enabled = False
End If
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End If
@@ -454,15 +454,9 @@ Public Class frmAdministration
Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
If frmloaded = True Then
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
btnSQLView.Visible = True
'MULTISELECTCheckBox.Visible = True
VKT_ADD_ITEMCheckbox.Visible = True
VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = True
btnSQLView.Enabled = True
Else
btnSQLView.Visible = False
'MULTISELECTCheckBox.Visible = False
VKT_ADD_ITEMCheckbox.Visible = False
VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = False
btnSQLView.Enabled = False
End If
End If
End Sub
@@ -991,13 +985,21 @@ Public Class frmAdministration
Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
_indexIsVectorField = indexIsVectorField()
MULTISELECTCheckBox.Visible = _indexIsVectorField
'VKT_PREVENT_MULTIPLE_VALUESCheckbox.Visible = _indexIsVectorField
MULTISELECTCheckBox.Enabled = _indexIsVectorField
If Not _indexIsVectorField Then
MULTISELECTCheckBox.Checked = False
'VKT_PREVENT_MULTIPLE_VALUESCheckbox.Checked = False
End If
If MULTISELECTCheckBox.Checked Then
VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = True
VKT_ADD_ITEMCheckbox.Enabled = True
Else
VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = False
VKT_ADD_ITEMCheckbox.Enabled = False
End If
End Sub
Private Function indexIsVectorField() As Boolean
@@ -1412,14 +1414,6 @@ Public Class frmAdministration
EnableControls(XtraTabPageProfileRegex)
End Sub
Private Sub ListBoxControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxControl3.SelectedIndexChanged
If ListBoxControl3.SelectedIndex = -1 Then
EnableControls(Panel1, False)
Else
EnableControls(Panel1)
End If
End Sub
Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridView1.ValidateRow
e.Valid = True
End Sub
@@ -1427,4 +1421,36 @@ Public Class frmAdministration
Private Sub GridView1_InvalidRowException(sender As Object, e As InvalidRowExceptionEventArgs) Handles GridView1.InvalidRowException
e.ExceptionMode = DevExpress.XtraEditors.Controls.ExceptionMode.NoAction
End Sub
Private Sub MULTISELECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles MULTISELECTCheckBox.CheckedChanged
If MULTISELECTCheckBox.Checked Then
VKT_ADD_ITEMCheckbox.Enabled = True
VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = True
Else
VKT_ADD_ITEMCheckbox.Enabled = False
VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = False
End If
End Sub
Private Sub TBDD_INDEX_MANBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_MANBindingSource.CurrentChanged
If ListBoxControl3.SelectedIndex = -1 Then
EnableControls(Panel1, False)
Else
EnableControls(Panel1)
End If
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
btnSQLView.Enabled = True
Else
btnSQLView.Enabled = False
End If
If MULTISELECTCheckBox.Checked Then
VKT_ADD_ITEMCheckbox.Enabled = True
VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = True
Else
VKT_ADD_ITEMCheckbox.Enabled = False
VKT_PREVENT_MULTIPLE_VALUESCheckbox.Enabled = False
End If
End Sub
End Class