+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : timer (/showthread.php?tid=3150)
timer - mesm23 - 09-06-14
لدى مشروع يحدد اوقات المقابلات للزبائن حيث يقوم المستخدم بادخال وقت امقابلة القادمة
اريد من البرنامج ان يعمل تنبيه للتذكير بوقت المقابلة القادمة مثلا اذا كانت المقابلة بعد اسبوع يقوم البرنامج بتنبيه المستخدم فى اليوم الذى يسبق يوم المقابلة
RE: timer - vb_net - 10-06-14
تفضل اخي هدا ما استطعت ان افيدك به اتمنى ان يكون هو المطلوب
PHP كود :
' متغير بالتاريخ الدي سيدخله الشخص للمقابلة
Dim x As String = "12/06/2014"
' حساب الفرق بين تاريخ اليوم و تاريخ الدي ادخله الشخص
' الفرق يكون بالايام
Dim wd As Long = DateDiff("d", Date.Now, x)
' هنا الا يكون موعد المقابلة هو نفس تاريخ اليوم او اصغر منه
If x <= Date.Now Then
' رسالة تفيد بتغير تاريخ المقابلة
MsgBox("لايمكنك اخد موعد غير تاريخ المقابلة")
' ادا كان الفرق بين التاريخين هو 1 يعني يوم
ElseIf wd.ToString = 1 Then
' تضهر هده الرسالة
MsgBox("لم يتبقى الا يوم على المقابلة")
End If
RE: timer - mesm23 - 13-06-14
تسلم جزالك الله خيرا
RE: timer - mesm23 - 14-06-14
لا يظهر شى
كود :
Label1.Text = Date.Today
Dim x As String = TextBox1.Text
Dim wd As Long = DateDiff("d", Date.Today, x)
If x = Date.Today Then
MsgBox("لا", MsgBoxStyle.Exclamation)
ElseIf wd.ToString = 1 Then
MsgBox("لم يتبقى الا يوم على المقابلة")
End IfRE: timer - vb_net - 14-06-14
جرب ضع الاكواد بزر ثم ادخل تاريخ يكون اكبر بيوم من تاريخ اليوم واضغط الزر وستضهر الرسالة
بعد دالك عدل على حسب مشروعك فقط انا اردتك تعمل مثال لترى النتيجة
RE: timer - vbnet - 14-06-14
(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'.....
RE: timer - mesm23 - 15-06-14
تسلم كثير ساجرب الكود
جزاك الله خيرا
اسال الله لك العافية
RE: timer - mesm23 - 22-06-14
يسلمو جزالك الله خيرا
عملت الكود وبحمد الله اشتغل معى
لكن المشكلة انه يكرر رسالة msgbox الى ما لا نهاية ولا يتوقف ابدا
السؤال هو كيف اعمل ايقاف للتايمر وهذا هو الكود
PHP كود :
Label1.Text = Date.Today
Dim S As String = " select * FROM TABLE2 where ( DateDiff('d', getday() , ud) <=1 )"
MsgBox("الموعد المحدد ")
RE: timer - mesm23 - 22-06-14
يقول لى هناك خطأ فى القيمة 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