الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

وين المشكلة في هذا النموذج؟؟

بدأه الحياة امراة في 25 أبريل 2012 · 14 رد · 1,002 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم يا عباقرة...

ابصراحة انا حصلت نموذج لتغير كلمة المرور في كتاب معين، وحبيت اعمله مثله( يعني عملت شبيه بهذا) بس المشكلة ما ضبط معي؟؟؟!!!

وما عرفت وين السبب في هذا النموذج؟؟؟؟واجو تساعدوني في التعديل عليه؟؟؟ لاني ابصراحة انفجر راسي وما عرفت شو المشكلة؟؟؟

تغيير كلمة المرور - تدريب.rar

#2
وعليكم السلام

في الفورم 2 (تغيير كلمة السر الحالية)

في كوماند حفظ يكون الكود كالتالي :

If Text1 = "" Then
MsgBox "Please Type User Name", vbCritical + vbMsgBoxRight, " Error "
Text1.SetFocus
Exit Sub
End If
شرح الكود لو التكست1 الخاص باسم المستخدم فارغ يظهر مسج لكتابة اسم المستخدم .
=================================================
If Text2 = "" Then
MsgBox "Please Type Old Password", vbCritical + vbMsgBoxRight, " Error "
Text2.SetFocus
Exit Sub
End If
شرح الكود لو التكست2 الخاص بكلمة المرور القديمة فارغ يظهر مسج لكتابة كلمة المرور القديمة .
=================================================
If Text3 = "" or Text3 <> Text4 Then
MsgBox "Sorry,The Old Password Not Equel New Password", vbCritical + vbMsgBoxRight, " Error "
Exit Sub
End If
شرح الكود لو التكست3 فارغ أو التكست4 لا يساوي التكست3 يظهر مسج عدم تطابق كلمات المرور .
=================================================
If rs.State = adStateOpen Then rs.Close
شرح الكود لو المتغير rs مفتوح يتم اغلاقة

rs.Open "Select * FROM Users Where User_n='" & Text1.Text & "' and p_w='" & Text2.Text & "'", DB, adOpenKeyset, adLockPessimistic
شرح الكود المتغير rs يقوم بفتح الجدول بشرط تطابق حقل اسم المستخدم مع تكست1 و حقل الباسوورد مع تكست2

If rs.EOF = True Then
شرح الكود لو النتيجة True يعني لم يجد الشرط في الجدول يعني اسم المستخدم الموجود في تكست1 وكلمة المرور الموجودة في تكست2 غير موجودة في جدول Users

MsgBox " Sorry,The Old Password Wrong ! ", vbCritical + vbMsgBoxRight, " Error "
شرح الكود إظهار مسج بوكس بعد وجود السجل

Else
شرح الكود أو تم وجود السجل

MSGSave = MsgBox("Are You Sure To Change This Password?", vbQuestion + vbMsgBoxRight + vbYesNo, " Change Password ")
شرح الكود إظهار رسالة مفادها هل انت متأكد من تعديل الباسوورد او تغييره

If MSGSave = vbYes Then
شرح الكود لو نقر كوماند موافق في الرسالة

rs!P_w = Text3
شرح الكود اسناد قيمة تكست3 إلى الحقل p_w

rs.Update
شرح الكود اتمام عملية حفظ كلمة السر الجديدة في الجدول

End If

MsgBox "Change Password Done"
شرح الكود إظهار مسج بوكس بتغيير كلمة السر

Unload Me
شرح الكود يغلق الفورم

End If


=================
الكود كامل يكون هكذا
====
If Text1 = "" Then
MsgBox "Please Type User Name", vbCritical + vbMsgBoxRight, " Error "
Text1.SetFocus
Exit Sub
End If

If Text2 = "" Then
MsgBox "Please Type Old Password", vbCritical + vbMsgBoxRight, " Error "
Text2.SetFocus
Exit Sub
End If
If Text3 <> Text4 Then
MsgBox "Sorry,The Old Password Not Equel New Password", vbCritical + vbMsgBoxRight, " Error "
Exit Sub
End If
If rs.State = adStateOpen Then rs.Close
rs.Open "Select * FROM Users Where User_n='" & Text1.Text & "' and p_w='" & Text2.Text & "'", DB, adOpenKeyset, adLockPessimistic
If rs.EOF = True Then
MsgBox " Sorry,The Old Password Wrong ! ", vbCritical + vbMsgBoxRight, " Error "
Else
MSGSave = MsgBox("Are You Sure To Change This Password?", vbQuestion + vbMsgBoxRight + vbYesNo, " Change Password ")
If MSGSave = vbYes Then
rs!P_w = Text3
rs.Update
End If
MsgBox "Change Password Done"
Unload Me
End If

=================
1
#3
codenew كتب:

وعليكم السلام

في الفورم 2 (تغيير كلمة السر الحالية)

في كوماند حفظ يكون الكود كالتالي :

If Text1 = "" Then
MsgBox "Please Type User Name", vbCritical + vbMsgBoxRight, " Error "
Text1.SetFocus
Exit Sub
End If
شرح الكود لو التكست1 الخاص باسم المستخدم فارغ يظهر مسج لكتابة اسم المستخدم .
=================================================
If Text2 = "" Then
MsgBox "Please Type Old Password", vbCritical + vbMsgBoxRight, " Error "
Text2.SetFocus
Exit Sub
End If
شرح الكود لو التكست2 الخاص بكلمة المرور القديمة فارغ يظهر مسج لكتابة كلمة المرور القديمة .
=================================================
If Text3 = "" or Text3 <> Text4 Then
MsgBox "Sorry,The Old Password Not Equel New Password", vbCritical + vbMsgBoxRight, " Error "
Exit Sub
End If
شرح الكود لو التكست3 فارغ أو التكست4 لا يساوي التكست3 يظهر مسج عدم تطابق كلمات المرور .
=================================================
If rs.State = adStateOpen Then rs.Close
شرح الكود لو المتغير rs مفتوح يتم اغلاقة

rs.Open "Select * FROM Users Where User_n='" & Text1.Text & "' and p_w='" & Text2.Text & "'", DB, adOpenKeyset, adLockPessimistic
شرح الكود المتغير rs يقوم بفتح الجدول بشرط تطابق حقل اسم المستخدم مع تكست1 و حقل الباسوورد مع تكست2

If rs.EOF = True Then
شرح الكود لو النتيجة True يعني لم يجد الشرط في الجدول يعني اسم المستخدم الموجود في تكست1 وكلمة المرور الموجودة في تكست2 غير موجودة في جدول Users

MsgBox " Sorry,The Old Password Wrong ! ", vbCritical + vbMsgBoxRight, " Error "
شرح الكود إظهار مسج بوكس بعد وجود السجل

Else
شرح الكود أو تم وجود السجل

MSGSave = MsgBox("Are You Sure To Change This Password?", vbQuestion + vbMsgBoxRight + vbYesNo, " Change Password ")
شرح الكود إظهار رسالة مفادها هل انت متأكد من تعديل الباسوورد او تغييره

If MSGSave = vbYes Then
شرح الكود لو نقر كوماند موافق في الرسالة

rs!P_w = Text3
شرح الكود اسناد قيمة تكست3 إلى الحقل p_w

rs.Update
شرح الكود اتمام عملية حفظ كلمة السر الجديدة في الجدول

End If

MsgBox "Change Password Done"
شرح الكود إظهار مسج بوكس بتغيير كلمة السر

Unload Me
شرح الكود يغلق الفورم

End If


=================
الكود كامل يكون هكذا
====
If Text1 = "" Then
MsgBox "Please Type User Name", vbCritical + vbMsgBoxRight, " Error "
Text1.SetFocus
Exit Sub
End If

If Text2 = "" Then
MsgBox "Please Type Old Password", vbCritical + vbMsgBoxRight, " Error "
Text2.SetFocus
Exit Sub
End If
If Text3 <> Text4 Then
MsgBox "Sorry,The Old Password Not Equel New Password", vbCritical + vbMsgBoxRight, " Error "
Exit Sub
End If
If rs.State = adStateOpen Then rs.Close
rs.Open "Select * FROM Users Where User_n='" & Text1.Text & "' and p_w='" & Text2.Text & "'", DB, adOpenKeyset, adLockPessimistic
If rs.EOF = True Then
MsgBox " Sorry,The Old Password Wrong ! ", vbCritical + vbMsgBoxRight, " Error "
Else
MSGSave = MsgBox("Are You Sure To Change This Password?", vbQuestion + vbMsgBoxRight + vbYesNo, " Change Password ")
If MSGSave = vbYes Then
rs!P_w = Text3
rs.Update
End If
MsgBox "Change Password Done"
Unload Me
End If

=================

اشكك كل الشكر استاذي، ولكن ظهرت مشكلة وهي في حاله تساوي كلمة المرور في مربع النص الثاني مع الثالث يعطيني مسج( كلمة المرور لا تساوي التاكيد) المشكلة مرفقة بالصور.

ما ادري اذا كان تحليلي صحيح او لا:( اعتقد انه يحب ان نحط كود انه في حالة تساوي كلمة المرور في المربعين ينقلني الى الفورم الثاني)

واسمحلي لاني تقدمي عليك في تحليلي.

وتقبل نتيجتي سيدي

post-230346-056627600 1335427607_thumb.j

المرفقات
المشكلة بعد التعديل في الفورم2.jpg
#4

العفو ،

انا هنا اتكلم عن فورم 2 شاشة تغيير كلمة السر الحالية

حسب طلبك الأول

#5
codenew كتب:

العفو ،

انا هنا اتكلم عن فورم 2 شاشة تغيير كلمة السر الحالية

حسب طلبك الأول

اتضحت الصورة عزيزي... اشكرك.

طيب ظهرت لي مشكلة ثانية، مرفق المشكلة.

تغيير كلمة المرور - تدريب.rar

#6

مرفق برنامج بدون توضيح اين المشكلة !!!

#7
codenew كتب:

مرفق برنامج بدون توضيح اين المشكلة !!!

هذه هي المشكلة بعد الضغط على زر الحفظ.

post-230346-015945200 1335469132_thumb.j

المرفقات
المشكلة بعد الضغط على زر الحفظ.jpg
#8

استاذي وينك..؟؟ انتظر ردك

#10
codenew كتب:

المعذرة

كلمات الشكر لا توفي حقك استاذي. وجزاك ربي خير الجزاء

#11

استاذي في ملاحظة بعد اذنك:

كلما اضغط موافق في الفورم 4 تظهر لي هذه الصورة رقم (1). وهذا هو السبب في الصورة رقم (2):؟؟؟؟؟؟؟

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

post-230346-011477700 1335641844_thumb.j

post-230346-014910200 1335641861_thumb.j

المرفقات
1.jpg2.jpg
#12

العفو

المشكلة اسم الحقل في الجدول p_w وفي جملة SQLs مكتوب Password

يجب تعديل Password إلى p_w

أيضاً يجب عدم وضع مسافات مثال

Where User_n = ' " & Text1 & " ' And p_w = ' " & Text2 & " ' "

الجملة العلوية خطا

الصحيح كالتالي

Where User_n = '" & Text1 & "' And p_w = '" & Text2 & "'"

تم تعديل هذه المشاركة بواسطة codenew في 28 أبريل 2012 في 22:53

1
#13

اللهم اغفر لهذا الانسان ولوالديه واهله انا معهم يا ارحم الراحمين.

بارك الله فيك يا اخي العزيز. وفعلاً انت عبقري. زادك الله من واسع فضله.

دمت للمبتدئين من امثالي دوماً.

#14
الحياة امراة كتب:

اللهم اغفر لهذا الانسان ولوالديه واهله انا معهم يا ارحم الراحمين.

بارك الله فيك يا اخي العزيز. وفعلاً انت عبقري. زادك الله من واسع فضله.

دمت للمبتدئين من امثالي دوماً.

آمين وياك والمسلمين يارب العالمين

#15

اسمحلي استاذي... في هذا.

شو سبب هذه المشكلة؟؟(مرفق الصورة؟؟) وممكن حلها؟؟

post-230346-012566500 1335717834_thumb.j

المرفقات
مشكلة DB Grid.jpg

مواضيع مشابهة