Cara Membuat Form Login di Visual Basic .Net

Cara Membuat Form Login di Visual Basic .Net, form login dapat digunakan sebagai form yang membatasi pengguna program, dimana setiap orang yang akan menggunakan program tidak sembarang untuk menggunakan program yang kita buat. Form login juga digunakan sebagai form nomor dua sebelum masuk pada form utama pada sebuah program.

Pada studi kasus kali ini kita coba membuat sebuah program sederhana mengenai pengelolaan data gaji karyawan dengan pemrograman VB.NET dan Provider OLE DB 12 dengan nama project : GajiKaryawan, nama database : db_karyawan, nama tabel : login dan tabel karyawan.

Program yang akan kita buat ini memiliki sebuah form login dan form untuk entri data karyawan, untuk membuat form login tersebut anda dapat mengikuti langkah - langkah berikut ini. Namun sebelumnya anda harus membuat sebuah database terlebih dahulu menggunakan microsoft access, dan menambahkan satu buah project barus pada visual basic .net yang anda miliki.

Adapun struktur tabel dan tampilan program terlihat seperti pada tabel dan gambar berikut.

Tabel Login Karyawan.

Field	Type	Size	Key	Keterangan
username	Text	20	*	nama user karyawan
password	Text	10		password karyawan

Tabel Karyawan.

Field	Type	Size	Key	Keterangan
Kode	Text	8	*	kode karyawan
Nama	Text	20		nama karyawan
Alamat	Text	30		alamat tempat tinggal karyawan
Telephone	Text	13		nomor telepon karyawan
Golongan	Text	3		golongan karyawan : I, II, III, IV
Gaji	Number			Gaji Karyawan Golongan I : Rp. 2000000, Golongan II : Rp. 2500000, Golongan III : Rp. 3000000, Golongan IV : Rp. 4000000
Tunjangan	Number			Tunjangan Karyawan Golongan I : 5%*Gaji, Golongan II : 7,5%*Gaji, Golongan III : 10%*Gaji, Golongan IV : 12,5%*Gaji
Gaber	Number			Gaji Bersih Karyawan = Gaji + Tunjangan

Jika anda sudah selesai membuat database dan tabelnya, selanjutnya jalankan visual basic .net yang anda miliki kemudian tambahkan satu buah project baru dengan nama GajiKaryawan, Buatlah satu buah form menu utama, untuk membuat form menu utama anda dapat melihatnya pada panduan berikut ini Cara membuat menu utama di vb.net, selanjutnya buatlah satu buah form login seperti gambar berikut ini.

Jika anda sudah membuat form login, next kita akan membuat form untuk mengolah data karyawan tersebut, tambahkanlah satu buah form baru dan desainlah seperti gambar berikut ini.

Selanjutnya kita akan membuat module, pada project yang anda miliki silahkan tambahkan module, dengan memilih menubar Project – Add Module. Kemudian tambahkan source code berikut ini pada module tersebut.

Source code module

Imports System.Data.Odbc
Imports System.Data
Imports System.Data.OleDb

Module Module1
    Public OLECMD As OleDbCommand
    Public OLERDR As OleDbDataReader
    Public OLEDA As OleDbDataAdapter
    Public CNN As OleDbConnection
    Public DS As DataSet
    Public KONEKSI As String = "provider=microsoft.ace.oledb.12.0;data source=db_karyawan.accdb"
    Public x As Integer
    Public Sub Konek()
        KONEKSI = "provider=microsoft.ace.oledb.12.0;data source=db_karyawan.accdb"
        CNN = New OleDbConnection(KONEKSI)
        If CNN.State = ConnectionState.Closed Then
            CNN.Open()

        End If
    End Sub
End Module

Selanjutnya kita tambahkan source code berikut ini pada form karyawan.

Source code form karyawan

Imports System.Data.OleDb

Public Class Form2
    Sub kosong()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        ComboBox1.Text = ""
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox1.Focus()

    End Sub
    Sub isi()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        ComboBox1.Text = ""
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox1.Focus()
    End Sub

    Sub tampilData()
        OLEDA = New OleDbDataAdapter("Select * from karyawan", CNN)
        DS = New DataSet
        DS.Clear()
        OLEDA.Fill(DS, "karyawan")
        DataGridView1.DataSource = (DS.Tables("karyawan"))
        DataGridView1.Refresh()
    End Sub

    Sub autoGrid()
        DataGridView1.Columns(0).Width = 60
        DataGridView1.Columns(1).Width = 130
        DataGridView1.Columns(2).Width = 100
        DataGridView1.Columns(3).Width = 100
        DataGridView1.Columns(4).Width = 100

        DataGridView1.Columns(0).HeaderText = "Kode"
        DataGridView1.Columns(1).HeaderText = "Nama Karyawan"
        DataGridView1.Columns(2).HeaderText = "Alamat"
        DataGridView1.Columns(3).HeaderText = "Telepon"
        DataGridView1.Columns(4).HeaderText = "Golongan"
        DataGridView1.Columns(5).HeaderText = "Gaji"
        DataGridView1.Columns(6).HeaderText = "Tunjangan"
        DataGridView1.Columns(7).HeaderText = "Gaji Bersih"
    End Sub

    Sub searchkode()
        If Me.TextBox8.Text = "" Then
            MsgBox("Isikan Kata Kunci Pencarian", MsgBoxStyle.Information, "Peringatan")
            Me.TextBox8.Focus()
            Exit Sub

        End If
        Try
            OLEDA = New OleDbDataAdapter("select kode as [Kode],nama as [Nama], alamat as [Alamat], telepon as [Telepon], golongan as [Golongan], gaji as [Gaji], tunjangan as [Tunjangan], gaber as [Gaji Bersih] from karyawan where kode='" & TextBox8.Text & "'", CNN)
            Dim kry As New DataTable
            kry.Clear()
            OLEDA.Fill(kry)
            If kry.Rows.Count = Nothing Then
                MsgBox("Data Tidak Ditemukan, Masukan Kode dengan Tepat !!!", MsgBoxStyle.Information, "Peringatan")
                TextBox8.Clear()
                TextBox8.Focus()
                Exit Sub

            End If
            DataGridView1.DataSource = kry

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Peringatan")
        End Try
    End Sub

    Sub searchnama()
        If Me.TextBox8.Text = "" Then
            MsgBox("Isikan Kata Kunci Pencarian", MsgBoxStyle.Information, "Peringatan")
            Me.TextBox8.Focus()
            Exit Sub

        End If
        Try
            OLEDA = New OleDbDataAdapter("select kode as [Kode],nama as [Nama], alamat as [Alamat], telepon as [Telepon], golongan as [Golongan], gaji as [Gaji], tunjangan as [Tunjangan], gaber as [Gaji Bersih] from karyawan where nama like'%" & TextBox8.Text & "%'", CNN)
            Dim kry As New DataTable
            kry.Clear()
            OLEDA.Fill(kry)
            If kry.Rows.Count = Nothing Then
                MsgBox("Data Tidak Ditemukan, Masukan Nama dengan Tepat !!!", MsgBoxStyle.Information, "Peringatan")
                TextBox8.Clear()
                TextBox8.Focus()
                Exit Sub

            End If
            DataGridView1.DataSource = kry

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Peringatan")
        End Try
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        TextBox8.Focus()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox1.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Then
            MsgBox("Data Belum Lengkap")
            TextBox1.Focus()
            Exit Sub
        Else
            OLECMD = New OleDbCommand("Select * from karyawan where kode='" & TextBox1.Text & "'", CNN)
            OLERDR = OLECMD.ExecuteReader
            OLERDR.Read()
            If Not OLERDR.HasRows Then
                Dim simpan As String = "insert into karyawan(kode,nama,alamat,telepon,golongan,gaji,tunjangan,gaber) values" & _
                    "('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"
                OLECMD = New OleDbCommand(simpan, CNN)
                OLECMD.ExecuteNonQuery()

                MsgBox("Simpan Data Sukses", MsgBoxStyle.Information, "Perhatian")
            End If
            Call tampilData()
            Call kosong()
            TextBox1.Focus()
        End If

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call kosong()
        Call tampilData()
        Call Konek()
        Call autoGrid()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ubah As String = "update karyawan set nama='" & TextBox2.Text & "',alamat='" & TextBox3.Text & "',telepon='" & TextBox4.Text & "',golongan='" & ComboBox1.Text & "',gaji='" & TextBox5.Text & "',tunjangan='" & TextBox6.Text & "',gaber='" & TextBox7.Text & "'where kode='" & TextBox1.Text & "'"
        OLECMD = New OleDbCommand(ubah, CNN)


        OLECMD.ExecuteNonQuery()
        MsgBox("Data Telah Diubah")
        Call tampilData()
        Call kosong()
        TextBox1.Focus()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        OLECMD = New OleDbCommand("select * from golongan where golongan='" & ComboBox1.Text & "'", CNN)
        OLERDR = OLECMD.ExecuteReader
        OLERDR.Read()
        If OLERDR.HasRows Then
            TextBox5.Text = OLERDR.Item("gaji")
            TextBox6.Text = OLERDR.Item("tunjangan")
            TextBox7.Text = OLERDR.Item("gaber")
            TextBox5.Focus()

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Kode Belum Di Isi")
            TextBox1.Focus()
            Exit Sub
        Else
            If MessageBox.Show("Anda Yakin Ingin Menghapus Data" & TextBox1.Text & "?", "",
    MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                OLECMD = New OleDbCommand("Delete * From karyawan where kode ='" & TextBox1.Text & "'", CNN)
                OLECMD.ExecuteNonQuery()
                MsgBox("Data Telah Dihapus")
                Call kosong()
                Call tampilData()
            Else
                Call kosong()
            End If
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Call kosong()
        DataGridView1.DataSource = (DS.Tables("karyawan"))
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Close()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If RadioButton1.Checked = True Then
            searchkode()
            DataGridView1.Refresh()

            TextBox8.Clear()

        ElseIf RadioButton2.Checked = True Then
            searchnama()
            DataGridView1.Refresh()

            TextBox8.Clear()

        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        TextBox8.Focus()
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        TextBox1.ReadOnly = True
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
        With DataGridView1.Rows.Item(i)
            Me.TextBox1.Text = .Cells(0).Value
            Me.TextBox2.Text = .Cells(1).Value
            Me.TextBox3.Text = .Cells(2).Value
            Me.TextBox4.Text = .Cells(3).Value
            Me.ComboBox1.SelectedItem = .Cells(4).Value
            Me.TextBox5.Text = .Cells(5).Value
            Me.TextBox6.Text = .Cells(6).Value
            Me.TextBox7.Text = .Cells(7).Value
        End With
    End Sub

  End Class

Menambahkan Icon Pada ButtonPada VB 2010 terdapat fitur untuk menambahkan icon atau gambar pada button, yaitu dengan cara :

1. Klik button1 dan button 2 di bagian properties sebelah kanan bawah pilih : image, kemudian klik pada titik-titik disebelah tulisan (none).
2. Klik pada "local resource" dan kemudian klik tombol  "Import..."
3. Pilih lokasi icon atau gambar yang diinginkan (icon atau gambar sudah ada dalam komputer anda). Misalnya pilih gambar untuk Login dan Close. Kemudian klik open kemudian klik ok.
4. Supaya gambarnya berada di samping kiri, pada properties pilih ImageAlign dan ubah menjadi MiddleLeft. Sedangkan textnya berada di samping kanan, pada properties pilih TextAlign dan ubah menjadi MiddleRight.

Catatan
Cara membuat password supaya tidak terlihat pada saat input password, yaitu : klik TextBox2 kemudian pada Properties cari PasswordChar kemudian isi tanda  *, Sekian terima kasih semoga bermanfaat.

Share this post