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

 

UTS/Tugas I Mata kuliah Pemrograman Bisnis 2

Aplikasi Pemesanan dan Penyimpanan Data Software/Game

Penjelasan Program Aplikasi

Pada aplikasi ini, kita dapat menghubungkan project aplikasi untuk input,add atau delete data yang ada di database ke microsoft access. Aplikasi ini dapat digunakan untuk :

1.    Menginput data pembelian yang dilakukan oleh pelangga
2.   Melihat dan meng-update data stok perusahaan  
3.  Melihat preview hasil/total pembelian

       Software atau project aplikasi ini dapat membantu memudahkan pekerja/employee untuk mengatur data pembelian dan stok yang ada di perusahaan serta menginput data pembelian barang(dvd) yang dipesan/dibeli oleh para pelanggan.

a    

     ScreenShoot Aplikasi

• Design Form1 untuk pilihan menu Pembelian atau Stok barang

ToolBox yang digunakan :

Form1:

Button1  =  Pembelian

Button2  =  Stok

Form2 :

Label1 = ID Pembeli

Label2 = Nama Software/Game

Label3 = Genre

Label4 = Tahun Release

Label5 = Total Pembelian(DVD)

ComboBox1 = Merk DVD

Combobox2 = Design DVD

Button1 = Pesan

Button2 = Prewiew Pembelian

Button3 = Exit

Form3 :

DataGridView

Button1 = Delete Data

Button2 = Save Data

Button3 = Exit

Form4 =

TableDataGridView

Cara Menggunakan Projek Aplikasi Ini :

1.     .   Pilih salah satu button untuk ke form Pembelian atau Stok Barang

*apabila anda sedang menginput data pelanggan pilih button Form Pembelian

*untuk melihat stok barang perusahan, pilih button Stok

2    2.     Isi Form Pembelian dengan menginputkan seluruh data yang diperlukan. Setelah itu, klik button           Pesan untuk menyimpan data ke database perusahaan.

3.      3. Untuk melihat Preview database, klik button Preview Pembelian untuk ke Form3.

4.      4. Pada Form3 atau form Database Pembelian, ada dua pilihan button. Button Delete untuk menghapus salah satu data jika ada transaksi pembelian yang dibatalkan. Button Save data dapat menyimpan data yang telah di edit. Button Exit untuk keluar dari aplikasi ini(Form 1,Form 2)

5.     5.  Ketika Button Stok diklik, maka langsung terhubung ke Form4 untuk melihat stok barang yang ada di perusahaan. Button Exit untuk langsung keluar dari projek aplikasi.

Source Code

Form1

Public Class Form1

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

        Form2.Show()

    End Sub

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

        Form4.Show()

    End Sub

Form2 :

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form2

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DBSoftware.accdb"

    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

    Private Sub Form2_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.Open()

        Dim tambah As String = "INSERT INTO TablePemesanan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & TextBox5.Text & "','" & ComboBox2.Text & "','" & TextBox6.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

        Form3.Show()

    End Sub

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

        Me.Close()

    End Sub

End Class

Form 3 :

Public Class Form3

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

        On Error GoTo SaveErr

        TablePemesananBindingSource.EndEdit()

        TablePemesananTableAdapter.Update(DBSoftwareDataSet1)

        MessageBox.Show("wess iso")

SaveErr:

    End Sub

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

        TablePemesananBindingSource.RemoveCurrent()

    End Sub

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

        Me.Close()

        Form2.Close()

        Form1.Close()

    End Sub

End Class

Form4 :

Public Class Form4

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

        'TODO: This line of code loads data into the 'DBStokDataSet.TableStok' table. You can move, or remove it, as needed.

        Me.TableStokTableAdapter.Fill(Me.DBStokDataSet.TableStok)

    End Sub

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

        Me.Close()

        Form1.Close()

    End Sub

End Class