Cara Membuat Form Login VB

Hello Sahabat Anak Kendali.

kali ini saya akan melanjutkan untuk latihan Visual Basic dengan Visual Studio 2015 yang pada kesempatan kali ini, saya akan membuat aplikasi Login dengan Visual Basic,
membuat aplikasi login dengan Visual basic ternyata sangat mudah, disini saya akan membuat tutorial Aplikasi Login Visual Basic dengan Visual Studio 2015

yang perlu kita lakukan adalah membuat tabel database sebagai tempat penyimpanan data yang boleh atau dapat mengakses aplikasi Login tersebut, artinya, tabel database untuk menyimpan data orang yang sudah terdaftar username dan passwordnya, misalkan.

untuk itu jika sobat belum bisa membuat tabel database nya dengan MySQL silahkan terlebih dahulu membaca Cara membuat tabel database

dan saya sarankan juga bagi para pemula Visual Basic diharapkan untuk membaca artikel Belajar Visual Basic dengan Visual Stduio 2015

laangsung saja inilah langkah langkah untuk membuat aplikasi login Visual Basic

1. buatlah tabel database seperti gambar dibawah ini

kemudian buatlah data pada tabel tersebut seperti contoh lihat pada gambar dibawah

jika sudah selesei waktunya untuk membuka aplikasi visual studio 2015

2. buatlah form1 seperti pada gambar dibawah ini, untuk form1 saya rubah namanya menjadi login

pada kotak kotak yang dilingkari dengan warna merah itu namanya TextBox dan masing masing saya beri tag name t_username dan t_password
untuk yang dilingkari warna hitam adalah Button dan saya beri tag name b_login, tampilanya seperti itu karena saya sisipkan gambar didalamnya, kemudian yang berwarna biru adalah ProgressBar, dengan tagname progressBar1

jika sudah selesai, silahkan buat program sebagai berikut :

Imports System.Data.Odbc
Public Class login

    Dim con As OdbcConnection
    Dim ds As DataSet
    Dim da As OdbcDataAdapter
    Dim dt As DataTable
    Dim dr As OdbcDataReader
    Dim str As String
    Dim cmd As OdbcCommand

    Sub koneksi()
        Try
            con = New OdbcConnection
            con.ConnectionString = “dsn=kendali-elektro”
            con.Open()
        Catch ex As Exception
            MsgBox(“Koneksi Gagal”, vbInformation, “Informasi”)
        End Try
    End Sub

    Sub masuk()
        koneksi()
        Try
            cmd = New OdbcCommand(“select * from login”, con)
            dr = cmd.ExecuteReader
            dr.Read()
            If Not t_username.Text = dr.Item(“username”) Then
                MsgBox(“Username Salah”, vbInformation, “informasi”)
            ElseIf Not t_password.Text = dr.Item(“password”) Then
                MsgBox(“Password Salah”, vbInformation, “Informasi”)
            ElseIf t_username.Text = dr.Item(“username”) And t_password.Text = dr.Item(“password”) Then
                t_password.Clear()
                t_username.Clear()
                MsgBox(“Login Berhasil”, vbInformation, “Informasi”)
            End If
        Catch ex As Exception
            MsgBox(“Login GAGAL”, vbInformation, “Informasi”)
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = ProgressBar1.Value + 5
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            masuk()
        End If
    End Sub

    Private Sub b_login_Click(sender As Object, e As EventArgs) Handles b_login.Click
        If t_password.Text = “” Then
            MsgBox(“Password Belum Di isi”, vbInformation, “Informasi”)
        ElseIf t_username.Text = “” Then
            MsgBox(“Username Belum Di isi”, vbInformation, “Informasi”)
        Else
            Timer1.Start()
        End If
    End Sub
End Class