الإشعارات

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

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

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


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

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


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


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