Aplikasi Perpustakaan Sederhana (UAS Lab Pemrograman Bisnis 2)

Aplikasi ini bertujuan untuk mempermudah orang-orang pada zaman sekarang. Baik ini user maupun admin itu sendiri. Berikut adalah penjelasan aplikasinya.

Penjelasan terkait aplikasi ini :

Silahkan pilih anda ingin masuk sebagai apa

Jika anda masuk sebagai mahasiswa, maka akan muncul form untuk melakukan pencarian buku.
Ketikkan judul buku yang ingin anda cari, maka jika buku tersebut ada. Maka akan muncul buku yang anda inginkan, atau yang judul yang sejenis.

Namun, jika anda masuk sebagai Petugas. Maka akan muncul form login khusus untuk Admin.

Jika anda telah masuk sebagai Admin, maka form utama untuk admin akan muncul.

Admin diberikan Hak untuk mengubah ataupun menghapus database yang ada.

Source Code :

Imports System.Data
Imports System.Data.OleDb

Public Class FormData
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Kuliah\Konsep Pemrograman Bisnis 2\UAS\UAS\DBPerpustakaan.accdb"
    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
    Dim xReader As OleDbDataReader

    Private Sub FormData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        


    End Sub

    Private Sub btnTambah_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        objekkoneksi.Close()
        objekkoneksi.Open()
        Dim tambahbuku As String = "INSERT INTO Table_Buku VALUES('" & txtKode.Text & "' , '" & txtJudul.Text & "' , '" & txtPenulis.Text & "' , '" & txtPenerbit.Text & "')"

        Dim oCmd = New OleDbCommand(tambahbuku, objekkoneksi)

        oCmd.ExecuteNonQuery()

        objekkoneksi.Close()
        MsgBox("Sukses")

    End Sub

    Private Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click
        Dim sql As String = " UPDATE Table_Buku set Judul_Buku  ='" & txtJudul.Text & "', Penulis = '" & txtPenulis.Text & "', Penerbit = '" & txtPenerbit.Text & "' where Kode_Buku = '" & txtKode.Text & "'"

        Dim oCmd As New OleDbCommand
        objekkoneksi.Close()
        objekkoneksi.Open()
        oCmd.Connection = objekkoneksi
        oCmd.CommandText = Sql
        
        oCmd.ExecuteNonQuery()
    End Sub

    Private Sub btnFind_Click(sender As Object, e As EventArgs) Handles btnFind.Click
        Dim VKode = InputBox("Masukkan Kode Buku")

        objekkoneksi.Close()
        objekkoneksi.Open()
        Dim Cmd As New OleDbCommand("SELECT * FROM Table_Buku where Kode_Buku ='" + VKode + "'", objekkoneksi)
        xReader = Cmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            txtKode.Text = xReader("Kode_Buku")
            txtJudul.Text = xReader("Judul_Buku")
            txtPenulis.Text = xReader("Penulis")
            txtPenerbit.Text = xReader("Penerbit")

        Else
            MsgBox("Kode Buku Tidak Ada")
            txtKode.Text = ""
            txtJudul.Text = ""
            txtPenulis.Text = ""
            txtPenerbit.Text = ""
            txtKode.Focus()
            Exit Sub
        End If
        xReader.Close()
    End Sub

    Private Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click
        FormTableBuku.Show()
    End Sub

    Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
        FormPrint.Show()
    End Sub

    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

        Dim hapus = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Hapus")

        If hapus = vbYes Then
            objekkoneksi.Close()
            objekkoneksi.Open()
            Dim delet As String = "DELETE FROM Table_Buku where Kode_Buku='" + txtKode.Text + "'"
            Dim oCmd As New OleDbCommand
            objekkoneksi.Close()
            objekkoneksi.Open()
            oCmd.Connection = objekkoneksi
            oCmd.CommandText = delet
            oCmd.ExecuteNonQuery()
            MsgBox("Sudah terhapus", vbArchive)

            txtKode.Text = ""
            txtJudul.Text = ""
            txtPenulis.Text = ""
            txtPenerbit.Text = ""
            txtKode.Focus()
        End If
    End Sub

    Private Sub txtKode_LostFocus(sender As Object, e As EventArgs) Handles txtKode.LostFocus
        objekkoneksi.Close()
        objekkoneksi.Open()
        Dim Cmd As New OleDbCommand("SELECT * FROM Table_Buku where Kode_Buku ='" + txtKode.Text + "'", objekkoneksi)

        xReader = Cmd.ExecuteReader
        If xReader.HasRows Then
            Dim MKode = MsgBox("Kode Sudah Ada!", vbCritical, "Perhatian")
        End If

    End Sub

    Private Sub txtKode_TextChanged(sender As Object, e As EventArgs) Handles txtKode.TextChanged

    End Sub
End Class

Categories: Program