تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في فاتورة مبيعات
#1

.rar   frmMain.rar (الحجم : 843.97 ك ب / التحميلات : 110)
.rar   frmMain.rar (الحجم : 843.97 ك ب / التحميلات : 110)
السلام عليكم
فاتورة المبيعات عند ادخال مبلغ المدفوع لا يحفظ في قاعدة البيانات في جدول 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()
الرد }}}
تم الشكر بواسطة:
#2
جرب هذا التعديل
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() 

لن تظهر رسالة (تم حفظ بيانات الفاتورة) إلا إذا تم بالفعل حفظ الفاتورة
الرد }}}
تم الشكر بواسطة:
#3
   
اشكرك اخي طالب البرمجة

لكن نفس المشكلة جربت اكثر من طريقة
تنزل قائمة المبيعات في قاعدة لكن ((  الاجمالي))  و ((المدفوع )) و ((الباقي )) لم تنزل  هنا المشكلة
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: