Berikut ini adalah Tahap KeLima dalam membuat Aplikasi Penjualan VB .Net. Kami menggunakan Vb .Net 2010 dan Database SQL Server
Tahap Sebelumnya :
Tahap 01 : Membuat Project Aplikasi Penjualan
Tahap 02 : Membuat Form Menu Utama
Tahap 03 : Membuat Database dan Tabel Penjualan
Tahap 04 : Membuat Koneksi Database Dengan Module
Berikut ini langkah dalam membuat Form Login Aplikasi Penjualan
Buka Project anda sebelumnya :
Jika anda lihat gambar diatas, anda telah sukses membuat koneksi database dengan module pada tahap keempat
Untuk membuat Form Login :
Klik Project - Add Windows Form
Klik Add
Jika sudah silahkan buat Design FormLoagin seperti gambar dibawah ini :
Jika sudah membuat seperti gambar diatas,
silahkan masukan koding dibawah ini :
FormLogin
Imports System.Data.SqlClient
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 SqlCommand("select * from TBL_admin where kodeadmin='" & TextBox1.Text & "' and passwordadmin='" & TextBox2.Text & "'", CONN)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
Me.Close()
Call Terbuka()
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
Sub Terbuka()
FormMenuUtama.MasterToolStripMenuItem.Enabled = True
FormMenuUtama.LogoutToolStripMenuItem.Enabled = True
FormMenuUtama.TransaksiToolStripMenuItem.Enabled = True
FormMenuUtama.LaporanToolStripMenuItem.Enabled = True
FormMenuUtama.UtilityToolStripMenuItem.Enabled = True
FormMenuUtama.LoginToolStripMenuItem.Enabled = False
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"
End Sub
End Class
FormMenuUtama
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
Jika sudah, silahkan Run atau Jalankan Project anda
Klik File - Login. Masukan data login : ADM001 dan Password : ADMIN
Klik Toombol Login
Silahkan KLIK DISINI Untuk melihat Video Tutorial diatas..
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :