تطبيق لبرنامج به نظام تأمين user nam And password

[lyla]

السلام عليكم :

1- هذا البرنامج عمله الأخ أبويزن من 5 سنوات الله يحفظه , سراحة كان شغال كويس بس يبدو أن فيه نقص أو شطب في الكود وتوقف . فهل من الممكن أحد يعرف فين المشكلة ويعيد تشغيله

2- أنا فكرت أن أضع كمبو تختار المستخدمه أسمها منه بدون كتابة أسمها أشان مايكون هناك فرصه لأدخال أي خطأ وتكتب رقم الباس وورد فقط ...( سميت النموذج في البرنامج فورم بأسم المقترح )

3- هل من الممكن أن نعمل له عداد أقصد 3 محاولات للرقم السري وبعده يخرج البرنامج . أكيد سهل و موصعب عليكم في أكتشاف الخطأ وتعديل الإضافات . بس سراحة برنامج حلو وأنا واثقة أن الكل بيستخدمه . شاكرة ومقدرة لكم . :hart:

http://www.geocities.com/art_rtu/password.zip

تم تعديل أبريل 9, 2004 بواسطه lyla

[lyla]

21 زائر ماحد عرف :') :') :')

[سامي زغلول]

تحية طيبة ...

على فرض أن الجدول يحوي :

strUser, strPassword, bIsActive

ويحوي الجدول القيم التالية :

Mohammed, 1234 , -1

Tareq , 1234 , -1

بالنسبة لحقل ال( bIsActive ) فهو يأخذ القيمتين اما ( 1-) في حالة انه مفعل أو يأخذ القيمة ( 0 ) في حالة انه غير مفعل .

الكود كالتالي :

Option Compare Database
Dim intCounter As Integer

Private Sub btnOk_Click()
    Dim dbUser As Database
    Dim rsUser As Recordset
    Dim cpass As String
  
    Set dbUser = DBEngine.Workspaces(0).Databases(0)
    Set rsUser = dbUser.OpenRecordset("tblUser")
    With rsUser
        .Index = "PrimaryKey"
        .Seek "=", cmbUser
    
        If Not .NoMatch Then
            If !bIsActive = -1 Then
                txtPassword.SetFocus
                cpass = !strPassword
                If txtPassword = cpass Then
                    DoCmd.OpenForm "main form"
                    DoCmd.Close acForm, "user acc"
                Else
                    intCounter = intCounter + 1
                    If intCounter > 3 Then
                        .Edit
                        !bIsActive = 0
                        .Update
                    End If
                    MsgBox "ÇáÑÌÇÁ ÇáÊÇßÏ ãä ßáãÉ ÇáÓÑ"
                    txtPassword.SetFocus
                End If
            Else
                MsgBox "ÇÓã ÇáãÓÊÎÏã ÛíÑ ãæÌæÏ Ãæ Êã ÅíÞÇÝå ÑÇÌÚ ÇáãÓÄæá"
                cmbUser.SetFocus
                Exit Sub
            End If
        End If
    End With
End Sub

Private Sub Form_Load()
    intCounter = 1
End Sub

لو استطعت ان ارسل المثال لفعلت لكن لم اعرف كيف

أتمنى أن يكون هذا هو المطلوب

:pp:

[lyla]

شكرا لك على كتابة الكود :d . بس وين أحطه في النموذج !! (y)

[سامي زغلول]

أضف كومبو بوكس لأسم المستخدم وسميه (cmbUser )

أضف تيكست بوكس للباسورد وسميه (txtPassword )

أضف زر للدخول وسميه ( btnOk)

الكود الاول يوضع في حدث ال(Click ) للزر الدخول

الكود الثاني في حدث ( Load ) للفورم

والله الموفق

[lyla]

طيب بسويه وأشوف النتيجة وبالرد عليك (y)

[lyla]

صراحة حاولت ولم أنجح :') . بس أقترح عليك أن تضغط البرنامج zip وترسله على بريدي إذا أمكن lyla2000@arabia.com ولو أن هذي طريقة أنانيه لحرمان الآخرين . بس أنشاءالله سوف أحطه في المنتدى ليستفيد منه الآخرين. بس علمني إذا أرسلته

[lyla]

مافيش حل ؟؟؟

[مهند عبادي]

تفضلي اختي الفاضلة

هذا البرنامج بعد التعديل حسب طلبك وبكود أقصر وأوضح

PASSWORD.rar

[lyla]

الله يخليك لأم ترجيك . ويحرم وجهك و أعضاء المنتدى والمسلمين كلهم من النار.