+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في فاتورة مبيعات (/showthread.php?tid=22863)
مساعدة في فاتورة مبيعات - الدريساوي - 09-12-17
[attachment=16370][attachment=16370]
السلام عليكم
فاتورة المبيعات عند ادخال مبلغ المدفوع لا يحفظ في قاعدة البيانات في جدول bill
الااعرف المشكله اين
كود المستخدم
كود :
Private Sub SaveBill()
'لحفظ بيانات الفاتورة
CMD.Connection = Con
CMD.CommandType = CommandType.Text
CMD.CommandText = "Insert Into bill([billnu],[kind],[kind2],[date],[totalbill],[depet],[total]) values ('" & txtBillNumber.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & DateTimePicker1.Text & "','" & txttotalBill.Text & "','" & txtBlance.Text & "','" & txtbilltotal.Text & "')"
Con.Open()
CMD.ExecuteNonQuery()
Con.Close()
MsgBox("تم حفظ بيانات الفاتورة بنجاح يمكنك الان بدء التسجيل للاصناف")
butEnter.Enabled = True
txtItem2.Focus()
txtItem2.BackColor = Color.Yellow Private Sub SaveBill()RE: مساعدة في فاتورة مبيعات - طالب برمجة - 09-12-17
جرب هذا التعديل
PHP كود :
Private Sub SaveBill()
'لحفظ بيانات الفاتورة
Dim CMD As New OleDb.OleDbCommand("Insert Into [bill]([billnu],[kind],[kind2],[date],[totalbill],[depet],[total]) values(@billnu,@kind,@kind2,@date,@totalbill,@depet,@total )", Con)
CMD.Parameters.AddWithValue("@billnu", txtBillNumber.Text)
CMD.Parameters.AddWithValue("@kind", ComboBox1.Text)
CMD.Parameters.AddWithValue("@kind2", ComboBox2.Text)
CMD.Parameters.AddWithValue("@date", DateTimePicker1.Value.Date)
CMD.Parameters.AddWithValue("@totalbill", txttotalBill.Text)
CMD.Parameters.AddWithValue("@depet", txtBlance.Text)
CMD.Parameters.AddWithValue("@total", txtbilltotal.Text)
Con.Open()
If CMD.ExecuteNonQuery() > 0 Then
MsgBox("تم حفظ بيانات الفاتورة بنجاح يمكنك الان بدء التسجيل للاصناف")
butEnter.Enabled = True
txtItem2.Focus()
txtItem2.BackColor = Color.Yellow
End If
Con.Close()
لن تظهر رسالة (تم حفظ بيانات الفاتورة) إلا إذا تم بالفعل حفظ الفاتورة
RE: مساعدة في فاتورة مبيعات - الدريساوي - 09-12-17
[attachment=16372]
اشكرك اخي طالب البرمجة
لكن نفس المشكلة جربت اكثر من طريقة
تنزل قائمة المبيعات في قاعدة لكن (( الاجمالي)) و ((المدفوع )) و ((الباقي )) لم تنزل هنا المشكلة