Form Login Sederhana 2

MEMBUAT FORM LOGIN DENGAN 4 FUNGSI (IF, IsNull, DCount, DLookup)
(Lanjutan)

Dalam postingan sebelumnya, penulis telah sampaikan langkah-langkah awal dalam pembuatan form login sederhana dengan hanya menggunakan 4 buah fungsi, silahkan lihat di artikel membuat form login sederhana.

Kali ini kita akan menambahkan Field StatusUser kedalam Tabel User, field ini nantinya akan menjadi acuan dalam form login untuk memeriksa apakah User yang sudah terdaftar masih aktif atau sudah tidak aktif.

Silahkan anda buka file Access Simple Form Login.mdb yang sudah saya upload sebelumnya, jika anda belum mendownloadnya silahkan download dari 4shared

Langkah langkahnya :

• Tutup form login jika masih terbuka
• Dalam jendela database klik Tables, lalu klik kanan tblUser dan pilih Design View
• Dibawah Field Password, tambahkan Field baru dengan rincian :

Field Name = StatusUser
Data Type = Number

• Lalu klik Toolbar Save, atau klik File > Save, atau bisa juga Ctrl+S, lalu tutup tblUser
• Double click tblUser untuk mengedit data StatusUser
• Lalu isikan di Field StatusUser dari masing-masing User dengan angka

(Angka 0 berarti User sudah tidak aktif, selain angka 0 maka Status User Aktif)

• Setelah selesai tutup tblUser
• Dalam jendela database klik Forms, lalu klik kanan frmLogin dan pilih Design View
• Lalu klik View > Code, atau klik Toolbar Code seperti gambar dibawah ini :

 

Gambar Letak Toolbar Code

• Atau bisa juga dengan klik kanan pada cmdOK lalu pilih Properties, dan pada tab Events klik tulisan Event Procedure pada On Click lalu klik [...] disebelah kanan tulisan Event Procedure. Anda akan dibawa kedalam jendela Visual Basic Editor.
• Tempatkan Kursor anda diakhir variabel :

strPassword = DLookup("Password", "tblUser", "[NamaUser] = '" & txtUser & "'")

(Dalam code If DCount("NamaUser", "tblUser".........) lalu tekan Enter

• Ketikkan Code berikut ini setelah anda menekan Enter

If DLookup("StatusUser", "tblUser", "[NamaUser] = '" & txtUser & "'") = 0 Then

MsgBox "Status User '" & txtUser & "' sudah tidak aktif, silahkan hubungi administrator.", vbExclamation

Me.txtUser.SetFocus

Else

Code anda akan menjadi seperti ini:

strPassword = DLookup("Password", "tblUser", "[NamaUser] = '" & txtUser & "'")

If DLookup("StatusUser", "tblUser", "[NamaUser] = '" & txtUser & "'") = 0 Then

MsgBox "Status User '" & txtUser & "' sudah tidak aktif, silahkan hubungi administrator.", vbExclamation

Me.txtUser.SetFocus

Else
       If txtPassword = strPassword Then

• Lalu tempatkan kursor anda disebelah kanan / diakhir  tulisan End If diatas variabel :

Else

    MsgBox "Nama User tidak ada / belum terdaftar", vbInformation

    Me.txtUser.SetFocus

lalu tekan Enter

• Ketikkan End If setelah anda menekan Enter

Code anda akan menjadi seperti ini :

End If 

End If ---> yang baru anda tambahkan

Else 

MsgBox "Nama User tidak ada / belum terdaftar", vbInformation 

Me.txtUser.SetFocus

• Lalu klik Save dan tutup jendela Visual Basic Editor.
• Jika jendela Properties dari cmdOK masih terbuka tutup dahulu, baru tutup frmLogin

sekarang coba jalankan frmLogin dengan klik dua kali pada frmLogin untuk mengetesnya.

NamaUser yang anda masukkan angka 0 kedalam Field StatusUser akan menjadi tidak aktif dan tidak bisa Login, dengan pemberitahuan Status User sudah tidak aktif, silahkan hubungi administrator.

Semoga bermanfaat....

Posted in: belajar access 2003