Membuat Form Ganti Password dengan VB.Net

      Kali ini saya akan berbagi membuat form ganti password. form ini sangat perluh ada di aplikasi SI atau Sistem Informasi ataupun applikasi yang membutuhkan hak akses tertentu bila ingin menggunakan sebuah aplikasi. dan menurut saya form ganti password harusnya lebih simple dan tidak terlalu rumit jika digunakan oleh pengguna. ok sekian dulu kata pengantarnya :)

**yang pertama agan jelas harus punya tabel untuk data admin seperti dibawah ini :



**Kemudia bualah form seperti dibawah ini :



**Ini adalah code untuk mencocokan data yang di inputkan pada text username dengan data yang sudah tersimpan di tabel admin.

    Private Sub txtuser_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtuser.KeyPress

        If e.KeyChar = Chr(13) Then

            tb_user = conn.executeQuery("select * from tb_user where nama ='" & txtuser.Text & "'")

               If tb_user.Rows.Count = 0 Then

                    MsgBox("Username salah", vbOKOnly, "informasi")

                    txtuser.Focus()

                    txtuser.Text = ""

                Else

                    txtpasslama.Focus()

                End If

            End If

    End Sub

**Ini adalah code untuk mencocokan data yang di inputkan pada text password lama dengan data yang sudah tersimpan di tabel admin

Private Sub txtpasslama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpasslama.KeyPress

        If e.KeyChar = Chr(13) Then

            tb_user = conn.executeQuery("select*from tb_user where password ='" & txtpasslama.Text & "' and nama = '" & txtuser.Text & "'")

            If tb_user.Rows.Count = 0 Then

                MsgBox("Password salah", vbOKOnly, "informasi")

                txtpasslama.Focus()

                txtpasslama.Text = ""

            Else

                txtpasbaru.Focus()

            End If

        End If

    End Sub

**Ini adalah code untuk mengganti password lama ke password baru

Private Sub txtpasbaru_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpasbaru.KeyPress

        If e.KeyChar = Chr(13) Then

            If txtpasbaru.Text = "" Then

                MsgBox("Password baru belum  dibuat", vbOKOnly, "Informasi")

                txtpasbaru.Focus()

            Else

                txtpassulang.Focus()

            End If

        End If

    End Sub

**Ini adalah code untuk menyimpan password baru di tabel.

Private Sub txtpassulang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpassulang.KeyPress

        Dim pesan As String

        If e.KeyChar = Chr(13) Then

            If txtpasbaru.Text <> txtpassulang.Text Then

                MsgBox("Password Konfirmasi tidak sesuai", vbOKOnly, "informasi")

                txtpassulang.Focus()

                txtpassulang.Clear()

            Else

                pesan = MsgBox("Yakin password akan diganti?", vbYesNo, "Informasi")

                If pesan = vbYes Then

                    Dim sql As String = ("update tb_user set password =" & txtpassulang.Text & " where nama ='" & txtuser.Text & "'")

                    Dim mycomm = New OdbcCommand(sql, conn.buka)

                    mycomm.ExecuteNonQuery()

                    MsgBox("Password Berhasil diubah")

                    bersih()

                Else

                    Me.Close()

                    menuutama.logo.Visible = True

                End If

            End If

        End If

    End Sub

 
      Sekian yang dapat saya bagikan semoga bermanfaat :) Happy Coding :)

Posted in Visual Basic 2010