√ Cara Menciptakan Login User Di Visual Basic (Username & Password)

- Pertama tama kau buat dulu tampilan menyerupai ini :

- Kemudian beri name masing masing :

texbox "username"= tusername

textbox "password"= tpassword

Login = clogin

Exit = exit

- Selanjutnya double klik commandbutton "Login" dan paste :

Private Sub clogin_Click()

Call koneksi
rsuser.Open "select*from tbuser where kodeuser='" & tusername.Text & "' and password='" & tpassword.Text & "'", KON
If rsuser.EOF Then
MsgBox "maaf, user tidak ditemukan. Anda tidak berhak masuk", vbCritical
Else
 kode = rsuser!kodeuser
 nama = rsuser!namauser
 MsgBox "selamat tiba " & nama & ""
 fmenu.Show
 'fmenu.hide
 End If

End Sub

 

- kau buat sebelumnya variabel "koneksi" pada form-load (bukan secara manual diketik, tapi pilih pada combo pilihan Form dan selanjutnya load)

Private Sub Form_Load()

Call koneksi

End Sub

 

- Buat variabel terpisah yang berfungsi sebagai penghubung ke database

Dim kode, nama As String

 

- Double klik commandbutton "exit" dan paste :

Private Sub EXIT_Click()

a = MsgBox("Yakin Keluar", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
End
End If

End Sub

Sebelumnya kau harus membuat Module semoga dapat terkoneksi ke database phpmyadmin
Sumber http://www.hendrisetiawan.com