ممكن تعديل كود - نسخة قابلة للطباعة

كود :

Private Sub txtprice_KeyDown(sender As Object, e As KeyEventArgs) Handles txtprice.KeyDown



        If e.KeyCode = Keys.Enter Then

            Dim parm(2) As SqlParameter

            parm(0) = New SqlParameter("@id_product", SqlDbType.Int)

            parm(0).Value = txtid.Text

            parm(1) = New SqlParameter("@qty_entered", SqlDbType.Int)

            parm(1).Value = txtqty.Text



            cmd = New SqlCommand("Veryifqty", Module1.con)

            cmd.CommandType = CommandType.StoredProcedure



            da = New SqlDataAdapter(cmd)

            da.Fill(dt)

            If dt.Rows.Count < 1 Then

                MessageBox.Show("كمية المدخلة لهدا المنتج غير متاحه")

                For i As Integer = 0 To DGV_PRODUCT.Rows.Count - 1

                    If DGV_PRODUCT.Rows(i).Cells(0).Value = txtid.Text Then

                        MsgBox("هدا المنتج موجود مسبقا", MsgBoxStyle.Critical, "تحذير")

                        cl()

                        Exit Sub

                    End If

                Next

                Dim row As DataRow = dt.NewRow

                row(0) = txtid.Text

                row(1) = txtlabel.Text

                row(2) = txtqty.Text

                row(3) = txtprice.Text

                row(4) = txtamount.Text

                dt.Rows.Add(row)

                Me.DGV_PRODUCT.DataSource = dt

                cl()

                tootal()

            End If

        End If

    End Sub

كود :

create proc Veryifqty

@ID_product int , @qty_Entered int

as 

select *from PRODUCTS 

where ID_product=@ID_product and Qty>@qty_Entered