30-03-17, 10:47 PM
استخدام برنامج فيجوال بيسك 2010
اقوم بعمل برنامج سوبر ماركت عندما اعدل في بيانات الصنف في فاتوره الشراء لا يسمع التعديل في قاعدة البيانات الأكسيس
الكود الذي اضفته كالتالي : للتعديل ثم الحفظ
اعتذر علي الاطالة والمشروع كامل بالمرفقات
اقوم بعمل برنامج سوبر ماركت عندما اعدل في بيانات الصنف في فاتوره الشراء لا يسمع التعديل في قاعدة البيانات الأكسيس
الكود الذي اضفته كالتالي : للتعديل ثم الحفظ
Private Sub BuyPill_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
'Hot Key adding New Item
If e.KeyCode = Keys.Insert Then
Item_Search1.ShowDialog()
End If
'Hot Key saving buypill & its contents
If e.KeyCode = Keys.F10 Then
If BuyInvoiceNo.Text = Nothing Then
MsgBox("برجاء ادخال رقم الفاتورة")
BuyInvoiceNo.Focus()
ElseIf BuyImporter.Text = Nothing Then
MsgBox("برجاء اختيار المورد")
BuyImporter.Focus()
ElseIf BuyCash.Checked = False And BuyPostpone.Checked = False Then
MsgBox("برجاء اختيار نوع التعامل نقدي او اجل")
BuyCash.Focus()
ElseIf DataGridView1.Rows.Count = 0 Then
MsgBox("لا توجد اصناف بالفاتورة لحفظها")
Else
'=========================================
' Check Buy Query Calculations
BuyCalc()
' Update BuyPill Details
'Public sub Update_Operations()
For i As Integer = 0 To DataGridView1.Rows.Count - 1
Operationscmd = New OleDbCommand(" Update Operations SET BuyDiscound=" & DataGridView1(9, DataGridView1.Rows(i).Index).Value & ",BuyEarn = " & DataGridView1(11, DataGridView1.Rows(i).Index).Value & ", BuyNotes ='" & DataGridView1(12, DataGridView1.Rows(i).Index).Value & "', BuyQty = " & DataGridView1(7, DataGridView1.Rows(i).Index).Value & ", BuyUnitePirce = " & DataGridView1(3, DataGridView1.Rows(i).Index).Value & ",OperItemExp = #" & DataGridView1(5, DataGridView1.Rows(i).Index).Value & "#,TotalB =" & DataGridView1(10, DataGridView1.Rows(i).Index).Value & ",TotalG = " & DataGridView1(8, DataGridView1.Rows(i).Index).Value & ") Where OperID= " & DataGridView1(0, DataGridView1.Rows(i).Index).Value & "", con)
con.Open()
Operationscmd.ExecuteNonQuery()
con.Close()
' Update Qty in Item table
' Update for Supplier Balance
Next
' حفظ بيانات الفاتورة
Save_BuyPill()
MsgBox("تم حفظ الفاتورة بنجاح")
' load buypill table
load_Buypill()
' Making New Pill
NewPill()
'Load BuyQ table
loadbuyQ()
End If
End If
End Sub
اعتذر علي الاطالة والمشروع كامل بالمرفقات