لدى مشروع يحدد اوقات المقابلات للزبائن حيث يقوم المستخدم بادخال وقت امقابلة القادمة
اريد من البرنامج ان يعمل تنبيه للتذكير بوقت المقابلة القادمة مثلا اذا كانت المقابلة بعد اسبوع يقوم البرنامج بتنبيه المستخدم فى اليوم الذى يسبق يوم المقابلة
جرب ضع الاكواد بزر ثم ادخل تاريخ يكون اكبر بيوم من تاريخ اليوم واضغط الزر وستضهر الرسالة
بعد دالك عدل على حسب مشروعك فقط انا اردتك تعمل مثال لترى النتيجة
(09-06-14, 10:52 PM)mesm23 كتب : [ -> ]لدى مشروع يحدد اوقات المقابلات للزبائن حيث يقوم المستخدم بادخال وقت امقابلة القادمة
اريد من البرنامج ان يعمل تنبيه للتذكير بوقت المقابلة القادمة مثلا اذا كانت المقابلة بعد اسبوع يقوم البرنامج بتنبيه المستخدم فى اليوم الذى يسبق يوم المقابلة
.....
على افتراض انك تستخدم قاعدة بيانات
تحتاج نافذة
Form خاص بالمواعيد المقترب موعدها
قم بعمل استعلام في داخل مؤقت
Timer كل
12 ساعة (لأن المواعيد يالأيام) وإذا كانت هناك نتائج تظهر نافذة التذكير بالمواعيد وبها النتائج
مثال جملة الاستعلام للمواعيد التي ستتم اليوم التالي
على افتراض أن عمود الموعد
appointmentDate وعمود التأكد من أن المقابلة تمت
appointmentDone
ملاحظة: هناك اختلاف في تركيبة جمل الإستعلام بين
Access و
SQLServer
كود :
----- Access -----
SELECT *
FROM [table1]
WHERE ( DateDiff('d', Now() , appointmentDate) <=1 )
AND appointmentDone = False
كود :
----- SQLServer -----
SELECT *
FROM [table1]
WHERE ( DateDiff(Day, GetDate() , appointmentDate) <=1 )
AND appointmentDone = 'False'
.....
تسلم كثير ساجرب الكود
جزاك الله خيرا
اسال الله لك العافية
يسلمو جزالك الله خيرا
عملت الكود وبحمد الله اشتغل معى
لكن المشكلة انه يكرر رسالة msgbox الى ما لا نهاية ولا يتوقف ابدا
السؤال هو كيف اعمل ايقاف للتايمر وهذا هو الكود
PHP كود :
Label1.Text = Date.Today
Dim S As String = " select * FROM TABLE2 where ( DateDiff('d', getday() , ud) <=1 )"
MsgBox("الموعد المحدد ")
يقول لى هناك خطأ فى القيمة 1
PHP كود :
sqlcon1.Open()
sql1 = " Select * from table2 where( DateDiff('d', getday() , ud) <=1 )"
Dim cmd As New SqlCommand(sql1)
cmd.Connection = sqlcon1
Dim dr As SqlDataReader = cmd.ExecuteReader
If dr.HasRows Then
dr.Read()
TextBox2.Text = dr.Item("ud")
Else
MsgBox(" لا يوجد مقابلات ")
End If