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

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


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

رابط هذا التعليق
شارك

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

السلام عليكم

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

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

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

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

formulation final-up02.rar

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه mom20088
رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • 3 years later...

تنشء جدول باسم 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
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information