Berikut ini adalah step-step dalam membuat login multiple user.
- Buat Database di sql server dengan cara klik kanan Database lalu pilih New Database�lalu isikan nama database sesuai keinginan anda (misalnya : dblogin).
- Buat Tabel dengan nama sesuai keinginan anda (misalnya : tbl_login) dengan spesifikasi sebagai berikut.
Field Name Data Type Size Keterangan Username Varchar 25 Primary key Password Varchar 50 Hak Akses Varchar 12 Lalu tambahkan data pada tabel tersebut. - Buat Project VB.Net baru dengan cara buka Visual Studio 2008 -> New Project -> Pilih Bahasa Pemrograman VB.Net -> Windows Form Application -> masukan nama project (misalnya : contoh_login).
- Tambahkan beberapa control yang digunakan di Form . Contohnya bisa dilihat pada gambar di bawah ini.
Spesifikasi Control yang digunakan :
Control Properties Label 1 Text = Login Label 2 Text = Username Label 3 Text = Password TextBox 1 Name = txtUser Text Kosongkan Textbox2 Name = txtPass Text Kosongkan ComboBox Name = cbHak Text Kosongkan Items = Admin, User (Terserah Anda) Button 1 Name = btnLogin Text = &Login Button 2 Name = btnExit Text = &Exit - Saatnya Coding !!! (Klik F7 untuk masuk ke tampilan sesi coding)
- Tambahkan Kode berikut di baris coding paling atas
1 2 | Imports System.Data.SqlImports System.Data.SqlClient |
- Tambahkan Kode berikut dibawah kode ini : Public Class Form1
1 | Dim koneksi As SqlConnection |
- Koneksi ke Database (Ditaruh di Form Load )
1 2 3 4 5 6 7 8 9 10 11 12 13 | Dim strKoneksi As String strKoneksi = "Data Source=ORION\SQLEXPRESS;Initial Catalog=dbLogin;Integrated Security=True" koneksi = New SqlConnection(strKoneksi) 'Data Source = Server SQLnya, Initial Catalog=Databasenya Try koneksi.Open() 'Buka Koneksi Catch ex As Exception 'Jika Koneksi tidak bisa dibuka maka MessageBox.Show("Koneksi Gagal !!!") 'Keluarkan message Koneksi Gagal !!! End Try'memilih Data default combobox adalah admin (index ke 0) cbHak.SelectedIndex = 0 |
- Tombol Login (btnLogin)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 18 19 20 21 22 23 24 25 | Dim Sql, user, pass, hak As String Dim cmd As SqlCommand Dim rdr As SqlDataReader user = txtUser.Text 'Variabel user diisi nilai yang diinputkan txtUser pass = txtPass.Text 'Variabel user diisi nilai yang diinputkan txtPass hak = cbHak.SelectedItem 'Variabel user diisi item yang dipilih cbHak 'Cek apakah user, password dan hak akses yang telah dipilih/dimasukan ada di database Sql = "SELECT * FROM tbl_login WHERE Username='" + user + "' AND Password='" + pass + "' AND Hak_akses='" + hak + "'" cmd = New SqlCommand(Sql, koneksi) rdr = cmd.ExecuteReader() If rdr.HasRows = True Then 'Jika data ditemukan Form2.Show() 'Tampilkan Form2 Me.Hide() Else 'Munculkan messagebox pesan salah MessageBox.Show("Kombinasi Username ,Password dan Hak Akses Salah", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error) txtUser.Focus() End If rdr.Close() cmd.Dispose() |
- Tombol Exit (btnExit)
1 | End |
NB :
Data Source setiap komputer terkadang berbeda-beda. Untuk melihat Data Source komputer anda Pilih SQL SERVER Management Studio (Untuk SQL SERVER 2005 Express klik Start -> Run ->Ketik ssmse, atau Untuk SQL SERVER 2008 R2 klik Start -> Run ->Ketik ssms.) . Maka akan terlihat Nama Server kita.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
