Vb .Net - Menciptakan Project Gres Aplikasi Rental Dvd

Selamat tiba di Website JavaNetMedia.com, pada pembelajaran VB .Net kali ini kami akan bahas mengenai Step by Step dalam menciptakan Aplikasi Rental DVD. jikalau anda ingin mengikuti pembelajaran dari kami maka yang perlu anda siapkan ialah :

1. Aplikasi Visual Basic .Net versi 2010
2. Aplikasi Xampp ( kami akan memakai Database MySQL )
3. Connector VB ke MySQL ( silahkan download pada Menu Download )
4. Crystal Report versi 8.5

Jika sudah menginstall Syarat diatas maka anda siap untuk mengikuti tutorial dari kami.

Ini ialah Tahap pertama dalam menciptakan Aplikasi Rental DVD dengan VB .Net.
Silahkan ikuti langkah dibawah ini :

Buka Visual Studio 2010.

Klik File - New - Project

Kemudian isi menyerupai gambar dibawah ini :

Pastikan anda menentukan : Windows Form Application
Pada gambar diatas kami namakan : AppRentalDVD
Kemudian aku save pada folder : D:\VB Net - Rental DVD

Jika sudah klik OK

Kemudian untuk persiapan menciptakan Form Menu Utama Apikasi Rental DVD, silahkan anda ganti Form1 menjadi FormMenuUtama.vb menyerupai gambar dibawah ini :

Jika sudah, silahkan anda Save, dan ikuti Tahap ke-2 dalam menciptakan Aplikasi Rental DVD dengan VB .Net 2010.

Silahkan KLIK DISINI untuk melanjutkan ke Tahap-2
Silahkan KLIK DISINI Untuk download Project Aplikasi Rental DVD diatas

Vb .Net - Menciptakan Form Sajian Utama Aplikasi Rental Dvd

Mari kita lanjutkan Tutorial VB .Net dalam menciptakan Aplikasi Rental DVD. Ini yaitu tahap ke-2 dalam menciptakan Aplikasi Rental DVD dengan VB .Net 2010 dan database nantinya kita akan memakai database MySQL.

Jika sebelumnya kita telah menciptakan Project Aplikasi Rental DVD pada Tahap-1, kali ini kita akan melanjutkan dalam menciptakan Form Menu Utama.

Silahkan Buka kembali Project VB .Net anda :

Gambar diatas yaitu hasil terakhir pada Tahap-1.
Silahkan anda cari : MenuStrip pada ToolBox
Kemudian anda Double Klik

Jika sudah silahkan Masukan Data pada Menu Strip menyerupai dibawah ini :

File
-------------- Login
-------------- Logout
-------------- Keluar
Master
-------------- Petugas
-------------- Anggota
-------------- Film
Transaksi
-------------- Peminjaman Film
-------------- Pengembalian Film
Laporan
-------------- Data Master
-------------- Lap Peminjaman
-------------- Lap Pengembalian
Utility
--------------Ganti Password

Jika sudah silahkan Save, dan Hasilnya yaitu menyerupai gambar dibawah ini :

Demikian Cara Praktis Membuat Menu Utama Aplikasi Rental DVD, silahkan ikuti terus tahap ke-3 dalam menciptakan Aplikasi Rental DVD dengan VB .Net

Silahkan KLIK DISINI untuk melanjutkan ke Tahap-3
Silahkan KLIK DISINI untuk mendownload Project Menu Utama diatas 

Vb .Net - Menciptakan Database Dan Tabel Aplikasi Rental Dvd

Yuk kita lanjutkan kembali Pembelajaran VB .Net dalam menciptakan Aplikasi Rental DVD dengan Database MySQL. Ini yaitu tahap ke-3 dalam menciptakan Aplikasi Rental DVD. menyerupai yang sudah kami jelaskan pada Tahap-1, kali ini kita akan menciptakan Database dan Tabel dengan MySQL.

Silahkan ikuti langkah dibawah ini :
Silahkan Buka Xampp Control Panel

Pastikan Apache dan MySQL sudah running menyerupai gambar diatas
Buka Browser anda
Masukan alamat : http://localhost/phpmyadmin/
Buatlah Database dengan nama : dbjnmrentaldvd
Buatlah Tabel dengan nama : tbl_petugas
Buatlah design tabel sebagai berikut :

Jangan Lupa Pada KodePetugas Anda buat Primary Key
Agar Nantinya dapat dipakai untuk login ke Aplikasi, silahkan masukan Sample data menyerupai gambar dibawah ini.

Jika sudah, silahkan lanjutkan ketahap-4 dalam menciptakan aplikasi Rental DVD dengan VB .Net

Silahkan KLIK DISINI untuk melanjutkan ke Tahap-4
Silahkan KLIK DISINI untuk mendownload database dan tabel aplikasi rental DVD diatas

Vb .Net - Menciptakan Koneksi Database Dengan Module Aplikasi Rental Dvd

Kembali lagi di Tutorial VB .Net, ini ialah tahap ke-4 dalam menciptakan Aplikasi Rental DVD dengan VB .Net database MySQL. Pada tahap ini kita akan menciptakan koneksi database yang sebelumnya kita telah menciptakan database MySQL pada aplikasi Xampp.

Berikut langkahnya :
Buka Project anda sebelumnya :

Pada gambar diatas, kita telah sukses mebuat Form Menu Utama dan Membuat Database MySQL
Silahkan Klik Menu Project - Add Module

Kemudian muncul menyerupai gambar dibawah ini :

Klik Add

Kemudian masukan koding dibawah ini :

  Imports System.Data.Odbc Module Module1     Public Conn As OdbcConnection     Public da As OdbcDataAdapter     Public ds As DataSet     Public LokasiData As String     Sub Koneksi()         LokasiData = "Driver={MySQL ODBC 3.51 Driver};database=dbjnmrentaldvd;server=localhost;uid=root"         Conn = New OdbcConnection(LokasiData)         If CONN.State = ConnectionState.Closed Then             CONN.Open()         End If     End Sub End Module 

Note:Pastikan anda sudah install connector ODBC Driver 3.51

Jika sudah ikuti tahap ke-5 dalam menciptakan Aplikasi Rental DVD dengan VB .Net

Silahkan KLIK DISINI untuk melanjutkan ke Tahap-5
Silahkan KLIK DISINI untuk download project diatas 

Vb .Net - Menciptakan Form Login Aplikasi Rental Dvd

Berikut ini ialah Tahap ke-5 dalam menciptakan Aplikasi Rental DVD dengan VB .Net, untuk anda yang gres bergabung dengan kami, silahkan ikuti tutorial kami dari tahap-1 dalam menciptakan Aplikasi Rental DVD, alasannya ialah jikalau anda eksklusif ke tahap ini anda akan galau sendiri Hehehehe...

Berikut langkah dari menciptakan Form Login Aplikasi Rental DVD
Buka Project anda sebelumnya :

Pada gambar diatas, anda telah sukses menciptakan koneksi database dengan Module.
Silahkan Klik Menu Project - Add Windows Form

Silahkan beri nama : FormLogin.vb menyerupai gambar dibawah ini :

Klik Add
Silahkan design formlogin.vb menyerupai gambar dibawah ini ;

Jika sudah, anda dapat memasukan koding dibawah ini :
FormLogin.vb

  Imports System.Data.Odbc Public Class FormLogin     Dim CMD As New OdbcCommand     Dim RD As OdbcDataReader      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 OdbcCommand("select * from tbl_petugas where kodepetugas='" & TextBox1.Text & "' and passwordpetugas='" & 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 Petugas atau Password salah")             End If         End If     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      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Me.Close()     End Sub End Class 

FormMenuUtama.vb

  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 anda dapat mengeceknya dengan Running Aplikasi Rental DVD

Kode Petugas : PTG001
Password : ADMIN

Jika sudah harusnya tidak terjadi error dan anda dapat masuk login ke Aplikasi Rental DVD
Silahkan ikuti tahap ke-6 dalam menciptakan Aplikasi Rental DVD

Silahkan KLIK DISINI untuk melanjutkan ke Tahap-6
Silahkan KLIK DISINI untuk download Project Aplikasi Rental DVD diatas 

Vb .Net - Menciptakan Koding Logout Aplikasi Rental Dvd

Ini yakni tahap ke-6 dalam menciptakan Aplikasi Rental DVD dengan bahasa pemograman VB .Net database MySQL. Jika pada tahap ke 5 anda sudah dapat menciptakan Form Login, sekarang saatnya kita menciptakan koding Logoutnya.

Dimana ada Login pastinya anda harus menciptakan Logout.
Berikut langkahnya :
Buka Project anda sebelumnya :

 Seperti yang sudah kami jelaskan diatas, gambar diatas yakni pada tahap ke-5 yaitu anda telah sukses menciptakan form Admin.

Untuk koding logoutnya, anda cukup ke FormMenuUtama lalu tambahkan koding dibawah ini :

  Private Sub LogoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogoutToolStripMenuItem.Click         Call Terkunci() End Sub 

Untuk membuktikannya silahkan running project Aplikasi Rental DVD anda
SIlahkan ikuti terus tahap ke-7 dalam menciptakan Aplikasi Rental DVD dengan VB .Ne
Silahkan KLIK DISINI untuk mendownload Project atau Source Code diatas