اسم المستخدم وكلمة المرور في قواعد البيانات

السلام عليكم ،

تفضل اخي هاذا مثال بالمرفقات :

password 555

login.rar

السلام عليكم

اولا يا اخ memoon قم بعمل نموذج لأيأخذ البيانات من المستخدم حتى يضع تلك البيانات في قاعدة البيانات

مثل

اسم المستخدم

كلمة المرور

تأكيد كلمة المرور

السؤال السري

إجابة السؤال السري

ماشي لو ماعرفتش قولي

وبعد ماتعمله طبعا هيكون هناك زر حفظ او OK

هنا في هذا الزر سوف تتصل بقاعدة البيانات بتاعتك وتذهب الي جدول معين وليكن اسمه account

كلمة Account تعني حساب باللغة العربية

والأن اسم المستخدم وكلمة المرور الخاصة به والسؤال السري والإجابة السرية مسجلين فعلا في قاعدة البيانات في الجدول Account

انت معايا ؟؟؟؟

والأن في النموذج الخاص بتسجيل الدخول

في زر Ok او موافق سوف تكتب الجملة الإستعلامية التالية حتى تصل لغرضك ان البرنامج يتأكد هل اسم المستخدم موجود بالفعل وهل كلمة المرور التي كتبها المستخدم فعلا صحيحة وتخص اسم المستخدم اللي المستخدم قام بكتابته ولا لأ

راح تكتب الكود التالي

-------------------------------------------------------------------------------------

If Text1.Text = "" Then

MsgBox "من فضلك اكتب اسم المستخدم", vbExclamation, "خطأ"

Exit Sub

End If

If Text2.Text = "" Then

MsgBox ".من فضلك اكدخل كلمة المرور", vbExclamation, "خطأ"

Exit Sub

End If

ConnectNow

SQL = "select * from Account where Name = '" & Text1.Text & "' and Password = '" & Text2.Text & "'"

Re.Open SQL, Connection, adOpenDynamic, adLockReadOnly

If Re.EOF And Re.BOF Then

MsgBox " .خطأ في اسم المستخدم او كلمة المرور", vbCritical, "خطأ"

Exit Sub

Else

formstart.show

Unload Me

End If

-------------------------------------------------------------------------------

شرح الكود

-------

جملة if الأولى وهي اذا لم يكتب المستخدم اي كلمة او حرف في الـ text1 سوف تظهر له رسالة بالخطأ

جملة if الثانية وهي اذا لم يكتب المستخدم اي كلمة او حرف في الـ text2 سوف تظهر له رسالة بالخطأ

كلمة Exit sub الموجود في الجملتين اللي فاتوا تعني اذا الشرط تحقق اي اذا المستخدم فعلا لم يكتب شئ توقف عن عملية قراءة وترجمة باقي الكود

كلمة connectNow دي طريقة الإتصال بقاعدة البيانات الخاصة بك اذا كنت متصل بالقاعدة فعلا فيما قبل فلا داعهي للإتصال بها مرة أخرى

اما جملة الإستعلام فهى صريحة وواضحة

وهي تعني

قم بإختيار كل شي من الجدول اللي اسمه Account بشرط ان الحقل Name يساوي اللي مكتوب في الـ Text1 والشرط التاني ان يكون حقل الــ Password يساوي اللي مكتوب في الــ Text2

جملة IF اللي بعدها على طول

وهي فقط لتأكيد هل الشرطين تحققوا بالفعل ام لا

كلمة

re.EOF And re.BOF

تعني ان نهاية الجدول account هي هي بداية الجدول accoun

بعني آخر انه لم يجد فعلا الشرطين اللي في جملة الإستعلام

وفي هذه الحالة طلع رسالة خطأ يقول فيها ان هناك خطأ في اسم المستخدم او كلمة المرور

اما اذا تحقق الشرطين وهنا كلمة Else هاتشتغل

اذا تحقق الشرطين بالفعل قم بإظهر النموذج التالي وقم بإغلاق النوزج الحالي

بس خلاص

بس في حاجة هناك مش عارف انت هاتستوعبها ولا لأ

اذا ما استوعبتهاش اتصل بي على هذا اللإيميل

hamada_cat3@yahoo.com

قابلني على الماسنجر

المهم نرجع لموضوعنا

لابد من تحديد من الذي قام بالدخول على البرنامج

بمعنى آخر

من الذي يستخدم البرنامج الأن هل هو المستخدم محمود ام محمد ام هند ام سوسن ام مين بالضبط

بم ان هناك مستخدمين كثيرة سوف تستخدم هذا البرنامج اذا لكل مستخدم له حاجاته الخاصة

وبأبسط الأمثلة

اذا كان البرنامج عبارة عن نوتة تليفونات

فمن المؤكد ان المستخدم محمود له نمره الخاصة الذي لا يراها احد سواه

وباقي المستخدمين هكذا صح ؟؟

سوف تقوم بتعريف متغير اسمه مثلا currentuser بس تعرفه في موديول

Public currentuser As String

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

بس كدة وتطلع فوق في الكود اللي كاتبهولك في الإستعلام فوق

بعد كلمة Else

تكتب

currentuser = Text1.Text

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

اي جملة استعلام تحط فيها الشرط ده

where currentuser = '" & Text1.Text & "'

بس خلاص

لو مافهمتش حاجة راسلني

بااااااااااااااااااااااي

مشكورين أخواني الأعزاء على شرحكم المميزة والأكثر من رائعة جعلها الله في موازين حسناتكم