Changeset 21 for trunk/desktop/ICSSerialPort.rbbas

Timestamp:

04/08/10 11:35:52 (15 years ago)

Author:

pinwc4

Message:

Added logic to hide save and delete profile buttons after a profile has been deleted and removed from the menu.

File:

• trunk/desktop/ICSSerialPort.rbbas (modified) (1 diff)

trunk/desktop/ICSSerialPort.rbbas

@@ -328 +328 @@
         #tag Method, Flags = &h0
                 Sub saveProfile(theName as String)
-                  dim rs as RecordSet
-                  dim status as Boolean
-                  
-                  //Find a record
-                  rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'")
-                  
-                  //Make sure we got a record
-                  if rs <> nil then
-                    //delete the record before saving
-                    deleteProfile(theName)
+                  if theName <> "" then
+                    
+                    dim rs as RecordSet
+                    dim status as Boolean
+                    
+                    //Find a record
+                    rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'")
+                    
+                    //Make sure we got a record
+                    if rs <> nil then
+                      //delete the record before saving
+                      deleteProfile(theName)
+                    end if
+                    
+                    rs.Close
+                    
+                    status = createProfile(theName)
+                    
+                  else
+                    
+                    MsgBox "Please select a profile to modify"
+                    
                   end if
-                  
-                  rs.Close
-                  
-                  status = createProfile(theName)
                 End Sub
         #tag EndMethod