[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

اخوتي الكرام كثرت التساؤلات مؤخرا عن كيفية معرفة انتهاء تاريخ صلاحية سلعة
وحتى يستفيد اعضاء المنتدى الاكارم ويرتاحوا عناء السؤال 
فمت بانشاء مثال  بسيط مع قاعدة بيانات نوع اكسس 2003 فيها بعض التواريخ حتى وقت انشاء هذا المثال
1-  البحث عن تاريخ انتهاء سلعة منتهية او ستنتهي بين تاريخين
2 - البحث عن تاريخ انتهاء سلع منتهية اعتبارا من التاريخ الحالي وفق عدد معين من الايام
3 - البحث عن تاريخ انتهاء سلع ستنتهي صلاحيتها وفق عدد من الايام اعتبارا من التاريخ الحالي
4 - عرض اسماء السلع وتاريخ الانتهاء في ليست فيو
5 - تلوين اسم السلعة المنتهية صلاحيتها باللون الاحمر اعتبارا من التاريخ الحالي
ارجو ان اكون قد وفقت بفضل من الله في تلبية بعض ما يطرح من اسئلة


  انتهاء سلعة.rar (الحجم : 153.26 ك ب / التحميلات : 442)
يوجد تعدبل للمثال في المشاركة رقم 5

[asemshahen5]

جزاك الله عنا كل خير .

[atefkhalf2004]

شكرا

لكن ارغب في اضافة السعر في اللستة
كيف
عندي خطا
For i As Integer = 0 To Dgv_Table.Rows.Count - 1
ListView1.Items.Add(Dgv_Table.Rows(i).Cells(1).Value.ToString()).SubItems.Add((CDate(Dgv_Table.Rows(i).Cells(3).Value).ToString("dd/MM/yyyy"),(CDate(Dgv_Table.Rows(i).Cells(3).Value).ToString()))
Next

[ابراهيم ايبو]

السلام عليكم 

سالني احد الاخوة ان كان انشاء كود بحيث اثناء تشغيل اليرنامج

يجلب السلع المنتهية الصلاحية بعد 3 ايام اي يكون تنبيه مسبق

يمكنكم اضافة هذا الكود

كود :

  ' ننشئ هذا الصب
   Sub FinishDate()
       For i As Integer = 0 To Dgv_Table.Rows.Count - 1
           If (CDate(Dgv_Table.Rows(i).Cells(3).Value).ToString("dd/MM/yyyy")) = Now.AddDays(3).ToString("dd/MM/yyyy") Then
               ListView1.Items.Add(Dgv_Table.Rows(i).Cells(1).Value.ToString()).SubItems.Add(CDate(Dgv_Table.Rows(i).Cells(3).Value).ToString("dd/MM/yyyy"))
           End If
       Next
   End Sub
   ' ثم نقوم باستدعاء هذا الصب في حدث فورم لود
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       SelectAll_TheItems()
       FinishDate() ' هذا الصب سيجلب كل المنتجات التي ستنتهي صلاحيتها بعد 3 ايام من اليوم
   End Sub

[ابراهيم ايبو]

بناء على طلب الاخ الكريم عاطف خلف

حول اضافة السعر الى الليست فيو قمت بتعديل المثال

واضفت عمود السعر وعدلت بعض الاكواد 

ارجو ان اكون قد وفقت

المثال المعدل في المرفقات

[atefkhalf2004]

شكرا ا ابراهيم
معلهش
انا وامثالي منكم دائما مستفيدين

[ابراهيم ايبو]

اخي عاطف خلف الغالي 

 ان طلباتكم واسئلتكم هي الافكار التي ابحث عنها لتطوير هكذا امثلة

كلنا نستفيد من بعض ولم بولد احد وفي شريحة دماغه علوم  .. الانسان يولد على الفطرة

ثم يأخذ علومه اكتسابا واجتهادا

اسأل الله ان يرزقنا واياكم علما نافعا .. اللهم آمين

---

اخي عاطف خلف الغالي 

 ان طلباتكم واسئلتكم هي الافكار التي ابحث عنها لتطوير هكذا امثلة

كلنا نستفيد من بعض ولم بولد احد وفي شريحة دماغه علوم  .. الانسان يولد على الفطرة

ثم يأخذ علومه اكتسابا واجتهادا

اسأل الله ان يرزقنا واياكم علما نافعا .. اللهم آمين