Tutorial Pembuatan Aplikasi Perpustakaan Bagian 3 #formdashboard

IT Dadakan-,Pada kesempatan kali saya ingin membagikan Tutorial Pembuatan Aplikasi Perpustakaan Bagian 3 #formdashboard ,yaitu membuat form login . Untuk yang sebelumnya belum tahu tentang tutorial bagian 1 dan bagian 2 silahkan :

BACA JUGA : 

MEMBUAT APLIKASI PERPUSTAKAAN BAGIAN 1 #DESAIN
MEMBUAT APLIKASI PERPUSTAKAAN BAGIAN 2 #FORMLOGIN

APA ITU FORM DASHBOARD?

Form Dashboard adalah sebuah form yang berfungsi untuk melakukan proses interaksi user terhadap aplikasi ,dimana dapat melakukan berbagai kegiatan sesuai hak aksesnya. Dalam kasus ini Form Dashboard yang akan dibuat adalah untuk administrator/admin dari sebuah aplikasi perpustakaan. Untuk bagian dari dasboard yang akan kita buat adalah menu untuk penginputan buku.

Karena proses pembuatan aplikasi menggunakan framework GUNA UI silahkan kalian download  dan pasang ,jika belum tahu silahkan :

BACA JUGA :   

APA ITU GUNA UI ? DAN CARA PASANG GUNA UI.

CARA PEMBUATAN :

1. Masuk Ke PhpmyAdmin ,masuk ke database yang telah kita buat sebelumnya ,yaitu database : pustaq 

2. Buat tabel baru dengan nama ,contoh : tbbuku ,dengan rincian sebagai berikut :

3. Masuk ke formadmin yang telah kita buat sebelumnya , dan tambahkan item flowlayoutpanel pada toolbox ,dan beri nama : panelinduk

4. Tambahkan item panel pada toolbox ,dan beri nama : panelbuku ,buat desain seperti pada gambar berikut ini.

NOTE : INGAT MASUKKAN PANEL BUKU DI DALAM FLOW LAYOUT PANEL YANG TELAH DIBUAT !

5. Buat Form baru ,dan beri nama : pop_up_buku ,desain seperti berikut ini :

Note : didalam form sebenarnya terdapat 2 button yaitu btnsimpan dan btnedit ,btnedit berda dibawah btnsimpan.

6. Double klik dua kali pada formadmin dan pop_up_buku dan isikan kode pada bagian paling atas dari masing form seperti berikut ini :

Import.Mysql.Data.MysqlClient 

Beri kode berikut ini pada ,

Pada form admin:

koneksi() 
subbuku()
aturdgv()

Pada pop_up_buku :

koneksi()

7. Buat sub kode berikut ini pada :

Pada Formadmin :

Import.Mysql.Data.MysqlClient 

Buat sub tampilbuku() untuk menmapilkan tbbuku dari database ,masukkan kode berikut ini :

    Sub tampilbuku()
        ds = New DataSet
        query = "select*from tbbuku"
        da = New MySqlDataAdapter(query, con)
        Try
            da.Fill(ds, "tbbuku")
            databuku.DataSource = ds.Tables("tbbuku")

        Catch ex As Exception
            MessageBox.Show(" ERROR PADA : " & ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Buat sub aturdgv() untuk mengatur tampilan dari databuku(datagridview) ,masukkan kode berikut ini

Sub aturdgv()
        'DATA BUKU
        databuku.Columns(0).Width = 70
        databuku.Columns(1).Width = 200
        databuku.Columns(2).Width = 100
        databuku.Columns(3).Width = 70
        databuku.Columns(4).Width = 60
        databuku.Columns(5).Width = 100
        databuku.Columns(6).Width = 100
        databuku.Columns(7).Width = 80
        databuku.Columns(8).Width = 140

        databuku.RowHeadersVisible = False
        databuku.Columns(0).HeaderCell.Value = "NO"
        databuku.Columns(1).HeaderCell.Value = "JUDUL BUKU"
        databuku.Columns(2).HeaderCell.Value = "PENERBIT"
        databuku.Columns(3).HeaderCell.Value = "TAHUN TERBIT"
        databuku.Columns(4).HeaderCell.Value = "STOK"
        databuku.Columns(5).HeaderCell.Value = "PENGARANG"
        databuku.Columns(6).HeaderCell.Value = "ASAL"
        databuku.Columns(7).HeaderCell.Value = "NO KLASIFIKASI"
        databuku.Columns(8).HeaderCell.Value = "KLASIFIKASI"

        databuku.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

 End sub

 
pada pop_up_buku:

Buat sub tampilbuku() untuk menmapilkan tbbuku dari database ,masukkan kode berikut ini :

 Sub tampilbuku()
        ds = New DataSet
        query = "select*from tbbuku"
        da = New MySqlDataAdapter(query, con)
        Try
            da.Fill(ds, "tbbuku")
            databuku.DataSource = ds.Tables("tbbuku")

        Catch ex As Exception
            MessageBox.Show(" ERROR PADA : " & ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

8. Isiskan kode berikut ini pada button tambahbuku :

pop_up_buku.Show()
        pop_up_buku.btnsimpana_buku.Visible = True
        pop_up_buku.GunaLabel3.Visible = True
        GunaLabel1.Visible = True
        pop_up_buku.txtno_inventaris.Focus()

9. Isiskan Kode berikut ini pada button editbuku :

        pop_up_buku.Show()
        GunaLabel1.Visible = True
        pop_up_buku.btnsimpana_buku.Visible = False
        pop_up_buku.GunaLabel3.Visible = False
        buku_edit()

10. isikan kode berikut ini pada button hapusbuku :

        dt = New DataTable()
        query = "select*from tbbuku where no_inventaris='" & labelno_inventaris.Text & "'"
        da = New MySqlDataAdapter(query, con)
        Try
            da.Fill(dt)
            If MsgBox("Yakin Buku ingin Dihapus?" + dt.Rows(0)(1), vbYesNo) = vbYes Then
                cmd = New MySqlCommand
                cmd.Connection = con
                query = "delete from tbbuku where no_inventaris='" & labelno_inventaris.Text & "'"
                cmd.CommandText = query
                Try
                    cmd.ExecuteNonQuery()
                    tampilbuku()
                    buku_home()
                    sisabuku()
                    buku_pop_up_pinjam_kembali()
                    labelno_inventaris.Text = "0"
                Catch ex As Exception
                    MsgBox("Buku belum dipilih!", vbOKOnly, "PUSTAQ")
                End Try
            End If
        Catch ex As Exception
MessageBox.Show(" ERROR PADA : " & ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        GunaLabel1.Visible = True 

11. Isikan Kode berikut ini di pop_up_buku pada button btnsimpan :

        If txtno_klasifikasi.Text = "" Or txtnama_penerbit.Text = "" Or txtnama_pengarang.Text = "" Or txtjudul_buku.Text = "" Or txtno_inventaris.Text = "" Or txtstok_buku.Text = "" Or txttahun_terbit.Text = "" Or txtasal_buku.Text = "" Then
            MsgBox("Data Harus Lengkap", vbOKOnly, "PUSTAQ")
        Else
            cmd = New MySqlCommand
            cmd.Connection = con
            query = "insert into tbbuku values('" & txtno_inventaris.Text & "','" & txtjudul_buku.Text & "','" & txtnama_penerbit.Text & "','" & txttahun_terbit.Text & "','" & txtstok_buku.Text & "','" & txtnama_pengarang.Text & "','" & txtasal_buku.Text & "','" & txtno_klasifikasi.Text & "','" & txtklasifikasi.Text & "')"
            cmd.CommandText = query
            Try
                cmd.ExecuteNonQuery()
                tampilbuku()
                buku_home()
                sisabuku()
                buku()
                txtno_klasifikasi.Text = ""
                txtnama_penerbit.Text = ""
                txtnama_pengarang.Text = ""
                txtjudul_buku.Text = ""
                txtno_inventaris.Text = ""
                txtstok_buku.Text = ""
                txttahun_terbit.Text = ""
                txtno_inventaris.Focus()
                Me.Close()
            Catch ex As Exception
           MessageBox.Show(" ERROR PADA : " & ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If

12. Isikan kode berikut ini di pop_up_buku  pada button btn editbuku :

        cmd = New MySqlCommand
        cmd.Connection = con
        query = "update tbbuku set no_inventaris='" & txtno_inventaris.Text & "',judul_buku='" & txtjudul_buku.Text & "',nama_penerbit='" & txtnama_penerbit.Text & "',tahun_terbit='" & txttahun_terbit.Text & "',stok_buku='" & txtstok_buku.Text & "',no_inventaris='" & txtno_inventaris.Text & "',nama_pengarang='" & txtnama_pengarang.Text & "',asal_buku='" & txtasal_buku.Text & "',no_klasifikasi='" & txtno_klasifikasi.Text & "',klasifikasi='" & txtklasifikasi.Text & "'where no_inventaris='" & Form_admin.labelno_inventaris.Text & "'"
        cmd.CommandText = query
        Try
            cmd.ExecuteNonQuery()
            tampilbuku()
            sisabuku()
            buku()
            peminjaman()
            buku_home()
            Me.Close()
            Form_admin.labelno_inventaris.Text = "0"
        Catch ex As Exception
            MessageBox.Show(" ERROR PADA : " & ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

13. Buat label pada formadmin dan beri nama : labelnoinventaris .

14. Isikan kode berikut ini pada databuku(datagridview) ,ingat ubah databuku dari cellcontentclick menjadi cellclick :

        Dim i As Integer
        Try
            i = databuku.CurrentRow.Index
            labelno_inventaris.Text = databuku.Item(0, i).Value
            GunaLabel1.Visible = True
        Catch ex As Exception

        End Try

15. Buat txtcaribuku  pada formadmin ,dan isikan kode berikut ini :

       ds = New DataSet
        query = "select*from tbbuku where judul_buku like '%" & txtcari_buku.Text & "%'"
        da = New MySqlDataAdapter(query, con)
        Try
            da.Fill(ds, "tbbuku")
            databuku.DataSource = ds.Tables("tbbuku")
        Catch ex As Exception
            MessageBox.Show(" ERROR PADA : " & ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        If txtcari_buku.Text = "" Then
            labelno_inventaris.Text = "0"

        End If

16. Save project ,dan coba jalankan dengan menekan RUN atau F5 .

NOTE : KETIKA DATA YANG AKAN DI HAPUS ATAU DIHAPUS SILAHKAN CARI NAMA BUKU DULU DI TXTCARIBUKU !

Untuk bagian sidebar akan kita buat pada bagian selanjutnya ,karena akan di gunakan ketika panel sudah lebih dari satu .Nah cukup sekian Tutorial Pembuatan Aplikasi Perpustakaan Bagian 3 #formadmin ,Jika ada ada error silahkan bisa Komentar dibawah . Semoga bermanfaat dan selamat mencoba ...