تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنبيهات حسب التاريخ
#1
ارجو منكم اخواني المساعدة. اريد لما اضغط على الداتاجريد و تظهر البيانات بالتاكسات بوكس
اذا كان تاريخ الصنف اليوم ينكتب بالتاكست بكس 4 عبارة ( التاريخ اليوم و يكون لونها التاكست بكس 4 أصفر )
اذا كان تاريخ الصنف ما زال أكثر من 3 أيام ينكتب بالتاكست بكس 4 عبارة ( سينتهي بعد كذا عدد الأيام  و يكون لون التاكست بكس 4 أخضر )
اذا كان تاريخ الصنف بقي له فقط 3 أيام ينكتب بالتاكست بكس 4 عبارة ( سينتهي بعد 3 أيام و يكون لون التاكست بكس 4 برتقالي )
اذا كان تاريخ الصنف قد فات ينكتب بالتاكست بكس 4 عبارة ( التاريخ منتهي و يكون لونها التاكست بكس 4 أحمر )
بارك الله فيكم اخواني


الملفات المرفقة
.zip   WindowsApplication1.zip (الحجم : 101.39 ك ب / التحميلات : 13)
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
تفضل اخي محمد هذا المثال كما طلبت عدل الكود للاسماء التي لديك


الملفات المرفقة
.rar   AlarmDateFinishExp.rar (الحجم : 77.43 ك ب / التحميلات : 44)
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
الرد
تم الشكر بواسطة: محمد خيري , Rabeea Qbaha , الرائد
#3
الله يبارك فيك اخي ابراهيم عمل رائع الله يجازيك كل خير.فقط اخي ابراهيم لو كان ممكن في حالة ( بقي أكثر من 3 أيام ) هل ممكن اخي ابراهيم كتابة عدد الايام بالضبط مثلا بدل ما تنكتب بالتاكست بكس 4 بقي أكثر من 3 أيام تنكتب بقي على الانتهاء مثلا 45 يوم أو 65 يوم او 89 يوم كمثال . و اذا ما في امكانية لعمل ذلك ساعتبر ان مثالك يبقى حل ولا اروع.بارك الله فيك


الملفات المرفقة
.zip   WindowsApplication2.zip (الحجم : 103.49 ك ب / التحميلات : 17)
الرد
تم الشكر بواسطة: asemshahen5 , الرائد , الرائد
#4
السلام عليكم اخي محمد 
والله لاداعي لها اما ان احببت فعليك انشاء كود الفرق بين تاريخين بالايام
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
الرد
تم الشكر بواسطة: محمد خيري , asemshahen5 , الرائد
#5
رايك يهمني اخي ابراهيم كفيت ووفيت و ما قصرت و الله يبارك فيك ان شاء الله.
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#6
اخي محمد حتى لايبق بنفسك منها شيئ 
عدل الكود الى هذا الكود
 
كود :
Private Sub Dgv_Table_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dgv_Table.SelectionChanged
       Txt_ExpItems.Text = ""
       If Dgv_Table.CurrentRow.Cells("Item_Exp").Value < Datnow Then
           Txt_ExpItems.Text = "انتهت صلاحية هذه المادة"
           Txt_ExpItems.BackColor = Color.Red
       ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow Then
           Txt_ExpItems.Text = "اليوم تنتهي صلاحية هذه المادة"
           Txt_ExpItems.BackColor = Color.Yellow
       ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(1) Then
           Txt_ExpItems.Text = "باقي يوم على انتهاء الصلاحية"
           Txt_ExpItems.BackColor = Color.Gold
       ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(2) Then
           Txt_ExpItems.Text = "باقي يومان على انتهاء الصلاحية"
           Txt_ExpItems.BackColor = Color.Gold
       ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(3) Then
           Txt_ExpItems.Text = "باقي 3 ايام على انتهاء الصلاحية"
           Txt_ExpItems.BackColor = Color.Gold
       Else
           Dim Firstdate As Date = Now
           Dim Seconddate As Date = CDate(Dgv_Table.CurrentRow.Cells("Item_Exp").Value)
           Dim kk As String = DateDiff(DateInterval.Day, Seconddate, Firstdate)
           Txt_ExpItems.Text = " باقي على صلاحية هذه المادة" & (kk * -1) & "يوم"
           Txt_ExpItems.BackColor = Color.Green
       End If

   End Sub

البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
الرد
تم الشكر بواسطة: محمد خيري , Rabeea Qbaha , Rabeea Qbaha , asemshahen5
#7
الهي يرضى عليك و يبارلك لك بجميع امورك يا طيب يا اصيل.كلو تمام جزاك الله خيرا اخي ابراهيم
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#8
الحمد لله والشكر لله
ولك اضعاف ماتمنيته لي اخي محمد بارك الله فيك
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
الرد
تم الشكر بواسطة: asemshahen5 , محمد خيري



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


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