UAS SEM 3

Untuk tugas Ujian Akhir Semester 3 ini, saya membuat aplikasi tentang pemesanan coklat!
Berikut ini penjelasannya :

1. Masukkan kode barang, pilih coklat yang ingin dipesan dengan beberapa pilihan yang ada di ComboBox, kemudian pada textbox harga akan muncul harga sesuai dengan pilihan coklat yang dipesan. Isi qty sesuai yang diinginkan

2. Setelah mengisi data, klik OK kemudian akan muncul message box seperti gambar di atas

3. Data yang telah tertera juga dapat dihapus dengan meng-klik Clear, kemudian tampilannya akan seperti gambar ini

Dalam aplikasi ini, ditampilkan juga report untuk data barang dan data penjualan

 

 

 

 

 

 

 

 Database :

1. Tabel Barang

 

2. Tabel Penjualan

 

3. Query

 

Source Code :

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
    Dim a, b As String
    Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\NasyaSafina\Documents\Databasefix.mdb"
    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            objkoneksi.Open()
        Dim tambah As String = "INSERT INTO TabelBarang values('" & TextBox1.Text & "','" & harga.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "')"
        Dim ocmd = New OleDbCommand(tambah, objkoneksi)
        ocmd.ExecuteNonQuery()
        MsgBox("Terimakasih atas pemesanannya!")
        objkoneksi.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        ComboBox1.Text = "-- None --"
        harga.Text = ""
        TextBox3.Text = ""

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Silverqueen" Then
            harga.Text = "15000"
        ElseIf ComboBox1.Text = "Cadburry" Then
            harga.Text = "17000"
        ElseIf ComboBox1.Text = "Toblerone" Then
            harga.Text = "20000"
        ElseIf ComboBox1.Text = "Kitkat" Then
            harga.Text = "13000"
        ElseIf ComboBox1.Text = "Fererro Rocher" Then
            harga.Text = "25000"
        End If
    End Sub

    Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
        objkoneksi.Close()
        objkoneksi.Open()

        Dim dell1 As String = "delete from TabelPenjualan where IDCustomer='" & TextBox1.Text & "'"
        Dim oCmd = New OleDbCommand(dell1, objkoneksi)
        oCmd.ExecuteNonQuery()
        objkoneksi.Close()
        MsgBox("Sukses")
    End Sub

    Private Sub DataBarangToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataBarangToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub DataPenjualanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataPenjualanToolStripMenuItem.Click
        Form3.Show()
    End Sub
End Class