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 :
Beri kode berikut ini pada ,
Pada form admin:
Pada pop_up_buku :
7. Buat sub kode berikut ini pada :
Pada Formadmin :
Buat sub tampilbuku() untuk menmapilkan tbbuku dari database ,masukkan kode berikut ini :
Buat sub aturdgv() untuk mengatur tampilan dari databuku(datagridview) ,masukkan kode berikut ini
pada pop_up_buku:
Buat sub tampilbuku() untuk menmapilkan tbbuku dari database ,masukkan kode berikut ini :
8. Isiskan kode berikut ini pada button tambahbuku :
9. Isiskan Kode berikut ini pada button editbuku :
10. isikan kode berikut ini pada button hapusbuku :
11. Isikan Kode berikut ini di pop_up_buku pada button btnsimpan :
12. Isikan kode berikut ini di pop_up_buku pada button btn editbuku :
13. Buat label pada formadmin dan beri nama : labelnoinventaris .
14. Isikan kode berikut ini pada databuku(datagridview) ,ingat ubah databuku dari cellcontentclick menjadi cellclick :
15. Buat txtcaribuku pada formadmin ,dan isikan kode berikut ini :
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 ...
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()
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
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
'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
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()
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()
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
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
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
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
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
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 ...
0 Response to "Tutorial Pembuatan Aplikasi Perpustakaan Bagian 3 #formdashboard"
Post a Comment