10-05-18, 02:15 AM
السلام عليكم
الاخوة الاعزاء اتمنى ان تكونوا بصحة جيدة
اخوتي انا عندي جدول اصناف
وجدول الفاتورة
اريد كود لما يقوم البائع ببيع صنف معين يقوم البرنامج بانقاص الكمية المباعة من جدول الاصناف انا بصراحة عملت كود لكن لم افلح في ذبك علما ان القاعدة اكسيس والفيجوال 2013
انا اكتب لكم لكود الي انا اشتغلت عليه وما ضبط معي
هذا الكود لكن تتم الاضافة ولكن دون الانقاص من جدول الاصناف بانتظار ردودكم يا مبدعين
الاخوة الاعزاء اتمنى ان تكونوا بصحة جيدة
اخوتي انا عندي جدول اصناف
وجدول الفاتورة
اريد كود لما يقوم البائع ببيع صنف معين يقوم البرنامج بانقاص الكمية المباعة من جدول الاصناف انا بصراحة عملت كود لكن لم افلح في ذبك علما ان القاعدة اكسيس والفيجوال 2013
انا اكتب لكم لكود الي انا اشتغلت عليه وما ضبط معي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Butsave.Click
Dim query As String
Try
If ToDo = "add" Then
query = "INSERT INTO invoicepro (id_user,codpro,extnumpro,extprice,qasd1,qasd2,abbaqy,datetak) VALUES(@id_user,@codpro,@extnumpro,@extprice,@qasd1,@qasd2,@abbaqy,@datetak) "
Else
query = "UPDATE invoicepro SET id_user=@id_user ,codpro=@codpro ,extnumpro=@extnumpro ,extprice=@extprice ,qasd1=@qasd1 ,qasd2=@qasd2 ,abbaqy=@abbaqy,datetak=@datetak WHERE IDInvoices= " & id
End If
cmd = New OleDbCommand(query, Conn)
cmd.Parameters.Add(New OleDbParameter("@id_user", OleDbType.VarChar, 200)).Value = Textname.Text
cmd.Parameters.Add(New OleDbParameter("@codpro", OleDbType.VarChar, 200)).Value = Textpro.Text
cmd.Parameters.Add(New OleDbParameter("@extnumpro", OleDbType.VarChar, 200)).Value = Textnum.Text
cmd.Parameters.Add(New OleDbParameter("@extprice", OleDbType.VarChar, 200)).Value = Textprice.Text
cmd.Parameters.Add(New OleDbParameter("@qasd1", OleDbType.VarChar, 200)).Value = Textqasd1.Text
cmd.Parameters.Add(New OleDbParameter("@qasd2", OleDbType.VarChar, 200)).Value = Textqasd2.Text
cmd.Parameters.Add(New OleDbParameter("@abbaqy", OleDbType.VarChar, 200)).Value = Labbaqy.Text
cmd.Parameters.Add(New OleDbParameter("@datetak", OleDbType.Date)).Value = DateTi.Value
Conn.Open()
cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE Materials SET QuantityAvailable= @QuantityAvailable WHERE MaterialBarCode = '" & Textpro.Text & "'"
cmd.Parameters.AddWithValue("QuantityAvailable", Val(Textnum.Text) - 1)
cmd.ExecuteScalar()
MsgBox("تم الحفظ بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
Finally
Conn.Close()
End Try
End Sub