Aplikasi Gudang Sederhana Berbasis Web Visual Studio
Di bawah ini merupakan hasil tugas UAS, membuat aplikasi berbasis web sederhana dengan visual studio yang dimana saya mengambil tema yaitu Gudang(bahan makanan) aplikasi ini tidak menggunakan code matematik hanya berkaitan tentang CRUD (Create,Read,Update, Delete) saja. Menggunakan komponen TextBox Dan Button, berikut ID Pada Text Boxnya
Kode Barang = KDBRG
Nama Barang = NMBRG
Barang Masuk = BRGMSK
Tanggal Masuk = TGLMSK
Barang Keluar = BRGMKR
Tanggal Keluar = TGLKR
Persediaan = PERS
berikut Stepnya.
Buka Software Viusal Studio>
New Project> Web > pilih ASP.NET Empty Web Aplication> rubah nama
sesuai keinginan(Tidak Menggunakan Spasi)> klik OK dan tunggu sebentar
Setelah tampilan muncul
klik kanan pada nama Formnya di sebelah kanan> Klik add> pilih Web Form>
ketik nama form tersebut sesuai keinginan lalu OK
Setelah muncul tampilannya
klik Table> Insert Table> atur kolom dan baris table sesuai kebutuhan.
Tekan tombol Ctrl+alt+S untuk menampilkan Server
Explorer> klik kanan Data Conections> Add Conections> pilih database (disini
saya menggunakan database dari Ms Access)> Test Conections ( jika berhasil
klik Ok, jika Tidak turunkan versi database Ms accessnya ke 2000 namun perlu di
ingat untuk format pengCodingan berbeda bias di lihat pada advanced saat memilih Database )
Klik dan Drag Tabke berikut ke Table Form>
Dan saya mendesignnya dengan seperti berikut dan Codingannya
HOME
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Update_Click(sender As Object, e As EventArgs) Handles Update.Click
Response.Redirect("Update.aspx")
End Sub
Protected Sub Input_Click(sender As Object, e As EventArgs) Handles Input.Click
Response.Redirect("Input.aspx")
End Sub
End Class
INPUT
*Pada Bagian Text Box Barang Keluar, Tanggal
Keluar, Persediaan, Di Nonaktifkan. Klik textBoxnya> Properties>
Enabled = Flase
Imports System.Data
Imports System.Data.OleDb
Public Class Input
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\ADRIANFAIZ\Documents\amrizal\BahanMakanan.accdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Save_Click(sender As Object, e As EventArgs) Handles Save.Click
PERS.Enabled = True
PERS.Text = BRGMSK.Text
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO Bahan
values('"
& KDBRG.Text & "','"
& NMBRG.Text & "','"
& BRGMSK.Text & "','"
& TGLMSK.Text & "','"
& BRGMKR.Text & "','"
& TGLKR.Text & "','"
& PERS.Text & "')"
Dim oCMD = New OleDbCommand(tambah, objekKoneksi)
oCMD.ExecuteNonQuery()
MsgBox("BERHASIL DISIMPAN")
objekKoneksi.Close()
End Sub
Protected Sub Home_Click(sender As Object, e As EventArgs) Handles Home.Click
Response.Redirect("Home.aspx")
End Sub
Protected Sub Add_Click(sender As Object, e As EventArgs) Handles Add.Click
KDBRG.Text = ""
NMBRG.Text = ""
BRGMSK.Text = ""
TGLMSK.Text = ""
BRGMKR.Text = ""
TGLKR.Text = ""
PERS.Text = ""
End Sub
End Class
UPDATE
Imports System.Data
Imports System.Data.OleDb
Public Class Update
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\ADRIANFAIZ\Documents\amrizal\BahanMakanan.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
Protected Sub Find_Click(sender As Object, e As EventArgs) Handles Find.Click
If Not Len(KDBRG.Text) = 0 Then
objekKoneksi.Close()
objekKoneksi.Open()
Dim
oCMD As New OleDb.OleDbCommand("SELECT * FROM Bahan
where KodeBarang='"
+ KDBRG.Text + "'",
objekKoneksi)
Xreader = oCMD.ExecuteReader()
If
Xreader.HasRows Then
Xreader.Read()
KDBRG.Text = Xreader("KodeBarang")
NMBRG.Text = Xreader("NamaBarang")
BRGMSK.Text = Xreader("BarangMasuk")
TGLMSK.Text = Xreader("TanggalMasuk")
BRGKR.Text = Xreader("BarangKeluar")
TGLKR.Text = Xreader("TanggalKeluar")
PERS.Text = Xreader("Persediaan")
Delete.Enabled = True
Else
MsgBox("Nama Barang Tidak
ada")
Exit Sub
End
If
Xreader.Close()
End If
End Sub
Protected Sub save_Click(sender As Object, e As EventArgs) Handles save.Click
objekKoneksi.Open()
Dim Update As String = "UPDATE Bahan set
BarangMasuk='"
+ BRGMSK.Text + "',TanggalMasuk='" + TGLMSK.Text + "',BarangKeluar='" + BRGKR.Text + "',TanggalKeluar='" + TGLKR.Text + "',Persediaan='" + PERS.Text + "' where
KodeBarang='"
+ Trim(KDBRG.Text) + "'"
Dim oCMD = New OleDbCommand(Update, objekKoneksi)
oCMD.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("BERHASIL DIUPDATE")
End Sub
Protected Sub Delete_Click(sender As Object, e As EventArgs) Handles Delete.Click
objekKoneksi.Open()
Dim oCMD As New OleDb.OleDbCommand("DELETE * FROM Bahan
where KodeBarang='"
+ KDBRG.Text + "'",
objekKoneksi)
oCMD.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("BERHASIL DIHAPUS")
End Sub
Protected Sub Home_Click(sender As Object, e As EventArgs) Handles Home.Click
Response.Redirect("Home.aspx")
End Sub
End Class
Perlu di ingat
- input Data Sesuai Format yang Telah Di tentukan Pada DataBase Agar Tidak Error
- pada bagian ini Microsoft.ACE.OLEDB.12 perlu di sesuaikan kembali dapat di lihat pada Advanced ketika menentukan Database
- pada bagian ini : INSERT INTO Bahan, SELECT * FROM Bahan, UPDATE Bahan set BarangMasuk, DELETE * FROM Bahan, Bahan disini adalah nama table pada database dapat di lihat pada> Server Explorer> nama Database yang telah dikoneksikan> Tables> dan disana gambar table dan bernama Bahan. Coba perhatikan lagi ketika saat mengkilik dan drag untuk memasukkan table database.
Dan berikut hasilnya
Komentar
Posting Komentar