Changed data managers to use field names

This commit is contained in:
Michael J. Seiferling
2015-11-24 14:20:07 -06:00
parent 2617852d77
commit 254bcbbab5
6 changed files with 112 additions and 112 deletions
+12 -12
View File
@@ -160,18 +160,18 @@ Public Class mgrSettings
oData = oDatabase.ReadParamData(sSQL, New Hashtable)
For Each dr As DataRow In oData.Tables(0).Rows
MonitorOnStartup = CBool(dr(1))
StartToTray = CBool(dr(2))
ShowDetectionToolTips = CBool(dr(3))
DisableConfirmation = CBool(dr(4))
CreateSubFolder = CBool(dr(5))
ShowOverwriteWarning = CBool(dr(6))
RestoreOnLaunch = CBool(dr(7))
BackupFolder = CStr(dr(8))
Sync = CBool(dr(9))
CheckSum = CBool(dr(10))
StartWithWindows = CBool(dr(11))
TimeTracking = CBool(dr(12))
MonitorOnStartup = CBool(dr("MonitorOnStartup"))
StartToTray = CBool(dr("StartToTray"))
ShowDetectionToolTips = CBool(dr("ShowDetectionToolTips"))
DisableConfirmation = CBool(dr("DisableConfirmation"))
CreateSubFolder = CBool(dr("CreateSubFolder"))
ShowOverwriteWarning = CBool(dr("ShowOverwriteWarning"))
RestoreOnLaunch = CBool(dr("RestoreOnLaunch"))
BackupFolder = CStr(dr("BackupFolder"))
Sync = CBool(dr("Sync"))
CheckSum = CBool(dr("CheckSum"))
StartWithWindows = CBool(dr("StartWithWindows"))
TimeTracking = CBool(dr("TimeTracking"))
Next
oDatabase.Disconnect()