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

نسخة كاملة : الإشعارات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم أتمنى مساعدتي بأفكار حتى أطور هذا المشروع ..
برنامج لإستعارة الكتب وما اريد المساعدة به هو عمل تنبيهات مثل الفيسبوك ..

المشروع يقوم بتخزين بيانات العميل او المستعير وفيه تاريخ الإستعارة وعدد الايام  واتوماتكلي يظهر تاريخ الإرجاع .\
وكلها تخزن بقاعدة بيانات نوع اكسس والامور تمام ..
---
ما اريده هو عند إقتراب إنتهاء الفترة سواء بيوم  او ساعات يظهر تنبيه مثل الفيسبوك في تبيويب التنبيهات باللون الاحمر
وعند النقر عليه يفتح فورم التنبيهات به الجريدفيو يعرض كل التنبيهات الفائتة

واالمشروع مرفق مع الطلب
http://up.top4top.net/downloadf-4172hhar1-rar.html
---
بارك الله فيكم
السلام عليكم


ضع هذا الكود في الموديول 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()

ابحث عن طريقة الربط بين الجداول لتكون مشاريعك على أسس صحيحة.