UTS Pemrograman Bisnis 2

Haaaaallllooooooooo,
kembali lagi bersama saya di blog yang keren ini wkwk.
kali ini saya akan menjelaskan project yang saya buat utuk UTS Pemrograman Bisnis 2.
nah jadi project saya ini tentang data penjualan Toko Musik One, dimana program ini dibuat menggunakan Visual Studio dengan bahasa pemograma VB.Net dan juga mengkoneksikan VB dengan Ms. Access.
Berikut tampilannya

*Note :
dalam tampilan ini saya menggunakan
1. Label = 8( Data penjualan, toko musik one, nama pembeli, kode barang, nama barang, harga barang, jumlah barang dan total)
2. Selanjutnya saya menggunakan Texbox 5 buah, yaitu
    a. textbox1 (txtNP)
    b. textbox2 (TxtNB)
    c. textbox3 (TxtHB)
    d. textbox4 (txtJB)
    e. textbox5 (TxtTotal)
3. 1 buah combobox = Combobox1
4. 1 buah Data gird
5. 4 Buah Button
    a. Button Daftar Harga (BtnDftr) = Fungsinya untuk menampilkan daftar harga pada Form 2 seperti berikut

    b. Button Hitung (BtnHitung) = Untuk menghitung total harga dari harga barang * jumlah barang
    c. Button Tambah (BtnTambah) = Untuk memasukan data pembelanjaan baru kedalam database
    d. Button Exit( btnExit) = Untuk keluar dari program

untuk menggunakannya program ini silahkan memasukan data pelanggan seperti berikut

lalu setelah mengisi data diatas(untuk total silahkan klik button Hitung) maka klik button Tambah untuk memasukan data penjualan kedalam database, setelah itu maka akan tampil seperti ini

lalu klik OK,

Data pembelanjaan yang tadi akan ditampilkan di DataGird seperti diata. Selamat Mencoba :D

Berikut ini adalah Source Code nya

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

Public Class Form1
    Dim Connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Users\Radactive\Documents\Punya ONE\DatabasePenjualan.accdb"
    Dim objcont As New OleDb.OleDbConnection(Connect)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DatabasePenjualanDataSet.DataPenjualan' table. You can move, or remove it, as needed.
        Me.DataPenjualanTableAdapter.Fill(Me.DatabasePenjualanDataSet.DataPenjualan)
        'TODO: This line of code loads data into the 'DatabasePenjualanDataSet.DaftarBarang' table. You can move, or remove it, as needed.
        Me.DaftarBarangTableAdapter.Fill(Me.DatabasePenjualanDataSet.DaftarBarang)
    End Sub

    Private Sub BtnDftr_Click(sender As Object, e As EventArgs) Handles BtnDftr.Click
        DaftarHarga.Show()
    End Sub

    Private Sub BtnHitung_Click(sender As Object, e As EventArgs) Handles BtnHitung.Click
        TxtTotal.Text = Val(TxtHB.Text) * Val(txtJB.Text)
    End Sub

    Private Sub BtnTambah_Click(sender As Object, e As EventArgs) Handles BtnTambah.Click
        objcont.Open()
        Dim tambah As String = "Insert into DataPenjualan values ('" & txtNP.Text & "','" & ComboBox1.Text & "','" & TxtNB.Text & "','" & TxtHB.Text & "','" & txtJB.Text & "', '" & TxtTotal.Text & "')"
        Dim ocmd = New OleDbCommand(tambah, objcont)
        ocmd.ExecuteNonQuery()
        MsgBox("Berhasil")
        objcont.Close()
    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class