تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده في كود تحقق من الرقم السري السابق
#1
السلام عليكم ورحمة الله وبركاته

ممكن تزويدي بكود تحقق من الرقم السري السابق

هذا الكود المستخدم :-

كود :
''======================================================================
            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
الرد }}}}
تم الشكر بواسطة:
#2
المفترض أن الرقم السري السابق موجود فين ؟؟
الرد }}}}
تم الشكر بواسطة:
#3
اكيد يالغالي في قاعده البيانات



البيانات في القاعده البيانات

اسم الجدول Usaers يوجد فيها
اسم المستخدم : usaer
الرقم السري : Password

جمله sql للتعديل :-

UPDATE Usaers SET Password ='" & Textpass2.Text & "' WHERE Password = " & Textpass1.Text
الرد }}}}
تم الشكر بواسطة:
#4
خزن كلمة المرور الاولى ضمن متغير وقارن بها.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته

كيف الحال يا اخي سعود

كيف يمكن فعل ذلك ...

حاولت وحاولت ولكني لم اعرف الكود المطلوب فارجو الفزعة ...

هذا الكود كامل ...

كود :
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
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم

اخي الكريم ارفق المثال للتعديل عليه
الرد }}}}
تم الشكر بواسطة:
#7

السلام عليكم ورحمة الله وبركاته
شــــــــاهد هــــــ Edit User Info ـــذاالموضوع ,,,,,,, ربمــــــــــــــــــــا تجــــــــــــد فيه طلبك .
Abu Ehab : Microsoft Partner  & Systems Developer
  Facebook   Youtube    Twitter   
الرد }}}}
تم الشكر بواسطة:
#8
تفضل يا لغالي المثال

[ATTACH]2604[/ATTACH]

ضبط مع مثال اخوي أبو ايهاب بارك الله فيك ...

لكن وجهتني مشكله في تغير الرقم اكثر من مره مايقبل وتظهر رساله رقم السري سابق خطاَ

اتمنى تجرب البرنامج قاعده البيانات sql server


الملفات المرفقة
.rar   WindowsApplication16.rar (الحجم : 1.83 م ب / التحميلات : 31)
الرد }}}}
تم الشكر بواسطة:
#9
يا اخي ابهاب ظهرت لدى مشكله

الصورة:-



الكود :-

كود :
ChkPass = (From Rw As DataRow In [color=#FF0000]DSS.Tables(0).Rows[/color] Where Rw.Item(0) = fusername Select Rw.Item(1) Distinct).Last
الرد }}}}
تم الشكر بواسطة:
#10

رايح أتكلم بالعامية :

هذا الخلل موجود في المثال اللى انا رفعته ؟ ولااا في مشروعك ؟

على كل الاحوال : هو الكود الموجود صحيح برمجيا وشغال تمام ,,, ممكن يكون الحقل فارغ من البيانات عندك وعلشان هيك حدث خلل ...
لكن اكيد الموضوع سهل ... حاول تحلها لأني مشغول خالص مع والاولاد وعندهم أمتحانات نهايه العام

عايز أقول شغلة مهمه :
حاول تنسى ADO.Net وتتعلم OOP N-Tire
Abu Ehab : Microsoft Partner  & Systems Developer
  Facebook   Youtube    Twitter   
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 282 11-05-17, 11:54 AM
آخر رد: khaled12345
  [VB.NET] مساعده بسيطه - مثال TreeView dubai.eig 7 178 03-05-17, 08:48 AM
آخر رد: dubai.eig
  ما نوع متغير الرقم الذي يحتوي على كسورعشرية ؟ تناسيم 1 65 27-04-17, 01:27 PM
آخر رد: rmlq
  مساعده فى تعديل الكود ده لو سمحتوا يا جماعه نبيل كونكت 2 135 22-04-17, 06:16 PM
آخر رد: عبـدالله
  مساعده في حذف واضافة وتحديث قاعدة بيانات بالفيجوال a_abdullah 6 203 21-04-17, 05:44 PM
آخر رد: a_abdullah
  احتاج مساعده جدا لمشروعي :( a_abdullah 4 251 20-04-17, 11:35 PM
آخر رد: IBRA939
  مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا نبيل كونكت 8 179 20-04-17, 01:41 PM
آخر رد: أسامة السالمي
  مساعده فى الصلاحيات لو سمحتوا نبيل كونكت 1 55 17-04-17, 01:41 AM
آخر رد: عبـدالله
  [سؤال] مساعده في ايجاد كود جريد فيو .. Marwan9990 7 156 15-04-17, 12:37 PM
آخر رد: Marwan9990
  [سؤال] مساعده في اظهار قيمة عند الاختيار من combobox billyalhaj.2011 17 591 07-04-17, 06:38 AM
آخر رد: جميل علي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم