Mem mbuat Projject B Baru VB V Neet 20100 Berikutt langkahnyya: Pastikann anda sudahh Install Vissual Basic 22010 pada kkomputer anda, Klik Staart pada Winndows All Proggrams
Maka akkan muncul :
Klik Fille New - P Project
Maka akkan muncul gambar dibbawah : Pada poostingan Perrtama Step bby Step mem mbuat Aplikkasi VB Nett ini dimulaii dengan Meembuat Project bbaru. dan gaambar diataas adalah hallaman awal Aplikasi V VB Net 20100. kebetulan yang kami paakai adalah V VB Net 20110 type Exprress. ngkah-langgkahnya : Berikutt adalah lan MyDatabasee - Siapkaan Folder Coontoh : D:\M - Jalankkan Program m (Buka Winndow - All P Program – M Micrososft V Visual Studiio 2010 - New P Project – Othher Languagges – Visual Basic - Windoows Froms A Application - OK - Klik F File - Save A All
- Browse Folder yang telah kita buat sebelumnya - Ganti Name : Aplikasi-Perpustakaan
- Pada properties (Name) ganti = FormMenuUtama - Klik File - Save Form1.vb As - Ganti Form1.vb menjadi FormMenuUtama.vb - Klik Formnya - Pada properties ganti Text = Menu Utama
Berikut ini cara Membuat Menu Utama Aplikasi Perpustakaan : Buka Kembali Project anda sebelumnya :
Gambar diatas adalah Gambar terakhir pada Tahap Pertama, Untuk membuat Form Menu Utama, Ubah nama Form1.vb menjadi FormMenuUtama.vb Anda bisa menggunakan dengan Klik Kanan Form1.vb - Rename
Setelah itu anda Klik FormMenuUtama, kemudian ubah pada Properties : Text : Menu Utama Aplikasi Perpustakaan WindowState : Maximized
Setelah melakukan langkah diatas : Double Klik MenuStrip Pada ToolBox
Kemudian Buatlah Menu - Menu Aplikasi Perpus yang akan kita buat, sebagai contoh :
Pada gambar diatas kami buat : File ----- Login ----- Logout ----- Keluar Master ----- Admin ----- Anggota ----- Buku Transaksi ----- Peminjaman ----- Pengembalian Laporan
Membuat Database dan Tabel Aplikasi Perpus Klik Start Pada Windows Xampp Xampp Control Panel
Maka akan muncul gambar dibawah :
Pastikan Apache dan MySQL dalam keadaan Running Kemudian Buka Browser anda Masukan Alamat : http://localhost/phpmyadmin/ Maka akan muncul gambar dibawah :
Buatlah database baru dengan nama : dbperpus
Kemudian Klik Create Buatlah Tabel dengan nama tbl_admin, seperti gambar dibawah
Kemudian Klik Save Untuk persiapan Login, silahkan anda masukan sample data sebagai berikut :
Klik Go
Berikut dibawah adalah langkah membuat Koneksi database MySQL yang telah kita buat pada tahap ke-3 dengan Module pada Visual Basic 2010. Sebelumnya, disiapkan terlebih dahulu Open Data Base Connector (ODBC) driver. Di sini digunakan MySQL ODBC Driver (versi 5.3) Klik Control Panel dari menu windows – pilih Administrative Tools.
Kemudian double klik ADBC Data Source
Pilih User DSN, klik Add, dan double klik MySQL ODBC 5.3 ANSI Driver (ini akan tampil apabila telah di-install driver MySQL-Connector-ODBC-5.3 yang diunduh dari website MySQL)
Buatlah konfigurasi koneksi database perpustakaan seperti berikut:
Klik tombol Test, jika berhasil terkoneksi maka klik OK.
Gambar diatas adalah tampilan terakhir Project Aplikasi Perpustakaan anda, untuk membuat Koneksi database : Klik Project Add Module
Maka akan muncul gambar dibawah :
Kemudian biarkan nama menjadi Module1.vb 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 5.3 ANSI Driver};database=dbperpus;server=localhost;uid=root" Conn = New OdbcConnection(LokasiData) If CONN.State = ConnectionState.Closed Then CONN.Open() End If End Sub End Module
Untuk Membuat Form Login Berikut langkahnya : Klik Project Add Windows Form....
Kemudian Muncul Gambar dibawah :
Ubah Name menjadi : FormLogin.vb Klik Add Kemudian design formLogin.vb seperti gambar dibawah ini :
Setelah membuat Design seperti gambar diatas, ubah pada properties :
Text : Form Login StartPosition : CenterScreen dan Berikut Kodingnya : Masukan Koding dibawah pada FormMenuUtama: Public Class FormMenuUtama Sub Terkunci() LoginToolStripMenuItem.Enabled = True LogoutToolStripMenuItem.Enabled = False MasterToolStripMenuItem.Enabled = False TransaksiToolStripMenuItem.Enabled = False LaporanToolStripMenuItem.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
Masukan Koding dibawah pada FormLogin: 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_admin where kode_admin='" & TextBox1.Text & "' and password_admin='" & 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 Else MsgBox("Kode Admin 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
Silahkan Jalankan Program Aplikasi Perpus Anda :) Masukan Kode Admin : ADM001 dan Password ADMIN, kemudian Klik Login :
Baiklah sekarang kita Fokus ke Koding Logout. Jika anda lihat pada Pembelajaran Tahap-5, disitu kami buat Sub Terkunci. untuk Logout sendiri anda cukup memanggil Terkunci saja. Berikut Kodingnya: Private Sub LogoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogoutToolStripMenuItem.Click Call Terkunci() End Sub
