Membuat From Login Database di Vb.Net

Langkah awal yaitu Kita Persiapkan terlebih dahulu database nya,,dan kebetulan  saya  disini memakai Acces 2007,,Langsung saja contoh..??

Kurang lebih seperti ini…:D

              

dan disni saya membuat 2 kriteria yaitu Manager dan Kasir yang dimana masing2 tersebut mempunyai arti didalam aplikasi yg kita buat nati.

Langakah ke 2 buka visual studio(Visual Basic Net) dan rancang from login seperti Berikut??

               

dan yang terkhir langsung saja ke TKP atau dengan kata lain Klik tombol login 2x sehari..upssss salah,,emag obat,,Kamu Nih gimna sih :v mksud saya klik 2 kali dan msukan coding sbgi berikut :D

Public Class Flogin
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpassword.TextChanged
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bukakoneksi()
If txtuser.Text = “” Or txtpassword.Text = “” Then
MsgBox(“User Dan Password Harus Diisi,,,??”, MsgBoxStyle.Exclamation, “Peringatan”)
Else
cmd = New OleDbCommand(“Select * from login Where User_Name =’” & txtuser.Text & “‘”, koneksi)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
If txtuser.Text = dr.Item(“User_Name”) Then
If txtpassword.Text = dr.Item(“Password”) Then
If dr.Item(“Otoritas”) = “Manager” Then
userr = dr.Item(“Kode_Password”)
MsgBox(“Login Sukses,,Anda Sebagai Manager,,??”, MsgBoxStyle.Information, “Information”)
FMenu2.Show()
Me.Hide()
ElseIf dr.Item(“Otoritas”) = “Kasir” Then
userr = dr.Item(“Kode_Password”)
MsgBox(“Login Sukses,,,Anda Sebagai Kasir,,?”, MsgBoxStyle.Information, “Informasi”)
FMenu2.Show()
Me.Hide()
End If
Else
MsgBox(“User dan Password Tidak Cocok,,,??”, MsgBoxStyle.Exclamation, “Peringatan”)
End If
End If
Else
MsgBox(“User Name Tidak Dikenali,,,,,??”, MsgBoxStyle.Exclamation, “Peringatan”)
End If
End If

End Sub
End Class

dan yang terkahir akan ditampilkan sesuai yang kita inginkan,, Sesuai dalam coding yang kita ingin tampilkan di login tersebut..??

hasil :)

Selamat Mecoba gan,,,,,,,,,somoga suksess dan bermanfaat,, :)