UTS PB2

Penjelasan Project Aplikasi

Aplikasi ini menghubungkan input ke database yang ada di acces. Aplikasi ini bermanfaat untuk

1. menginput jika ada penambahan persediaan buku
2. melihat database buku

Perusahaan yang bergerak dibidang jual-beli buku sangat cocok menggunakan aplikasi ini.

ScreenShoot

 Form1

TextBox1 (No Kode)
TextBox4 (tanggal)
ComboBox1 (jenis Cover)
TextBox2 (stok)
TextBox3 (Harga Satuan)
Button1 (Add)
Button2 (preview)
Button3 (Exit)

Form2

Button1 (Delete)
Button2 (Save)

SourceCode

Form1

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class Form1
    Dim koneksi As Object = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Dany-PC\Documents\Database3.accdb"
    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        objkoneksi.Open()

        Dim tambah As String = "INSERT INTO DbBuku values('" & TextBox1.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
        Dim oCmd = New OleDbCommand(tambah, objkoneksi)
        oCmd.ExecuteNonQuery()
        MsgBox("Success")
        objkoneksi.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

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

    End Sub
End Class

Form2

Public Class Form2

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database3DataSet2.DbBuku' table. You can move, or remove it, as needed.
        Me.DbBukuTableAdapter.Fill(Me.Database3DataSet2.DbBuku)

    End Sub

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

        DbBukuBindingSource.RemoveCurrent()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        On Error GoTo SaveErr
        DbBukuBindingSource.EndEdit()
        DbBukuTableAdapter.Update(Database3DataSet2.DbBuku)
        MessageBox.Show("OK Boss")
SaveErr:
        Exit Sub
    End Sub
End Class