اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

ذا كنت تريد بيع برنامج وتريد انهاء البرنامج عند العميل بعد فترة معينة ولا تريد الذهاب الى العميل بل تريد الإكتفاء بالإتصال من طرفه يخبرك أن البرنامج يطلب رقم سري جديد ،

اليك الآن الطريقه:

انشء نموذجا وليكن اسمه شاشة الدخول اجعل به مربع نص وليكن اسمه s ضع زر امر

ok وآخر cancel

ضع lable او تسميه واجعل التسمية التوضيحية لها الرقم 1401 وهو الرقم السري الاول وسم الليبل D حرر الخاصية مرئي الى لا

اعمل الآن نموذج آخر وسمه وليكن الشاشة الرئسية

اجعل بدء تشغيل البرنامج على شاشة الدخول

الآن في حدث عند الفتح لشاشة الدخول اكتب الكود التالي:-

If Date > #2/15/2004# Then
D.Caption = 510
Else
If Date < #2/15/2004# Then
D.Caption = 1401
End If
End If
في حدث عند النقر لزر ok اكتب الكود
If [s] = D.Caption Then DoCmd.OpenForm "الشاشة الرئسية "

If [s] <> 1401 And [s] <> 510 Then

MsgBox "الرقم المدخل غير صحيح"
End If
وفي حدث بعد التحديث لمربع النص S
If Date > #2/15/2004# And [s] = 1401 Then
MsgBox "لم يعد بإمكانك استخدام هذا الرقم السري فضلا اتصل بمصمم البرنامج لتحصل على رقم سري جديد"
Else
If Date < #2/15/2004# And [s] = 510 Then
MsgBox "الرقم المدخل غير صحيح"

End If

End If

تم تعديل بواسطه ابو ريان
  • Thanks 1
  • 3 weeks later...
قام بنشر

لقد كان يعيب موضوعنا في السابق هو امكتنية لجوء المستخدم الى ارجاع تاريخ الجهاز ولذا خطرت لي بعض الأفكار لمنع محاولات العابثين .

1- انشئ مربع نص وسمه d واجعل مصدر هذا المربع جدول ضع به الرقم السري الاول

2-اجعل القيمة له 1401 وهو الرقم السري الاول و الافتراضيه له صفر

3-انشئ استعلام حذف مصدره الجدول السابق

4-قم بتوزيع الاوامر التالية على الإجراءات عند الفتح للنموذج - بعد التحديث لمربع النص الذي يدخل به كلمة السر - عند النقر لزر ok

فعند فتح النموذج ضع امر يشغلل الاستعلام في حال كان التاريخ اكبر من او يساوي التاريخ الذي تحدده لانتهاء الرقم السري الاول

عندها سيتم حذف سجل من الجدول وبالتالي حذف القيمة بمربع النص d

ال 1401

في الاجراء بعد التحديث لمربع النص الذي يوضع به كلمة السر ضع امر

لاظهار رسالة في حال كان الرقم المدخل 1401 و القيمة لمربع النص d هي صفر

والتاريخ < من التاريخ الذي تحدده لانتهاء الرقم السري الاول

"لقد تم التلاعب بتاريخ الجهاز"

هذا وارجو من اصحاب صلاحيات ارفاق الملفات ارفاق مثال لموضوعي هذا كما فعل الاستاذ شاكر جزاه الله خيرا .

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information