ProjectForStudy

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 682|ตอบกลับ: 6

[ถาม/ตอบ] ขอโค้ด เปลี่ยน รหัสผ่านโดยผู้ใช้สามรถเปลี่ยนเองได้ ไม่ต้องให้ ยูสเซอร์ เปลี่ยนให้ครับ

[คัดลอกลิงก์]
  • อารมณ์วันนี้
    ง่วง
    เมื่อวานซืน 08:24
  • เช็คชื่อแล้ว: 173 วัน

    [LV.7]JuniorIII

    2

    กระทู้

    205

    โพสต์

    718

    เครดิต

    TeenLion

    Rank: 3Rank: 3

    เครดิต
    718
    Ticket
    81
    จิตพิสัย
    637

    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x
  • อารมณ์วันนี้
    ง่วง
    เมื่อวานซืน 08:24
  • เช็คชื่อแล้ว: 173 วัน

    [LV.7]JuniorIII

    2

    กระทู้

    205

    โพสต์

    718

    เครดิต

    TeenLion

    Rank: 3Rank: 3

    เครดิต
    718
    Ticket
    81
    จิตพิสัย
    637
     เจ้าของ| anuwat โพสต์ 2019-9-27 09:14:02 | ดูโพสต์ทั้งหมด
    If Txt_username1.Text = "" Or txt_password1.Text = "" Or txt_New_password.Text = "" Or txt_Confirm_password.Text = "" Then
                msg_error("กรุณากรอกข้อมูลให้ครบ !")
                Return
            End If

            If txt_New_password.Text <> txt_Confirm_password.Text Then
                msg_error("รหัสใหม่ ไม่ตรงกัน !")
                txt_New_password.Text = ""
                txt_New_password.Select()
                txt_New_password.Focus()
                txt_New_password.Text = txt_Confirm_password.Text
                Return
            End If

            sql = "select count (*) from tb_username where username='" & Txt_username1.Text & "'and password='" & txt_password1.Text & "'"
            Dim cout_user As Integer = cmd_excuteScalar()
            If cout_user <= 0 Then
                msg_error("Username password ไม่ถูกต้อง !")
                txt_password1.Text = ""
                Txt_username1.Select()
                Txt_username1.Focus()

                Dim i As Integer = lbl_count_wrong.Text
                i += 1
                If i > 3 Then
                    msg_error("คุณ Login ผิดพลาดมากกว่า 3 ครั้ง โปรแกรมจะปิดอัตโนมัติ")
                    End
                End If
                lbl_count_wrong.Text = i
                Return
            Else
                If confirm("คุณต้องการแก้ไขข้อมูลใช่ หรือไม่ ?") = vbNo Then Return

                sql = String.Format("update tb_username set password='{0}'where username='{1}'",
                    txt_New_password.Text, Txt_username1.Text)
                Dim dts As DataTable = cmd_excuteTeDataTable()
             
            End If
            msg_ok("แก้ไขข้อมูล สำเร็จ")
            Txt_username1.Text = ""
            txt_password1.Text = ""
            txt_New_password.Text = ""
            txt_Confirm_password.Text = ""

          



        End Sub

    คะแนน

    จำนวนผู้เข้าร่วม 1จิตพิสัย +5 ย่อ เหตุผล
    puklit + 5 ถูกใจ

    ดูบันทึกคะแนน

  • อารมณ์วันนี้
    แฮปปี้
    เมื่อวาน 14:11
  • เช็คชื่อแล้ว: 503 วัน

    [LV.9]ConquerorII

    38

    กระทู้

    935

    โพสต์

    6210

    เครดิต

    KingUnicorn

    Rank: 6Rank: 6

    เครดิต
    6210
    Ticket
    3679
    จิตพิสัย
    2531

    Merciful MemberInstructor

    puklit โพสต์ 2019-9-24 08:52:18 | ดูโพสต์ทั้งหมด
    ลำดับการเปลี่ยนรหัสผ่านตามฟอร์มของท่านจะเป็นดังนี้(ให้ท่านแปลงในแต่ละข้อที่ผมแจกแจงให้ท่านเปลี่ยนเป็น โค้ด VB.Net เองนะครับ ไม่ยาก)

    1. User จริง ๆ ไม่ต้องให้กรอก ให้อ้างอิงจาก User ที่ได้ Login เข้าระบบมาแล้ว เก็บค่า User ID นั้นมาใช้งานก็ได้
    2. ยืนยันรหัสผ่านเดิม ให้ เช็คดังนี้
    2.1. ต้องไม่เป็นค่าว่าง เช่น If String.IsNullOrEmpty(txtOldPassword.text) Then ให้แจ้งเตือนให้ป้อนรหัสผ่านเดิม
    2.2. กรณี 2.1 มีรหัสผ่านแล้ว ให้เขียน Function ตรวจสอบค่ารหัสผ่านเดิม หากถูกต้อง ให้คืนค่าเป็น True หากไม่ตรงให้คืนค่า False
          Sql command ที่ใช้เช่น SELECT password FROM tblUser WHERE UserID = '" & User ID ที่ต้องการเปลียนรหัสผ่าน & "'
    2.3. เช็ครหัสผ่านใหม่ต้องไม่เป็นค่าว่าง If String.IsNullOrEmpty(txtNewPassword.text) Then ให้แจ้งเตือนให้ป้อนรหัสผ่านใหม่
    2.4. เช็คยืนยันรหัสผ่านใหม่ต้องไม่เป็นค่าว่าง If String.IsNullOrEmpty(txtConfirmNewPassword.text) Then ให้แจ้งเตือนให้ป้อนยืนยันรหัสผ่านใหม่
    2.5. นำค่ารหัสผ่านใหม่ ข้อ 2.3 และ ค่ายืนยันรหัสผ่านใหม่ 2.4 มาตรวจสอบค่า ยืนยืนรหัสผ่านใหม่ตรงกับค่า รหัสผ่านใหม่หรือไม่ เช่น
       
    1. IF txtConfirmNewPassword.text = txtNewPassword.text THEN
    2.              'กรณีค่าตรงกัน ก็ให้เปลี่ยนรหัสผ่าน โดยใช้ Sql command ดังนี้
    3.              UPDATE tblUser SET password = '" & รหัสผ่านใหม่ & "' WHERE UserID = '" & User ID ที่ต้องการเปลียนรหัสผ่าน & "'

    4.              Messagebox "เปลี่ยนรหัสผ่านเรียบร้อยแล้ว"

    5.       Else
    6.             'แจ้งเตือน ยืนยันรหัสผ่านใหม่ไม่ตรงกับรหัสผ่านใหม่
    7.       End If
    คัดลอกไปที่คลิปบอร์ด


    อันนี้เป็นตัวอย่างของผมเอง C# สร้างเป็น Class แล้ว New Object เรียกมาใช้งาน
    ตัวอย่างฟอร์ม


    ตัวอย่างโค้ด New object จาก Class แล้วใช้งาน Method ใน Class


    ตัวอย่างบางส่วนจาก Class ClsUser ที่ผมเขียนไว้


    หวังว่าท่านคงทำได้ไม่ยากครับ เพราะผมได้ลำดับขั้นตอนให้ท่านหมดแล้วเหลือเพียงเปลี่ยนขั้นตอนและลำดับที่ผมได้แจกแจงเป็นโค้ดเท่านั้น





    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x
  • อารมณ์วันนี้
    ง่วง
    เมื่อวานซืน 08:24
  • เช็คชื่อแล้ว: 173 วัน

    [LV.7]JuniorIII

    2

    กระทู้

    205

    โพสต์

    718

    เครดิต

    TeenLion

    Rank: 3Rank: 3

    เครดิต
    718
    Ticket
    81
    จิตพิสัย
    637
     เจ้าของ| anuwat โพสต์ 2019-9-25 08:54:13 | ดูโพสต์ทั้งหมด
    puklit ตอบกลับเมื่อ 2019-9-24 08:52
    ลำดับการเปลี่ยนรหัสผ่านตามฟอร์มของท่านจะเป็นดังนี้ ...

    ขอบคุณมากครับ ได้แล้ว
  • อารมณ์วันนี้
    แฮปปี้
    เมื่อวาน 14:11
  • เช็คชื่อแล้ว: 503 วัน

    [LV.9]ConquerorII

    38

    กระทู้

    935

    โพสต์

    6210

    เครดิต

    KingUnicorn

    Rank: 6Rank: 6

    เครดิต
    6210
    Ticket
    3679
    จิตพิสัย
    2531

    Merciful MemberInstructor

    puklit โพสต์ 2019-9-26 08:31:48 | ดูโพสต์ทั้งหมด
    anuwat ตอบกลับเมื่อ 2019-9-25 08:54
    ขอบคุณมากครับ ได้แล้ว

    ท่านควรจะแชร์ โค้ดที่ท่านได้ทำไว้ เผื่อมันจะเป็นประโยชน์ให้กับสมาชิกท่านอื่น ด้วยนะครับ

    สิ่งที่ดีที่สุดคือการแบ่งปันที่ไม่มีที่สิ้นสุด
  • อารมณ์วันนี้
    สู้
    2019-10-27 16:13
  • เช็คชื่อแล้ว: 2 วัน

    [LV.1]NewBie

    0

    กระทู้

    20

    โพสต์

    17

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    17
    Ticket
    2
    จิตพิสัย
    15
    kokola157 โพสต์ 2019-10-26 14:01:03 | ดูโพสต์ทั้งหมด
    ฟกฟหกฟห
  • อารมณ์วันนี้
    เหนื่อย
    2020-1-30 13:39
  • เช็คชื่อแล้ว: 5 วัน

    [LV.2]BeginnerI

    0

    กระทู้

    7

    โพสต์

    23

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    23
    Ticket
    16
    จิตพิสัย
    7
    42meter โพสต์ 2019-10-29 23:41:19 | ดูโพสต์ทั้งหมด
    สุดยอดครับ
    ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

    รายละเอียดเครดิต

    ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|ProjectForStudy  

    GMT+7, 2020-2-24 02:22 , Processed in 0.576220 second(s), 38 queries .

    Powered by Discuz! X3.2 R20150609, Rev.38

    © 2001-2013 Comsenz Inc.

    ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้