Kamis, 14 November 2013

Membuat Form Login Menggunakan VB6

Membuat Form Login Menggunakan VB6

I am come back…
Sudah sebulan lebih saya tidak mengupdate blog ini, dikarenakan kesibukkan didunia nyata …hallllaaaah… sebenernya karena  emang lagi males aja (kalo lagi keluar malesnya nggak satu kata pun mau meluncur dari jari-jari ini huupsss sebelnya…)…
Oke 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.

Tidak ada komentar:

Posting Komentar