تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مطلوب كود يقوم بالتنبيه
#1
السلام عليكم
مطلوب كود يقوم بالتنبيه بأن كمية الصنف على وشك النفاد من المخزن
مثلا يوجد عندي جدول اصناف وجدول مخازن وجدول مبيعات عندما يتم بيع الاصناف ويكون هناك صنف معين قابل للنفاد بمعنى يوجد منه 2 فقط في المخزن اريد ان يظهر تنبيه بأنه على وشك النفاد
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

عليك باجراء استعلام
وهذا يعتمد على طريقتك في التعامل مع قاعدة البيانات
الرد }}}
تم الشكر بواسطة:
#3
Big Grin 
يمكنك إستخدام الكود التالى وهو يقوم بالذى تريد ويمكنك أستدعاءة بعد كل عملية بيع تقوم بها
كود :
   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
إذا كان فى اي استفسار انا موجود .
الرد }}}
تم الشكر بواسطة: naden
#4
(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
إذا كان فى اي استفسار انا موجود .

بارك الله فيك جزاك الله كل خير ان شاء الله في ميزان حسناتك
الرد }}}
تم الشكر بواسطة:



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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم