APLIKASI SEDERHANA PEMESANAN PRODUK

Program ini adalah program sederhana untuk melakukan pemesanan, program ini membantu untuk menentukan besaran jumlah yang harus dibayarkan oleh konsumen dan memberikan perhitungan mengenai besaran ongkos pengiriman. Dan data yang sudah diinput bisa dilihat dengan mudah dengan memasukan kode yang diberikan pada saat pemesanan. Cara kerja program ini sangan sederhana, dimana konsumen melakukan pemesanan dan pihak operator melakukan penginputan data konsumen dan produk apa yang akan dibeli, lalu pihak operator atau penjual memberikan kode produk kepada konsumen.

KONSUMEN MELAKUKAN PEMESANAN

OPERATOR ATAU PENJUAL MELAKUKAN PENGINPUTAN DATA KONSUMEN DAN PRODUK APA YANG KAN DIBELI

APLIKASI MENGHITUNG BESAR TOTAL BIAYA YANG HARUS DIBAYARKAN ( BESARAN ONGKOS KIRIM SUDAH TERSETTING DIDALAM APLIKASI BESARANNYA SESUAI KOTA)

OPEATOR MEMBERIKAN KODE BARANG KEPADA KONSUMEN SEBAGAI REFERENSI PENGECEKAN PEMESANAN

SIMPAN

Dengan menggunakan Kode Produk bisa melihat order yang sudah tersimpan. Masukkan kode barang ke dalam kolom kode barang dan klik cari.

 

Seperti ini sourch code nya :

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial Public Class _Default
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\kuliah\UTS PAK AGUS SMSTR5\DBpemesanan.accdb"
    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
    Protected Sub save_Click(ByVal sender As Object, ByVal e As EventArgs) Handles save.Click
        objekkoneksi.Open()
        Dim sqlTambah = "Insert Into pemesanan values ('" & kdbarang.Text & "','" & nmbarang.Text & "','" & harga.Text & "','" & jmpesanan.Text & "','" & alamat.Text & "','" & kota.Text & "','" & tglpemesanan.Text & "','" & ongkir.Text & "','" & total.Text & "')"
        Dim ocmd = New OleDbCommand(sqlTambah, objekkoneksi)
        ocmd.ExecuteNonQuery()
        objekkoneksi.Close()
    End Sub
    Protected Sub cari_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cari.Click
        Dim caridata As String = "SELECT* From pemesanan where Kode_Barang='" & kdbarang.Text & "'"
        Try
            Dim conn As New OleDbConnection(koneksi)
            conn.Open()
            Dim cmdData As New OleDbCommand(caridata, conn)
            Dim reader As OleDbDataReader = cmdData.ExecuteReader
            reader.Read()

            If reader.HasRows Then
                nmbarang.Text = reader("Nama_Barang")
                harga.Text = reader("Harga")
                jmpesanan.Text = reader("Jumlah_Pesanan")
                alamat.Text = reader("Alamat_Pemesan")
                kota.Text = reader("Kota_Pemesan")
                tglpemesanan.Text = reader("Tanggal_Pemesanan")
                ongkir.Text = reader("Ongkos_kirim")
                total.Text = reader("Total_Pembayaran")
            Else
                MsgBox("Data Tidak Ditemukan...!", MsgBoxStyle.Exclamation, "Perhatian")

            End If

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")

        End Try

    End Sub
    Protected Sub buat_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buat.Click
        kdbarang.Text = ""
        nmbarang.Text = ""
        harga.Text = ""
        jmpesanan.Text = ""
        alamat.Text = ""
        tglpemesanan.Text = ""
        ongkir.Text = ""
        total.Text = ""
    End Sub
   Protected Sub kota_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles kota.SelectedIndexChanged
        Select Case kota.Text
            Case "Jakarta"
                ongkir.Text = "0"
                total.Text = Val(harga.Text) + Val(ongkir.Text)
            Case "Sumatra"
                ongkir.Text = "20000"
                total.Text = Val(harga.Text) + Val(ongkir.Text)
            Case "Bali"
                ongkir.Text = "25000"
                total.Text = Val(harga.Text) + Val(ongkir.Text)
            Case Else
                ongkir.Text = "8000"
                total.Text = Val(harga.Text) + Val(ongkir.Text)



        End Select
    End Sub
End Class