Kali
ini saya akan membahas tentang cara membuat sebuah program sederhana
menggunakan bahasa pemrograman ASP.net,untuk melengkapi tugas uas pelajaran
pemrograman 1,pada bahasan kali ini saya
membuat contoh program Penjualan sepatu,di mana data yang akan di input akan
masuk ke dalam database,aplikasi database yang saya gunakan adalah Microsoft
Access.
Kali
ini saya membuat 2 Table,ada table Stok sepatu,dan ada table pemesanan,table
stok sepatu berfungsi untuk menampung data stok spatu yang tersedia,sedangkan
table pemesan berfungsi untuk menampung data si pemesan.
Pertama
kita akan kenalan dengan web form yg saya buat dulu,saya membuat web form Table
stok ,web form Stok, web form table pemesan ,dan web form pemesan.
-
Pada web form pemesan,saya memberi nama WebFormPemesan_Rafid161011400153
-
Pada web form table pemesan,saya memberi nama TablePemesan_RafidAnnurrifa161011400153
-
Pada web form table stok,saya memberi nama TableStok_RafidAnnurrifa161011400153
Sekarang
kita mulai untuk mempelajari masing masing kegunaan button pada setiap web form
nya,pertama kita mulai dari web form Stok.
Sebelum memulai ke sana,kita ketik script koneksi nya dulu
di paling atas.
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial Class WebFormPemesan_Rafid161011400153
Inherits
System.Web.UI.Page
Dim transaksi As
OleDbConnection
Dim constring As
String = ConfigurationManager.ConnectionStrings("SepatuConnectionString").ConnectionString
Dim oConn As New
OleDbConnection(constring)
Dim xReader As
OleDbDataReader
Dim Sql As String
1.
untuk mengosongkan text box pada web form stok,masukan
script ini ke dalam button nya
txtkode.Text = ""
txtnama.Text = ""
txtwarna.Text =
""
txtukuran.Text =
""
txtharga.Text =
""
txtkode.Focus()
Data sudah masuk ke dalam table di database.
Tambahkan script ke dalam button simpan.
Dim sql As String = "INSERT INTO Stok_sepatu VALUES ('" &
txtkode.Text & "','" & txtnama.Text & "','"
& txtwarna.Text & "','" & txtukuran.Text &
"','" & txtharga.Text & "')"
Dim oCmd As New
OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
3.
untuk mencari data ketik dulu kode sepatu lalu
klik cari.
Masukan script ke dalam button cari.
If Not Len(txtkode.Text) = 0 Then
oConn.Close()
oConn.Open()
Dim ocmd
As New OleDbCommand("SELECT * FROM Stok_sepatu where kode_sepatu='" +
txtkode.Text + "'", oConn)
xReader =
ocmd.ExecuteReader
If
xReader.HasRows Then
xReader.Read()
txtnama.Text = xReader("nama_sepatu")
txtwarna.Text = xReader("warna")
txtukuran.Text = xReader("ukuran")
txtharga.Text = xReader("harga")
Else
txtnama.Text = "Nama Sepatu Tidak ada"
Exit
Sub
End If
xReader.Close()
End If
4.
Ketik kode sepatu yang akan di hapus lalu klik
cari,baru kita klik hapus,lalu klik lihat untuk melihat hasil sudah ter hapus
atau belum.
Hasil sudah terhapus.
Masukan script nya ke button hapus.
Dim sql As String = "delete from pemesan where
nama=('" & txtpemesan.Text & "');"
Dim oCmd As New OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
5.
Ketik kode sepatu yang akan di edit lalu ubah
data pemesan yang ingin di edit lalu klik edit,klik lihat untuk melihat apa
sudah ke ubah atau belum.
Pada data awal nike berwarna merah,kita ganti jadi hitam,data terganti di
database.
Masukan script di button edit.
Dim sql As String = "update pemesan set nama=('" &
txtpemesan.Text & "'),alamat=('" & txtalamat.Text &
"'),no_tlp=('" & txttlp.Text & "'),nama_sepatu=('"
& txtnmspt.Text & "'),warna=('" & txtwarna.Text &
"'),ukuran=('" & txtukuran.Text & "'),harga=('"
& txtharga.Text & "'),jumlah=('" & txtjumlah.Text &
"'),total_harga=('" & txttotal.Text & "') where
nama=('" & txtpemesan.Text & "')"
Dim oCmd As New
OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
Kita ke web form pemesanan.
1.
untuk mengosongkan text box pada web form
pemesan,masukan script ini ke dalam button nya
txtpemesan.Text = ""
txtalamat.Text = ""
txttlp.Text = ""
txtnmspt.Text = ""
txtwarna.Text = ""
txtukuran.Text = ""
txtharga.Text = ""
txtjumlah.Text = ""
txttotal.Text = ""
txtpemesan.Focus()
2.
mencoba menambahkan data kedalam table pemesan.
a.
Ketikan data pada setiap text box lalu klik
simpan
b.
Klik lihat untuk melihat apa data sudah masuk ke
database.
-
Masukan script nya ke dalam button simpan.
Dim sql As String = "INSERT INTO
pemesan VALUES ('" & txtpemesan.Text & "','" &
txtalamat.Text & "','" & txttlp.Text & "','"
& txtnmspt.Text & "','" & txtwarna.Text &
"','" & txtukuran.Text & "','" & txtharga.Text
& "','" & txtjumlah.Text & "','" & txttotal.Text
& "');"
Dim oCmd As New OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
3.
Button pesan untuk melakukan penghitungan harga
* jumlah beli,masukan script ke button pesan
txttotal.Text = txtharga.Text * txtjumlah.Text
4.
Daftar stok untuk melihat stok sepatu apa saja
yang tersedia,masukan script ini ke button daftar stok
Response.Redirect("stok_Rafid161011400153.aspx")
Nanti akan muncul gambar table stok
nya
- Dan dalam button kembali masukan
script
Response.Redirect("WebFormPemesan_Rafid161011400153.aspx")
5.
Pada button cari kita tinggal memasukan Nama
Pemesan lalu klik cari maka akan muncul data nya.
-
Masukan script nya pada button cari
If Not Len(txtpemesan.Text) = 0 Then
oConn.Close()
oConn.Open()
Dim ocmd As New OleDbCommand("SELECT * FROM pemesan where
nama='" + txtpemesan.Text + "'", oConn)
xReader = ocmd.ExecuteReader
If xReader.HasRows Then
xReader.Read()
txtalamat.Text = xReader("alamat")
txttlp.Text =
xReader("no_tlp")
txtnmspt.Text =
xReader("nama_sepatu")
txtwarna.Text =
xReader("warna")
txtukuran.Text =
xReader("ukuran")
txtharga.Text = xReader("harga")
txtjumlah.Text =
xReader("jumlah")
txttotal.Text =
xReader("total_harga")
Else
txtnmspt.Text = "pemesan
Tidak ada"
txtalamat.Text = "pemesan
Tidak ada"
txttlp.Text = "pemesan
Tidak ada"
txtnmspt.Text = "pemesan
Tidak ada"
txtwarna.Text = "pemesan
Tidak ada"
txtukuran.Text = "pemesan
Tidak ada"
txtharga.Text = "pemesan
Tidak ada"
txtjumlah.Text = "pemesan Tidak ada"
txttotal.Text = "pemesan
Tidak ada"
Exit Sub
End If
xReader.Close()
End If
-
Jika nama tidak ada di database maka akan muncul
seperti ini.
6.
Ketik nama pemesan yang akan di hapus lalu klik
cari,baru kita klik hapus,lalu klik lihat untuk melihat hasil sudah ter hapus
atau belum.
-
Sudah terhapus di databse.
Masukan script ke buton hapus.
Dim sql As String = "delete from
pemesan where nama=('" & txtpemesan.Text & "');"
Dim oCmd As New OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
7.
Ketik nama pemesan yang akan di edit lalu ubah
data pemesan yang ingin di edit lalu klik edit,klik lihat untuk melihat apa
sudah ke ubah atau belum.
-
Awal nya selly memesan adidas,kita ganti
converse dan di database sudah terganti.
Dim sql As String = "update pemesan
set nama=('" & txtpemesan.Text & "'),alamat=('" &
txtalamat.Text & "'),no_tlp=('" & txttlp.Text &
"'),nama_sepatu=('" & txtnmspt.Text & "'),warna=('"
& txtwarna.Text & "'),ukuran=('" & txtukuran.Text &
"'),harga=('" & txtharga.Text & "'),jumlah=('"
& txtjumlah.Text & "'),total_harga=('" & txttotal.Text
& "') where nama=('" & txtpemesan.Text & "')"
Dim oCmd As New OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
Mungkin cukup sekian untuk membahas tentang program ini,mohon maaf jika ada kesalahan atau kekurangan,karna pembuat juga masih dalam tahap belajar,terimakasih dan wassalam....
