Pada kesempatan kali ini, saya akan share tentang cara Membuat Form Login Di Vb.Net dengan menggunakan koneksi ODBC. Form Login adalah form yang digunakan sebagai pengaman atau penyaring user, apabila di form login user memasukan id dan passwordnya dengan benar maka program akan lanjut ke form berikutnya, tapi apabila di form login user memasukan id dan passwordnya salah akan ada pemberitahuan dari program tersebut. Dan biasanya dalam membuat form login hanya berisi dua buah kolom text yaitu id dan Password.
Buatlah Project baru dengan dua buah form dan satu module. Langsung saja kita bikin form pertama, di properties ganti dengan flogin dan text nya ganti dengan login. Tampilanya seperti pada gambar diatas diatas. Kemudian klik dua kali pada button login dan ketikan koding di bawah ini.
Imports System.Data.Odbc
Public Class Form_Login
Dim CMD As New OdbcCommand
Dim RD As OdbcDataReader
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txt_username.Text = "" Or txt_password.Text = "" Then
MsgBox("data login belum lengkap")
Else
Call Koneksi()
CMD = New OdbcCommand("select * from t_admin where username='" & txt_username.Text & "' and password='" & txt_password.Text & "'", con)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
Form_master.Show()
Else
MsgBox("Kode Admin atau Password salah")
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
0 komentar:
Posting Komentar