Aplikasi Daftar Data Buku dengan Ms. Studio 2010 Java

Aplikasi Daftar Data Buku dengan Ms. Studio 2010 Java

Aplikasi Daftar Data Buku ini dibuat menggunakan Microsoft Studio menggunakan bahasa Java yang dimaksudkan untuk melihat daftar buku berbasis web yang terkoneksi dengan database (Ms. Access). Yang meliputi nama, penerbit, tahun, genre, diskon, harga dan lainnya. Dan aplikasi ini dilengkapi dengan button Cari (mencari ID data), Hapus (menghapus data yang terdapat dalam database),  Simpan (menyimpan data yang telah diinput), Rubah (untuk merubah genre), Batal (untuk membatalkan, menghapus dalam textbox/textfield) dan View (menampilkan data).

Komponen yang dibutuhkan :

•       TextBox
•        Label
•        Button

Rumus dalam Button Hitung

• ·         Jumlah  =  (TextHarga2.Text * TextDiskon.Text / 100)
• ·         TextTotal.Text = (TextHarga2.Text - Jumlah)

Tampilan di Microsoft Visual Studio

Tampilan menginput data

Tampilan jika Button Simpan ditekan

Tampilan Button View setelah diinput

Tampilan untuk mencari ID data buku

Dan jika berhasil tampilan akan seperti itu

Sebelum merubah "Genre" dengan Button Rubah

Contoh Genrenya di Rubah

Setelah di Rubah pada tampilan View

Tampilan Button Hapus

Dan tampilan buku setelah dihapus

*note button batal difungsikan untuk mengkosongkan textbox/textfield

Sourcode

Imports System.Data

Imports System.Data.OleDb

Public Class WebBuku

    Inherits System.Web.UI.Page

    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Acer Aspire\Documents\DataBuku.accdb"

    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)

    Dim Xreader As OleDb.OleDbDataReader

=========================================

Button View

    Protected Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click

        Response.Redirect("WebView.aspx")

    End Sub

=========================================

Button Rubah

    Protected Sub btnRubah_Click(sender As Object, e As EventArgs) Handles btnRubah.Click

        objekKoneksi.Open()

        Dim Rubah As String = "UPDATE TableBuku set Genre='" + TextGenre.Text + "' where IDBuku='" + Trim(TextID.Text) + "'"

        Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Berhasil Dirubah")

    End Sub

=========================================

Button Simpan

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        objekKoneksi.Open()

        Dim tambah As String = "INSERT INTO TableBuku values('" & TextID.Text & "','" & TextGenre.Text & "','" & TextNamaBuku.Text & "','" & TextPengarang.Text & "','" & TextPenerbit.Text & "','" & TextTahun.Text & "','" & TextHarga2.Text & "','" & TextDiskon.Text & "','" & TextTotal.Text & "') "

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Berhasil Di Simpan")

    End Sub

=========================================

Button Hapus

    Protected Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

        Dim cmdHapus As New OleDb.OleDbCommand("DELETE * FROM TableBuku where IDBuku='" + TextID.Text + "'", objekKoneksi)

        cmdHapus.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses Di Hapus")

    End Sub

=========================================

Button Cari

    Protected Sub btnCari_Click(sender As Object, e As EventArgs) Handles btnCari.Click

        If Not Len(TextID.Text) = 0 Then

            objekKoneksi.Close()

            objekKoneksi.Open()

            Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TableBuku where IDBuku='" + TextID.Text + "'", objekKoneksi)

            Xreader = ocmd.ExecuteReader()

            If Xreader.HasRows Then

                Xreader.Read()

                TextID.Text = Xreader("IDBuku")

                TextGenre.Text = Xreader("Genre")

                TextNamaBuku.Text = Xreader("NamaBuku")

                TextPengarang.Text = Xreader("NamaPengarang")

                TextPenerbit.Text = Xreader("NamaPenerbit")

                TextTahun.Text = Xreader("TahunTerbit")

                TextHarga2.Text = Xreader("Harga")

                TextDiskon.Text = Xreader("Diskon")

                TextTotal.Text = Xreader("TotalHarga")

                btnHapus.Enabled = True

                btnRubah.Enabled = True

            Else

                TextID.Text = "ID Tidak Ditemukan"

                Exit Sub

            End If

            Xreader.Close()

        End If

    End Sub

=========================================

Button Batal

    Protected Sub btnBatal_Click(sender As Object, e As EventArgs) Handles btnBatal.Click

        TextID.Text = ""

        TextNamaBuku.Text = ""

        TextPengarang.Text = ""

        TextPenerbit.Text = ""

        TextTahun.Text = ""

        TextHarga2.Text = ""

        TextGenre.Text = ""

        TextDiskon.Text = ""

        TextTotal.Text = ""

    End Sub

=========================================

Button Hitung

    Protected Sub btnView0_Click(sender As Object, e As EventArgs) Handles btnHitung.Click

        Dim Awal, Diskon, Jumlah As Integer

        Awal = TextHarga2.Text

        Diskon = TextDiskon.Text

        Jumlah = (TextHarga2.Text * TextDiskon.Text / 100)

        TextTotal.Text = (TextHarga2.Text - Jumlah)

    End Sub

End Class