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

ms

Browse Source
This commit is contained in:
SchreiberM 2021-01-25 16:40:52 +01:00
parent ea8156e23c
commit 2b1ec0f68a
3 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.vb
View File

@ -26,6 +26,9 @@ End Class
Namespace DD_DMSLiteDataSetTableAdapters Namespace DD_DMSLiteDataSetTableAdapters
Partial Public Class TBPM_PROFILETableAdapter Partial Public Class TBPM_PROFILETableAdapter
Private Sub TBPM_PROFILETableAdapter_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
End Sub
End Class End Class
Partial Public Class TBDD_USERTableAdapter Partial Public Class TBDD_USERTableAdapter

2
app/DD_PM_WINDREAM/frmAdministration.resx
View File

@ -2134,7 +2134,7 @@
<value>3, 3, 3, 3</value> <value>3, 3, 3, 3</value>
</data> </data>
<data name="TabPage12.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPage12.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 313</value> <value>962, 316</value>
</data> </data>
<data name="TabPage12.TabIndex" type="System.Int32, mscorlib"> <data name="TabPage12.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>

27
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -1376,12 +1376,8 @@ Public Class frmAdministration
If formloaded = False Then If formloaded = False Then
Exit Sub Exit Sub
End If End If
If UNSAVED_CHANGES_PROFILE Then
CHECK_QUESTION_CHANGES()
End If
' Check_Changes() ' Check_Changes()
change_BindingSource = True change_BindingSource = True
CHECK_QUESTION_CHANGES()
End Sub End Sub
Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
If formloaded = False Then If formloaded = False Then
@ -1506,14 +1502,6 @@ Public Class frmAdministration
' '
End Sub End Sub
Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridViewProfile.ValidateRow
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub
End If
change_BindingSource = True
End Sub
Private Sub TBPM_PROFILEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentChanged 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 If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
Exit Sub Exit Sub
@ -1722,19 +1710,26 @@ Public Class frmAdministration
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 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 Then If formloaded = False Or IsNothing(CURR_TEXT_CONTROL_CONTENT) Then
Exit Sub
End If
If change_BindingSource = True Then
Exit Sub Exit Sub
End If End If
'If change_BindingSource = True Then
' Exit Sub
'End If
Dim oBox As TextBox = sender Dim oBox As TextBox = sender
If Len(oBox.Text) > 0 Then If Len(oBox.Text) > 0 Then
If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
UNSAVED_CHANGES_PROFILE = True UNSAVED_CHANGES_PROFILE = True
End If End If
End If End If
End Sub End Sub
Private Sub TBPM_PROFILEBindingSource_DataError(sender As Object, e As BindingManagerDataErrorEventArgs) Handles TBPM_PROFILEBindingSource.DataError
End Sub
Private Sub TBPM_PROFILETableAdapter_Disposed(sender As Object, e As EventArgs) Handles TBPM_PROFILETableAdapter.Disposed
End Sub
End Class End Class