Merge pull request #798 from climsoft/V427+++

ClimsoftV427Plus++

Author: mhabimana

ClimsoftVer4/ClimsoftVer4/frmObsView.Designer.vb

@@ -920,12 +920,13 @@
             'MsgBox(ex.Message & " " & ex.HResult)
             If ex.HResult = -2147467259 Then
                 MsgBox("Check Selections")
+                Me.Cursor = Cursors.Default
+                Return False
             Else
-                MsgBox(ex.Message & "showRecords")
+                'MsgBox(ex.Message & "showRecords")
+                Me.Cursor = Cursors.Default
+                Return True
             End If
-
-            Me.Cursor = Cursors.Default
-            Return False
         End Try
     End Function
     Function BackupRecords(tbl As String, sql As String) As Boolean

ClimsoftVer4/ClimsoftVer4/frmObsView.vb

@@ -80,6 +80,9 @@ Public Class frmQC
         chkAllElements.Checked = False
 
         Try
+
+            Me.Cursor = Cursors.WaitCursor
+
             conns.ConnectionString = frmLogin.txtusrpwd.Text
             conns.Open()
 
@@ -129,8 +132,9 @@ Public Class frmQC
                 itms = New ListViewItem(elm)
                 lstViewElements.Items.Add(itms)
             Next
-
+            Me.Cursor = Cursors.Default
         Catch ex As MySql.Data.MySqlClient.MySqlException
+            Me.Cursor = Cursors.Default
             MsgBox(ex.Message)
             conns.Close()
         End Try

ClimsoftVer4/ClimsoftVer4/frmQC.vb

@@ -253,6 +253,8 @@ Public Class frmUploadToObsFinal
         lstViewElements.Columns.Add("Element Details", 200, HorizontalAlignment.Left)
 
         Try
+            Me.Cursor = Cursors.WaitCursor
+
             conns.ConnectionString = frmLogin.txtusrpwd.Text
             conns.Open()
 
@@ -300,8 +302,9 @@ Public Class frmUploadToObsFinal
                 itms = New ListViewItem(elm)
                 lstViewElements.Items.Add(itms)
             Next
-
+            Me.Cursor = Cursors.Default
         Catch ex As MySql.Data.MySqlClient.MySqlException
+            Me.Cursor = Cursors.Default
             MsgBox(ex.Message)
             conns.Close()
         End Try