Membuat Form Login Aplikasi Mini Market VB .Net 2012

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 :

 Klik Project - Add Windows Forms

 Masukan FormLogin.vb kemduain Klik Add
Buatlah design Form login seperti gambar dibawah ini :

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..