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

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

اذهب الى الأسفل

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

مُساهمة من طرف زهراء السبت مايو 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
زهراء
زهراء
........
........

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

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

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

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

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

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

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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