UAS Pemrograman Bisnis 2

hallo kali ini saya akan menjelaskan tentang program aplikasi yang saya buat untuk memenuhi tugas UAS Pemograman Bisinis 2 selain itu saya membuat program ini untuk memudahkan tante saya dalam bisnis butiknya. Mari langsung kita bahas :D

1. untuk menjalankan aplikasi ini user harus login terlebih dahulu
2. lalu akan tampil Menu Utama dimana terdapat 3 pilihan yaitu; Penjualan, Member dan Supplier. Pilihan Penjualan digunakan untuk mencatat transaksi penjualan yang terjadi. Pilihan Member digunakan untuk melihat daftar member ayau menambahkan member baru. Pilihan Supplier digunakan untuk memcatat pemasukan barang dari supplier
3. Penjualan: setelah mengklik button penjualan maka akan tampil seperti berikut
   
   
   Lalu isikan semua data dengan lengkap. Jika pembeli adalah member maka user dapat menggunakan button Find ID dengan memasukan ID member lalu mengKlik OK
   
   
   jika sudah maka form akan menampilkan ID pelanggan dan Nama pelanggan
   
   lalu isikan semua data secara lengkap
   
   *untuk menghitung total, user daoat menggunakan button Count.
   Setelah semua data terisi dengan lengkap, Klik Add untuk memasukan data kedalam database
   
   Selesaaaii, barang telah terjual :D
   jika ingin menambahkan penjualan, user dapat mengklik New
   
4. Member
   
   
   Untuk menambahkan member user hanya perlu mengisi data dengan lengkap dan mengklik button Add Member
   
5. Supplier
   
   Sama seperti member, jika ada barang masuk maka user hanya perlu mengisi data secara lengkap lalu mengKlik Add
   
   
   

Source Code

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

Satu Semester

Satu Semester

Perjalan di semester dua ini sangat menyenangkan, banyak suka maupun dukanya. di semester ini mata kuliah gua ada 8, dimulai dari Lab. Pemrograman Bisnis, Matematika Diskrit, Pengantar Akuntansi 2, Pengantar Bisnins, Statistik, Konsep Pemrograman, Perpajakan, Lab Pengantar Akuntanasi 2 dan MTI.
Sukanya di semster ini tuh banyak mata kuilah yang itung itungan, dosennya baik baik dan asik asik juga menyenangkan. dukanya jadwal ga enak banget -_-.
awal semester masih semangat banget buat belajar sampe uts, tapi setelah uts keadaan berubah menyeramkan karena banyaknya hafalan dan juga matkul yang makin rumit tapi semoga aja lulus semua matkul dengan nilai yang memuaskan. Amin