09-12-17, 09:31 PM
(آخر تعديل لهذه المشاركة : 09-12-17, 09:32 PM {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()
لن تظهر رسالة (تم حفظ بيانات الفاتورة) إلا إذا تم بالفعل حفظ الفاتورة

