usahawan-maju | Cara Membuat Login Multy User Dengan VB.net - Sebelumya kita harus membuat table dulu dengan nama tb_login. Table ini boleh kita masukkan dalam 1 database yang sedang kita gunakan, karena tidak ada larangan dalam 1 database itu akan di isi oleh berapa banyak table yang terbentuk. Dalam table tb_login field yang kita buat username dan password, usahakan username ini unix atau tidak ada yang sama, sehingga akan menjadi index dari table tb_login. Kedua nama field itu saya pikir wajib, namun tidak melarang jika mau nemanbahkan field lain sehingga isi field tb_login semakin banyak, tentunya sesuai kebutuhan jika mungkin saja ada hak_akses, id_biodata sebagai foreign key dsb silahkan kembangkan sendiri.
 |
| Cara Membuat Login Multi User Dengan VB.net ( Visual Basic 2010, 2012 ) |
Saya asumsikan yang membaca artikel ini sudah bisa membuat table dalam sebuah database. Sehingga persiapan diatas sudah bisa ditangani sendiri. Berikut adalah script untuk membuat koneksi antara aplikasi yang sedang kita buat dengan database yang kita siapkan. Buat file module dengan nama Module1. Klik kanan project-add items- create module atau module.
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Module Module1
Public comSQL As New SqlClient.SqlCommand
Public sql_stok As String 'mendeklarasikan variabel sql bertipe string untuk query SQL
Public ds As String
Public sql As String 'mendeklarasikan variabel sql bertipe string untuk query SQL
Public conn As New SqlConnection 'mendeklarasikan variabel conn untuk koneksi SQL
'mendeklarasikan variabel str bertipe string untuk konfigurasi koneksi database
Public str As String = "Data Source = .\SQLEXPRESS;initial catalog=pulsa;trusted_connection = true"
'membuat sebuah procedur untuk membuka koneksi
Public Sub bukakoneksi()
If conn.State = ConnectionState.Closed Then
conn.ConnectionString = str
Try
conn.Open()
' MsgBox("Koneksi Berhasil")
Catch ex As Exception
MsgBox("Koneksi Gagal: " & ex.ToString)
End Try
End If
End Sub
Public Sub tutupkoneksi()
If conn.State = ConnectionState.Open Then
Try
conn.Close()
Catch ex As Exception
MsgBox("Gagal Menutup Koneksi" & ex.ToString)
End Try
End If
End Sub
End Module
Setelah pembuatan module, kita bisa menggunakannya untuk membuka dan menutup hubungan koneksi antara aplikasi dengan database dan table. Karena pada pembahasan ini kita membuat login multi user, maka script berikut bisa anda masukkan pada tombol login.
bukakoneksi()
sql = "Select * From tb_login where username='" & txtUsername.Text & "' and password='" & txtPassword.Text & "'"
comSQL = New SqlCommand(sql, conn)
Dim dr As SqlDataReader = comSQL.ExecuteReader()
If dr.Read Then
Me.Hide()
MsgBox("Login Berhasil")
tutupkoneksi()
mnMenu.Show()
Else
MsgBox("Login Gagal ")
End If
tutupkoneksi()
Jangan lupa memanggil library untuk sql Client nya dengan cara melakukan import, atau cukup dengan lelakkan script berikut di paling atas page halaman code.
Imports System.Data.SqlClient
Ikuti langkahnya dengan cermat ya, jangan tergesa gesa, karena kita harus teliti. Demikian postingan saya kali ini ya gan, jangan lupa baca artikel yang lainnya sapa tahu membantu. Semoga bisa bermanfaat dan membantu menyelesaikan masalah aplikasi yang sedang Anda buat atau membantu dalam belajar membuat aplikasi sederhana.
