السلام عليكم ورحمة الله وبركاته
ممكن تزويدي بكود تحقق من الرقم السري السابق
هذا الكود المستخدم :-
كود :
''======================================================================
If Textpass1.Text <> Then
MessageBox.Show("كلمة المرور السابقة خـاطئة", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Exit Sub
End If
'======================================================================
If Textpass2.Text <> Textpass3.Text Then
MessageBox.Show("عدم تطابق كلمة المرور الجديده", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Exit Sub
End If
Dim updataOk As Boolean = winClass.SQLExicute("UPDATE Usaers SET Password ='" & Textpass2.Text & "' WHERE Password = " & Textpass1.Text)
If updataOk = True Then
MsgBox("تمت عملية تعديل البيانات بنجاح", MsgBoxStyle.Information, "تأكيد عملية التعديل")
ClearAll()
Else
MsgBox("الرجاء تأكيد من البيانات المدخله", MsgBoxStyle.Critical, "خطأ")
ClearAll()
End If
المفترض أن الرقم السري السابق موجود فين ؟؟
اكيد يالغالي في قاعده البيانات
البيانات في القاعده البيانات
اسم الجدول Usaers يوجد فيها
اسم المستخدم : usaer
الرقم السري : Password
جمله sql للتعديل :-
UPDATE Usaers SET Password ='" & Textpass2.Text & "' WHERE Password = " & Textpass1.Text
خزن كلمة المرور الاولى ضمن متغير وقارن بها.
السلام عليكم ورحمة الله وبركاته
كيف الحال يا اخي سعود
كيف يمكن فعل ذلك ...
حاولت وحاولت ولكني لم اعرف الكود المطلوب فارجو الفزعة ...
هذا الكود كامل ...
كود :
Private Sub Navsave_LinkClicked(sender As Object, e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles Navsave.LinkClicked
Try
If Textpass1.Text = "" Then
MessageBox.Show("أدخل كلمة المرور الحالية ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Textpass1.Focus()
Exit Sub
End If
If Textpass2.Text = "" Then
MessageBox.Show("أدخل كلمة المرور الجديدة ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Textpass2.Focus()
Exit Sub
End If
If Textpass3.Text = "" Then
MessageBox.Show("تأكيـد كلمة المرور الجديدة ", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Textpass3.Focus()
Exit Sub
End If
Dim pass As New SqlCommand("select password from Employee where Auto_Emp", sqlconn)
''======================================================================
'If Textpass1.Text <> pass Then
' MessageBox.Show("كلمة المرور السابقة خـاطئة", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
' Exit Sub
'End If
'======================================================================
If Textpass2.Text <> Textpass3.Text Then
MessageBox.Show("عدم تطابق كلمة المرور الجديده", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Exit Sub
End If
Dim updataOk As Boolean = winClass.SQLExicute("UPDATE Employee SET password ='" & Textpass2.Text & "' WHERE password = " & Textpass1.Text)
If updataOk = True Then
MsgBox("تمت عملية تعديل البيانات بنجاح", MsgBoxStyle.Information, "تأكيد عملية التعديل")
ClearAll()
psrrr = Textpass3.Text
Else
MsgBox("الرجاء تأكيد من البيانات المدخله", MsgBoxStyle.Critical, "خطأ")
ClearAll()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
السلام عليكم
اخي الكريم ارفق المثال للتعديل عليه
السلام عليكم ورحمة الله وبركاته
شــــــــاهد هــــــ Edit User Info ـــذاالموضوع ,,,,,,, ربمــــــــــــــــــــا تجــــــــــــد فيه طلبك .
تفضل يا لغالي المثال
[ATTACH]2604[/ATTACH]
ضبط مع مثال اخوي أبو ايهاب بارك الله فيك ...
لكن وجهتني مشكله في تغير الرقم اكثر من مره مايقبل وتظهر رساله رقم السري سابق خطاَ
اتمنى تجرب البرنامج قاعده البيانات sql server
يا اخي ابهاب ظهرت لدى مشكله
الصورة:-
الكود :-
كود :
ChkPass = (From Rw As DataRow In [color=#FF0000]DSS.Tables(0).Rows[/color] Where Rw.Item(0) = fusername Select Rw.Item(1) Distinct).Last
رايح أتكلم بالعامية :
هذا الخلل موجود في المثال اللى انا رفعته ؟ ولااا في مشروعك ؟
على كل الاحوال : هو الكود الموجود صحيح برمجيا وشغال تمام ,,, ممكن يكون الحقل فارغ من البيانات عندك وعلشان هيك حدث خلل ...
لكن اكيد الموضوع سهل ... حاول تحلها لأني مشغول خالص مع والاولاد وعندهم أمتحانات نهايه العام
عايز أقول شغلة مهمه :
حاول تنسى ADO.Net وتتعلم OOP N-Tire