MS admin

GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.vb

@@ -120,30 +120,56 @@ Public Class frmAdmin_IDBBERelations
         End Try
     End Function
 
-    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
-        If AddAttr2BE(SELECTED_FREE_ATTRID, SELECTED_BEID) Then
-            LoadFreeAttributes()
-            LoadRelatedAttributes()
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnAddAttribute.Click
+        SELECTED_FREE_ATTRID = 0
+        GetFreeAttributeID()
+
+        If SELECTED_FREE_ATTRID <> 0 Then
+            If AddAttr2BE(SELECTED_FREE_ATTRID, SELECTED_BEID) Then
+                LoadFreeAttributes()
+                LoadRelatedAttributes()
+                Show_bsiInfo("Attribute related")
+            End If
+        Else
+            Show_bsiInfo("Error in AttributeRelation - No AttributeID")
         End If
 
+
     End Sub
 
-    Private Sub GridViewFreeAttributes_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewFreeAttributes.FocusedRowChanged
+    Private Sub GetFreeAttributeID()
         Dim oID = GridViewFreeAttributes.GetFocusedRowCellValue(GridViewFreeAttributes.Columns("AttributeID"))
         SELECTED_FREE_ATTRID = oID
 
     End Sub
 
-    Private Sub GridViewRelatedAttributes_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewRelatedAttributes.FocusedRowChanged
+    Private Sub GetRelatedAttributeGUID()
         Dim oID = GridViewRelatedAttributes.GetFocusedRowCellValue(GridViewRelatedAttributes.Columns("RelID"))
         SELECTED_ID2DELETE = oID
     End Sub
 
-    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
-        If DeleteAttrfromBE(SELECTED_ID2DELETE) Then
-            LoadFreeAttributes()
-            LoadRelatedAttributes()
-            SELECTED_ID2DELETE = 0
+    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles btnRemoveAttribute.Click
+        SELECTED_ID2DELETE = 0
+        GetRelatedAttributeGUID()
+
+        If SELECTED_ID2DELETE <> 0 Then
+            If DeleteAttrfromBE(SELECTED_ID2DELETE) Then
+                LoadFreeAttributes()
+                LoadRelatedAttributes()
+                SELECTED_ID2DELETE = 0
+                Show_bsiInfo("Attribute removed")
+            End If
+        Else
+            Show_bsiInfo("Error in RemoveAttribute - No ID")
         End If
+
+    End Sub
+    Sub Show_bsiInfo(pInfo As String)
+        bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+        bsiInfo.Caption = pInfo & " - " & Now.ToString
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        Me.Close()
     End Sub
 End Class