Added backup threshold setting (Issue 19)

GBM/Managers/mgrSQLite.vb

@@ -69,9 +69,10 @@ Public Class mgrSQLite
             SQLiteConnection.CreateFile(sDatabaseLocation)
 
             'Add Tables (Settings)
-            sSql = "CREATE TABLE settings (SettingsID INTEGER NOT NULL PRIMARY KEY, MonitorOnStartup BOOLEAN NOT NULL, StartToTray BOOLEAN NOT NULL, ShowDetectionToolTips BOOLEAN NOT NULL, " & _
-                   "DisableConfirmation BOOLEAN NOT NULL, CreateSubFolder BOOLEAN NOT NULL, ShowOverwriteWarning BOOLEAN NOT NULL, RestoreOnLaunch BOOLEAN NOT NULL, " & _
-                   "BackupFolder TEXT NOT NULL, Sync BOOLEAN NOT NULL, CheckSum BOOLEAN NOT NULL, StartWithWindows BOOLEAN NOT NULL, TimeTracking BOOLEAN NOT NULL);"
+            sSql = "CREATE TABLE settings (SettingsID INTEGER NOT NULL PRIMARY KEY, MonitorOnStartup BOOLEAN NOT NULL, StartToTray BOOLEAN NOT NULL, ShowDetectionToolTips BOOLEAN NOT NULL, " &
+                   "DisableConfirmation BOOLEAN NOT NULL, CreateSubFolder BOOLEAN NOT NULL, ShowOverwriteWarning BOOLEAN NOT NULL, RestoreOnLaunch BOOLEAN NOT NULL, " &
+                   "BackupFolder TEXT NOT NULL, Sync BOOLEAN NOT NULL, CheckSum BOOLEAN NOT NULL, StartWithWindows BOOLEAN NOT NULL, TimeTracking BOOLEAN NOT NULL, " &
+                   "SupressBackup BOOLEAN NOT NULL, SupressBackupThreshold INTEGER NOT NULL);"
 
             'Add Tables (Monitor List)
             sSql &= "CREATE TABLE monitorlist (MonitorID TEXT NOT NULL UNIQUE, Name TEXT NOT NULL, Process TEXT NOT NULL, Path TEXT, " & _
@@ -486,7 +487,11 @@ Public Class mgrSQLite
                 'Backup DB before starting
                 BackupDB("v94")
 
-                sSQL = "PRAGMA user_version=95"
+                'Add new setting
+                sSQL = "ALTER TABLE settings ADD COLUMN SupressBackup BOOLEAN NOT NULL DEFAULT 0;"
+                sSQL &= "ALTER TABLE settings ADD COLUMN SupressBackupThreshold INTEGER NOT NULL DEFAULT 10;"
+
+                sSQL &= "PRAGMA user_version=95"
 
                 RunParamQuery(sSQL, New Hashtable)
             End If

GBM/Managers/mgrSettings.vb

@@ -12,6 +12,8 @@ Public Class mgrSettings
     Private bSync As Boolean = True
     Private bCheckSum As Boolean = True
     Private bTimeTracking As Boolean = True
+    Private bSupressBackup As Boolean = False
+    Private iSupressBackupThreshold As Integer = 10
     Private sBackupFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments).TrimEnd(New Char() {"\", "/"})
 
     Property StartWithWindows As Boolean
@@ -113,6 +115,24 @@ Public Class mgrSettings
         End Set
     End Property
 
+    Property SupressBackup As Boolean
+        Get
+            Return bSupressBackup
+        End Get
+        Set(value As Boolean)
+            bSupressBackup = value
+        End Set
+    End Property
+
+    Property SupressBackupThreshold As Integer
+        Get
+            Return iSupressBackupThreshold
+        End Get
+        Set(value As Integer)
+            iSupressBackupThreshold = value
+        End Set
+    End Property
+
     Property BackupFolder As String
         Get
             Return sBackupFolder
@@ -131,7 +151,8 @@ Public Class mgrSettings
         oDatabase.RunParamQuery(sSQL, New Hashtable)
 
         sSQL = "INSERT INTO settings VALUES (1, @MonitorOnStartup, @StartToTray, @ShowDetectionToolTips, @DisableConfirmation, "
-        sSQL &= "@CreateSubFolder, @ShowOverwriteWarning, @RestoreOnLaunch, @BackupFolder, @Sync, @CheckSum, @StartWithWindows, @TimeTracking)"
+        sSQL &= "@CreateSubFolder, @ShowOverwriteWarning, @RestoreOnLaunch, @BackupFolder, @Sync, @CheckSum, @StartWithWindows, "
+        sSQL &= "@TimeTracking, @SupressBackup, @SupressBackupThreshold)"
 
         hshParams.Add("MonitorOnStartup", MonitorOnStartup)
         hshParams.Add("StartToTray", StartToTray)
@@ -145,6 +166,8 @@ Public Class mgrSettings
         hshParams.Add("CheckSum", CheckSum)
         hshParams.Add("StartWithWindows", StartWithWindows)
         hshParams.Add("TimeTracking", TimeTracking)
+        hshParams.Add("SupressBackup", SupressBackup)
+        hshParams.Add("SupressBackupThreshold", SupressBackupThreshold)
 
         oDatabase.RunParamQuery(sSQL, hshParams)
     End Sub
@@ -172,6 +195,8 @@ Public Class mgrSettings
             CheckSum = CBool(dr("CheckSum"))
             StartWithWindows = CBool(dr("StartWithWindows"))
             TimeTracking = CBool(dr("TimeTracking"))
+            SupressBackup = CBool(dr("SupressBackup"))
+            SupressBackupThreshold = CInt(dr("SupressBackupThreshold"))
         Next
 
         oDatabase.Disconnect()