منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اريد عمل تذكير بميعاد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد عمل تذكير بميعاد (/showthread.php?tid=34352)



اريد عمل تذكير بميعاد - Abdallah61 - 16-04-20

اريد عمل تذكير بميعاد قبل موصوله بثلاثة ايام موجود من ضمن مواعيد كثيرة في DataGridView


RE: سؤال بسيط - ابراهيم ايبو - 17-04-20

السلام عليكم ورحمة الله وبركاته
تختلف طريقة الاعلام عن الموعد حسب البرنامج او طريقة عرض الموعد
فمثلا يمكنك انشاء ليست بوكس سيتم اضافة اسماء المواعيد التي يحين موعدها بعد 3 ايام عندا يحمل الفورم ويجلب البيانات
او يمكننا جعل لون الكتابة لذلك السجل في الداتا غرايد بلو احمر مثلا 
هنا جعلت لك الكود يعرض رسالة
الامر يعود اليك اما الكود فهو كالتالي
 في حدث FormLoad
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells("تاريخ الموعد").Value = Now.AddDays(3) Then
               MsgBox("باقي 3 ايام على الموعد" & DataGridView1.Rows(i).Cells("اسم الموعد").Value.ToString())
           End If
       Next

   End Sub



RE: سؤال بسيط - Abdallah61 - 17-04-20

(17-04-20, 02:32 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تختلف طريقة الاعلام عن الموعد حسب البرنامج او طريقة عرض الموعد
فمثلا يمكنك انشاء ليست بوكس سيتم اضافة اسماء المواعيد التي يحين موعدها بعد 3 ايام عندا يحمل الفورم ويجلب البيانات
او يمكننا جعل لون الكتابة لذلك السجل في الداتا غرايد بلو احمر مثلا 
هنا جعلت لك الكود يعرض رسالة
الامر يعود اليك اما الكود فهو كالتالي
 في حدث FormLoad
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells("تاريخ الموعد").Value = Now.AddDays(3) Then
               MsgBox("باقي 3 ايام على الموعد" & DataGridView1.Rows(i).Cells("اسم الموعد").Value.ToString())
           End If
       Next

   End Sub
وعليكم السلام
وشكرا جدا لعرض الكود بهذا الشكل ولكن لي سؤال به ما هو القيم التي يجيب أن اغيرها بالمعلومات التي لدي لكي يعمل الكود
بمعني أنه عند إضافة الكود الخاص بك في البرنامج الخاص بي يأتي بخطأ


RE: اريد عمل تذكير بميعاد - ابراهيم ايبو - 17-04-20

السلام عليكم اخي الكريم 
هذا الكود بشكل عام افتراضي مع داتا غرايد بحقل تاريخ الموعد وهو من نوع تاريخ قصير dd/MM/yyyy نضع فيه تاريخ الموعد
والحقل الاخر اسم الموعد وهذا الحقل يحتوي عل تسمية تعبر عن الموعد نوع نصي نستخدمه حسب رغبتنا
واستخدام الكود يعود الى طريقة اظهار التنبيه لديك


RE: اريد عمل تذكير بميعاد - ابراهيم ايبو - 17-04-20

السلام عليكم 
اخي الكريم هذا مثال فيه سجلات لمواد غذائية  لها تاريخ صلاحية
اعتبر تاريخ انتهاء الصلاحية عبارة عن موعد افهم الاكواد وخذ مايناسبك من الاكواد في مشروعك
فعملية الموعد هي نفسها انتهاء سلعة