انتهاء تاريخ صلاحية سلعة - نسخة قابلة للطباعة

انتهاء تاريخ صلاحية سلعة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : انتهاء تاريخ صلاحية سلعة (/showthread.php?tid=30591)

انتهاء تاريخ صلاحية سلعة - ابراهيم ايبو - 29-07-19

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

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

[attachment=22253]
يوجد تعدبل للمثال في المشاركة رقم 5

RE: انتهاء تاريخ صلاحية سلعة - asemshahen5 - 29-07-19

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

RE: انتهاء تاريخ صلاحية سلعة - atefkhalf2004 - 29-07-19

شكرا

لكن ارغب في اضافة السعر في اللستة
كيف
عندي خطا
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

RE: انتهاء تاريخ صلاحية سلعة - ابراهيم ايبو - 30-07-19

السلام عليكم

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

يجلب السلع المنتهية الصلاحية بعد 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

RE: انتهاء تاريخ صلاحية سلعة - ابراهيم ايبو - 30-07-19

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

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

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

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

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

RE: انتهاء تاريخ صلاحية سلعة - atefkhalf2004 - 30-07-19

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

RE: انتهاء تاريخ صلاحية سلعة - ابراهيم ايبو - 30-07-19

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

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

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

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

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

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

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

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

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

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