كيف أغير الرقم السري للمستخدم

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيف أغير الرقم السري للمستخدم

مُساهمة من طرف ماجد في الأربعاء مايو 28, 2014 8:45 pm

السلام عليكم ورحمة الله وبركاته

صلحت برنامج من مدير ومستخدمين  .. كيف  المستخدم  يستطسع يغير  رقمه السري بدون الرجوع للمدير  ... الرقم السري  فقط  ولا يستطيع أن يغير أم المستخدم  تبعه

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

الدخول للبرنامج

أسم الدخول    المدير
كلمة السر  123
المرفقات
برنامج الموظفين3.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(43 Ko) عدد مرات التنزيل 15
avatar
ماجد
..
..

تاريخ التسجيل : 27/03/2014
المساهمات : 12
النقاط : 20
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف أغير الرقم السري للمستخدم

مُساهمة من طرف ماجد في الجمعة مايو 30, 2014 8:03 am

معقوله مافيه أحد  يعرف الطريقة  Smile
avatar
ماجد
..
..

تاريخ التسجيل : 27/03/2014
المساهمات : 12
النقاط : 20
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف أغير الرقم السري للمستخدم

مُساهمة من طرف زهراء في السبت مايو 31, 2014 9:51 am

ماجد كتب:معقوله مافيه أحد  يعرف الطريقة  Smile

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


اما بالنسببة للاستفسار فعليك اتباع الاتى :

1_ قم بإضافة و حدة برمجية للمشروع Module1 ثم كتابة الكود التالى فيها :
الكود:

Public UserNames As String
Public UserPassword As String

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

2_  فى نافذة تسجيل الدخول للبرنامج يتم كتابة الكود التالى فى حدث النقر لزر الامر "دخول" مثلا :

الكود:

UserNames = Text1
UserPassword = Text2

وهما لحفظ اسم المستخدم و كلمة المرور فى المتغيرات التى اعلنها عليها فى الخطوة السابقة ....على اساس ان Text1 هو مربع النص الذى سيتم كتابة اسم المستخدم به ....و Text2 هو مربع النص الذى سيتم كتابة كلمة المرور بة ....ومن ثم حفظها فى المتغيرات لحين استخدامهم

3_ أما فى نافذة تعديل كلمة المرور للمستخدم يجب عمل التالى :

ا_ كتابة كلمة السر القديمة
ب_ كتابة كلمة السر الجديد
ج_تأكيد كلمة السر الجديدة

لذلك سيتم برمجة تلك النافذة على اساس ما يلى :

ا_ التأكد من أن كلمة السر القديمة صحيحه بمقارنتها بما تم تخزينة فى المتغير UserPassword
ب_ التأكد من أن كلمة السر الجديدة مطابقة لتاكيد كلمة السر
ج_ تحديث البيانات و حفظ كلمة السر الجديدة فى جدول المستخدمين USERS


و الكود الكامل سيكون على النحو التالى
الكود:
Private Sub Command1_Click()
If Text2 = "" Then
MsgBox " يجب كتابة كلمة السر القديمة", vbCritical+ vbMsgBoxRight, " Error "
Text2.SetFocus
Exit Sub
End If
If Text3 = "" Then
MsgBox "يجب كتابة كلمة السر الجديدة", vbCritical+ vbMsgBoxRight, " Error "
Text3.SetFocus
Exit Sub
End If
If Text4 = "" Then
MsgBox "يجب تأكيد كلمة السر", vbCritical+ vbMsgBoxRight, " Error "
Text4.SetFocus
Exit Sub
End If
If Text3 <> Text4 Then
MsgBox " عفوا كلمة السر الجديدة غير مطابة للتأكيد ", vbCritical+ vbMsgBoxRight, "
Error "
Exit Sub
End If
SQLs = "Select * FROM Users Where UserName = ' " & UserNames & " ' and Password = ' " & Text2 & " '
"
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
If RS.EOF Then
MsgBox " عفوا كلمة السر القديمة خطأ! ", vbCritical+ vbMsgBoxRight, " Error "
Exit Sub
Else
GoTo OKs :
End If
OKs :
MSGSave = MsgBox "هل أنت متأكد من تغير كلمة المرور", vbQuestion+ vbMsgBoxRight+
vbYesNo, " Change Password "
If MSGSave = vbYes Then
' Update Password
SQLs = "Update[Users]Set[Password]=' " & Text4 & " ' Where [UserName]=' " & UserName & " ' "
If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
MsgBox " تم تغير كلمة المرور بنجاح", vbCritical+ vbMsgBoxRight," Save "
End If
End Sub
avatar
زهراء
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 372
التقيم : 24
الدولة : مصر
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف أغير الرقم السري للمستخدم

مُساهمة من طرف ماجد في السبت مايو 31, 2014 6:50 pm

شكراُ لكِ  أختي  .. ياليت  عدلتي على المثال المرفق  ورفعتيه  لي  وأكون شاكر  لك  مساعدتك لي
avatar
ماجد
..
..

تاريخ التسجيل : 27/03/2014
المساهمات : 12
النقاط : 20
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى