dengan memilih user di tabel yang telah di buat di database. Tapi bagi yang sudah Advanced
jangan dihiraukan tulisan ini... Maklum saya juga masih belajar :)
Dalam contoh project ini saya menggunakan Sql Server 2005 sebagai database.
Ok Langsung aja kita mulai.....
Terlebih dahulu kita buat database dan tabel di Sql Server 2005, seperti gambar berikut :
Lalu kita akan mengisi tabel tersebut sesuai fieldnya.
Urusan database sudah selesai, sekarang kita buka program lalu klik New Project ,
Silahkan ditentukan sendiri nama projectnya, contoh Pakarpc.
Lalu tambahkan sebuah form yang nantinya akan menjadi form login, seperti gambar berikut :
Dan tambahkan beberapa object, seperti :
Nama Object Properties Object
Label1 Name : labelusertipe
Text : User Type
Label2 Name : labelnama
Text : Nama
Label3 Name : labelpass
Text : Password
ComboBox1 Name : ComboBox1
Items : Administrator , Pakar
TextBox1 Name : textnama
TextBox2 Name : textpass
Button1 Name : cmdlogin
Text : Login
Button2 Name : cmdcancel
Text : Cancel
Berikut codenya :
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class loginfrm
Dim koneksi As SqlConnection
Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
cmdcancel.Click
Me.Close()
mainfrm.Show()
End Sub
Private Sub loginfrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Dim strKoneksi As String
strKoneksi = "Data Source=YCL-1;Initial Catalog=pakarpc;Integrated Security=True"
koneksi = New SqlConnection(strKoneksi)
Try
koneksi.Open()
Catch ex As Exception
MessageBox.Show("Acces Denield")
End Try
ComboBox1.SelectedIndex = 0
End Sub
Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
cmdlogin.Click
Dim Sql, username, password, tipe As String
Dim cmd As SqlCommand
Dim rdr As SqlDataReader
username = textnama.Text
password = textpass.Text
tipe = ComboBox1.SelectedItem
Sql = "select * from tbl_login where username='" + username + "'and password='" + password +
"'and tipe='" + tipe + "'"
cmd = New SqlCommand(Sql, koneksi)
rdr = cmd.ExecuteReader()
If rdr.HasRows = True And ComboBox1.SelectedItem = "Administrator" Then
admin.Show()
mainfrm.cmdlogin.Enabled = False
Me.Hide()
ElseIf rdr.HasRows = True And ComboBox1.SelectedItem = "Pakar" Then
pakar.Show()
mainfrm.cmdlogin.Enabled = False
Me.Hide()
Else
MessageBox.Show("Data Yang Anda Masukkan Salah", "Konfirmasi", MessageBoxButtons.OK,
MessageBoxIcon.Error)
mainfrm.Show()
mainfrm.cmdlogin.Enabled = True
Me.Close()
End If
End Sub
End Class.
