Pada postingan ini saya akan membuat aplikasi pembelian dan pemesanan kacamata versi web dengan menggunakan aplikasi Visual Studio 2015, pada aplikasi ini dijalankan dengan menggunakan browser seperti, Google Chrome, Microsoft Edge, dll. Aplikasi ini juga sudah terhubung dengan database, disini saya menggunakan database dari Microsoft Access. Oke, langsung saja kita buat aplikasinya……..
Tampilan/Display dari aplikasi ini terdiri dari, tampilan pilihan Nama Produk yang disediakan, tampilan berbagai macam Metode Pembayaran, kemudian ada tombol Save, View, Cari, Update, Delete, Hitung, Clear, dan form data pelanggan.
program Aplikasi Pembelian dan pemesanan Kacamata ini dibuat dengan menggunakan aplikasi Microsoft Visual Studio, jadi kita harus meng-install Visual Studionya terlebih dahulu ya, jika sudah diinstall langsung saja kita buat aplikasinya.......
Berikut adalah komponen pendukung dari aplikasi ini :
- Button
- Label
- Panel
- TextBox
- Image Button
v Membuat Project Baru
>Klik File à New à Project à
>Pilih Web à Tulis Nama Project yang akan dibuat, seperti dibawah ini à OK
>Klik kanan pada nama project yang telah dibuat à pilih Add à pilih Web Form
>Kemudian tuliskan nama Web Form yang akan dibuat, yang pertama kita buat untuk web view
Klik kanan pada nama project yang telah dibuat à pilih Add à pilih Web Form
>Kemudian tuliskan nama Web Form yang akan dibuat, yang kedua kita buat untuk web desain
>Akan muncul tampilan seperti dibawah ini
>Kalian bisa desain tampilan Form sesuka yang kalian mau
v " PENJELASAN TAMPILAN AWAL Pembelian dan Pemesanan Kacamata "
è Button Save, difungsikan untuk menyimpan data pelanggan ke dalam Microsoft Access yang telah dibuat
è Button View, difungsikan untuk menampilkan data data yang sudah masuk ke dalam Microsoft Access
è Button Cari, difungsikan untuk mencari dan menampilkan data pelanggan yang diambil dari Microdoft Access
è Button Update, difungsikan untuk mengedit data pelanggan
è Button Delete, difungsikan untuk menghapus data pelanggan di database
è Button Hitung, difungsikan untuk menampilkan proses perhitungan
è Button Clear, difungsikan untuk menghapus data yang sudah diisi diform
è Button Nama Product, difungsikan untuk menampilkan nama product yang akan dipesan dan akan muncul pada TextBox nama product
è Button Metode Pembayaran, difungsikan untuk memberikan pilihan pembayaran yang akan digunakan untuk transaksi pembelian dan pemesanan, dan akan muncul TextBox metode pembayaran
v Cara Menghubungkan Aplikasi Pembelian dan Pemesanan Kacamata dengan Microsoft Access”
=>Buat database baru pada Microsoft Access à kemudian isi dengan tampilan dibawah ini
=>Pilih Server Explorer à pilih Data Connections à klik kanan à piih Add Connection
=>Pilih Browse à Test Connection à OK
v Membuat Tampilan Web Form View
>> Pastikan sudah membuat Web Form View dan membuat Databasenya seperti contoh diatas
>> Kemudian cari nama table database yang sudah dibuat à Tarik nama database tersebut ke dalam Web Form View
v SOURCE CODE
è Source Code Pendukung
Imports System.Data
Imports System.Data.OleDb
Public Class WebFormBelidanPesanKacamata
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ACER\Documents\dbuaskacamata.accdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Dim Xreader As OleDb.OleDbDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
è Source Code Button Save
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO Tablepesandanbelikacamata values('" & Textnopenjualan.Text & "','" & Textnama.Text & "','" & Textharga.Text & "','" & Textjumlah.Text & "','" & Textnamapelanggan.Text & "','" & TextAlamat.Text & "','" & Texttelepon.Text & "','" & Textpesan.Text & "','" & Textselesai.Text & "','" & Textmetode.Text & "','" & Texttotal.Text & "','" & Textuangmuka.Text & "','" & Textsisapembayaran.Text & "') "
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
è Source Code Button View
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Response.Redirect("WebFormView.aspx")
End Sub
è Source Code Button Cari
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If Not Len(Textnopenjualan.Text) = 0 Then
objekKoneksi.Close()
objekKoneksi.Open()
Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM Tablepesandanbelikacamata where NoPenjualan='" + Textnopenjualan.Text + "'", objekKoneksi)
Xreader = ocmd.ExecuteReader()
If Xreader.HasRows Then
Xreader.Read()
Textnopenjualan.Text = Xreader("NoPenjualan")
Textnama.Text = Xreader("NamaProduct")
Textharga.Text = Xreader("Harga")
Textjumlah.Text = Xreader("Jumlah")
Textnamapelanggan.Text = Xreader("NamaPelanggan")
TextAlamat.Text = Xreader("AlamatPelanggan")
Texttelepon.Text = Xreader("NoTelepon")
Textpesan.Text = Xreader("PesanTanggal")
Textselesai.Text = Xreader("SelesaiTanggal")
Textmetode.Text = Xreader("MetodePembayaran")
Texttotal.Text = Xreader("Total")
Textuangmuka.Text = Xreader("UangMuka")
Textsisapembayaran.Text = Xreader("SisaPembayaran")
Button4.Enabled = True
Button5.Enabled = True
Else
Textnopenjualan.Text = "Nama Pegawai Tidak ada"
Exit Sub
End If
Xreader.Close()
End If
End Sub
è Source Code Button Update
Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
objekKoneksi.Open()
Dim Rubah As String = "UPDATE Tablepesandanbelikacamata set NamaProduct='" + Textnama.Text + "' where NoPenjualan='" + Trim(Textnopenjualan.Text) + "'"
Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
è Source Code Button Delete
Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
objekKoneksi.Open()
Dim Hapus As String = "DELETE FROM Tablepesandanbelikacamata where NoPenjualan='" + Trim(Textnopenjualan.Text) + "'"
Dim oCmd = New OleDbCommand(Hapus, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
è Source Code Button Hitung
Protected Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click
Textsisapembayaran.Text = Texttotal.Text - Textuangmuka.Text
Dim nilai As Double
nilai = Textsisapembayaran.Text
If nilai <= 0 Then
Textsisapembayaran.Text = "LUNAS"
End If
End Sub
è Source Code Button Clear
Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
Textnopenjualan.Text = ""
Textnama.Text = ""
Textharga.Text = ""
Textjumlah.Text = ""
Textnamapelanggan.Text = ""
TextAlamat.Text = ""
Texttelepon.Text = ""
Textpesan.Text = ""
Textselesai.Text = ""
Textmetode.Text = ""
Texttotal.Text = ""
Textuangmuka.Text = ""
Textsisapembayaran.Text = ""
End Sub
è Source Code Button Nama Product
Protected Sub btncalvin_Click(sender As Object, e As EventArgs) Handles btncalvin.Click
Textnama.Text = btncalvin.Text
End Sub
Protected Sub btncalvin5470_Click(sender As Object, e As EventArgs) Handles btncalvin5470.Click
Textnama.Text = btncalvin5470.Text
End Sub
Protected Sub btnfrancgaston_Click(sender As Object, e As EventArgs) Handles btnfrancgaston.Click
Textnama.Text = btnfrancgaston.Text
End Sub
Protected Sub btnfrancairdaniel_Click(sender As Object, e As EventArgs) Handles btnfrancairdaniel.Click
Textnama.Text = btnfrancairdaniel.Text
End Sub
è Source Code Button Hitung Metode Pembayaran
Protected Sub btncash_Click(sender As Object, e As EventArgs) Handles btncash.Click
Textmetode.Text = btncash.Text
End Sub
Protected Sub btnbank_Click(sender As Object, e As EventArgs) Handles btnbank.Click
Textmetode.Text = btnbank.Text
End Sub
Protected Sub btncod_Click(sender As Object, e As EventArgs) Handles btncod.Click
Textmetode.Text = btncod.Text
End Sub
Protected Sub btndigital_Click(sender As Object, e As EventArgs) Handles btndigital.Click
Textmetode.Text = btndigital.Text
End Sub
v RUN PROGRAM
GIF Run Project
Screen Shoot Run Project
GIF Microsoft Access
