UAS Mata kuliah Lab Pemrograman Bisnis 2

Penjelasan Program Aplikasi

Aplikasi ini bertujuan untuk membantu transaksi jual beli sebuah perusahaan. Pada aplikasi ini , digunakan untuk transaksi jual beli di Toko Growtooth Computer yang menjual serba devices yang berhubungan dengan komputer. Anda dapat menambah,melihat,menghapus data barang yang ada di gudang(stok) dan membuat pencatatan transaksi penjualan dengan menyertakan report barang dan penjualan.

ScreenShot

Langkah 1 : Isi kolom atau textbox yang ada pada form Database GT untuk nemambah data barang kedalam database, klik button Find untuk mencari data dengan memasukkan kode barang.

Untuk menhapus data yang ada di database, klik button Delete, maka data yaang muncul di interface form akan otomatis terhapus. 

Jangan lupa klik button Update agar data yg sudah dihapus disimpan dengan benar.

Langkah 2 :  Klik tombol/button 'Penjualan' untuk melanjutkan aktivitas ke transaksi penjualan atau Form Penjualan.

Pada form ini klik tombol/button Beli lalu masukkan Nomer Transaksi pada InputBox yang akan muncul secara otomatis :

Stelah No.Transaksi di isi, klik OK maka data penjualan yang dipilih akan keluar pada Form Penjualan.

Untuk mengecek Total Harga, klik tombol/button Cek Harga dengan perhitungan Quantity dilaikan dengan harga.

Langkah 3: Pembuatan Report

Pada Form Report terdapat dua pilihan apakah anda mau melihat report untuk data Barang ataupun ingin melihat report Penjualan. Klik salah satu Button untuk melihat/mendapatkan report yang diinginkan. 

Tampilan Format Report Data Barang :

Tampilan Format Data Penjualan :

Source Coding :

Form Database GT

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\akhyarhrc\Documents\Visual Studio 2013\Projects\UASvb2\UASvb2\DBuas.accdb"

    Dim objKoneksi As New OleDb.OleDbConnection(koneksi)

    Private xReader As OleDbDataReader

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

        Dim X As String = InputBox("Masukkan Kode Barang nya")

        objKoneksi.Close()

        objKoneksi.Open()

        Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TabelBarang where KodeBarang='" + X + "'", objKoneksi)

        xReader = ocmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            TextBox1.Text = xReader("KodeBarang")

            TextBox2.Text = xReader("NamaBarang")

            TextBox3.Text = xReader("Harga")

            TextBox4.Text = xReader("Stok")

        Else

            TextBox1.Text = "Kode Barang Tidak Ada"

            Exit Sub

        End If

        xReader.Close()

        objKoneksi.Close()

    End Sub

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

    End Sub

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

        objKoneksi.Close()

        objKoneksi.Open()

        Dim tambah As String = "INSERT INTO TabelBarang values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"

        Dim ocmd = New OleDbCommand(tambah, objKoneksi)

        ocmd.ExecuteNonQuery()

        objKoneksi.Close()

        MsgBox("success")

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox1.Focus()

    End Sub

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

        objKoneksi.Close()

        objKoneksi.Open()

        Dim Upd1 As String = "Update TabelBarang set NamaBarang = '" & TextBox2.Text & "', Harga = " & TextBox3.Text & ", Stok = '" & TextBox4.Text & "'  where KodeBarang='" & TextBox1.Text & "'"

        Dim ocmd = New OleDbCommand(Upd1, objKoneksi)

        ocmd.ExecuteNonQuery()

        objKoneksi.Close()

        MsgBox("success")

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        objKoneksi.Close()

        objKoneksi.Open()

        Dim Del1 As String = "Delete from TabelBarang where KodeBarang= '" & TextBox1.Text & "'"

        Dim ocmd = New OleDbCommand(Del1, objKoneksi)

        ocmd.ExecuteNonQuery()

        objKoneksi.Close()

        MsgBox("success")

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Penjualan.Show()

    End Sub

End Class

Form Penjualan :

Imports System.Data

Imports System.Data.OleDb

Public Class Penjualan

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\akhyarhrc\Documents\Visual Studio 2013\Projects\UASvb2\UASvb2\DBuas.accdb"

    Dim objKoneksi As New OleDb.OleDbConnection(koneksi)

    Private xReader As OleDbDataReader

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

        On Error Resume Next

        Dim x As String = InputBox("Masukkan No Transaksi")

        objkoneksi.Close()

        objkoneksi.Open()

        Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TabelPenjualan where NoTransaksi ='" + x + "'", objkoneksi)

        xReader = ocmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            TextBox1.Text = xReader("NoTransaksi")

            TextBox2.Text = xReader("KodeBarang")

            TextBox3.Text = xReader("NamaBarang")

            TextBox4.Text = xReader("Harga")

            TextBox5.Text = xReader("Qty")

        Else

            MsgBox("No Transaksi tidak ada", MsgBoxStyle.Critical, "Peringatan !")

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

            TextBox5.Text = ""

            TextBox1.Focus()

            Exit Sub

        End If

        xReader.Close()

        objkoneksi.Close()

    End Sub

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

        Dim hitung As Single

        hitung = TextBox4.Text * TextBox5.Text

        TextBox6.Text = Format(hitung, "##.##")

    End Sub

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

        FormReport.Show()

    End Sub

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

    End Sub

End Class

Form Report :

Public Class FormReport

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

        Form4.ShowDialog()

    End Sub

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

        Form5.ShowDialog()

    End Sub

End Class