تقييم الموضوع :
  • 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
إذا كان فى اي استفسار انا موجود .

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] هل يوجد مشغل بديل لي vlc يقوم بتشغيل روابط بث مباشرة ميدو الفنان 1 80 16-09-20, 11:49 PM
آخر رد: ميدو الفنان
Exclamation [VB.NET] مطلوب كود إنشاء اختصار لمجلد بعيد على محرك الأقراص الC لدي abomo3ath 0 159 10-08-20, 03:00 PM
آخر رد: abomo3ath
  [VB.NET] مطلوب دورة لتصميم برنامج مبيعات gadahmed 3 336 27-07-20, 04:20 PM
آخر رد: gadahmed
  ياشباب محتاج كود صغير يقوم بالبحث عن حقل معين فلتر بال Datagridview moh61 13 3,882 21-07-20, 11:48 PM
آخر رد: alessam4pro
Lightbulb [مشروع] مطلوب برنامج نظام صيدليه بالفيجوال بيسك 2010 May-5 11 4,404 15-07-20, 05:37 PM
آخر رد: aymnypc
  مطلوب طريقة طباعة 2 نسخة من تقرير كريستال ahmedramzyaish 3 347 04-07-20, 02:41 AM
آخر رد: عبد العزيز البسكري
  مطلوب كود لتاكيد سريال ننمبر عبر الهارد abdodz 2 275 27-06-20, 01:52 AM
آخر رد: abdodz
  مطلوب مساعدة بتعديل كود ahmedramzyaish 2 265 21-06-20, 01:43 AM
آخر رد: ahmedramzyaish
  مطلوب كود بعد ازن اخونا العرب(تم الحل) محمد ايمن 1 292 12-06-20, 04:02 AM
آخر رد: سعود
  مطلوب حل مشكله DOX.1 6 601 09-06-20, 10:26 PM
آخر رد: DOX.1

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


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