1. Masukan ID Customer ada beserta data diri anda, kemudian pilih lah jenis baju yang ingin anda beli dan tentukan banyaknya baju yang ingin anda pesan. Setelah itu pilih button "Calculate" untuk mengetahui total harga yang harus anda bayar, jika sudah yakin ingin melakukan pembelian pilih button "Shop", data anda secara otomatis akan tersimpan di dalam database penjualan. Namun jika anda ingin melakukan pembelian lagi pilih button "Clear" terlebih dahulu untuk mengosongkan form pemesanan kemudian anda bisa melakukan pembelian lagi.
2. Apabila anda ingin memeriksa apakah data anda sudah tersimpan atau belum silahlan pilih "menu" kemudian pilih "find data", masukan ID Customer anda sesuai ID yang anda masukan pada saat melakukan pembelian. Jika sudah maka secara otomatis akan terisi data pembelian anda di dalam form tersebut. Namun jika anda ingin menghapus data anda, silahlan pilih "menu" kemudian pilih "delete data", data anda secara otomatis akan terhapus dari data base kami.
3. Dalam melakukan pencaria data ID Customer yang anda masukan harus sesuai dengan sebelumnya, jika tidak maka data anda tidak tapat ditemukan dan akan muncul message box seperti dibawah ini
4. Di dalam aplikasi ini juga dapat ditampilkan data barang dan data penjualan. Caranya dengan pilih "Report" lalu pilih jenis data apa yang ingin anda lihat.
Database :
Source Code:
TextBox 1 = ID Customer
TextBox 6 = Nama pembeli
TextBox 2 = No. Rek pembeli
TextBox 4 = Alamat rumah pembeli
TextBox 9 = Total Price
TextBox 7 = Jenis baju yang dipilih
TextBox 3 = Harga satuan baju
TextBox 5 = Banyaknya baju yang ingin dibeli
ComboBox 2 = Daftar baju
PictureBox 1 = Tampilan baju yang dipilih
FindDataToolStripMenuItem = Mencari data yang sudah tersimpan didalam data base
DeleteDataToolStripMenuItem = Menghapus data yang terdapat didalam data base
DataBarangToolStripMenuItem = Memunculkan data barang yang ada di data base
DataPenjualanToolStripMenuItem = Memunculkan data penjualan yang ada di data base
Button 1 = Menjumlah total keseluruhan harga
Button 2 = Menyimpan data
Button 3 = Menghapus data yang ada dalam form pemesanan
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
Dim a As String
Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LARAS\TSI'14\VB2\UAS\DatabaseUAS1.accdb"
Dim objkoneksi As New OleDb.OleDbConnection(koneksi)
Private xReader As OleDbDataReader
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox9.Text = TextBox3.Text * TextBox5.Text
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
objkoneksi.Close()
objkoneksi.Open()
Dim tambah As String = "INSERT INTO TabelPenjualan values('" & TextBox1.Text & "','" & TextBox6.Text & "','" & TextBox2.Text & "','" & TextBox4.Text & "','" & ComboBox2.Text & "','" & TextBox7.Text & "','" & TextBox5.Text & "')"
Dim ocmd = New OleDbCommand(tambah, objkoneksi)
ocmd.ExecuteNonQuery()
MsgBox("Terimakasih atas pembelian anda, data pembelian anda secara otomatis akan masuk ke dalam database kami :)", MsgBoxStyle.Information, "Info")
objkoneksi.Close()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim a As String
a = ComboBox2.Text
If a = "-- None --" Then
TextBox3.Text = 0
TextBox5.Text = ""
TextBox7.Text = ""
PictureBox1.Image = Nothing
ElseIf a = "Sawyer" Then
TextBox3.Text = 299000
TextBox7.Text = "Outwear"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Sawyer.jpg")
ElseIf a = "Jordyn" Then
TextBox3.Text = 369000
TextBox7.Text = "Outwear"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Jordyn.jpg")
ElseIf a = "Black Talisa" Then
TextBox3.Text = 329000
TextBox7.Text = "Outwear"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\BlackTalisa.jpg")
ElseIf a = "Arianna" Then
TextBox3.Text = 379000
TextBox7.Text = "Outwear"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Arianna.jpg")
ElseIf a = "Dusty Pink Charlie" Then
TextBox3.Text = 329000
TextBox7.Text = "Outwear"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\DustypinkCharlie.jpg")
ElseIf a = "Navy London Parka" Then
TextBox3.Text = 379000
TextBox7.Text = "Outwear"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Navy London Parka.jpg")
ElseIf a = "Jackson" Then
TextBox3.Text = 349000
TextBox7.Text = "Outwear"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Jackson.jpg")
ElseIf a = "Savannah" Then
TextBox3.Text = 329000
TextBox7.Text = "Dress"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Savannah.jpg")
ElseIf a = "Grey Cherie" Then
TextBox3.Text = 299000
TextBox7.Text = "Dress"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Grey Cherie.jpg")
ElseIf a = "Natalia" Then
TextBox3.Text = 329000
TextBox7.Text = "Dress"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Natalia.jpg")
ElseIf a = "Off White Rumi" Then
TextBox3.Text = 299000
TextBox7.Text = "Dress"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Offwhite Rumi.jpg")
ElseIf a = "Denim Rumi" Then
TextBox3.Text = 329000
TextBox7.Text = "Dress"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Denim Rumi.jpg")
ElseIf a = "Black Mesha" Then
TextBox3.Text = 299000
TextBox7.Text = "Dress"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Black Mesha.jpg")
ElseIf a = "Striped Mesha" Then
TextBox3.Text = 299000
TextBox7.Text = "Dress"
PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Striped Mesha.jpg")
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
TextBox6.Text = ""
TextBox9.Text = "0"
ComboBox2.Text = "-- None --"
End Sub
Private Sub DaraBarangToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DaraBarangToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub DataPenjualanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataPenjualanToolStripMenuItem.Click
Form3.Show()
End Sub
Private Sub FindDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FindDataToolStripMenuItem.Click
Dim x As String = InputBox("Masukan ID Customer")
objkoneksi.Close()
objkoneksi.Open()
Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TabelPenjualan where IDCustomer='" + x + "'", objkoneksi)
xReader = ocmd.ExecuteReader
If xReader.HasRows Then
xReader.Read()
TextBox1.Text = xReader("IDCustomer")
TextBox6.Text = xReader("NamaPembeli")
TextBox2.Text = xReader("NoRek")
TextBox4.Text = xReader("Alamat")
ComboBox2.Text = xReader("NamaBarang")
TextBox7.Text = xReader("Jenis")
TextBox5.Text = xReader("Qty")
Else
MsgBox("ID Customer Tidak Ada", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Error")
Exit Sub
End If
xReader.Close()
objkoneksi.Close()
End Sub
Private Sub DeleteDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteDataToolStripMenuItem.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 Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
MsgBox("Thank you for Shopping with us :)")
Close()
End Sub
End Class
Tidak ada komentar:
Posting Komentar