UTS PEMROGRAMAN BISNIS 2

Berikut ini saya akan membuat aplikasi untuk pembelian kacamata. Dalam pembuatan aplikasi ini saya menggunakan Visual Studio 2013. Dibawah ini adalah langkah-langkah menggunakan aplikasinya :

1. Langkah pertama isi form pemesanan dengan lengkap sesuai dan pilih jenis serta warna kacamata yang anda inginkan.
2.  Pilih lah button Total untuk mengetahui jumlah harga yang harus anda bayar
3. Setelah mengetahui total keseluruhan biaya, lalu pilih lah button Purchase untuk melakukan pembelian dan penyimpanan data anda, setelah itu akan muncul message box yang menerangkan bahwa pembelian dan proses penyimpanan anda telah berhasil

4. Jika anda ingin memeriksa data anda apakah sudah tersimpan atau belum, silahkan pilih button check. Setelah itu akan muncul form data pemesanan.

Source Code :

Textbox 1 : Nama Pemesan
Textbox 2 : No.Rekening pemesan
Textbox 3 : Alamat pengiriman
Textbox 4 : Harga satuan kacamata
Textbox 5 : Jumlah pemesanan
Textbox 6 : Total harga keseluruhan

Checkbox 1 : Jenis-jenis kacamata
Checkbox 2 : Pilihan warna kacamata

Button 1 : Total harga
Button 2 : Purchase
Button 3 : Check (pengecekan data)

Picturebox 1 : Foto jenis kacamata
Picturebox 2 : Foto warna kacamata

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.ACE.OLEDB.12.0;Data Source=D:\LARAS\TSI'14\VB2\UTS\UTS\UTS\Database1.accdb"
    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox6.Text = TextBox4.Text * TextBox5.Text
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim a As String

        a = ComboBox1.Text

        If a = "New York" Then
            TextBox4.Text = 2500000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\NEW YORK (Black)2.jpg")
        ElseIf a = "Paris" Then
            TextBox4.Text = 2000000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Paris (Black).jpg")
        ElseIf a = "Seoul" Then
            TextBox4.Text = 1500000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Seoul (Black).jpg")
        ElseIf a = "Shanghai" Then
            TextBox4.Text = 1000000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Shanghai (Black).jpg")
        End If
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim b As String

        b = ComboBox2.Text

        If b = "Black" Then
            PictureBox2.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\NEW YORK (Black).jpg")
        ElseIf b = "White" Then
            PictureBox2.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Paris (White).jpg")
        ElseIf b = "Transparent" Then
            PictureBox2.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Seoul (transparent).jpg")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        objkoneksi.Open()
        Dim tambah As String = "INSERT INTO TablePemesanan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox4.Text & "' , '" & TextBox6.Text & "' , '" & TextBox5.Text & "' , '" & TextBox3.Text & "')"
        Dim ocmd = New OleDbCommand(tambah, objkoneksi)
        ocmd.ExecuteNonQuery()
        MsgBox("Sukses")
        objkoneksi.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form2.show()
    End Sub

    Private Sub TableDaftarBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TableDaftarBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs)
        'TODO: This line of code loads data into the 'Database1DataSet.TableDaftar' table. You can move, or remove it, as needed.
        Me.TableDaftarTableAdapter.Fill(Me.Database1DataSet.TableDaftar)

    End Sub

    Private Sub TableDaftarBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TableDaftarBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    End Sub

    Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet.TableDaftar' table. You can move, or remove it, as needed.
        Me.TableDaftarTableAdapter.Fill(Me.Database1DataSet.TableDaftar)

    End Sub

End Class