Aplikasi Sederhana Dengan VB

Program Aplikasi

Kita menggunakan aplikasi VB untuk membuat aplikasi sederhana, contohnya adalah membuat aplikasi stok buku yang bisa digunakan pada semua Toko Buku. Hal yang kita buat sebelumnya adalah data awal stock buku yang tersedia di Microsoft Access dalam bentuk tabel. Data yang diperlukan adalah :

1. Nomor Seri
2. Nama Buku
3. Penulis
4. Penerbit
5. Harga
6. Stock

Screen Shoot

Penampilan Awal Aplikasi

Aplikasi Setelah Diisi Data

Penampilan Database

Penampilan Report

Source Coding

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Windows 8.1\Documents\UAS VB2\Database Toko Buku.accdb"

    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

    Dim xReader As OleDbDataReader

    Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click

        objkoneksi.Close()
        objkoneksi.Open()
        Dim tambah As String = "INSERT INTO TabelBuku values('" & TxtNoSeri.Text & "' , '" & TxtNamaBuku.Text & "' , '" & TxtPenulis.Text & "' , '" & TxtPenerbit.Text & "' , '" & TxtHarga.Text & "' , '" & CmbStock.Text & "')"
        Dim oCmd = New OleDbCommand(tambah, objkoneksi)

        oCmd.ExecuteNonQuery()

        objkoneksi.Close()
        MsgBox("Sukses")

    End Sub

    Private Sub BtnFind_Click(sender As Object, e As EventArgs) Handles BtnFind.Click

        Dim nomor As String = InputBox("Masukkan Nomor Serinya")

        If Not Len(nomor) = 0 Then

            objkoneksi.Close()

            objkoneksi.Open()

        End If

        Dim cari As String = "SELECT * FROM TabelBuku where NoSeri ='" + nomor + "'"

        Dim ocmd = New OleDbCommand(cari, objkoneksi)

        xReader = ocmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            TxtNoSeri.Text = xReader("NoSeri")

            TxtNamaBuku.Text = xReader("NamaBuku")

            TxtPenulis.Text = xReader("Penulis")

            TxtPenerbit.Text = xReader("Penerbit")

            TxtHarga.Text = xReader("Harga")

            CmbStock.Text = xReader("Stock")

        Else

            MsgBox("Buku Tidak Tersedia")

            Exit Sub

        End If

        xReader.Close()

    End Sub

    Private Sub BtnBrowser_Click(sender As Object, e As EventArgs) Handles BtnBrowser.Click

        Form2.Show()

    End Sub

    Private Sub BtnDelete_Click(sender As Object, e As EventArgs) Handles BtnDelete.Click

        Dim hapus As String = "Delete From [TabelBuku] where [NoSeri]='" & TxtNoSeri.Text & "'"

        Dim oCMD = New OleDbCommand(hapus, objkoneksi)

        oCMD.ExecuteNonQuery()

        objkoneksi.Close()

        MsgBox("Berhasil")

    End Sub

    Private Sub BtnPrint_Click(sender As Object, e As EventArgs) Handles BtnPrint.Click

        Form3.Show()

    End Sub

    Private Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click

        objkoneksi.Close()

        objkoneksi.Open()

        Dim ubah As String = "update TabelBuku set Stock='" & CmbStock.Text & "' where [NamaBuku]= '" & TxtNamaBuku.Text & " ' "

        Dim oCmd = New OleDbCommand(ubah, objkoneksi)

        oCmd.ExecuteNonQuery()

        objkoneksi.Close()

        MsgBox("Berhasil")

    End Sub

    Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click

        Dim a As String

        a = MsgBox("Akan Keluar ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If a = vbYes Then

            Me.Close()

        End If

    End Sub

End Class