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

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

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

واالمشروع مرفق مع الطلب
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()

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

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

abdulla2

مساعدة