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
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 :)
tb_user itu untuk apa ya?
BalasHapustb_user itu digunakan utk mencari data user apakah data user kamu terdaftar di aplikasinya atau blm.
Hapuskok ngga ada listing modul untuk koneksi nya?
BalasHapusTbuser variabel ap? Pening kepala adek bang
BalasHapusCcd ini coding nya gk bermutu, yg jelas ngasih penjelasannya
BalasHapustb user buat nyimpan username sama paaword ke database sql kan ?
BalasHapustb_user itu digunakan utk mengecek daftar akun apakah akun tersebut sdh terdaftar atau blm dan stlh kamu click button ubah password atau enter text box utk konfirmasi password, otomatis password di tb_user tersebut berubah.
Hapustb_user asalnya dari mana?
BalasHapustb_user ???? haloooo
BalasHapustb_user dlm aplikasi vb fungsinya utk mengecek aja
HapusBiasanya tb_user itu table yang ada di database yang isinya nama² user
Hapusitu tb_user gk ada deklarisinya ya -_-
BalasHapusKoneksi database nya mana
BalasHapusKoneksi Databasenya kamu buatnya seperti biasa dgn kodingan koneksi Database pada umumnya
Hapusitu ada yang tak lengkap tak sih, saya tau cara cepatnya, codingnya simple, dari pada harus membuat module yang codingnya panjang itu
BalasHapusGimana butuh cpt?
Hapushttp://blosr.blogspot.com/?m=1
HapusMakasih bosqiu....
Hapusteman2 yang tdk biasa memakai sql dan biasa memamakai data base ms acsess exucute queri di ganti dengan exucutedatareader...
coba dulu pahami...
dan terapkan, kalau tb_user pian pakai apa untuk buat tebel di ms acsess,
seandaianya biasa pakai TBL_ LOGIN
y
DIM TBL_LOGIN As olDb comand
tb_user darimana?
BalasHapusbkn fungsinya.
Komentar ini telah dihapus oleh pengarang.
BalasHapustb_user itu adalah nama tabel database akun yg kalian buat bambanggg...
BalasHapusMantap min..
BalasHapusscriptnya yang lengkap dong min beserta koneksinya.
BalasHapuslaptop siapa yg di pake ren:v
BalasHapusbangke yg punya website, tidak dijelaskan itu tb user deklarasinya seperti apa
BalasHapussya sudah masukan nama tabel di mysql server (tb_user) tapi dia minta declare dan "executeQuery" -> 'executeQuery' is not a member of 'System.Data.SqlClient.SqlConnection'.
BalasHapustolong pencerahan nya suhu