MS WMsharedrive Integration

app/DD-Record-Organizer/frmGlobalSearch.vb

@@ -4,6 +4,9 @@ Imports System.IO
 Imports DevExpress.XtraGrid.Views.Grid
 Imports System.Runtime.InteropServices
 Imports DevExpress.XtraPrinting
+Imports DevExpress.Data.Filtering.Helpers.SubExprHelper.CriteriaTokens
+Imports DevExpress.XtraSplashScreen
+Imports System.Threading
 
 Public Class frmGlobalSearch
     Inherits DevExpress.XtraBars.Ribbon.RibbonForm
@@ -34,47 +37,59 @@ Public Class frmGlobalSearch
     Private _Helper As ClassHelper
     Dim sel_Records, sel_FT As String
     Private SelectedGrid As DevExpress.XtraGrid.GridControl
-    Private Sub tsbtnRefresh_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh.Click
-        Refresh_Search()
-    End Sub
+
     Sub Refresh_Search()
         If txtSearch.Text = "" Then
             Exit Sub
         End If
-        sel_Records = ""
-        sel_FT = ""
+        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
+        Try
+            sel_Records = ""
+            sel_FT = ""
 
-        If rbSearchCombined.Checked = True Then
-            PREPARE_RECORD_SQL()
-            PREPARE_FT_SQL()
-        End If
-        If rbSearchRecord.Checked = True Then
-            PREPARE_RECORD_SQL()
-        End If
-        If rbSearchFulltext.Checked Then
-            PREPARE_FT_SQL()
-        End If
-        Dim DT_Files As DataTable
-        Dim DT_RECORD_RESULT As DataTable
-        If rbSearchCombined.Checked Or rbSearchRecord.Checked Then
-            DT_RECORD_RESULT = Refresh_Records()
-        Else
-            SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
-            SplitContainerMain.Collapsed = True
-            tslblRecordsResult.Text = String.Format("No records found")
-            GridControlRecords.DataSource = Nothing
-        End If
-        If rbSearchCombined.Checked Or rbSearchFulltext.Checked Then
-            DT_Files = Refresh_Files()
+            If rbSearchCombined.Checked = True Then
+                PREPARE_RECORD_SQL()
+                PREPARE_FT_SQL()
+            End If
+            If rbSearchRecord.Checked = True Then
+                PREPARE_RECORD_SQL()
+            End If
             If rbSearchFulltext.Checked Then
+                PREPARE_FT_SQL()
+            End If
+            Dim DT_Files As DataTable
+            Dim DT_RECORD_RESULT As DataTable
+            If rbSearchCombined.Checked Or rbSearchRecord.Checked Then
+                DT_RECORD_RESULT = Refresh_Records()
+            Else
                 SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
                 SplitContainerMain.Collapsed = True
+                tslblRecordsResult.Text = String.Format("No records found")
+                GridControlRecords.DataSource = Nothing
             End If
-        Else
-            SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
-            SplitContainerMain.Collapsed = True
-            GridControlFiles.DataSource = Nothing
-        End If
+            If rbSearchCombined.Checked Or rbSearchFulltext.Checked Then
+                DT_Files = Refresh_Files()
+                If rbSearchFulltext.Checked Then
+                    SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
+                    SplitContainerMain.Collapsed = True
+                End If
+            Else
+                SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
+                SplitContainerMain.Collapsed = True
+                GridControlFiles.DataSource = Nothing
+            End If
+
+
+
+        Catch ex As Exception
+
+        Finally
+            SplashScreenManager.CloseOverlayForm(oHandle)
+        End Try
+
+
+
+
     End Sub
     Sub PREPARE_FT_SQL()
         Dim oFTSearchtext = txtSearch.Text