كيف أغير الرقم السري للمستخدم
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
كيف أغير الرقم السري للمستخدم
السلام عليكم ورحمة الله وبركاته
صلحت برنامج من مدير ومستخدمين .. كيف المستخدم يستطسع يغير رقمه السري بدون الرجوع للمدير ... الرقم السري فقط ولا يستطيع أن يغير أم المستخدم تبعه
البرنامج بالرمفقات ياليت أحد يعدل عله مع شكري وتقديري للجميع
الدخول للبرنامج
أسم الدخول المدير
كلمة السر 123
صلحت برنامج من مدير ومستخدمين .. كيف المستخدم يستطسع يغير رقمه السري بدون الرجوع للمدير ... الرقم السري فقط ولا يستطيع أن يغير أم المستخدم تبعه
البرنامج بالرمفقات ياليت أحد يعدل عله مع شكري وتقديري للجميع
الدخول للبرنامج
أسم الدخول المدير
كلمة السر 123
- المرفقات
ماجد- ..
- تاريخ التسجيل : 27/03/2014
المساهمات : 12
النقاط : 20
التقيم : 0
الدولة :
الجنس :
رد: كيف أغير الرقم السري للمستخدم
معقوله مافيه أحد يعرف الطريقة
ماجد- ..
- تاريخ التسجيل : 27/03/2014
المساهمات : 12
النقاط : 20
التقيم : 0
الدولة :
الجنس :
رد: كيف أغير الرقم السري للمستخدم
ماجد كتب:معقوله مافيه أحد يعرف الطريقة
اهلا وسهلا بك اخى الكريم و نعتذر لك للتأخير فى الرد و السبب ربما ان الاعضاء النشطين فى المنتدى مصريين و ربما يكونون مشغولين بالنتخابات حاليا و الدليل عدم وجودهم بالمنتدى منذ فترة
اما بالنسببة للاستفسار فعليك اتباع الاتى :
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
الدولة :
الجنس :
رد: كيف أغير الرقم السري للمستخدم
شكراُ لكِ أختي .. ياليت عدلتي على المثال المرفق ورفعتيه لي وأكون شاكر لك مساعدتك لي
ماجد- ..
- تاريخ التسجيل : 27/03/2014
المساهمات : 12
النقاط : 20
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد