Tutorial Login Dengan Visual Studio 2010 Express

Oleh peistar

Tuesday, 17 January 2017

Bagikan :

Tweet

Kali ini saya akan membuat tutorial mengenai login yang digunakan sebagai hak akses pengguna pada saat menggunakan aplikasi. Sebelumnya saya sudah membuat tutorial mengenai cara pengkoneksian kedatabase, proses simpan, edit, delete, dan cancel. Untuk lebih jelasnya saudara dapat mengikuti langkah-langkah dibawah ini dengan benar :

Langkah-langkah Pengerjaan : Cara Pertama Login Tanpa Database

- Langkah Pertama : Desainlah tampilan Login kira-kira seperti gambar dibawah ini.

- Langkah Kedua : Klik 2 x pada Tombol Login dan saudara dapat memasukan Coding Program dibawah ini kedalam area code Button Login.

Coding Program Login Tanpa Menggunakan Database :

If TextBox1.Text = "PeiStar" And TextBox2.Text = "12345" Then

MessageBox.Show("Saudara Berhasil Login", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Form3.Show()

Else

MessageBox.Show("Username dan Password Anda Salah", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Coding Program Untuk Exit :

End

Catatan : Pada saat login nantinya kita harus memasukan Username dan Password yang sudah kita tanamkan kedalam coding program login, apabila saudara salah memasukan Username dan Password maka nantinya saudara akan dapat pemberintahuan bahwa Username dan Password saudara salah. 

Langkah-langkah Pengerjaan : Cara Kedua Login Dengan Menggunakan Database

- Langkah Pertama : Buatlah tabel admin seperti gambar dibawah ini.

- Langkah Kedua : Masukan Coding Program dibawah ini dengan benar, pastikan saudara menyesuaikan Nama Tabel dan Field yang akan digunakan.

Coding Program Login Menggunakan Database :

Call Koneksi()

cmd = New OleDbCommand("select * from admin where username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If rd.HasRows Then

MessageBox.Show("Saudara Berhasil Login", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Form3.Show()

Else

MessageBox.Show("Username dan Password Anda Salah", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Coding Program Untuk Exit :

End

Coding Program Untuk Koneksi :

Imports System.Data.OleDb

Public Class Form4

Dim Conn As OleDbConnection

Dim cmd As OleDbCommand

Dim ds As New DataSet

Dim da As OleDbDataAdapter

Dim rd As OleDbDataReader

Dim LokasiDB As String

Sub Koneksi()

LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=dbHotel.accdb"

Conn = New OleDbConnection(LokasiDB)

If Conn.State = ConnectionState.Closed Then Conn.Open()

End Sub

Catatan : Jangan lupa perkenalkan class koneksi pada Form_Load

Selamat Mencoba. Wasalammmm...!!!

Tag : Visual Studio 2010