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

PHP كود :
' متغير بالتاريخ الدي سيدخله الشخص للمقابلة
        Dim x As String = "12/06/2014"

        ' 
حساب الفرق بين تاريخ اليوم و تاريخ الدي ادخله الشخص
        
' الفرق يكون بالايام
        Dim wd As Long = DateDiff("d", Date.Now, x)

        ' 
هنا الا يكون موعد المقابلة هو نفس تاريخ اليوم او اصغر منه
        
If <= Date.Now Then

            
' رسالة تفيد بتغير تاريخ المقابلة
            MsgBox("لايمكنك اخد موعد غير تاريخ المقابلة")

            ' 
ادا كان الفرق بين التاريخين هو 1 يعني يوم
        
ElseIf wd.ToString 1 Then

            
' تضهر هده الرسالة
            MsgBox("لم يتبقى الا يوم على المقابلة")

        End If 
الرد }}}
تم الشكر بواسطة:
#3
تسلم جزالك الله خيرا
الرد }}}
تم الشكر بواسطة:
#4
لا يظهر شى
كود :
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 If
الرد }}}
تم الشكر بواسطة:
#5
جرب ضع الاكواد بزر ثم ادخل تاريخ يكون اكبر بيوم من تاريخ اليوم واضغط الزر وستضهر الرسالة

بعد دالك عدل على حسب مشروعك فقط انا اردتك تعمل مثال لترى النتيجة
الرد }}}
تم الشكر بواسطة:
#6
(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'

.....
الرد }}}
تم الشكر بواسطة: mesm23
#7
تسلم كثير ساجرب الكود
جزاك الله خيرا
اسال الله لك العافية
الرد }}}
تم الشكر بواسطة:
#8
يسلمو جزالك الله خيرا
عملت الكود وبحمد الله اشتغل معى
لكن المشكلة انه يكرر رسالة msgbox الى ما لا نهاية ولا يتوقف ابدا
السؤال هو كيف اعمل ايقاف للتايمر وهذا هو الكود
PHP كود :
Label1.Text Date.Today
        Dim S 
As String " select * FROM TABLE2 where ( DateDiff('d', getday() , ud) <=1 )"
        
MsgBox("الموعد المحدد "
الرد }}}
تم الشكر بواسطة:
#9
يقول لى هناك خطأ فى القيمة 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 
الرد }}}
تم الشكر بواسطة:


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


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