Minggu, 06 Mei 2012

Membuat User Login pada Visual Basic

Membuat User login sangatlah penting guna optimal sebuah aplikasi pada bidang pekerjaan dimana para penggunanya akan mempunyai kemudahan serta sebuah privasy yang luar biasa yang mana  artinya arsip-arsip sebuah pekrjaan dapat terlindungi, singkat cerita yup kita pahami bersama tutorial berikut ini :


>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


NOTE :
Buat dua buah form : Form 1 = Name : frmLogin , Caption : Login
Form2 = Name : frmMain , Caption : Menu Utama
Label1 = Caption : User Name
Label2 = Caption : Password
TextBox1 = Name : txtUsername , Caption = Biarkan kosong
TextBox2 = Name : txtPassword , Caption = --,,--,,---,,---
CommandButton1 = Name : cmdLogin , Caption = Login
CommandButton2 =  Name : cmdCancel , Caption = Cancel
Dan lebih prakrisnya lihat seperti pada contoh gambar diatas , untuk menjalankan sebuah program terlebih dahulu masukan sebuag listhing seperti dibawah ini :

1. Klik 2 x pada CommandB1/tombol Login dan masukan kode berikut :

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) = "1234" 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

2. Klik 2 x Pada CommandB2/Cancel dan Masukan kode berikut :"

Private Sub cmdCansel_Click()
End
End Sub

3. Klik 2 x pada Form dan masukan kode berikut :

Private Sub Form_Load()
hitung = 0
End Sub

4. Klik 2 x Pada Form dan arahkan ke menu drop down atas dan pilih General dan masukan kode 
berikut ini :

 Option Explicit
Dim hitung As Byte

5. Selamat Mencoba ...success
 


Tidak ada komentar: