تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:
#8
تفضل يا لغالي المثال

[ATTACH]2604[/ATTACH]

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

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

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


الملفات المرفقة
.rar   WindowsApplication16.rar (الحجم : 1.83 م ب / التحميلات : 28)
الرد }}}}
تم الشكر بواسطة:
#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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يتم جعل اول سطر فى الداتا جريد فيو يظهر الرصيد السابق السيد الجوهري 1 72 منذ 22 دقيقة مضت
آخر رد: السيد الجوهري
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 96 07-12-16, 02:39 PM
آخر رد: a_abdullah
Exclamation [VB.NET] سؤال احتاج مساعده فيه a_abdullah 11 169 25-10-16, 03:20 PM
آخر رد: a_abdullah
  مساعده من الخبراء المبرمجين والمختصيين محمد بوقزاحة 0 56 21-10-16, 12:19 PM
آخر رد: محمد بوقزاحة
  [VB.NET] مساعده في مشروع صغير dubai.eig 6 177 19-10-16, 08:31 AM
آخر رد: dubai.eig
  مساعده من الخبراء المبرمجين محمد بوقزاحة 5 149 09-10-16, 02:47 AM
آخر رد: أبو عمر
  تخمين الرقم الذي اخترت سعود 6 171 19-08-16, 06:56 PM
آخر رد: سعود
  كود لمعرفة الرقم الفريد الخاص بالهارديسك Hard disk mohamed salah bashir 5 546 10-08-16, 01:21 AM
آخر رد: أسامة السالمي
  كود تحقق الاتصال بالانترنت وتسجيل تلقائي لايميل طالب 22 3 146 05-08-16, 01:04 AM
آخر رد: LoveVb
  [VB.NET] كود تحقق من يوزر بالسماح له hglogtd 23 412 23-07-16, 11:58 PM
آخر رد: hglogtd

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


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