اضافة جدول تفاصيل فاتورة - نسخة قابلة للطباعة

كود :

 Dim id_product, qty As Integer

        Dim price, amount As Decimal

        q1 = "insert into Tbl_Order_detils (id_product,id_order,qty,price,amount) values (@id_product,@id_order,@qty,@price,@amount)"



        For i = 0 To DGV_PRODUCT.RowCount - 1

            id_product = DGV_PRODUCT.Rows(i).Cells(0).Value

            qty = DGV_PRODUCT.Rows(i).Cells(2).Value

            price = DGV_PRODUCT.Rows(i).Cells(3).Value

            amount = DGV_PRODUCT.Rows(i).Cells(4).Value



            cmd.Parameters.Add(New SqlParameter("@id_product", SqlDbType.Int)).Value = id_product

            cmd.Parameters.Add(New SqlParameter("@id_order", SqlDbType.Int)).Value = ID_order

            cmd.Parameters.Add(New SqlParameter("@qty", SqlDbType.Int)).Value = qty

            cmd.Parameters.Add(New SqlParameter("@price", SqlDbType.Decimal)).Value = price

            cmd.Parameters.Add(New SqlParameter("@amount", SqlDbType.Decimal)).Value = amount

            cmd.ExecuteNonQuery()

        Next

        Module1.con.Close()

        MsgBox("تمت اضافة بنجاح")

PHP كود :

  '====جلب معرف فاتورة
        cmd = New SqlCommand("select max(id_order) from Tbl_Orderes  ", Module1.con)
        Dim dr As SqlDataReader = cmd.ExecuteReader
        dr.Read()
        Dim ID_order As Integer = dr(0)
        dr.Close()



        ''اضافة تفاصيل فاتورة موجوده داتا قريد فيو
        Dim id_product, qty As Integer
        Dim price, amount As Decimal
        q1 = "insert into Tbl_Order_detils (id_productوid_order,qty,price,amount) values ('" & txtid.Text.Trim() & "'," & ID_order & ",'" & txtqty.Text.Trim() & "','" & txtprice.Text.Trim() & "','" & txtamount.Text.Trim() & "')"

        For i = 0 To DGV_PRODUCT.RowCount - 1
            id_product = DGV_PRODUCT.Rows(i).Cells(0).Value
            qty = DGV_PRODUCT.Rows(i).Cells(2).Value
            price = DGV_PRODUCT.Rows(i).Cells(3).Value
            amount = DGV_PRODUCT.Rows(i).Cells(4).Value
            cmd = New SqlCommand(q1, Module1.con)

            id_product = Val(txtid.Text)
            ID_order = dr(0)
            qty = Val(txtqty.Text)
            price = Val(txtprice.Text)
            amount = Val(txtamount.Text)
            cmd.ExecuteNonQuery()
        Next
        Module1.con.Close()
        MsgBox("تمت اضافة بنجاح")
    End Sub