Program Vb .NET | Cara membuan Form Login

Setelah beberapa waktu yang lalu pembahasan kita megnenai PHP, sekarang kita akan membahas mengenai Program VB.NET yaitu cara membuat form login dengan memanfaatkan database SQL Server 2008. tentunya hal ini terbilang penting karna bayangkan saja kalau kamu membuat suatu sistem, tentunya harus ada batasan siapa saja yang dapat mengakses sistem tersebut untuk menjamin keamanan dari sistem tersebut. nah, kita langsung saja ke topik pembahasan.

hal petana adalah buat terlebih dahulu database dan tabel yang menampung username dan password yang nantinya akan kita gunakan untuk login.

Kemudian jalankan aplikasi Microsoft Visual Studio 2010. kita akan merancang dua form yaitu form login dan Form halaman utama yang akan ditampikan ketikan kita berhasil login nantinya.

Rancang Form pertama yaitu Form login seperti tampilan berikut, Kemudian Atur Keterangan dari setiap Objek pada bagian properties. 

OBJECT	PROPERTIES
Form1
	Name : Formlogin
	Text : Form Login
	FormBorderStyle : FixedTollWindow
	Font : Times New Roman
	Size : 12
	BackgroundImage : Sesuai selera
	BackgroudImageStyle : Sesuai Selera
	StartPosition : CenterScreen
PictureBox
	Image : Pilih sesuai selera
	BackgroundColor : Web>Transparent
Label1
	Text : Username
	BackgroundColor : Web>Transparent
Label2
	Text : Password
	BackgroundColor : Web>Transparent
Textbox1
	Name : tuser
Textbox2
	Name : tpass
	PasswordChar : *
Button1
	Name : blogin
	Text : Login

Kemudian Lanjut ke Kode program.

Terlebihdahulu kita buat deklarasi program terselbih dahulu. caranya adalah ketikkan kode program berikut ini di bagian atas dan bawah Public Class Formlogin.

Imports System.Data.SqlClient
Public Class Formlogin
    Dim conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim dr As SqlDataReader
    Dim ds As DataSet
    Dim cmd As SqlCommand
    Dim sql As String

Agar nantinya kursor aktif pada tuser saat pertama kali dijalankan, maka ketikkan kode program berikut :

Private Sub Formlogin_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
    tpass.Focus()
End Sub

Kemudian Pada objek tuser ketikkan kode program berikut :

Private Sub tuser_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tuser.KeyPress
    If e.KeyChar = Chr(13) Then
       tpass.Focus()
    End If
End Sub

Angka 13 meripakan kode ASCII daripada tombol Enter. jadi ketika kita tekan tombol Enter, maka kursor akan secara oromatis berpindah ke tpass.

Untuk melakukan proses login. kita perlu melakukan koneksi ke database. untuk itu kita buat modul untuk mengkoneksikan program ke database tersebut. caranya, pada pagian kode program, ketikkan kode program berikut ini :

Sub koneksi()
  Try
     conn = New SqlConnection("Data Source=PC2018031407ZNS\SQLEXPRESS;Initial Catalog=sistem;Integrated Security=True")
     conn.Open()
  Catch ex As Exception
     MsgBox(ex.Message)
  End Try
End Sub

Selanjutnya pada Objek blogin, Ketikkan kode program berikut ini :

Private Sub blogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles blogin.Click
    Call koneksi()
    sql = "select * from login where username='" & tuser.Text & "' and password='" & tpass.Text & "'"
    cmd = New SqlCommand(sql, conn)
    dr = cmd.ExecuteReader
    dr.Read()
    If dr.HasRows Then
        Halamanutama.Show()
        Me.Hide()
        cmd.Dispose()
        conn.Close()
    Else
        Dim pesan As String
        pesan = MessageBox.Show("UserName Atau Password salah!!!", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error)
        If pesan = DialogResult.OK Then
            tuser.Text = ""
            tpass.Text = ""
            tuser.Focus()
        End If
        cmd.Dispose()
        conn.Close()
    End If
End Sub

Nah, sampai disini kita sidah selesai merancang Form login. kemudian kita rancang Form berikutnya yaitu Form Halaman utama yang akan ditampilkan ketika kita berhasil login. dan jangan lupa kita letakkan sebuah tombol pada halaman tersebut yaitu tombol logout yang fungsinya untuk keluar dari sistem ketika kita telah selesai menggunakan sistem tersebut.

OBJECT	PROPERTIES
Form2
	Name : Halamanlogin
	Text : Halaman Login
	StartPosition : CenterScreen
Label1
	Text : Anda Berhasil Login
	Font : Microsoft San Serif
	Size : 24
	Font Style : Bold
Button1
	Name : blogout
	Text : Logout

Pada objek blogout, Ketikkan kode program dibawah ni :

Private Sub blogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles blogout.Click
    Me.Close()
    Formlogin.Show()
    Formlogin.tuser.Text = ""
    Formlogin.tpass.Text = ""
    Formlogin.tuser.Focus()
End Sub

Nah. kita telah selesai membuat Program Login sederhana dengan menggunakan VB .Net, Untuk hasil yang lebih bagus silahkan sobat utak-atik sendiri. Sekian pembahasan kita kali ini, semoga bermanfaat.