Membuat Form Ganti Password User Aktif di VB 6.0 dan MySQL

12/01/2016
Selamat Siang teman-teman, pada kesempatan kali ini, saya akan membahas sedikit mengenai cara membuat form ganti pasword yang login pada aplikasi yang kita buat menggunakan visual basic 6.0 dan MySQL. Tutorial kali ini masih berhubungan dengan tutorial saya sebelumnya yaitu mengenai tutorial visual basic 6.0, MySQL dan ADODB Connection.

Untuk database, saya membuat baru dengan nama database biodata dan tabelnya saya buat tabel user dengan struktur seperti gambar dibawah ini:
Struktur Database Aplikasi Ubah Password
Struktur Database Aplikasi Ubah Password
Isi tabel diatas dengan 1 buah record, terserah teman-teman mau mengisinya bagaiman, caranya pilih tab insert pada database, kemudian isikan data-data, dan GO.

Seperti yang telah saya bahas di atas, artikel ini berkaita dengan artikel saya sebelumnya. Step pertama buatlah sebuah koneksi vb 6.0 dan MySQL menggunakan ADODB Connection. Silakkan kunjungi artikel saya sebelumnya dengan judul membuat koneksi vb 6.0 dan MySQL menggunakan adodb connection. Jika sudah, Buatlah 3 Form seperti gambar dibawah ini:

1. Form Utama

Form Utama pada aplikasi ubah password vb 6 dan mysql
Form Utama
Pada form utama saya hanya memberi menu di bagian kanan atas, yaitu menu admin dengan sub menu login dan ubah password. Silahkan buat menu dengan klik kanan pada form kemudian pilih menu editor.
Isi Pada Menu Form Utama

2. Form Login

Form Login
Untuk form login sendiri, hanya tampilan basic pada umumnya terdiri dari 2 textbox, textbox1 name nya txtusername dan TextBox2 name nya txtpassword, kemudian ada 2 Command, Command1 name nya cmdlogin dan Command2 name nya cmdbatal.

3. Form Ubah Password

Form Ubah Password
Pada form ke 3 yaitu form ubah password saya menggunakan 5 textbox dan 2 Comand
  • TextBox1 = txtid
  • TextBox2 = txtusername
  • TextBox3 = txtpasslama
  • TextBox4 = txtpassbaru
  • TextBox5 = txtulangpass
  • Command1 = cmdproses
  • Command2 = cmdbatal
Selanjutnya, saya akan membahas step by step mengenai codingan dari Aplikasi dengan Ubah Password pada VB 6 dan MySQL ini. Sebagai informasi tambahan, pada modul koneksi, form yang saya load jika berhasil adalah form utama, dengan kondisi menu admin aktif, sub menu login aktif dan sub menu ubah password nonaktif. Sehingga untuk melakukan ubah password sebuah akun, makan pemilik akun harus login terlebih dahulu.

Jika sudah berhasil membuat koneksi, silakkan run aplikasi yang teman-teman buat. Jika berhasil menampilkan form utama tanpa error, maka kita akan menuju tahap selanjutnya yaitu mengolah form login yang tampilan form nya sudah kita buat pada tahap awal tadi. Source code dari form login bisa kalian pelajari pada cara mudah membuat form login pada vb 6.0 dan MySQL. Untuk Source code pada form login ada tambahan beberapa baris kode, sehingga source code keseluruhan dari form login adalah seperti berikut:
Nah untuk perubahannya sendiri adalah di dalam kondisi if pada baris ke 8 sampai ke 12. mulai dari baris ke 8 frmutama.mnlogin.Enabled = False Maksudnya adalah, ketika user berhasil login ke dalam aplikasi, maka sub menu login pada form utama tidak aktif. Kemudian baris ke 9, menjadikan sub menu ubah password dapat di klik oleh user. baris ke 10, form utama dapat di akses. Selanjutnya baris ke 11, kita memberikan nilai pada textbox id user di form ubah password dengan value dari tabel user di MySQL field iduser dan ke 12 sama maksudnya dengan baris ke 11 hanya nilainya yang berbeda. sekarang coba run lagi aplikasi tersebut, dan pilih menu admin sub menu login. 

Belum bisa diakses?

Tentu saja karena pada form utama kita belum menuliskan kode sedikit pun. Sekarang kita ke menu utama dan isikan beberapa baris kode dibawah ini.
Sekarang coba run dan login lagi, buka sub menu ubah password, dan tadaa.. berhasil. Jika sudah berhasil maka akan terlihat tampilan seperti berikut:
Isi Form Ubah Passwor Jika Berhasil
Untuk source code dari form ubah password nya seperti berikut:
Nah diatas merupakan source code lengkap dari form ubah password, alurnya adalah, baris 1 dan 2 merupakan deklarasi variable yang akan kita gunakan pada tiap sub. sub bersih, aktif dan nonaktif dibuat dengan tujuan untuk meringkasi barisan kode, karena dengan metode seperti ini yang perlu kita lakukan hanya memanggil nama sub nya di dalam setiap private sub.

selanjutnya klik 2 kali pada textbox password lama, akan muncul private sub dengan nama txtpasslama, ubah procedure pada bagian kanan atas dari change menjadi KeyPress. kemudian isikan source berikut:
Fungsi dari mulai baris ke 2, kondisi jika yang di tekan adalah KeyAscii 13 (tombol enter) maka akan membuka data record seluruh tabel user. kemudian ada seleksi kondisi lagi yaitu jika ditemukan iduser dan username dan password pada database, maka text box txtpassbaru dan txtulangpass akan aktif.

Koding selanjutnya yang perlu dipahami merupakan inti dari form ubah password itu sendiri, yaitu mengupdate password lama pada database dan menggantinya dengan password baru sesuai yang kita input pada textbox vb 6.

Bagian inti ini ternyata sangat simpel yaitu terletak pada kodingan cmdproses yaitu pada bagian seperti dibawah ini:
Baris kedua merupakan pembacaan kondisi dimana txtpassbaru harus sama isinya dengan txtulangpass, jika sudah sama maka akan mengupdate password lama pada database MySQL sedangkan jika tidak sama, akan muncul pesan Password Tidak Sama. Nah jika sudah berhasil, silakkan di run aplikasinya, ini hanya tutorial dasar, silakkan dikembangkan lagi. jika ada pertanyaan silakkan kita berdiskusi di kolom komentar. Demikian tutorial Membuat Form Ganti Password User Aktif di VB 6.0 dan MySQL semoga bermanfaat.

Share this :

Previous
Next Post »
3 Komentar
avatar

VB ud jadul mas, napa ga pake vb.net ... lbh mudah dan gampang

Balas

Penulisan markup di komentar
  • Silakan tinggalkan komentar sesuai topik. Komentar yang menyertakan link aktif, iklan, atau sejenisnya akan dihapus.