AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS 2.1.6.7 FinalIndexing, Handling Saving Profile

Browse Source
This commit is contained in:
SchreiberM
2021-02-02 14:00:42 +01:00
parent 2529373166
commit 50317604ad
15 changed files with 563 additions and 616 deletions
Download Patch File Download Diff File Expand all files Collapse all files

270
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@@ -17,9 +17,10 @@ Public Class frmAdministration
Dim DT_CHART_CONFIG As DataTable
Dim DT2Compare As DataTable
Dim PROF_ORIGIN As DataTable
Private CURR_TEXT_CONTROL_CONTENT As String
Private CURR_BOOL_CONTROL_CONTENT As CheckState = CheckState.Indeterminate
Private CURR_COMBOBOX_CONTROL_CONTENT As String
'Private CURR_TEXT_CONTROL_CONTENT As String
'Private CURR_BOOL_CONTROL_CONTENT As CheckState = CheckState.Indeterminate
'Private CURR_COMBOBOX_CONTROL_CONTENT As String
Private PROFILEBS_POS As Integer = 0
Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
formloaded = False
@@ -177,7 +178,7 @@ Public Class frmAdministration
change_BindingSource = True
CHANGES_FORM_DESIGN = True
UNSAVED_CHANGES_PROFILE = False
CURR_TEXT_CONTROL_CONTENT = String.Empty
' CURR_TEXT_CONTROL_CONTENT = String.Empty
TBPM_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE)
TBPM_TYPETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_TYPE)
TBPM_KONFIGURATIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_KONFIGURATION)
@@ -943,8 +944,8 @@ Public Class frmAdministration
Dim preventDuplicates As Boolean = NotNull(focusedRow.Item("PREVENT_DUPLICATES"), False)
Dim allowNewValues As Boolean = NotNull(focusedRow.Item("ALLOW_NEW_VALUES"), False)
Dim VectorBehaviour As String = NotNull(focusedRow.Item("IF_VEKTOR_BEHAVIOUR"), "Add")
Dim oSequence As Int16 = NotNull(focusedRow.Item("SEQUENCE"), 0)
Dim oIndetermined As Boolean = NotNull(focusedRow.Item("CONTINUE_INDETERMINED"), False)
CURRENT_INDEX_ID = guid
CURRENT_SQL_CON = connectionId
@@ -958,7 +959,8 @@ Public Class frmAdministration
obj.AllowAddNewValues = allowNewValues
obj.PreventDuplicates = preventDuplicates
obj.VectorBehaviour = VectorBehaviour
obj.Sequence = oSequence
obj.ContinueOnIndifferentState = oIndetermined
' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen
If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then
obj = FINALINDICES.SetValue(value, obj, index, MyIndicies, MyIndicies_Types)
@@ -1015,6 +1017,10 @@ Public Class frmAdministration
ElseIf e.ChangedItem.Label = "IndexName" Then
Dim type As Integer = FINALINDICES.GetIndexType(e.ChangedItem.Value, MyIndicies, MyIndicies_Types)
obj.VectorIndex = FINALINDICES.IsVectorIndex(type)
ElseIf e.ChangedItem.Label = "Sequence" Then
obj.Sequence = e.ChangedItem.Value
ElseIf e.ChangedItem.Label = "ContinueOnIndifferentState" Then
obj.ContinueOnIndifferentState = e.ChangedItem.Value
End If
propertyGrid.Refresh()
End If
@@ -1244,7 +1250,8 @@ Public Class frmAdministration
Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0)
Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, String.Empty)
Dim oDescription As String = NotNull(obj.Description, String.Empty)
Dim oSequence As Integer = obj.Sequence
Dim oContinueOIdS As Integer = obj.ContinueOnIndifferentState
If indexName = String.Empty Then
MsgBox("We need an index!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -1262,8 +1269,15 @@ Public Class frmAdministration
End If
If INSERT_ACTIVE = True Then
Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR,DESCRIPTION)
VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}')"
Dim pSequence As String
If oSequence = 0 Then
pSequence = $"(SELECT MAX(SEQUENCE) + 1 FROM TBPM_PROFILE_FINAL_INDEXING WHERE PROFIL_ID = {profileId})"
Else
pSequence = oSequence
End If
Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR,DESCRIPTION,SEQUENCE,CONTINUE_INDETERMINED)
VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}','{oDescription}',{pSequence},{oContinueOIdS})"
If ClassDatabase.Execute_non_Query(sql, True) Then
tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}"
@@ -1272,7 +1286,7 @@ Public Class frmAdministration
Else
Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING
SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', DESCRIPTION = '{oDescription}',
VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}'
VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}', [SEQUENCE] = {oSequence}, CONTINUE_INDETERMINED = {oContinueOIdS}
WHERE GUID = {guid}"
If ClassDatabase.Execute_non_Query(sql, True) Then
@@ -1373,29 +1387,6 @@ Public Class frmAdministration
LOGGER.Error(ex)
End Try
End Sub
Private Sub TBPM_PROFILEBindingSource_CurrentItemChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentItemChanged
If formloaded = False Then
Exit Sub
End If
' Check_Changes()
change_BindingSource = True
End Sub
Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
If formloaded = False Then
Exit Sub
End If
If UNSAVED_CHANGES_PROFILE Then
CHECK_QUESTION_CHANGES()
End If
'Check_Changes()
change_BindingSource = False
tsbStaticInfo.Caption = ""
Indexe_eintragen()
If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
Refresh_Final_indexe()
End If
End Sub
Sub CHECK_QUESTION_CHANGES()
If formloaded = False Then
Exit Sub
@@ -1416,73 +1407,65 @@ Public Class frmAdministration
If UNSAVED_CHANGES_FI = True Then
Save_FI()
End If
' TBPM_PROFILEBindingSource.Position = PROFILEBS_POS - 1
Else
Refresh_Profildaten()
End If
End If
End Sub
Private Sub Check_Changes()
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub
End If
' TBPM_PROFILEBindingSource.EndEdit()
If Not IsNothing(DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges) Then
UNSAVED_CHANGES_PROFILE = True
End If
End Sub
Private Sub NAMETextBox_TextChanged(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.TextChanged, TITLETextBox.TextChanged, NAMETextBox.TextChanged,
FINAL_TEXTTextBox.TextChanged, DESCRIPTIONTextBox.TextChanged, WORK_HISTORY_ENTRYTextBox.TextChanged, MOVE2FOLDERTextBox.TextChanged
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub
End If
'UNSAVED_CHANGES_PROFILE = True
End Sub
Private Sub ACTIVECheckBox_Enter(sender As Object, e As EventArgs) Handles ACTIVECheckBox.Enter, SORT_BY_LATESTCheckBox.Enter, FINAL_PROFILECheckBox.Enter
Dim ochk As CheckBox = sender
If formloaded = False Then
Exit Sub
End If
If change_BindingSource = True Then
Exit Sub
End If
If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
CURR_BOOL_CONTROL_CONTENT = ochk.Checked
End If
'Private Sub NAMETextBox_TextChanged(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.TextChanged, TITLETextBox.TextChanged, NAMETextBox.TextChanged,
' FINAL_TEXTTextBox.TextChanged, DESCRIPTIONTextBox.TextChanged, WORK_HISTORY_ENTRYTextBox.TextChanged, MOVE2FOLDERTextBox.TextChanged
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
' Exit Sub
' End If
' 'UNSAVED_CHANGES_PROFILE = True
'End Sub
'Private Sub ACTIVECheckBox_Enter(sender As Object, e As EventArgs) Handles ACTIVECheckBox.Enter, SORT_BY_LATESTCheckBox.Enter, FINAL_PROFILECheckBox.Enter
' Dim ochk As CheckBox = sender
' If formloaded = False Then
' Exit Sub
' End If
' If change_BindingSource = True Then
' Exit Sub
' End If
' If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
' CURR_BOOL_CONTROL_CONTENT = ochk.Checked
' End If
End Sub
Private Sub ACTIVECheckBox_CheckStateChanged(sender As Object, e As EventArgs) Handles SORT_BY_LATESTCheckBox.CheckStateChanged, FINAL_PROFILECheckBox.CheckStateChanged, ACTIVECheckBox.CheckStateChanged
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Or CURR_BOOL_CONTROL_CONTENT = CheckState.Indeterminate Then
Exit Sub
End If
Dim ochk As CheckBox = sender
If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
UNSAVED_CHANGES_PROFILE = True
End If
End Sub
'End Sub
'Private Sub ACTIVECheckBox_CheckStateChanged(sender As Object, e As EventArgs) Handles SORT_BY_LATESTCheckBox.CheckStateChanged, FINAL_PROFILECheckBox.CheckStateChanged, ACTIVECheckBox.CheckStateChanged
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Or CURR_BOOL_CONTROL_CONTENT = CheckState.Indeterminate Then
' Exit Sub
' End If
' Dim ochk As CheckBox = sender
' If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then
' ' UNSAVED_CHANGES_PROFILE = True
' End If
'End Sub
Private Sub cmbObjekttypen_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.SelectedIndexChanged, DISPLAY_MODEComboBox.SelectedIndexChanged, cmbObjekttypen.SelectedIndexChanged, cmbLOGIndex.SelectedIndexChanged
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub
End If
Dim ocmb As ComboBox = sender
Dim oSelectedValue = ocmb.SelectedValue
If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
UNSAVED_CHANGES_PROFILE = True
End If
End Sub
Private Sub PM_VEKTOR_INDEXComboBox_Click(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.Click
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub
End If
Dim ocmb As ComboBox = sender
If ocmb.SelectedIndex <> -1 Then
Dim oSelectedValue = ocmb.SelectedValue
If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
CURR_COMBOBOX_CONTROL_CONTENT = oSelectedValue
End If
End If
End Sub
'Private Sub cmbObjekttypen_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.SelectedIndexChanged, DISPLAY_MODEComboBox.SelectedIndexChanged, cmbObjekttypen.SelectedIndexChanged, cmbLOGIndex.SelectedIndexChanged
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
' Exit Sub
' End If
' Dim ocmb As ComboBox = sender
' Dim oSelectedValue = ocmb.SelectedValue
' If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
' ' UNSAVED_CHANGES_PROFILE = True
' End If
'End Sub
'Private Sub PM_VEKTOR_INDEXComboBox_Click(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.Click
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
' Exit Sub
' End If
' Dim ocmb As ComboBox = sender
' If ocmb.SelectedIndex <> -1 Then
' Dim oSelectedValue = ocmb.SelectedValue
' If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then
' CURR_COMBOBOX_CONTROL_CONTENT = oSelectedValue
' End If
' End If
'End Sub
Private Sub GridView1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewProfile.FocusedRowChanged
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
@@ -1502,17 +1485,42 @@ Public Class frmAdministration
End If
'
End Sub
Private Sub TBPM_PROFILEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentChanged
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Private Sub TBPM_PROFILEBindingSource_ListChanged(sender As Object, e As ListChangedEventArgs) Handles TBPM_PROFILEBindingSource.ListChanged
If formloaded = False Then
Exit Sub
End If
Me.TBPM_PROFILEBindingSource.EndEdit()
If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Then
UNSAVED_CHANGES_PROFILE = True
CHECK_QUESTION_CHANGES()
End If
End Sub
'Private Sub TBPM_PROFILEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentChanged
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
' Exit Sub
' End If
' ' change_BindingSource = True
' ' Check_Changes()
'End Sub
Private Sub TBPM_PROFILEBindingSource_CurrentItemChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentItemChanged
End Sub
Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
If formloaded = False Then
Exit Sub
End If
If UNSAVED_CHANGES_PROFILE Then
CHECK_QUESTION_CHANGES()
End If
change_BindingSource = True
' Check_Changes()
End Sub
'change_BindingSource = False
tsbStaticInfo.Caption = ""
Indexe_eintragen()
If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
Refresh_Final_indexe()
End If
End Sub
Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
End Sub
@@ -1689,43 +1697,45 @@ Public Class frmAdministration
If IsNumeric(PROFILGUIDTextBox.Text) Then
CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
UNSAVED_CHANGES_PROFILE = False
'UNSAVED_CHANGES_PROFILE = False
PROFILEBS_POS = TBPM_PROFILEBindingSource.Position
' change_BindingSource = False
End If
End Sub
Private Sub TextBox_GotFocus(sender As Object, e As EventArgs) Handles NAMETextBox.GotFocus, TITLETextBox.GotFocus, DESCRIPTIONTextBox.GotFocus, WD_SEARCHTextBox.GotFocus, FINAL_TEXTTextBox.GotFocus, MOVE2FOLDERTextBox.GotFocus,
WORK_HISTORY_ENTRYTextBox.GotFocus
If formloaded = False Or UNSAVED_CHANGES_PROFILE Then
Exit Sub
End If
If change_BindingSource = True Then
Exit Sub
End If
Dim oBox As TextBox = sender
If Len(oBox.Text) > 0 Then
If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
CURR_TEXT_CONTROL_CONTENT = oBox.Text
End If
End If
End Sub
'Private Sub TextBox_GotFocus(sender As Object, e As EventArgs) Handles NAMETextBox.GotFocus, TITLETextBox.GotFocus, DESCRIPTIONTextBox.GotFocus, WD_SEARCHTextBox.GotFocus, FINAL_TEXTTextBox.GotFocus, MOVE2FOLDERTextBox.GotFocus,
' WORK_HISTORY_ENTRYTextBox.GotFocus
' If formloaded = False Or UNSAVED_CHANGES_PROFILE Then
' Exit Sub
' End If
' If change_BindingSource = True Then
' Exit Sub
' End If
' Dim oBox As TextBox = sender
' If Len(oBox.Text) > 0 Then
' If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
' CURR_TEXT_CONTROL_CONTENT = oBox.Text
' End If
' End If
'End Sub
Private Sub TextBox_Leave(sender As Object, e As EventArgs) Handles NAMETextBox.Leave, TITLETextBox.Leave, DESCRIPTIONTextBox.Leave, WD_SEARCHTextBox.Leave, FINAL_TEXTTextBox.Leave, MOVE2FOLDERTextBox.Leave, WORK_HISTORY_ENTRYTextBox.Leave
If formloaded = False Or IsNothing(CURR_TEXT_CONTROL_CONTENT) Then
Exit Sub
End If
'If change_BindingSource = True Then
' Exit Sub
'End If
Dim oBox As TextBox = sender
If Len(oBox.Text) > 0 Then
'Private Sub TextBox_Leave(sender As Object, e As EventArgs) Handles NAMETextBox.Leave, TITLETextBox.Leave, DESCRIPTIONTextBox.Leave, WD_SEARCHTextBox.Leave, FINAL_TEXTTextBox.Leave, MOVE2FOLDERTextBox.Leave, WORK_HISTORY_ENTRYTextBox.Leave
' If formloaded = False Or IsNothing(CURR_TEXT_CONTROL_CONTENT) Then
' Exit Sub
' End If
' 'If change_BindingSource = True Then
' ' Exit Sub
' 'End If
' Dim oBox As TextBox = sender
' If Len(oBox.Text) > 0 Then
If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
UNSAVED_CHANGES_PROFILE = True
End If
End If
End Sub
' If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
' ' UNSAVED_CHANGES_PROFILE = True
' End If
' End If
'End Sub
Private Sub TBPM_PROFILEBindingSource_DataError(sender As Object, e As BindingManagerDataErrorEventArgs) Handles TBPM_PROFILEBindingSource.DataError
@@ -1734,4 +1744,6 @@ Public Class frmAdministration
Private Sub TBPM_PROFILETableAdapter_Disposed(sender As Object, e As EventArgs) Handles TBPM_PROFILETableAdapter.Disposed
End Sub
End Class