Membuat Form Login Pada VB

.:: 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..buatlah sebuah 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 buat pada 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"

BACA JUGA :