ارجوكم ساعدونى ..اريد عمل كود على شاشة دخول المستخدمين

[mom20088]

السلام عليكم

عندى قاعدة بيانات فى جدول المستخدمين ويحتوى هذا الجدول على user name  - password

انا عملت نموذج للمستخدمين واسمه login واريد ان اعمل كودين كالاتى:-

1- لو كتبت  اسم المستخدم أو كلمة السر  خطأ اكتر من 3 مرات يقوم بتعطيل شاشة الدخول لمدة دقيقة واحدة والعداد يكون ظاهر ( بمعنى انه يعمل lock لمدة دقيقة ولايسمح بكتابة أى شئ) 

2- لو ادخلت الرقم السرى خطا 10 محاولات يقفل البرنامج ولما يفتح يطلب رقم سرى لــــ  admin 

3- الكود الثانى اللى انا محتاجه انى لو كتب اسم المستخدم والرقم السرى خطأ يعطى رسالة خطأ ويمسح اسم المستخدم والرقم السرى  عشان أكتبهم تانى

شكرا

مرفق البرنامج

formulation final.rar

[ابو جودي]

في 8/26/2016 at 05:58, mom20088 said:

السلام عليكم

عندى قاعدة بيانات فى جدول المستخدمين ويحتوى هذا الجدول على user name  - password

انا عملت نموذج للمستخدمين واسمه login واريد ان اعمل كودين كالاتى:-

1- لو كتبت  اسم المستخدم أو كلمة السر  خطأ اكتر من 3 مرات يقوم بتعطيل شاشة الدخول لمدة دقيقة واحدة والعداد يكون ظاهر ( بمعنى انه يعمل lock لمدة دقيقة ولايسمح بكتابة أى شئ) 

2- لو ادخلت الرقم السرى خطا 10 محاولات يقفل البرنامج ولما يفتح يطلب رقم سرى لــــ  admin 

3- الكود الثانى اللى انا محتاجه انى لو كتب اسم المستخدم والرقم السرى خطأ يعطى رسالة خطأ ويمسح اسم المستخدم والرقم السرى  عشان أكتبهم تانى

شكرا

مرفق البرنامج

formulation final.rar

السلام عليكم ورحمة الله تعالى وبركاته
هذا فكرى المتواضع ☺
 

formulation final-up.rar

[mom20088]

أشكرك اخى الكريم  على ردك ولن يتم كتابة الموضوع اكثر من مرة هذا خطأ منى

سوف اراجع الكود

[mom20088]

السلام عليكم

اشكرك اخى الكريم على الكود الرائع

انا محتاج فقط يبقى التوقيت ٣٠ ثانية فقط ويبقى العد تنازلى اى يبدا من ٣٠ ثانية الى الصفر 

شكرا اخى الكريم

[ابو جودي]

10 ساعات مضت, mom20088 said:

السلام عليكم

اشكرك اخى الكريم على الكود الرائع

انا محتاج فقط يبقى التوقيت ٣٠ ثانية فقط ويبقى العد تنازلى اى يبدا من ٣٠ ثانية الى الصفر 

شكرا اخى الكريم

لا شكر على واجب اهلا بك 
جرب هذه التعديلات وانتظر ردك ان شاء الله

formulation final-up02.rar

تم تعديل سبتمبر 1, 2016 بواسطه ابا جودى

[mom20088]

اشكرك يا اخى الكريم التعديل ميه ميه وجزاك الله خير الجزاء

 

تم تعديل سبتمبر 2, 2016 بواسطه mom20088

[ابو جودي]

11 ساعات مضت, mom20088 said:

اشكرك يا اخى الكريم التعديل ميه ميه وجزاك الله خير الجزاء

سبحان الله وبحمده سبحان الله العظيم
سبحانك لا علم لنا إلا ما علمتنا إنك أنت العليم الحكيم
الحمد لله الذى تتم بنعمته الصالحات

الشكر لله
واسأل الله العلى العظيم رب العرش العظيم أن يجزيكم وكل اساتذتنا الذين ندين لهم بكل الفضل بما تعلمناه منهم وعلى ايديهم بعد رب العزة سبحانه كل الخيـر ان شاء الله 
اهلا بك اخى الحبيب  

تم تعديل سبتمبر 2, 2016 بواسطه ابا جودى

[mom20088]

بشكرك على اخلاقك الحميدة وربنا يجعلك مع النبيين والصديقيين والشهداء 

واناطمعان فى اجابة على سؤال مهم جدا 

ازاى اعمل نسخة تجريبية لللبرنامج بتاعى وبعد كده يدمر البرنامج بتاعى ويمسح كل الداتا 

وازاى اقدر احمى البرنامج والاكواد من الهاكرز وان اى حد يحاول يدخل باسورد خطا فى حماية محرر الاكواد يمسح كل الاكواد ويدمر البرنامج نهائيا

تم تعديل سبتمبر 2, 2016 بواسطه mom20088

[ابو جودي]

11 ساعات مضت, mom20088 said:

بشكرك على اخلاقك الحميدة وربنا يجعلك مع النبيين والصديقيين والشهداء 

واناطمعان فى اجابة على سؤال مهم جدا 

ازاى اعمل نسخة تجريبية لللبرنامج بتاعى وبعد كده يدمر البرنامج بتاعى ويمسح كل الداتا 

وازاى اقدر احمى البرنامج والاكواد من الهاكرز وان اى حد يحاول يدخل باسورد خطا فى حماية محرر الاكواد يمسح كل الاكواد ويدمر البرنامج نهائيا

اخى الحبيب جزاك الله الخير كله ورزقك بأكثر مما دعوت لى
اخى اهمس اليك همس المحبين بكل الود والحب ارجو من حضرتك التقيد بقواعد المشاركات فى المنتديات والحفاظ عليها 
وحتى استطيع الرد على تساؤلات حضرتك انا أو احد اساتذتنا الكرام جزاهم الله عنا خيرا 
برجاء وضع كل سؤال فى موضوع مختص لاسراء المنتديات ☺
فى انتظار موضوعك الجديد فضلا وليس امرا 

[famokad]

تنشء جدول باسم T_USERS
من الحقول التالية

UNO تسلسل تلقائي

UID   رقم المستخدم

UNM اسم المستخدم

UPS كلمة المرور

 

انشء نموذج باسم FRM_LOGIN

حقل نصي اسم المستخدم باسم uno

حقل نصي كلمة المرور باسم upas

امر دخول باسم or1

امر الغاء باسم or2

 

لأمر الدخول or1

عند حدث النقر اكتب الكود التالي

 

 

    Dim up, ui As Integer

        ui = Val(uno.Value)

        up = DLookup("[UPS]", "T_USERS", "[UID]= " & ui)

 

    If up = Val(upas.Value) Then

       DoCmd.Close

       DoCmd.OpenForm "FRM_REP", acNormal

    Else

        x = MsgBox("كلمة السر خطأ حاول مرة اخرى", vbOKOnly, "دخول خاطئ")

        upas.SetFocus

    End If

        For i = 0 To S

            S = 1

            S = i + 1

            Next

            If S = 5 Then

            z = MsgBox("لقد تجاوزت حدود الادخال", vbOKOnly, "الدخول")

            DoCmd.Quit

        End If

            

        

        

        

End Sub

 

 

 

كما في المرفقاتlogin.accdb