+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=19362)
الإشعارات - abdulla2 - 21-02-17
سلام عليكم أتمنى مساعدتي بأفكار حتى أطور هذا المشروع ..
برنامج لإستعارة الكتب وما اريد المساعدة به هو عمل تنبيهات مثل الفيسبوك ..
المشروع يقوم بتخزين بيانات العميل او المستعير وفيه تاريخ الإستعارة وعدد الايام واتوماتكلي يظهر تاريخ الإرجاع .\
وكلها تخزن بقاعدة بيانات نوع اكسس والامور تمام ..
---
ما اريده هو عند إقتراب إنتهاء الفترة سواء بيوم او ساعات يظهر تنبيه مثل الفيسبوك في تبيويب التنبيهات باللون الاحمر
وعند النقر عليه يفتح فورم التنبيهات به الجريدفيو يعرض كل التنبيهات الفائتة
واالمشروع مرفق مع الطلب
http://up.top4top.net/downloadf-4172hhar1-rar.html
---
بارك الله فيكم
RE: الإشعارات - مساعدة - 21-02-17
السلام عليكم
ضع هذا الكود في الموديول Module
كود :
' عدد المتبقي لهم أقل من 24 ساعة
Public Function GetAlertCount() As Integer
' 'h' تعني فرق بالساعات
Dim STR = "SELECT COUNT(*) FROM [TB_Notices] WHERE DateDiff('h', Now, [DateGet]) <= 24"
Dim Adp As New OleDbCommand(STR, conn)
If conn.State <> ConnectionState.Open Then conn.Open()
Dim ret As Integer = Adp.ExecuteScalar
conn.Close()
Return ret
End Functionوضع هذا الكود في حدث Form_Load للفورم frmMain
كود :
Label1.Text = GetAlertCount()ابحث عن طريقة الربط بين الجداول لتكون مشاريعك على أسس صحيحة.