Version 0.0.0.9098

2017 Big Rivers App Phase II updates & Phase I fixes Partial vegplot & photo updates including photo forms and new PhotoBatchUpdate form Miscellaneous application cleanup Revisit issue #11
envisionnw · Dec 14, 2017 · 640800e · 640800e
1 parent dfe6846
commit 640800e
Show file tree

Hide file tree

Showing 32 changed files with 1,958 additions and 10,794 deletions.
diff --git a/big_rivers.zip b/big_rivers.zip
diff --git a/source/forms/Contact.bas b/source/forms/Contact.bas
@@ -20,10 +20,10 @@ Begin Form
     Width =8220
     DatasheetFontHeight =11
     ItemSuffix =61
-    Left =2955
-    Top =2730
-    Right =16110
-    Bottom =14115
+    Left =9150
+    Top =3510
+    Right =18090
+    Bottom =14895
     DatasheetGridlinesColor =14806254
     RecSrcDt = Begin
         0x20f1f0c46fcee440
@@ -1520,10 +1520,10 @@ End Sub
 Private Sub Form_BeforeUpdate(Cancel As Integer)
 On Error GoTo Err_Handler
 
-    Debug.Print Me.Name & " Form_BeforeUpdate SaveOK = " & m_SaveOK
-
-    Debug.Print Me.Name & " Form_BeforeUpdate Me.Dirty IS " & Me.Dirty
-    Debug.Print Me.Name & " Form_BeforeUpdate Me.list.Form.Dirty IS " & Me.list.Form.Dirty
+'    Debug.Print Me.Name & " Form_BeforeUpdate SaveOK = " & m_SaveOK
+'
+'    Debug.Print Me.Name & " Form_BeforeUpdate Me.Dirty IS " & Me.Dirty
+'    Debug.Print Me.Name & " Form_BeforeUpdate Me.list.Form.Dirty IS " & Me.list.Form.Dirty
 
     'avoid actions when clearing form
     If RefSub = "ClearForm" Then GoTo Exit_Handler
@@ -1536,8 +1536,8 @@ On Error GoTo Err_Handler
         'm_ContinueSave = True
     End If
 
-    Debug.Print Me.Name & " Form_BeforeUpdate after cnx Me.Dirty IS " & Me.Dirty
-    Debug.Print Me.Name & " Form_BeforeUpdate after cnx Me.list.Form.Dirty IS " & Me.list.Form.Dirty
+'    Debug.Print Me.Name & " Form_BeforeUpdate after cnx Me.Dirty IS " & Me.Dirty
+'    Debug.Print Me.Name & " Form_BeforeUpdate after cnx Me.list.Form.Dirty IS " & Me.list.Form.Dirty
 
 
 Exit_Handler:
@@ -2067,8 +2067,8 @@ On Error GoTo Err_Handler
 
     Dim isOK As Boolean
 
-    Debug.Print Me.Name & " Form_Current Me.Dirty IS " & Me.Dirty
-    Debug.Print Me.Name & " Form_Current Me.list.Form.Dirty IS " & Me.list.Form.Dirty
+'    Debug.Print Me.Name & " Form_Current Me.Dirty IS " & Me.Dirty
+'    Debug.Print Me.Name & " Form_Current Me.list.Form.Dirty IS " & Me.list.Form.Dirty
 
     'default
     isOK = False

diff --git a/source/forms/ContactList.bas b/source/forms/ContactList.bas
@@ -18,13 +18,13 @@ Begin Form
     DatasheetGridlinesBehavior =3
     GridX =24
     GridY =24
-    Width =7500
+    Width =8640
     DatasheetFontHeight =11
     ItemSuffix =44
-    Left =3255
-    Top =4050
-    Right =10980
-    Bottom =8415
+    Left =450
+    Top =5835
+    Right =8175
+    Bottom =9945
     DatasheetGridlinesColor =14806254
     RecSrcDt = Begin
         0x8ae9cc518dd4e440
@@ -211,9 +211,9 @@ Begin Form
                     ForeTint =100.0
                 End
                 Begin Label
-                    OverlapFlags =215
-                    Left =180
-                    Top =120
+                    OverlapFlags =223
+                    Left =1380
+                    Top =240
                     Width =7260
                     Height =840
                     BorderColor =8355711
@@ -222,10 +222,10 @@ Begin Form
                     Caption ="Edit or Delete Records using the buttons for the record at right.\015\012Icon co"
                         "des at left identify if record may be edited/deleted."
                     GridlineColor =10921638
-                    LayoutCachedLeft =180
-                    LayoutCachedTop =120
-                    LayoutCachedWidth =7440
-                    LayoutCachedHeight =960
+                    LayoutCachedLeft =1380
+                    LayoutCachedTop =240
+                    LayoutCachedWidth =8640
+                    LayoutCachedHeight =1080
                     ForeThemeColorIndex =-1
                     ForeTint =100.0
                 End
@@ -250,7 +250,7 @@ Begin Form
                     ForeTint =100.0
                 End
                 Begin Label
-                    OverlapFlags =85
+                    OverlapFlags =215
                     TextAlign =1
                     Left =1620
                     Top =1020
@@ -271,7 +271,7 @@ Begin Form
                     ForeTint =100.0
                 End
                 Begin Label
-                    OverlapFlags =85
+                    OverlapFlags =215
                     TextAlign =1
                     Left =3180
                     Top =1020

diff --git a/source/forms/EventsList.bas b/source/forms/EventsList.bas
@@ -20,10 +20,10 @@ Begin Form
     Width =7560
     DatasheetFontHeight =11
     ItemSuffix =30
-    Left =450
-    Top =3450
-    Right =7830
-    Bottom =7560
+    Left =1065
+    Top =2820
+    Right =8700
+    Bottom =7185
     DatasheetGridlinesColor =14806254
     RecSrcDt = Begin
         0x78280a14fe06e540
@@ -182,6 +182,7 @@ Begin Form
                     ForeColor =16777215
                     Name ="lblStartDate"
                     Caption ="Start Date"
+                    OnClick ="[Event Procedure]"
                     GridlineColor =10921638
                     LayoutCachedLeft =4740
                     LayoutCachedTop =1080
@@ -201,6 +202,7 @@ Begin Form
                     ForeColor =16777215
                     Name ="lblHdrID"
                     Caption ="ID"
+                    OnClick ="[Event Procedure]"
                     GridlineColor =10921638
                     LayoutCachedLeft =1020
                     LayoutCachedTop =1080
@@ -221,6 +223,7 @@ Begin Form
                     ForeColor =16777215
                     Name ="lblLocation"
                     Caption ="Location"
+                    OnClick ="[Event Procedure]"
                     GridlineColor =10921638
                     LayoutCachedLeft =3420
                     LayoutCachedTop =1080
@@ -241,6 +244,7 @@ Begin Form
                     ForeColor =16777215
                     Name ="lblSite"
                     Caption ="Site"
+                    OnClick ="[Event Procedure]"
                     GridlineColor =10921638
                     LayoutCachedLeft =1440
                     LayoutCachedTop =1080
@@ -503,7 +507,7 @@ Option Explicit
 ' =================================
 ' Form:         EventsList
 ' Level:        Application form
-' Version:      1.03
+' Version:      1.04
 ' Basis:        Dropdown form
 '
 ' Description:  List form object related properties, events, functions & procedures for UI display
@@ -514,6 +518,7 @@ Option Explicit
 '               BLC - 7/26/2016 - 1.01 - add RunReadyForSave() check
 '               BLC - 1/9/2017  - 1.02 - revised btnDelete_Click() to use tbxID vs ID on delete
 '               BLC - 10/18/2017 - 1.03 - code cleanup
+'               BLC - 12/7/2017 -  1.04 - added sorting
 ' =================================
 
 '---------------------
@@ -714,6 +719,134 @@ Err_Handler:
     Resume Exit_Handler
 End Sub
 
+' ---------------------------------
+' Sub:          lblHdrID_Click
+' Description:  lbl click actions
+' Assumptions:  -
+' Parameters:   -
+' Returns:      -
+' Throws:       none
+' References:
+'   pere_de_chipstic, August 5, 2012
+'   http://www.utteraccess.com/forum/Sort-Continuous-Form-Hea-t1991553.html
+' Source/date:  Bonnie Campbell, September 13, 2016 - for NCPN tools
+' Adapted:      -
+' Revisions:
+'   BLC - 12/7/2016 - initial version
+' ---------------------------------
+Private Sub lblHdrID_Click()
+On Error GoTo Err_Handler
+
+    'set the sort
+    SortListForm Me, Me.lblHdrID
+
+Exit_Handler:
+    Exit Sub
+Err_Handler:
+    Select Case Err.Number
+      Case Else
+        MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
+            "Error encountered (#" & Err.Number & " - lblHdrID_Click[EventsList form])"
+    End Select
+    Resume Exit_Handler
+End Sub
+
+' ---------------------------------
+' Sub:          lblSite_Click
+' Description:  lbl click actions
+' Assumptions:  -
+' Parameters:   -
+' Returns:      -
+' Throws:       none
+' References:
+'   pere_de_chipstic, August 5, 2012
+'   http://www.utteraccess.com/forum/Sort-Continuous-Form-Hea-t1991553.html
+' Source/date:  Bonnie Campbell, September 13, 2016 - for NCPN tools
+' Adapted:      -
+' Revisions:
+'   BLC - 12/7/2016 - initial version
+' ---------------------------------
+Private Sub lblSite_Click()
+On Error GoTo Err_Handler
+
+    'set the sort
+    SortListForm Me, Me.lblSite
+
+Exit_Handler:
+    Exit Sub
+Err_Handler:
+    Select Case Err.Number
+      Case Else
+        MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
+            "Error encountered (#" & Err.Number & " - lblSite_Click[EventsList form])"
+    End Select
+    Resume Exit_Handler
+End Sub
+
+' ---------------------------------
+' Sub:          lblLocation_Click
+' Description:  lbl click actions
+' Assumptions:  -
+' Parameters:   -
+' Returns:      -
+' Throws:       none
+' References:
+'   pere_de_chipstic, August 5, 2012
+'   http://www.utteraccess.com/forum/Sort-Continuous-Form-Hea-t1991553.html
+' Source/date:  Bonnie Campbell, September 13, 2016 - for NCPN tools
+' Adapted:      -
+' Revisions:
+'   BLC - 12/7/2016 - initial version
+' ---------------------------------
+Private Sub lblLocation_Click()
+On Error GoTo Err_Handler
+
+    'set the sort
+    SortListForm Me, Me.lblLocation
+
+Exit_Handler:
+    Exit Sub
+Err_Handler:
+    Select Case Err.Number
+      Case Else
+        MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
+            "Error encountered (#" & Err.Number & " - lblLocation_Click[EventsList form])"
+    End Select
+    Resume Exit_Handler
+End Sub
+
+' ---------------------------------
+' Sub:          lblStartDate_Click
+' Description:  lbl click actions
+' Assumptions:  -
+' Parameters:   -
+' Returns:      -
+' Throws:       none
+' References:
+'   pere_de_chipstic, August 5, 2012
+'   http://www.utteraccess.com/forum/Sort-Continuous-Form-Hea-t1991553.html
+' Source/date:  Bonnie Campbell, September 13, 2016 - for NCPN tools
+' Adapted:      -
+' Revisions:
+'   BLC - 12/7/2016 - initial version
+' ---------------------------------
+Private Sub lblStartDate_Click()
+On Error GoTo Err_Handler
+
+    'set the sort
+    SortListForm Me, Me.lblStartDate
+
+Exit_Handler:
+    Exit Sub
+Err_Handler:
+    Select Case Err.Number
+      Case Else
+        MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, _
+            "Error encountered (#" & Err.Number & " - lblStartDate_Click[EventsList form])"
+    End Select
+    Resume Exit_Handler
+End Sub
+
 ' ---------------------------------
 ' Sub:          btnEdit_Click
 ' Description:  Enter button click actions