منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

شكرا

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ابراهيم ايبو

asemshahen5

atefkhalf2004

ابراهيم ايبو

ابراهيم ايبو

atefkhalf2004

ابراهيم ايبو