Cara membuat login user di visual basic (username & password)

Advertisement

- Pertama tama kamu buat dulu tampilan seperti 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 datang " & nama & ""
 fmenu.Show
 'fmenu.hide
 End If
End Sub

 

- kamu 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 kamu harus membuat Module agar bisa terkoneksi ke database phpmyadmin
0 Komentar untuk "Cara membuat login user di visual basic (username & password)"

Silahkan Komentar sobat !
Berkomentarlah dengan sopan dan tidak menaruh link aktif!

Back To Top