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