Add product

Question

Imports System.Data.SqlClient
Public Class frmProduct
    Dim intDB_SKU_Selected As String
    Dim intDB_Supplier_Selected As Integer
    Dim intEdit_ID As String
    Dim operation_save As String
    Public Sub ClearTextBox()
        txtSKU.Clear()
        txtDescription.Clear()
        cbCategory.Text = ""
        txtExpireDate.Clear()
        txtSupplier.Clear()
        cbUnit.Text = ""
        txtQty_Unit.Clear()
        txtPcs_Qty.Clear()
        txtTotal_Qty.Clear()
        txtRetail.Clear()
        txtWholeSP.Clear()
        txtOriginalPrice.Clear()
        txtMarkUP.Clear()
        lbSupID.Text = ""
        txtDiscounted.Text = 0
        txtPercentage.Text = 0
    End Sub
    Public Sub enabletxtbox()
        txtSKU.Enabled = True
        txtDescription.Enabled = True
        cbCategory.Enabled = True
        'txtSupplier.Enabled = True
        cbUnit.Enabled = True
        txtQty_Unit.Enabled = True
        txtPcs_Qty.Enabled = True
        txtRetail.Enabled = True
        txtWholeSP.Enabled = True
        txtOriginalPrice.Enabled = True
        txtMarkUP.Enabled = True
        txtExpireDate.Enabled = True
        btnSearch_Supplier.Enabled = True
        CheckSenior.Enabled = True
    End Sub
    Public Sub disabletxtbox()
        txtDescription.Enabled = False
        cbCategory.Enabled = False
        txtSupplier.Enabled = False
        cbUnit.Enabled = False
        txtQty_Unit.Enabled = False
        txtPcs_Qty.Enabled = False
        txtTotal_Qty.Enabled = False
        txtRetail.Enabled = False
        txtWholeSP.Enabled = False
        txtOriginalPrice.Enabled = False
        txtMarkUP.Enabled = False
        txtExpireDate.Enabled = False
        btnSearch_Supplier.Enabled = False
        CheckSenior.Enabled = False
        txtPercentage.Enabled = False
        txtDiscounted.Enabled = False
        txtPercentage.Text = 0
    End Sub
    Public Sub dispRecProduct(ByVal PstrSQL As String)
        Me.ProductLV.Items.Clear()
        With comDB
            .CommandText = PstrSQL
            rdDB = .ExecuteReader
        End With
        Do While rdDB.Read
            Item = Me.ProductLV.Items.Add(rdDB!SKU.ToString.Trim)
            Item.SubItems.Add(rdDB!ItemDescription.ToString.Trim)
            Item.SubItems.Add(rdDB!Category.ToString.Trim)
            Item.SubItems.Add(rdDB!Expire_Date.ToString.Trim)
            Item.SubItems.Add(rdDB!OriginalPrice.ToString.Trim)
            Item.SubItems.Add(rdDB!MarkUp.ToString.Trim)
            Item.SubItems.Add(rdDB!WholeSalePrice.ToString.Trim)
            Item.SubItems.Add(rdDB!RetailPrice.ToString.Trim)
            Item.SubItems.Add(rdDB!DiscountedPrice.ToString.Trim)
            Item.SubItems.Add(rdDB!Unit.ToString.Trim)
            Item.SubItems.Add(rdDB!QTY_UNIT.ToString.Trim)
            Item.SubItems.Add(rdDB!Pcs_Qty.ToString.Trim)
            Item.SubItems.Add(rdDB!Total_Qty.ToString.Trim)
            My.Application.DoEvents()
        Loop
        rdDB.Close()
    End Sub
    Private Sub dispInfo()
        SQL = "SELECT * FROM dbo.tb_Product INNER JOIN " & _
               "dbo.tb_Supplier ON dbo.tb_Product.SupplierNum = dbo.tb_Supplier.SupplierNum where SKU =" & intDB_SKU_Selected & ""
        With comDB
            .CommandText = SQL
            rdDB = .ExecuteReader
        End With
        If rdDB.HasRows = True Then
            rdDB.Read()
            Me.txtSKU.Text = rdDB!SKU.ToString.Trim
            Me.txtDescription.Text = rdDB!ItemDescription.ToString.Trim
            Me.txtSupplier.Text = rdDB!SupplierName.ToString.Trim
            Me.cbCategory.Text = rdDB!Category.ToString.Trim
            Me.cbUnit.Text = rdDB!Unit.ToString.Trim
            Me.txtDiscounted.Text = rdDB!DiscountedPrice.ToString.Trim
            Me.txtQty_Unit.Text = rdDB!Qty_Unit.ToString.Trim
            Me.txtPcs_Qty.Text = rdDB!Pcs_Qty.ToString.Trim
            Me.txtTotal_Qty.Text = rdDB!Total_Qty.ToString.Trim
            Me.txtExpireDate.Text = rdDB!Expire_Date.ToString.Trim
            Me.txtRetail.Text = rdDB!RetailPrice.ToString.Trim
            Me.txtWholeSP.Text = rdDB!WholeSalePrice.ToString.Trim
            Me.txtMarkUP.Text = rdDB!MarkUp.ToString.Trim
            Me.txtOriginalPrice.Text = rdDB!OriginalPrice.ToString.Trim
        End If
        rdDB.Close()
    End Sub
    Private Sub dispInfo1()
        SQL = "Select * from tb_Product where SKU =" & intDB_SKU_Selected & ""
        With comDB
            .CommandText = SQL
            rdDB = .ExecuteReader
        End With
        If rdDB.HasRows = True Then
            rdDB.Read()
            Me.lbSupID.Text = rdDB!SupplierNum.ToString.Trim
        End If
        rdDB.Close()
    End Sub
    Public Sub inserttoproduct()
        SQL = "INSERT INTO tb_Product" & _
           "([SKU], [ItemDescription], [Category], [Unit], [QTY_Unit], [Pcs_Qty], [Total_Qty], [Expire_Date], [RetailPrice], [DiscountedPrice], [WholeSalePrice], [OriginalPrice], [MarkUp], [SupplierNum])" & _
        "VALUES('" & txtSKU.Text.Trim & "','" & txtDescription.Text.Trim & "','" & cbCategory.Text.Trim & "','" & cbUnit.Text.Trim & "','" & txtQty_Unit.Text.Trim
& "','" & txtPcs_Qty.Text.Trim & "','" & txtTotal_Qty.Text.Trim & "','" & txtExpireDate.Text & "','" & txtRetail.Text & "','" & txtDiscounted.Text & "','"
& txtWholeSP.Text & "','" & txtOriginalPrice.Text & "','" & txtMarkUP.Text & "','" & lbSupID.Text.Trim & "');"
    End Sub
    Public Sub updatetoproduct()
        SQL = "UPDATE tb_Product SET SKU = '" & Me.txtSKU.Text.Trim & "', ItemDescription = '" & Me.txtDescription.Text.Trim & "', Category = '" & Me.cbCategory.Text.Trim & "', Unit
= '" & Me.cbUnit.Text.Trim & "', QTY_Unit = '" & Me.txtQty_Unit.Text.Trim & "', Pcs_Qty = '" & Me.txtPcs_Qty.Text.Trim & "', Total_Qty = '" & Me.txtTotal_Qty.Text.Trim & "', Expire_Date
= '" & Me.txtExpireDate.Text & "', RetailPrice = '" & Me.txtRetail.Text.Trim & "', DiscountedPrice = '" & Me.txtDiscounted.Text.Trim & "', WholeSalePrice = '" & Me.txtWholeSP.Text.Trim & "',
OriginalPrice = '" & Me.txtOriginalPrice.Text.Trim & "', MarkUp = '" & Me.txtMarkUP.Text.Trim & "', SupplierNum = '" & lbSupID.Text.Trim & "' WHERE SKU = '" & Me.txtSKU.Text & "'"
    End Sub
    Public Sub dispRecCount()
        Call dispStatLB(Me.stat, "Record count: " & Me.ProductLV.Items.Count.ToString)
    End Sub
    Private Sub btnSearch_Supplier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch_Supplier.Click
        frmFindSupplier.ShowDialog()
    End Sub
    Private Sub Exit__Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Exit_.Click
        ClearTextBox()
        Call closeDB()      'Close the connection from database
        frmAdmin.MainTControl.TabPages.Remove(Me.tabProduct)
    End Sub
    Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click
        Try
            operation_save = "edit"
            txtoperation.Text = operation_save
            intDB_SKU_Selected = Me.ProductLV.SelectedItems(0).Text
            Save.Enabled = True
            enabletxtbox()
            'GetDiscount()
            Call dispInfo()
            Call dispInfo1()
            dispRecCount()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        ClearTextBox()
        Save.Enabled = False
    End Sub
    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        Try
            If operation_save = "" Then
                Exit Sub
            ElseIf operation_save = "add" Then
                If txtSKU.Text = "" Then
                    MsgBox("Enter barcode!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtSKU.Focus()
                    Exit Sub
                End If
                If txtSKU.Text = "" Then
                    MsgBox("Enter barcode!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtSKU.Focus()
                    Exit Sub
                End If
                If txtDescription.Text = "" Then
                    MsgBox("Enter item description!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtDescription.Focus()
                    Exit Sub
                End If
                If lbSupID.Text = "" Then
                    MsgBox("Choose supplier!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtSupplier.Focus()
                    Exit Sub
                End If
                If cbCategory.Text = "" Then
                    MsgBox("Enter item category!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    cbCategory.Focus()
                    Exit Sub
                End If
                If txtExpireDate.Text = "" Then
                    MsgBox("Enter expiration date of the item!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtExpireDate.Focus()
                    Exit Sub
                End If
                If txtOriginalPrice.Text = "" Then
                    MsgBox("Enter original price!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtOriginalPrice.Focus()
                    Exit Sub
                End If
                If txtMarkUP.Text = "" Then
                    MsgBox("Enter Marck up price!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtMarkUP.Focus()
                    Exit Sub
                End If
                If txtWholeSP.Text = "" Then
                    MsgBox("Enter wholesale price!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtWholeSP.Focus()
                    Exit Sub
                End If
                If txtRetail.Text = "" Then
                    MsgBox("Enter retail price!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtRetail.Focus()
                    Exit Sub
                End If
                If cbUnit.Text = "" Then
                    MsgBox("Choose unit of measurement for item!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    cbUnit.Focus()
                    Exit Sub
                End If
                If txtQty_Unit.Text = "" Then
                    MsgBox("Enter quantity per unit!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtQty_Unit.Focus()
                    Exit Sub
                End If
                If txtPcs_Qty.Text = "" Then
                    MsgBox("Enter pieces of every quantity!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtPcs_Qty.Focus()
                    Exit Sub
                End If
                If CheckSenior.Checked = True Then
                    txtDiscounted.Enabled = False
                    txtPercentage.Enabled = True
                Else
                    txtPercentage.Enabled = False
                End If
                'Do inserting data>>>>
                Me.inserttoproduct()
                execComDB(SQL)
                disabletxtbox()
                MsgBox("Record has been saved!")
                SQL = "Select * from tb_Product " & _
                     "order by SKU desc"
                Call Me.dispRecProduct(SQL)
                Call Me.dispRecCount()
                Edit.Enabled = False
                Delete.Enabled = False
            ElseIf operation_save = "edit" Then
                If txtSKU.Text = "" Then
                    MsgBox("Enter barcode!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtSKU.Focus()
                    Exit Sub
                End If
                If txtSKU.Text = "" Then
                    MsgBox("Enter barcode!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtSKU.Focus()
                    Exit Sub
                End If
                If txtDescription.Text = "" Then
                    MsgBox("Enter item description!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtDescription.Focus()
                    Exit Sub
                End If
                If lbSupID.Text = "" Then
                    MsgBox("Choose supplier!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtSupplier.Focus()
                    Exit Sub
                End If
                If cbCategory.Text = "" Then
                    MsgBox("Enter item category!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    cbCategory.Focus()
                    Exit Sub
                End If
                If txtExpireDate.Text = "" Then
                    MsgBox("Enter expiration date of the item!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtExpireDate.Focus()
                    Exit Sub
                End If
                If txtOriginalPrice.Text = "" Then
                    MsgBox("Enter original price!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtOriginalPrice.Focus()
                    Exit Sub
                End If
                If txtMarkUP.Text = "" Then
                    MsgBox("Enter Marck up price!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtMarkUP.Focus()
                    Exit Sub
                End If
                If txtWholeSP.Text = "" Then
                    MsgBox("Enter wholesale price!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtWholeSP.Focus()
                    Exit Sub
                End If
                If txtRetail.Text = "" Then
                    MsgBox("Enter retail price!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtRetail.Focus()
                    Exit Sub
                End If
                If cbUnit.Text = "" Then
                    MsgBox("Choose unit of measurement for item!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    cbUnit.Focus()
                    Exit Sub
                End If
                If txtQty_Unit.Text = "" Then
                    MsgBox("Enter quantity per unit!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtQty_Unit.Focus()
                    Exit Sub
                End If
                If txtPcs_Qty.Text = "" Then
                    MsgBox("Enter pieces of every quantity!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
                    txtPcs_Qty.Focus()
                    Exit Sub
                End If
                If CheckSenior.Checked = True Then
                    txtDiscounted.Enabled = False
                    txtPercentage.Enabled = True
                Else
                    txtPercentage.Enabled = False
                End If
                Me.updatetoproduct()
                execComDB(SQL)
                disabletxtbox()
                MsgBox("Record has been updated!")
                SQL = "Select * from tb_Product " & _
                     "order by SKU desc"
                Call Me.dispRecProduct(SQL)
                Call Me.dispRecCount()
                Edit.Enabled = False
                Delete.Enabled = False
                Save.Enabled = False
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
        ClearTextBox()
        enabletxtbox()
        Save.Enabled = True
        operation_save = "add"
    End Sub
    Private Sub txtPercentage_TextChanged(sender As Object, e As EventArgs) Handles txtPercentage.TextChanged
        If txtPercentage.Text = "" Then
            Exit Sub
        End If
        If Not IsNumeric(txtPercentage.Text) Then
            MsgBox("Enter digit for the discount rate!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
            txtPercentage.Focus()
            Exit Sub
        End If
        Dim percent As Double = 0
        Dim discount As Double = 0
        Dim discounted As Double = 0
        'CALCULATE THE DISCOUNT
        percent = Val(txtPercentage.Text) / 100
        discount = percent * Val(txtRetail.Text)
        discounted = Val(txtRetail.Text) - discount
        txtDiscounted.Text = discounted.ToString
    End Sub
    'Public Sub GetDiscount()
    '    Dim D1 As Decimal = 0
    '    Dim D2 As Decimal = 0
    '    Dim D3 As Double = 0
    '    Dim D4 As Decimal = Val(txtRetail.Text)
    '    D1 = Val(txtRetail.Text) - Val(txtDiscounted.Text)
    '    TextBox1.Text = D1.ToString
    '    D2 = D1 * 100
    '    TextBox2.Text = D2.ToString
    '    D3 = Val(D2) / D4
    '    TextBox3.Text = D3.ToString
    'End Sub
    Private Sub tabProduct_Click(sender As Object, e As EventArgs) Handles tabProduct.Click
        txtSKU.Focus()
    End Sub
    Private Sub ProductLV_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ProductLV.SelectedIndexChanged
        'if record selected edit and delete button is enabled
        If Me.ProductLV.SelectedIndices.Count > 0 Then
            Edit.Enabled = True
            Delete.Enabled = True
            Exit Sub
        Else
            Edit.Enabled = False
            Delete.Enabled = False
        End If
    End Sub
    Private Sub txtSKU_TextChanged(sender As Object, e As EventArgs) Handles txtSKU.TextChanged
        If txtSKU.Text = "" Then
            Exit Sub
        End If
        'MsgBox("No record found!")
    End Sub
    Private Sub txtSKU_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSKU.LostFocus
        If txtSKU.Text = "" Then txtSKU.Focus()
    End Sub
    Private Sub txtQty_Unit_TextChanged(sender As Object, e As EventArgs) Handles txtQty_Unit.TextChanged
        If txtQty_Unit.Text = "" Then
            Exit Sub
        End If
        If Not IsNumeric(txtQty_Unit.Text) Then
            MsgBox("Enter digit only!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
            txtQty_Unit.Focus()
            Exit Sub
        End If
    End Sub
    Private Sub txtPcs_Qty_TextChanged(sender As Object, e As EventArgs) Handles txtPcs_Qty.TextChanged
        If txtPcs_Qty.Text = "" Then
            Exit Sub
        End If
        If Not IsNumeric(txtPcs_Qty.Text) Then
            MsgBox("Enter digit only!", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Error")
            txtPcs_Qty.Focus()
            Exit Sub
        End If
        Dim totalqty As Double
        totalqty = Val(txtQty_Unit.Text) * Val(txtPcs_Qty.Text)
        txtTotal_Qty.Text = totalqty.ToString
    End Sub
    Private Sub CheckSenior_CheckedChanged(sender As Object, e As EventArgs) Handles CheckSenior.CheckedChanged
        If CheckSenior.Checked = True Then
            txtDiscounted.Enabled = False
            txtPercentage.Enabled = True
        Else
            txtPercentage.Enabled = False
        End If
    End Sub
    Private Sub Delete_Click(sender As Object, e As EventArgs) Handles Delete.Click
        Try
            Dim intSel_ID As String
            intSel_ID = Me.ProductLV.SelectedItems(0).Text
            If MsgBox("Are you sure you want to delete the selected record?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Exclamation, MsgBoxStyle), "Delete") = MsgBoxResult.Yes
Then
                'Delete query
                SQL = "DELETE FROM tb_Product WHERE SKU = " & intSel_ID & ""
                Call execComDB(SQL)
                'Remove the record from the list
                Me.ProductLV.Items(Me.ProductLV.SelectedItems(0).Index).Remove()
                Call dispRecCount()     'Display record count
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub txtSearchProduct_TextChanged(sender As Object, e As EventArgs) Handles txtSearchProduct.TextChanged
        If txtSearchProduct.Text = "" Then
            SQL = "Select * from tb_Product"
            dispRecProduct(SQL)
            Exit Sub
        End If
        SQL = "Select * from tb_Product " & _
              "where SKU like '%" & Me.txtSearchProduct.Text.Trim & "%' " & _
              "or " & _
              "ItemDescription like '%" & txtSearchProduct.Text.Trim & "%' " & _
              "or " & _
              "Category like '%" & txtSearchProduct.Text.Trim & "%' "
        Call dispRecProduct(SQL)
    End Sub
    Private Sub txtDescription_LostFocus(sender As Object, e As EventArgs) Handles txtDescription.LostFocus
        txtDescription.Text = StrConv(txtDescription.Text, vbProperCase)
    End Sub
End Class
[This code is for adding and editing list of product in the inventory.,] I want to create codes that if I scan  the product using barcode scanner then all information of the product will appear in the text box if existing and the new qty will add to
current qty and if not in the database prompt msgbox that show item not found!.,. I cant get the right code.,. please help.,me
                                                             

Answer 1

Jeff 
It is senseless to send this code. Nobody can past it in his designer simply because a lot is missing. 
Ask simply how to program for a barcode scanner. 
And do it then in the correct forum, this forum is for the desktop user interface problems using Windows Forms.
The best forum for your question is probably 
http://social.msdn.microsoft.com/Forums/vstudio/en-US/home?forum=vbgeneral
And then without all that code, people are just skipping questions which are so long.
Success
Cor