MS_20.10.2015

app/DD-Record-Organiser/frmConstructorDesigner.vb

@@ -1,9 +1,21 @@
 Public Class frmConstructorDesigner
     Dim formloaded As Boolean = False
     Private Sub TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Click
-        Me.Validate()
-        Me.TBPMO_FORM_CONSTRUCTORBindingSource.EndEdit()
-        Me.TableAdapterManager.UpdateAll(Me.DD_ECMAdmin)
+        Try
+            Me.Validate()
+            Me.TBPMO_FORM_CONSTRUCTORBindingSource.EndEdit()
+            If DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR.GetChanges Is Nothing = False Then
+                Me.CHANGED_WHOTextBox.Text = Environment.UserName
+                TBPMO_FORM_CONSTRUCTORTableAdapter.Update(DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR)
+                lblSave.Visible = True
+            Else
+                lblSave.Visible = False
+            End If
+
+        Catch ex As Exception
+            MsgBox("Error in Saving FormConstructor:" & vbNewLine & ex.Message)
+        End Try
+       
 
     End Sub
 
@@ -93,6 +105,7 @@
 
     End Sub
     Private Sub TBPMO_FORM_CONSTRUCTORBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_FORM_CONSTRUCTORBindingSource.CurrentChanged
+        lblSave.Visible = False
         If formloaded = True Then
             Try
                 If CONSTRUCTOR_IDTextBox.Text <> "" Then