كيف تعمل باسوورد لبرنامجك

[.Azhar]

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

اخواني اخواتي الاعزاء اليوم سوف اشرح لكم وبالتفصيل والصور كيف نعمل فورم خاص بالباسوورد .

المتطلبات 

جدول 

فورم

كود VBA 

1. الجدول : نقوم بانشاء جدول يحتوي على الحقول التالية :-

الحقل الاول : pwPKID  /الخصائص ترقيم تلقائي / مفتاح اساسي 

الحقل الثاني : pwDEPT / الخصائص نص

الحقل الثالث : pwPW / الخصائص نص

الحقل الرابع: pwOWN/ الخصائص نص

نحفظ الجدول باسم : faqPW

الصورة النهائية للجدول تصبح بهذا الشكل . 

[.Azhar]

الان بعد اكمال الجدول نذهب لعمل فورم 

نفتح نموذج جديد بالتصميم 

نضع على الفورم كومبو بوكس ونسميه cboDept

ونصع مربع نص ونسميه txtPassword

ونضع زر ونسمية cmdLogin

نذهب الان الى خصائص الكومبو بوكس ومن Row Source بالعربي مصدر الصف ونضغط على الزر الصغير يظهر لنا نافذة الاستعلام نختار الجدول ومن الجدول نختار الحقول  pwPKID و pwDEPT بعدها نقوم 

بالحفظ 

فيصبح النموذج او الفورم بهذه الصور 

تم تعديل سبتمبر 29, 2014 بواسطه .Azhar

[.Azhar]

الامر الثالث والاخير والمهم هو الكود 

نذهب الى الزر الذي وضعناه على الفورم والذي اسميناه cmdLogin ونذهب لخصائصه ومن الخصائص نختار حدث عند النقر .

ونقوم بنسخ الكود التالي ولصقه فيه 

Private Sub cmdLogin_Click()
     'التحقق من اسم المستخدم
If IsNull(Me.cboDept) Then
   MsgBox "يجب ادخال اسم المستخدم", vbCritical
   Me.cboDept.SetFocus
Else
   'التحقق من كلمة المرور
   If Me.txtPassword.Value = DLookup("pwPW", "faqPW", "[pwPKID]=" & Me.cboDept.Value) Then
       lngPKID = DLookup("pwPKID", "faqPW", "[pwPKID]=" & Me.cboDept.Value)
       DoCmd.OpenForm "هنا نضع اسم الفورم الذي نريد ان يفتح "
       Me.Visible = False
   Else
       MsgBox "كلمة المرور غير صحيحة", vbOKOnly, "الادخال غير صحيح"
       Me.txtPassword = Null
       Me.txtPassword.SetFocus
   End If
End If

        'اذا قام المستخدم بادخال كلمة مرور غير صحيحة 3 مرات سوف يغلق البرنامج
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
        MsgBox "ليس لديك حق الوصول الى البرنامج راجع مدير المشروع", vbCritical, "Restricted Access!"
        Application.Quit
    End If


End Sub

وايضا نذهب لخصائص الفورم او النموذج ونختار من خصائصه حدث عند التحميل ونضع هذا الكود , فائدة هذا الكود هو عند فتح البرنامج في كل مره لا تبقى كلمات السر محفوظه في الفورم وكذلك ايضا يتم الانتقال مباشرة عند الفتح مؤشر الماوس الى الكومبو بوكس 

Private Sub Form_Load()
    Me.cboDept.SetFocus
    Me.cboDept = Null
    Me.txtPassword = Null
End Sub

تم تعديل سبتمبر 29, 2014 بواسطه .Azhar

[.Azhar]

انا اكملت البرنامج ..... وانتم هل قمتم باتمامه هههههههه .

تحياتي لكم . اخوكم ازهر

[علي المصري]

موضوع جميل جدا وفي غاية الأهمية استاذ أزهر

 

لكل جزيل الشكر

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

[.Azhar]

مرورك استاذ على هو الرائع والجميل 

كل عام وانت بالف خير 

[farouk_666]

أخى لى طلب كيف استطيع عمل نموذج لتسجيل مستخدم جديد مثل هذا النموذج 

او بمعنى اصح أريد اضافة زر تسجيل مستخدم جديد 

[kamma]

برافو موضوع يستحق الاحترام و التقدير

[تعليموه]

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