Contoh Form Ganti Password

HARDAVID KENDA YOKI

SISTEM INFORMASI

BENGKULU, Juni 2011

Assalamualaikum.Wr.Wb

Pada Tutorial kali ini saya akan membahas bagaimana cara membuat aplikasi program Ganti Password menggunakan bahasa pemrograman Visual Basic dan MySql sebagai database-nya.  Sebelum kita mulai sebaiknya anda juga telah menginstal MySql Connector karena software ini dibutuhkan untuk menghubungkan Visual Basic dengan MySql.

Berikut ini gambaran tampilan aplikasi program yang telah jadi :

Langsung saja, sekarang ikuti petunjuk berikut ini:

1. Buatlah database Mysql menggunakan Xampp dengan ketentuan sebagai berikut:

(Jika anda belum mengetahui cara membuat database, silahkan pelajari dahulu tutorial saya tentang cara membuat database, lihat di kategori Database di blog ini).

Setelah database dibuat jangan lupa isikan dengan ketentuan sebagai berikut : User Id : Pengguna1,  Password : 11111 ; UserId : Pengguna2, Password : 22222

2. Buat pengaturan koneksi pada MySql Connector dengan ketentuan di berikut :

3. Nah, sekarang kita telah memiliki database dbPengguna dan Data Source Name CnnPengguna. Dua hal ini nantinya akan diperlukan dalam penulisan coding di Visual basic.

4. Sekarang buka lah visual basic anda kemudian tambahkan komponen ComboBox dari Microsoft Form 2.0 Object Library seperti gambar berikut.

5. Masukkan komponen-komponen berikut ini kedalam Form : 4 buah Label, 1 buah ComboBox dari Microsoft Form 2.0 Object Library, 2 buah TextBox dan 2 buah CommandButton. Susun dan atur seperti gambar di bawah ini.

6. Buka jendela properties kemudian buat pengaturan sebagai berikut :

7. Sehingga tampilan pada Form sebagai berikut :

8. Sekarang saatnya kita menulis Coding untuk Form yang kita buat, ketikkan Coding berikut pada halaman Coding.

Sub Form_Load()
Call BukaDatabase
cmbPgn.AddItem (“Pengguna1”)
cmbPgn.AddItem (“Pengguna2”)
End Sub

Private Sub cmdOk_Click()
Set RsPengguna = New ADODB.Recordset
RsPengguna.Open “SELECT * FROM Pengguna ” _
& ” WHERE UserId ='” & cmbPgn.Text & “‘” _
& ” AND PassId ='” & txtPassLm.Text & “‘”, _
KonekDb, adOpenDynamic, adLockBatchOptimistic

If RsPengguna.BOF Then
MsgBox “PASSWORD SALAH”, vbInformation + vbOKOnly, “Error”
cmbPgn.Text = “”
txtPassLm.Text = “”
txtPassBru.Text = “”
Else
Dim Pass As String
Dim User As String
Pass = txtPassBru.Text
User = cmbPgn.Text
SQL = “”
SQL = “UPDATE Pengguna SET ” _
& ” PassId='” & Pass & “‘” _
& ” WHERE UserId='” & User & “‘”
KonekDb.Execute SQL, , adCmdText
MsgBox “PASSWORD TELAH BERHASIL DIRUBAH”, vbInformation + vbOKOnly, “Error”
cmdOk.Caption = “TUTUP”
If cmdOk.Caption = “TUTUP” Then
Unload Me
End If
End If
End Sub

Seperti inilah tampilan Coding pada halaman Coding, lihat gambar berikut :

9. Sekarang tambahkan Module pada Project kita, caranya: Klik Project > Add Module

10. Kemudian ketikkan Coding berikut :

Option Explicit
Public KonekDb As New ADODB.Connection
Public RsPengguna As ADODB.Recordset
Public StrKonekDb As String
Public strSQL, SQL As String
Public Sub BukaDatabase()
Set KonekDb = New ADODB.Connection
StrKonekDb = “Provider=MSDASQL.1;Persist Security Info=False;Data Source=CnnPengguna”
On Error Resume Next
If KonekDb.State = adStateOpen Then
KonekDb.Close
Set KonekDb = New ADODB.Connection
KonekDb.Open StrKonekDb
Else
KonekDb.Open StrKonekDb
End If
If Err.Number <> 0 Then
MsgBox “GAGAL KONEKSI KE DATABASE”, vbOKOnly, “Kesalahan”
End
End If
End Sub

Seperti inilah tampilan coding pada halaman Module :


11. Sampai disini Project yang kita buat telah selesai, sekarang cobalah klik start untuk menjalankan program, sehingga tampilan seperti berikut ini :

12. Kemudian Cobalah pilih Pengguna1 untuk User, pada kotak isian Password lama masukkan 11111 (karena password untuk saat ini 11111 seperti yang telah kita isikan pada database pada langkah diatas di tutorial ini), kemudian masukkan Password Baru yaitu 33333 lalu klik tombol KONFIRMASI. Jika Password lama yang anda masukkan benar maka akan keluar pernyataan PASSWORD TELAH BERHASIL DIRUBAH, untuk memastikannya cobalah buka database, lihatlah password pada database untuk Pengguna1 telah berubah menjadi 33333. Namun jika Password lama yang anda masukkan salah maka keluar pernyataan PASSWORD SALAH.

Sampai disini tutorial saya kali ini jika terdapat kekurangan pada aplikasi program yang saya buat ini, saya mohon masukannya.

Selamat Berkreativitas

 

Post a comment or leave a trackback: Trackback URL.

Komentar

  • fajry  On 5 April 2012 at 18:35

    bro minta penjelasan satu persatunya dong…
    ane masih gak paham

  • Eldiablo  On 19 Maret 2014 at 14:42

    Makasaih atas tutorialnya,,,,,

  • dody  On 18 Desember 2014 at 11:41

    kaloo dari localhost gmn coneksinya saya gagal truss yaaa

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: