Cara membuat Form Login di Visual Basic

         Ketika anda sudah membuat form master dan form-form yang lain, mestinya anda tidak ingin aplikasi yang anda buat dilihat atau dirusak oleh orang lain, oleh sebab itu anda harus memberikan kunci/ password sehingga tidak sembarangan orang yang bisa melihat / merusak aplikasi yang anda buat.

Langsung saja, saya akan membantu anda dalam membuat form login di Visual Basic.

1. Buka Visual Basicnya
2. Buat form baru, label,textBox, dan Combo (sebagai tombolnya)

Catatan : Jika anda tidak ingin textboknya ada tulisannya (seperti gambar textbox yang atas) , 
           maka   klik textboxnya kemudian ke propertis cari "Text", hapus teks nya. jika anda ingin 
           memberikan Shortcut , seperti Tombol masuk (diatas) maka tambahkan "&", Contoh :
           &Masuk.

3. Masukan Koding dibawah ini :

Private Sub batal_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text2.Enabled = False
End Sub
Sub Form_Load()
    Call BukaDB
    Text1.MaxLength = 6
    Text2.MaxLength = 10
    Text2.PasswordChar = "X"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        Call BukaDB
        Call CariData
                If RSAdmin.EOF Then
                    MsgBox "Admin Tidak Terdeteksi, Coba lagi"
                    Text1 = ""
                Else
                Text1.Enabled = False
                Text2.Enabled = True
                Text2.SetFocus
                End If
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        cmdmasuk.SetFocus
    End If
End Sub
Function CariData()
    Call BukaDB
    RSAdmin.Open "Select * From Admin where kodeAdmin='" & Text1 & "'", koneksi
End Function
Private Sub cmdmasuk_Click()
Dim KodeAdmin As String
Dim NamaAdmin As String
Call BukaDB
        RSAdmin.Open "Select * from Admin where kodeAdmin ='" & Text1 & "' and passwordAdmin='" & Text2 & "'", koneksi
        If RSAdmin.EOF Then
            MsgBox "Mohon maaf password yang anda masukan salah, Coba Lagi!"
            Text2 = ""
            Text2.SetFocus
        Else
            Unload Me
            FormMenuUtama.Show
        End If
End Sub



Sekian dari saya...
Semoga bermanfaat