ابو ريان قام بنشر يناير 21, 2004 مشاركة قام بنشر يناير 21, 2004 (معدل) ذا كنت تريد بيع برنامج وتريد انهاء البرنامج عند العميل بعد فترة معينة ولا تريد الذهاب الى العميل بل تريد الإكتفاء بالإتصال من طرفه يخبرك أن البرنامج يطلب رقم سري جديد ، اليك الآن الطريقه: انشء نموذجا وليكن اسمه شاشة الدخول اجعل به مربع نص وليكن اسمه 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 تم تعديل يناير 21, 2004 بواسطه ابو ريان 1 رابط هذا التعليق شارك More sharing options...
العجمي قام بنشر يناير 22, 2004 مشاركة قام بنشر يناير 22, 2004 (y) رائع اخي الكريم ساعمل على تجربته رابط هذا التعليق شارك More sharing options...
شاكر الزين قام بنشر يناير 23, 2004 مشاركة قام بنشر يناير 23, 2004 وهذا مثال على ما تم شرحه من الاستاذ / أبو ريان شاكر الزين _________________97.zip رابط هذا التعليق شارك More sharing options...
ابو ريان قام بنشر فبراير 12, 2004 الكاتب مشاركة قام بنشر فبراير 12, 2004 لقد كان يعيب موضوعنا في السابق هو امكتنية لجوء المستخدم الى ارجاع تاريخ الجهاز ولذا خطرت لي بعض الأفكار لمنع محاولات العابثين . 1- انشئ مربع نص وسمه d واجعل مصدر هذا المربع جدول ضع به الرقم السري الاول 2-اجعل القيمة له 1401 وهو الرقم السري الاول و الافتراضيه له صفر 3-انشئ استعلام حذف مصدره الجدول السابق 4-قم بتوزيع الاوامر التالية على الإجراءات عند الفتح للنموذج - بعد التحديث لمربع النص الذي يدخل به كلمة السر - عند النقر لزر ok فعند فتح النموذج ضع امر يشغلل الاستعلام في حال كان التاريخ اكبر من او يساوي التاريخ الذي تحدده لانتهاء الرقم السري الاول عندها سيتم حذف سجل من الجدول وبالتالي حذف القيمة بمربع النص d ال 1401 في الاجراء بعد التحديث لمربع النص الذي يوضع به كلمة السر ضع امر لاظهار رسالة في حال كان الرقم المدخل 1401 و القيمة لمربع النص d هي صفر والتاريخ < من التاريخ الذي تحدده لانتهاء الرقم السري الاول "لقد تم التلاعب بتاريخ الجهاز" هذا وارجو من اصحاب صلاحيات ارفاق الملفات ارفاق مثال لموضوعي هذا كما فعل الاستاذ شاكر جزاه الله خيرا . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.