Zooflow: Massive Clean up

GUIs.ZooFlow/Administration/frmAdmin_IDBBERelations.vb

@@ -2,6 +2,7 @@
 Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.Grid
 Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+Imports DigitalData.Modules.Logging
 
 Public Class frmAdmin_IDBBERelations
     Private GridCursorLocation As Point
@@ -11,6 +12,8 @@ Public Class frmAdmin_IDBBERelations
     Private DraggedAttributeID
     Private DragDropManager As ClassDragDrop = Nothing
     Private downHitInfo As GridHitInfo = Nothing
+    Private Logger As Logger
+
     Private Function GetAvailableAttributesByBEID(beID As Integer) As DataTable
         Try
             Dim dt As DataTable
@@ -41,6 +44,8 @@ Public Class frmAdmin_IDBBERelations
 
     Private Sub frmAdmin_IDBBERelations_Load(sender As Object, e As EventArgs) Handles Me.Load
         Try
+            Logger = My.LogConfig.GetLogger()
+
             Dim oSQL = "Select Guid As ID,TITLE As BusinessEntity from TBIDB_BUSINESS_ENTITY"
             Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
             GridControlBusinessEntities.DataSource = oDT
@@ -88,12 +93,12 @@ Public Class frmAdmin_IDBBERelations
                 End If
             End If
         Catch ex As Exception
-            LOGGER.Error(ex)
+            Logger.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Adding AttrID:")
         End Try
     End Sub
 
-    Public Shared Function AddAttr2BE(AttrId As Integer, BeId As Integer) As Boolean
+    Public Function AddAttr2BE(AttrId As Integer, BeId As Integer) As Boolean
         Try
             Dim oSQL = $"
                 INSERT INTO TBIDB_BE_ATTRIBUTE (BE_ID,ATTR_ID,ADDED_WHO)
@@ -101,16 +106,16 @@ Public Class frmAdmin_IDBBERelations
             "
             Return My.DatabaseIDB.ExecuteNonQuery(oSQL)
         Catch ex As Exception
-            LOGGER.Error(ex)
+            Logger.Error(ex)
             Return False
         End Try
     End Function
-    Public Shared Function DeleteAttrfromBE(ID As Integer) As Boolean
+    Public Function DeleteAttrfromBE(ID As Integer) As Boolean
         Try
             Dim oSQL = $"DELETE FROM TBIDB_BE_ATTRIBUTE WHERE GUID = {ID}"
             Return My.DatabaseIDB.ExecuteNonQuery(oSQL)
         Catch ex As Exception
-            LOGGER.Error(ex)
+            Logger.Error(ex)
             Return False
         End Try
     End Function