Tambah kan button
Ganti text button menjadi hapus
Doble Klik pada button hapus
Masukkan pada button ubah code seperti berikut
Private Sub
btnHapusBuku_Click(sender As Object, e As EventArgs) Handles
btnHapusBuku.Click
HapusBuku(id_buku)
FormBuku.Show()
End Sub
Jika sudah selanjutnya running aplikasi coba button hapus
yang sudah di sudah dibuat tadi jika berhasil akan muncul tampilan seperti
berikut
Doble Klik pada button ubah
Masukkan pada button ubah code seperti berikut
Private Sub
btnUbahbuku_Click(sender As Object, e As EventArgs) Handles
btnUbahbuku.Click
Dim judul As String = txtJudulDet.Text
Dim idkat As Integer = cbKatDet.SelectedValue
Dim isbn As String = txtisbnDet.Text
Dim penerbit As String = txtPenerbitDet.Text
Dim penulis As String = txtPenulisDet.Text
UbahBuku(id_buku, idkat, judul, isbn,
penerbit, penulis)
FormBuku.Show()
End Sub
Jika sudah selanjutnya running aplikasi coba button ubah
yang sudah di sudah dibuat tadi
Tambah kan button
Ganti text button menjadi tambah
Doble Klik pada button tambah
Masukkan pada button tambah code seperti berikut
Private Sub
btnTambahBuku_Click(sender As Object, e As EventArgs) Handles btnTambahBuku.Click
FormTambahBuku.Show()
Me.Close()
TampilBuku()
End Sub
Jika sudah selanjutnya running aplikasi coba button tambah jika
berhasil akan muncul tampilan seperti berikut
MySqlDataAdapter, MySqlDataAdapter Merupakan
seperangkat perintah data dan koneksi database yang digunakan untuk mengisi
DataSet / DataTable dan memperbarui database MySQL.
Data Table
DataTable merupakan sebuah type data yang disediakan dari
System.Data yang fungsinya untuk membuat tabel secara abstrak / tidak keliatan.
lebih gampangnya DataTable itu merupakan type data untuk membuat table.
TampilBuku adalah sebuah function, karena nilai yang
dikembalikannya kita perlukan untuk proses menampilkan data dalam bentuk tabel.
Pada module proses.vb kita deklarasikan
function TampilBuku ini, tanpa parameter dan memiliki tipe data DataTable.
Kemudian di
dalamnya kita deklarasikan variabel-variabel yang kita perlukan, seperti query dan variabel DataTable itu
sendiri.
Query yang
kita gunakan adalah menjoinkan tabel buku dan kategori, kemudian menjadikan
atribut yang tampil sesuai dengan yang diinginkan.
Masih
berdasarkan DFD, query tersebut kemudian dikirimkan ke database dan dari
database akan didapatkan hasil dari query. Untuk query SELECT kita gunakan
function getResult dari module
koneksi yang manfaatnya mengambil data dari database berdasarkan query yang
dikirimkan. Kemudian hasilnya disimpan sebagai dt. Nilai dt inilah
nilai kembali pada function TampilBuku.
Begitu admin
dan pegawai berhasil login, mereka akan langsung diarahkan ke FormBeranda. Pada
halaman ini tabel buku pun akan ditampilkan melalui DataGridView, yang pada
modul sebelumnya kita beri nama DG.
Oleh karena itu code untuk menampilkan data buku ini kita bangun pada FormBuku_Load. Klik FormBuku dua kali untuk membangkitkan
method ini.
Berikut halaman Beranda ketika
aplikasi dijalankan.
Masukkan Codingan seperti dibawah
ini
Public Class FormDetilKategori
Private Sub FormDetilKategori_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'query join
Dim query As String = "Select
* from kategori where id_kategori=" &
id_kategori
Dim dt As New DataTable
dt = GetResult(query)
txtKatDet.Text = dt.Rows(0).Item("kategori").ToString
End Sub
Jika berhasil akan muncul
tampilan sperti berikut
