جعل البرنامج لا يفتح إذا ما تم تغيير ساعة الويندوز

[abo3aesha_2014]

السلام عليكم ورحمة الله وبركاته

المرفق قاعدة بيانات لبرنامج حضور وانصراف

هل يوجد طريقة لتأمين قاعدة البيانات ضد التلاعب في ساعة الويندوز حتى لا يقوم أحد الموظفين بتغيير وقت الحضور ؟؟

منع تغيير الوقت.rar

[أبو عبدالله الحلوانى]

السلام عليكم 

جرب هذه الفكرة لعلها تفيدك

 

منع تغيير الوقت.rar

[abo3aesha_2014]

3 ساعات مضت, أبو عبدالله الحلوانى said:

السلام عليكم 

جرب هذه الفكرة لعلها تفيدك

 

منع تغيير الوقت.rar

جزاك الله خيرا 

شغل محترفين 

[abo3aesha_2014]

عفوا يا أستاذنا

عندما نقلت الملف علي جهاز كمبيوتر آخر تم السماح بفتح النموذج حتي بعد تغيير الساعة !!!!

هل أحتاج لتحديث الوقت الموجود بجدول SaveFirstTimeTbl يدويا عند كل عملية نسخ للبرنامج علي جهاز آخر ؟؟

[أبو عبدالله الحلوانى]

12 ساعات مضت, abo3aesha_2014 said:

هل أحتاج لتحديث الوقت الموجود بجدول SaveFirstTimeTbl يدويا عند كل عملية نسخ للبرنامج علي جهاز آخر ؟؟

لا كل ما عليك هو حذف القيمة الموجودة بالجدول ومن ثم تشغيل البرنامج 

ويمكنك فعل ذلك برمجيا لكى لا تضطر لفعله يدويا بكل مرة.

[abo3aesha_2014]

17 دقائق مضت, أبو عبدالله الحلوانى said:

لا كل ما عليك هو حذف القيمة الموجودة بالجدول ومن ثم تشغيل البرنامج 

ويمكنك فعل ذلك برمجيا لكى لا تضطر لفعله يدويا بكل مرة.

معذرة أخي فأنا مازلت مبتدءا

كيف أفعل هذه الخطوة برمجيا ؟؟

[abo3aesha_2014]

للرفع

[صالح حمادي]

السلام عليكم

لقد أضف الكود التالي للكود الذي يقوم بمقارنة التاريخ المخزن مع التاريخ الحالي في حدث عند فتح الفورم

    Else
    sql.Edit: sql!Field_now = Now: sql.Update
   

ليصبح شكل الكود كالتالي:

If Now < DLookup("Field_Now", "SaveFirstTimeTbl") Then
    MsgBox "يبدو أنه تم التلاعب بساعة الجهاز" & vbCrLf & _
    "هذا سيؤدي الى ايقاف البرنامج" & vbCrLf & _
    "لحين ارجاع الوقت الصحيح", vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊÍÐíÑ"
    DoCmd.Quit
    Else
    sql.Edit: sql!Field_now = Now: sql.Update
    End If

 

منع تغيير الوقت.rar

[abo3aesha_2014]

45 دقائق مضت, صالح حمادي said:

السلام عليكم

لقد أضف الكود التالي للكود الذي يقوم بمقارنة التاريخ المخزن مع التاريخ الحالي في حدث عند فتح الفورم

    Else
    sql.Edit: sql!Field_now = Now: sql.Update
   

ليصبح شكل الكود كالتالي:

If Now < DLookup("Field_Now", "SaveFirstTimeTbl") Then
    MsgBox "يبدو أنه تم التلاعب بساعة الجهاز" & vbCrLf & _
    "هذا سيؤدي الى ايقاف البرنامج" & vbCrLf & _
    "لحين ارجاع الوقت الصحيح", vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊÍÐíÑ"
    DoCmd.Quit
    Else
    sql.Edit: sql!Field_now = Now: sql.Update
    End If

 

منع تغيير الوقت.rar

أخي الحبيب
ممكن شرح لفائدة الإضافة 

[صالح حمادي]

الكود الذي أضافه الأستاذ أبو عبد الله يقوم بـ:

1- تسجيل التاريخ و الوقت الحاليين إذا كان الجدولSaveFirstTimeTbl فارغا

2- مقارنة التاريخ الحالي مع التاريخ المسجل في الجدول السالف ذكره إذا كان التاريخ الحالي أصغر من التاريخ المسجل تظهر رسالة بأن تاريخ الجهاز غير صحيح ثم يغلق الجهاز. و إذا كان التاريخ الحالي أكبر يفتح البرنامج بشكل عادي دون أي إضافات.

3- فقمت بإضافة كود يقوم بتعديل التاريخ و الوقت المسجلين في الجدول إلى التاريخ و الوقت الحاليين عندما يفتح البرنامج بشكل عادي

 sql.Edit: sql!Field_now = Now: sql.Update

 

 

[abo3aesha_2014]

1 ساعه مضت, صالح حمادي said:

الكود الذي أضافه الأستاذ أبو عبد الله يقوم بـ:

1- تسجيل التاريخ و الوقت الحاليين إذا كان الجدولSaveFirstTimeTbl فارغا

2- مقارنة التاريخ الحالي مع التاريخ المسجل في الجدول السالف ذكره إذا كان التاريخ الحالي أصغر من التاريخ المسجل تظهر رسالة بأن تاريخ الجهاز غير صحيح ثم يغلق الجهاز. و إذا كان التاريخ الحالي أكبر يفتح البرنامج بشكل عادي دون أي إضافات.

3- فقمت بإضافة كود يقوم بتعديل التاريخ و الوقت المسجلين في الجدول إلى التاريخ و الوقت الحاليين عندما يفتح البرنامج بشكل عادي

 sql.Edit: sql!Field_now = Now: sql.Update

 

 

شكر ا علي الشرح

لكن عندي سؤال آخر

إذا كان هذا الكود يمنع المستخدم من إنقاص وقت الجهاز وبهذا لا يستطيع تسجيل حضوره مبكرا عن الوقت الذي حضر فيه فعليا

فما هو الكود الذي يمنع المستخدم من زيادة وقت الجهاز حتي لا يستطيع تسجيل إنصرافه بعد الوقت الذي انصرف فيه فعليا ؟؟

[abo3aesha_2014]

للرفع

مازالت المشكلة قائمة ومازال التلاعب مسموح به حتي مع وضع الكود 

 

[jjafferr]

السلام عليكم

 

الرابطين فيها نقاش مطوّل عن الساعة:

و

 

جعفر

[abo3aesha_2014]

UP

[abo3aesha_2014]

للرفع

المشكلة الوحيدة التى لم أجد لها حلا حتى الآن

[abo3aesha_2014]

UP