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