Merge pull request #57 from burnsoftnet/REFACTOR/#20CodeCleanUP

BSMyLoadersLog/AboutBox1.vb

@@ -1,4 +1,4 @@
-Imports BSMyLoadersLog.LoadersClass
+
 ''' <summary>
 ''' Class AboutBox1. This class cannot be inherited.
 ''' Implements the <see cref="System.Windows.Forms.Form" />
@@ -27,7 +27,8 @@ Public NotInheritable Class AboutBox1
         '    properties dialog (under the "Project" menu).
         LabelProductName.Text = My.Application.Info.ProductName
         Dim dbVersion As Long = BurnSoft.Applications.MLL.Database.GetDatabaseVersion(DatabasePath, errOut)
-        LabelVersion.Text = String.Format("App Version {0}", Application.ProductVersion.ToString) & "  ,  " & String.Format("DB Version {0}", dbVersion)
+        LabelVersion.Text = String.Format("App Version {0}", Application.ProductVersion.ToString) & 
+                            "  ,  " & String.Format("DB Version {0}", dbVersion)
         LabelCopyright.Text = My.Application.Info.Copyright
         LabelCompanyName.Text = My.Application.Info.CompanyName
         TextBoxDescription.Text = My.Application.Info.Description

BSMyLoadersLog/Adding/frmAddBullets.vb

@@ -8,9 +8,9 @@ Namespace Adding
 
     ''' <summary>
     ''' Class FrmAddBullets.
-    ''' Implements the <see cref="System.Windows.Forms.Form" />
+    ''' Implements the <see cref="Form" />
     ''' </summary>
-    ''' <seealso cref="System.Windows.Forms.Form" />
+    ''' <seealso cref="Form" />
     Public Class FrmAddBullets
         ''' <summary>
         ''' From view
@@ -23,7 +23,7 @@ Namespace Adding
         ''' <summary>
         ''' The bullet id
         ''' </summary>
-        Public Bid As Long
+        Public BulletId As Long
         ''' <summary>
         ''' The error out
         ''' </summary>
@@ -34,7 +34,7 @@ Namespace Adding
         Sub LoadData()
             Try
                 Dim values As List(Of BulletListings) = BulletsInventory.GetDetails(DatabasePath, 
-                                                                                    Bid, _errOut)
+                                                                                    BulletId, _errOut)
                 if _errOut.Length > 0 Then Throw New Exception(_errOut)
                 For Each o As BulletListings In values
                     txtManu.Text = o.Manufacturer
@@ -61,7 +61,7 @@ Namespace Adding
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
         ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
-        Private Sub frmAddBullets_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
+        Private Sub frmAddBullets_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
             General_Ammunition_TypeTableAdapter.Fill(MLLDataSet.General_Ammunition_Type)
             Try
                 List_CalibersTableAdapter.Fill(MLLDataSet.List_Calibers)
@@ -75,8 +75,8 @@ Namespace Adding
         ''' Handles the Click event of the btnCancel control.
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
-        ''' <param name="e">The <see cref="System.EventArgs"/> instance containing the event data.</param>
-        Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnCancel.Click
+        ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
+        Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancel.Click
             Close()
         End Sub
         ''' <summary>
@@ -108,8 +108,8 @@ Namespace Adding
         ''' Handles the Click event of the btnAdd control.
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
-        ''' <param name="e">The <see cref="System.EventArgs"/> instance containing the event data.</param>
-        Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAdd.Click
+        ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
+        Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAdd.Click
             Try
                 Dim strManu As String = GeneralHelpers.FluffContent(txtManu.Text)
                 Dim strName As String = GeneralHelpers.FluffContent(txtName.Text)

BSMyLoadersLog/Adding/frmAddBushing_Powder.vb

@@ -6,9 +6,9 @@ Namespace Adding
 
     ''' <summary>
     ''' Class FrmAddBushingPowder.
-    ''' Implements the <see cref="System.Windows.Forms.Form" />
+    ''' Implements the <see cref="Form" />
     ''' </summary>
-    ''' <seealso cref="System.Windows.Forms.Form" />
+    ''' <seealso cref="Form" />
     Public Class FrmAddBushingPowder
         ''' <summary>
         ''' The error out
@@ -35,8 +35,8 @@ Namespace Adding
         ''' Handles the Load event of the frmAddChargeBushing control.
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
-        ''' <param name="e">The <see cref="System.EventArgs"/> instance containing the event data.</param>
-        Private Sub frmAddChargeBushing_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
+        ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
+        Private Sub frmAddChargeBushing_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
             Try
                 Call PreloadData()
             Catch ex As Exception
@@ -48,7 +48,7 @@ Namespace Adding
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
         ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
-        Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnCancel.Click
+        Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancel.Click
             Close()
         End Sub
         ''' <summary>
@@ -92,7 +92,7 @@ Namespace Adding
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
         ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
-        Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAdd.Click
+        Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAdd.Click
             Call SaveData()
         End Sub
         ''' <summary>
@@ -115,15 +115,15 @@ Namespace Adding
         ''' Handles the Enter event of the txtName control.
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
-        ''' <param name="e">The <see cref="System.EventArgs"/> instance containing the event data.</param>
+        ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
         Private Sub txtName_Enter(ByVal sender As Object, ByVal e As EventArgs) Handles txtName.Enter
             txtName.SelectAll()
         End Sub
         ''' <summary>
         ''' Handles the Enter event of the txtPowderName control.
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
-        ''' <param name="e">The <see cref="System.EventArgs"/> instance containing the event data.</param>
+        ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
         Private Sub txtPowderName_Enter(ByVal sender As Object, ByVal e As EventArgs) Handles txtPowderName.Enter
             txtPowderName.SelectAll()
         End Sub

BSMyLoadersLog/Adding/frmAddBushing_Shot.vb

@@ -6,25 +6,25 @@ Namespace Adding
 
     ''' <summary>
     ''' Class frmAddBushing_Shot.
-    ''' Implements the <see cref="System.Windows.Forms.Form" />
+    ''' Implements the <see cref="Form" />
     ''' </summary>
-    ''' <seealso cref="System.Windows.Forms.Form" />
+    ''' <seealso cref="Form" />
     Public Class FrmAddBushingShot
         ''' <summary>
         ''' The error out
         ''' </summary>
-        Private errOut as String
+        Private _errOut as String
         ''' <summary>
         ''' Pres the load data.
         ''' </summary>
         Sub PreLoadData()
             Try
-                txtCharge.AutoCompleteCustomSource = ConfigShotgun.BushingShotCharge(DatabasePath, errOut)
-                If errOut.Length > 0 Then Throw New Exception(errOut)
-                txtManu.AutoCompleteCustomSource = ConfigShotgun.BushingShotManufacturer(DatabasePath, errOut)
-                If errOut.Length > 0 Then Throw New Exception(errOut)
-                txtName.AutoCompleteCustomSource = ConfigShotgun.BushingShotName(DatabasePath, errOut)
-                If errOut.Length > 0 Then Throw New Exception(errOut)
+                txtCharge.AutoCompleteCustomSource = ConfigShotgun.BushingShotCharge(DatabasePath, _errOut)
+                If _errOut.Length > 0 Then Throw New Exception(_errOut)
+                txtManu.AutoCompleteCustomSource = ConfigShotgun.BushingShotManufacturer(DatabasePath, _errOut)
+                If _errOut.Length > 0 Then Throw New Exception(_errOut)
+                txtName.AutoCompleteCustomSource = ConfigShotgun.BushingShotName(DatabasePath, _errOut)
+                If _errOut.Length > 0 Then Throw New Exception(_errOut)
             Catch ex As Exception
                 Call LogError(Name, "PreLoadData", Err.Number, ex.Message.ToString)
             End Try
@@ -43,8 +43,8 @@ Namespace Adding
         ''' Handles the Click event of the btnCancel control.
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
-        ''' <param name="e">The <see cref="System.EventArgs"/> instance containing the event data.</param>
-        Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnCancel.Click
+        ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
+        Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancel.Click
             Close()
         End Sub
         ''' <summary>
@@ -64,7 +64,7 @@ Namespace Adding
                 If Not GeneralHelpers.IsRequired(sCharge, "Charge Amount", 
                                                  Text) Then Exit Sub
                 If Not ShotgunShotInventory.Add(DatabasePath, manu, sName, sCharge, 
-                                                sType, errOut) Then Throw New Exception(errOut)
+                                                sType, _errOut) Then Throw New Exception(_errOut)
                 Call ClearFields()
             Catch ex As Exception
                 Call LogError(Name, "SaveData", Err.Number, ex.Message.ToString)
@@ -75,7 +75,7 @@ Namespace Adding
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
         ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
-        Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnAdd.Click
+        Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAdd.Click
             Call SaveData()
         End Sub
         ''' <summary>
@@ -98,7 +98,7 @@ Namespace Adding
         ''' Handles the Enter event of the txtName control.
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
-        ''' <param name="e">The <see cref="System.EventArgs"/> instance containing the event data.</param>
+        ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
         Private Sub txtName_Enter(ByVal sender As Object, ByVal e As EventArgs) Handles txtName.Enter
             txtName.SelectAll()
         End Sub
@@ -107,7 +107,7 @@ Namespace Adding
         ''' </summary>
         ''' <param name="sender">The source of the event.</param>
         ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
-        Private Sub frmAddBushing_Shot_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
+        Private Sub frmAddBushing_Shot_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
             Call PreLoadData()
         End Sub
     End Class

BSMyLoadersLog/Adding/frmAddCaliberToCollection.vb

@@ -5,9 +5,9 @@ Imports BurnSoft.Applications.MLL.Inventory
 Namespace Adding
     ''' <summary>
     ''' Class FrmAddCaliberToCollection.
-    ''' Implements the <see cref="System.Windows.Forms.Form" />
+    ''' Implements the <see cref="Form" />
     ''' </summary>
-    ''' <seealso cref="System.Windows.Forms.Form" />
+    ''' <seealso cref="Form" />
     Public Class FrmAddCaliberToCollection
         ''' <summary>
         ''' The error out