Membuat Form Login Aplikasi Mini Market VB .Net 2012

1:35:00 AM
Ini adalah tahap #KEENAM dalam membuat Aplikasi Mini Market Database Access dengan Visual Studio 2012.

Tahap Sebelumnya :
1. Membuat project Aplikasi Mini Market
2. Membuat Form Menu Utama
3. Membuat Database dan Tabel
4. Membuat Koneksi Database ( Module )
5. Membuat Form Test Koneksi Database Mini Market

Jika sudah menjalankan tahap diatas, kini saatnya kita membuat Form Login
Berikut langkahnya :
Buka Project Mini Market anda sebelumnya :
Membuat Form Login Aplikasi Mini Market VB .Net 2012
 Klik Project - Add Windows Forms
Membuat Form Login Aplikasi Mini Market VB .Net 2012
 Masukan FormLogin.vb kemduain Klik Add
Buatlah design Form login seperti gambar dibawah ini :
Membuat Form Login Aplikasi Mini Market VB .Net 2012
Kemudian masukan koding dibawah ini :
FormLogin.vb

Imports 
Imports System.Data.OleDb
Public Class FormLogin
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then TextBox2.Focus()
    End Sub
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then Button1.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 = "" Then
            MsgBox("data login belum lengkap")
            Exit Sub
        Else
            Call Koneksi()
            CMD = New OleDbCommand("select * from TBL_ADMIN where kodeadmin='" & TextBox1.Text & "' and passwordadmin='" & TextBox2.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If RD.HasRows Then
                Me.Close()
                FormMenuUtama.Show()
                FormMenuUtama.LoginToolStripMenuItem.Enabled = False
                FormMenuUtama.LogoutToolStripMenuItem.Enabled = True
                FormMenuUtama.MasterToolStripMenuItem.Enabled = True
                FormMenuUtama.TransaksiToolStripMenuItem.Enabled = True
                FormMenuUtama.LaporanToolStripMenuItem.Enabled = True
                FormMenuUtama.UtilityToolStripMenuItem.Enabled = True
            Else
                MsgBox("Kode Admin atau Password salah")
            End If
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
    Private Sub FormLogin_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        TextBox1.Focus()
    End Sub
    Private Sub FormLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.MaxLength = 6
        TextBox2.PasswordChar = "X"
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub
End Class
FormMenuUtama.vb
 
Imports 
Public Class FormMenuUtama
    Sub Terkunci()
        LoginToolStripMenuItem.Enabled = True
        LogoutToolStripMenuItem.Enabled = False
        MasterToolStripMenuItem.Enabled = False
        TransaksiToolStripMenuItem.Enabled = False
        LaporanToolStripMenuItem.Enabled = False
        UtilityToolStripMenuItem.Enabled = False
    End Sub

    Private Sub FormMenuUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Terkunci()
    End Sub
    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub
    Private Sub LoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginToolStripMenuItem.Click
        FormLogin.ShowDialog()
    End Sub
End Class

Silahkan Jalankan Project Aplikasi Mini Market anda
Klik File - Login - Masukan Kode Admin : ADM001 dan password : ADMIN
Jika berhasil login maka menu-menu pada FormMenuUtama akan akan aktif atau Enable

Silahkan KLIK DISINI untuk melanjutkan ketahap berikutnya..
Silahkan KLIK DISINI untuk download source code diatas.. 

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

4 komentar

Write komentar
Masroni Wardi
AUTHOR
October 15, 2015 at 11:21 AM delete

ini yang saya cari buk,
o ya bagai mana cara bikin from login otomatis masuk jika lupa logout sebelumnya.
gini buk pertama kita masuk aplikasinya dengan username dan password kemudian kita keluar melalu tombol clouse (X) bukan tombol logout. bagaimna caranya agar kita masuk kedua kalinya bisa langsung tampil from admin/menu utama, tampa harus memasukkan lagi esername dan passwornya, maklum buk masih baru belajar jadi,

Reply
avatar
Masroni Wardi
AUTHOR
October 15, 2015 at 11:22 AM delete

ini yang saya cari buk,
o ya bagai mana cara bikin from login otomatis masuk jika lupa logout sebelumnya.
gini buk pertama kita masuk aplikasinya dengan username dan password kemudian kita keluar melalu tombol clouse (X) bukan tombol logout. bagaimna caranya agar kita masuk kedua kalinya bisa langsung tampil from admin/menu utama, tampa harus memasukkan lagi esername dan passwornya, maklum buk masih baru belajar jadi,

o ya sebelumnya saya juga pernah mengirim e-mail kepada ibuk, tp blum ada balasan dari ibuk tentang pertanyaan saya di pembahasan sebelumnya..

Reply
avatar
abu massail
AUTHOR
July 20, 2016 at 11:32 AM delete

terima kasih modulnya buk.

Reply
avatar
Tutarni Aliya
AUTHOR
August 27, 2016 at 4:02 PM delete

Hi Abu,
Sama-sama... selamat Belajar VB

Reply
avatar