السلام عليكم
مطلوب كود يقوم بالتنبيه بأن كمية الصنف على وشك النفاد من المخزن
مثلا يوجد عندي جدول اصناف وجدول مخازن وجدول مبيعات عندما يتم بيع الاصناف ويكون هناك صنف معين قابل للنفاد بمعنى يوجد منه 2 فقط في المخزن اريد ان يظهر تنبيه بأنه على وشك النفاد
السلام عليكم
عليك باجراء استعلام
وهذا يعتمد على طريقتك في التعامل مع قاعدة البيانات
يمكنك إستخدام الكود التالى وهو يقوم بالذى تريد ويمكنك أستدعاءة بعد كل عملية بيع تقوم بها
كود :
Public sub checkitemcount(ByVal itemid As Integer)
Dim DataSet1 As New DataSet
DataSet1.Clear()
Dim SQLstr As String = "SELECT * FROM dnname WHERE itemid = " & itemid &"
Dim Da1 As New MySqlDataAdapter(SQLstr, newConnection)
newConnection.Open()
Da1.Fill(DataSet1, "suppitems")
newConnection.Close()
If DataSet1.Tables(0).Rows(0).item(3) < 2 Then
msgbox("يرجى الإنتباه أن هذا الصنف لم يتبقى منه الكثير فى المخزن")
Else
End If
End sub
إذا كان فى اي استفسار انا موجود .
(28-12-16, 08:23 AM)Hazim Elabd كتب : [ -> ]يمكنك إستخدام الكود التالى وهو يقوم بالذى تريد ويمكنك أستدعاءة بعد كل عملية بيع تقوم بها
كود :
Public sub checkitemcount(ByVal itemid As Integer)
Dim DataSet1 As New DataSet
DataSet1.Clear()
Dim SQLstr As String = "SELECT * FROM dnname WHERE itemid = " & itemid &"
Dim Da1 As New MySqlDataAdapter(SQLstr, newConnection)
newConnection.Open()
Da1.Fill(DataSet1, "suppitems")
newConnection.Close()
If DataSet1.Tables(0).Rows(0).item(3) < 2 Then
msgbox("يرجى الإنتباه أن هذا الصنف لم يتبقى منه الكثير فى المخزن")
Else
End If
End sub
إذا كان فى اي استفسار انا موجود .
بارك الله فيك جزاك الله كل خير ان شاء الله في ميزان حسناتك