.:: Membuat Form Login Pada VB ::.
Kali ini saya punya sebuah artikel yang saya tulis khusus untuk anda yang ingin belajar pemrograman, khususnya Visual Basic (VB). Artikel ini membahas tentang cara :: membuat form login pada vb :: Di dalam artikel ini sudah saya tuliskan kode-kodenya untuk membuat form login pada vb. Dalam membuat form login ini saya menggunakan microsoft visual basic 6.0, sebelum anda mulai mengerjakan form ini, ada baiknya anda menyiapkan secangkir kopi diatas meja kerja anda atau yang tidak suka kopi bisa juga es teh kok,,, agar pikiran menjadi plooong....Oke...tidak perlu basa-basi lagi kita langsung aja ke topik utama yaitu membuat form login pada vb.
Berikut langkah-langkah membuat form login pada vb
1. Langkah pertama..buatlahsebuah form terlebih dahulu yaitu form login. Berikut saya kasih contoh form login pada vb:
Gambar Form Login
Label = Caption (Username)
Label2 = Caption (Password)
Label3 = Caption (Status User)
Label4 = Caption (Silahkan masukkan username dan password anda untuk login)
Text1 = Text (Dikosongkan)
Text2 = Text (Dikosongkan)
Combo1 = List (User, Admin, Manager), Text (- Pilih Status User -)
Command1 = Caption (Login)
Command2 = Caption (Close)
1. Setelah anda selesai membuat form loginnya, kemudian anda harus membuat sebuah modules pada vb yang isinya :
Public idpetugas As String
Public namapetugas As String
Public statususer As String
2. Setelah selesai membuat modules, anda tinggal ketik/copy deh koding vb dibawah ini. Anda masukkan koding dibawah ini pada form login(double klik form login).
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 Then
KeyAscii = 0
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command1_Click()
With DataEnvironment1.rspetugas
If .State = 0 Then .Open
If .RecordCount > 0 Then .MoveFirst
.Find "username='" & Text1.Text & "'"
If Not .EOF Then
If .Fields("password") = Text2.Text Then
If .Fields("status_user") = Combo1.Text Then
idpetugas = .Fields(0)
namapetugas = .Fields(1)
statususer = .Fields("status_user")
Unload Me
Menu_Utama.Show
Else
MsgBox "Login Gagal !! Status User yang anda Pilih Salah"
End If
Else
MsgBox "Login Gagal !! Password yang Anda Masukkan tidak Cocok"
End If
Else
MsgBox "Login Gagal !! Username yang Anda Masukkan tidak Cocok"
End If
End With
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 39 Then KeyAscii = 0
End Sub
3. Setelah semua koding diatas anda masukkan pada form login, coba RUN form tersebut dan lihat hasilnya.
Penting :
Ubah tulisan yang berwarna biru sesuai dengan table dan field-field yang anda buatpada database. Khusus untuk "Menu_Utama.Show" yang warna biru itu adalah form mana yang akan dituju setelah login sukses, maka dari itu sesuaikanlah dengan apa yang anda buat pada vb.
Demikian cara :: membuat form login pada vb ::yang bisa saya share kepada anda, untuk form-form vb yang lainnya, nanti akan saya share pada blog ini. Sering-seringlah berkunjung ke "tokokoding.blogspot.com".
"See you later"