Membuat Form Login Menggunakan VB6

Kali ini saya akan membahas trik bagaimana membuat Form Login menggunakan Visual Basic 6 dengan batasan tiga kali kesalahan inputan Username dan Password. Tentu saja trik ini ditujukan untuk pemula/nubie seperti saya, bagi para master tinggalkan wang dolar segepok buat saya… eehh maksudnya… tinggalkan jejak aja dikolom komen di bawah he… he…. he….
gak usah basa basi langsung aja buat Project Standar EXE dengan properti sebagai berikut:

Object	Property
Form1	Name: frmLogin Caption: Login
Form2	Name: frmMain Caption: Menu Utama
Label1	Caption: User Name
Label2	Caption: Password
Text1	Name: txtUsername Text: [Kosongkan]
Text2	Name: txtPassword Text: [Kosongkan]
Command1	Name: cmdLogin Caption: Login

Pada Form1 ketikan kode berikut ini (biar jangan salah, copy-paste aja kode dibawah ini):

Option Explicit
Dim hitung As Byte
Private Sub cmdLogin_Click()

If Trim(txtUsername.Text) = vbNullString And Trim(txtPassword.Text) = vbNullString Then

GoSub hitungLog
MsgBox “Username dan Password masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _
vbInformation, “Konfirmasi”
txtUsername.SetFocus

ElseIf Trim(txtUsername.Text) = vbNullString Then

GoSub hitungLog
MsgBox “Username Anda masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _
vbInformation, “Konfirmasi”
txtUsername.SetFocus

ElseIf Trim(txtPassword.Text) = vbNullString Then

GoSub hitungLog
MsgBox “Password Anda masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _
vbInformation, “Konfirmasi”
txtPassword.SetFocus

ElseIf Trim(txtUsername.Text) = “admin” And Trim(txtPassword.Text) = “admin” Then

frmMain.Show
Unload Me

Else

GoSub hitungLog
txtUsername = vbNullString
txtPassword = vbNullString
txtUsername.SetFocus
MsgBox “Username atau Password Anda salah!!!” + vbCrLf + “Harap diisi dengan benar!!!”, _
vbExclamation, “Informasi”

End If

Exit Sub

hitungLog:
hitung = hitung + 1
If hitung = 3 Then

MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _
vbExclamation, “Informasi”
Unload Me

Else

Return

End If

End Sub
Private Sub Form_Load()

hitung = 0

End Sub

Kunci untuk membuat batasan inputan kesalahan sebanyak tiga kali yaitu ada pada variable “hitung“.  dimana kita memberi batasan sebanyak 3 kali dengan menyimpanan perhitungan pada variable “hitung“…
Lihat potongan kode berikut:

Dim hitung As Byte
…..
…..

hitung = hitung + 1
If hitung = 3 Then

MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _
vbExclamation, “Informasi”
Unload Me

Else

Return

End If

Alternatif lain untuk meyimpan batasan input kesalahan yaitu dengan menggunakan Property “Tag” yang dimiliki oleh Object didalam Form, contohnya CommandButton, TextBox, dan Label. Cara penggunaannya yaitu mengganti tiap variable “hitung” pada kode di atas dengan variable cmdLogin.Tag atau txtUsername.Tag ataupun txtPassword.Tag sehingga potongan kode diatas menjadi:

…..
…..

cmdLogin.Tag = cmdLogin.Tag + 1
If cmdLogin.Tag = 3 Then

MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _
vbExclamation, “Informasi”
Unload Me

Else

Return

End If

Segitu dulu trik VB6 dari saya, diartikel berikutnya kita akan ngebahas cara membuat form Login dengan VB6 yg dikoneksikan dengan database MS Access.

Posted in: Cara,Pemrograman,VB 6.0,Visual Basic 6.0