Ini adalah tutorial pertama atau saya sebut Part 1 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. di Part 1 ini kita akan membuat database, membuat Project Aplikasi Penjualan, Membuat Form Menu Utama dan Membuat Form Login sampai bisa Login.
Sebelum melanjutkan lebh lanjut, Pastikan anda sudah menginstall :
1. Visual Basic .NET / Visual Studio ( Versi 2010 ) (Download DISINI)
2. Install Xampp ( untuk database MySQL ) (Download DISINI)
3. Install Driver ODBC versi 3.51 ( Download DISINI )
Jika sudah menginstall 3 point diatas, silahkan kita lanjutkan pembuatannya :
Berikut Langkahnya :
Pertama dengan Membuat Database dan Tabel
Buatlah database menggnakan MySQL dengan nama : db_penjualan
Buatlah Tabel : tbl_admin
Design tabel seperti gambar dibawah :
Jika sudah mari kita buka Visual Studionya :
Buatlah Project dengan nama : AppPenjualan
Jika sudah muncul Form1, Rename nama Form mejadi FormMenuUtama
Masukan MenuStrip1 dan Edit sehingga menjadi seperti gambar dibawah :
Jika sudah, silahkan Add Module1
Kemudian masukan koding di Module1 sebagai berikut :
Jika sudah, silahkan Add Form dengan nama : FormLogin.vb
Design FormLogin sehingga menjadi seperti gambar dibawah :
Imports System.Data.Odbc
Module Module1
Public Conn As New OdbcConnection
Public Da As OdbcDataAdapter
Public Ds As DataSet
Public Rd As OdbcDataReader
Public Cmd As OdbcCommand
Public MyDB As String
Public Sub Koneksi()
MyDB = "Driver={Mysql ODBC 3.51 Driver};Database=db_penjualan;server=localhost;uid=root"
Conn = New OdbcConnection(MyDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
End Module
Kembali ke FormMenuUtama.vb, silahkan masukan koding dibawah ini :
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 LoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginToolStripMenuItem.Click
FormLogin.ShowDialog()
End Sub
Private Sub LogoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogoutToolStripMenuItem.Click
Call Terkunci()
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
End Class
Kemudian masukan koding di FormLogin..
Untuk koding Form Login, silahkan lihat di Youtube ya…
