Tuesday, 5 February 2019
PENERAPAN CRUD SEDERHANA
APLIKASI TOKO SEPATU
DENGAN MENGGUNAKAN APLIKASI VB.NET
Assalamualaikum.wr.wb.
Pada postingan ini saya akan memberikan contoh tutorial membuat sebuah aplikasi CRUD sederhana yang dibuat untuk toko sepatu agar mempermudah dalam pengolahan data pemesanan. Dan untuk membuat pemesan lebih simple dan lebih efisien untuk pelanggan.
Aplikasi VB.Net yang saya buat sebagai berikut :
1. Penjelasan
*) Deskripsi dan Analisa
- Aplikasi ini dibuat untuk mempermudah admin toko dalam mendata pemesanan sepatu
- Membuat pelanggan lenih mudah untuk melakukan registrasi pembelian
- Mempercepat proses pemesanan
*) Langkah Pembuatan Aplikasi
A. Membuat Project Baru
C. Membuat Design Pada Form Dengan Menggunakan TollBox Pada Visual Studio
Contoh :
A. Membuat Project Baru
B. Membuat Form Data Pemesanan
C. Membuat Design Pada Form Dengan Menggunakan TollBox Pada Visual Studio
Contoh :
D. Membuat DataBase pada Microsoft Access
Contoh :
2. Source Code
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Public conn As OleDbConnection
Public cmd As OleDbCommand
Public da As OleDbDataAdapter
Public dr As OleDbDataReader
Public ds As DataSet
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Jejen\Documents\Visual Studio 2012\Projects\FormBiodata1\FormBiodata\bin\Debug\db_biodata.mdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Dim xReader As OleDbDataReader
Sub KosongkanData()
txtlokasifoto.Clear()
Txtno.Clear()
txtnama.Clear()
txtmerek.Clear()
txtwarna.Clear()
Txtno.Focus()
End Sub
Sub DataBaru()
txtlokasifoto.Clear()
Txtno.Clear()
txtnama.Clear()
txtmerek.Clear()
txtwarna.Clear()
Txtno.Focus()
End Sub
Sub Ketemu()
Txtno.Text = dr.Item(1)
txtnama.Text = dr.Item(2)
txtmerek = dr.Item(3)
txtwarna.Text = dr.Item(4)
Txtno.Focus()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "JpegFile|*.jpg|Bitmap File|*.bmp|*.png|*.*"
OpenFileDialog1.DefaultExt = "*.jpg"
OpenFileDialog1.ShowDialog()
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
txtlokasifoto.Text = OpenFileDialog1.FileName
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
objekKoneksi.Close()
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO Table2 values('" & Txtno.Text & "','" & txtnama.Text & "','" & txtmerek.Text & "','" & txtwarna.Text & "','" & txtlokasifoto.Text & "') "
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
objekKoneksi.Close()
objekKoneksi.Open()
Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM Table2 where nopemesanan='" + Txtno.Text + "'", objekKoneksi)
xReader = ocmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
Txtno.Text = xReader("nopemesanan")
txtnama.Text = xReader("namapemesan")
txtwarna.Text = xReader("warnasepatu")
txtmerek.Text = xReader("mereksepatu")
txtlokasifoto.Text = xReader("lokasifoto")
Else
Txtno.Text = "NO Tidak DItemukan "
Exit Sub
End If
xReader.Close()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs)
KosongkanData()
End Sub
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
objekKoneksi.Close()
objekKoneksi.Open()
Dim ocmd As New OleDb.OleDbCommand("DELETE * FROM Table2 where nopemesanan='" + Txtno.Text + "'", objekKoneksi)
xReader = ocmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
Txtno.Text = xReader("nopemesanan")
txtnama.Text = xReader("namapemesan")
txtwarna.Text = xReader("warnasepatu")
txtmerek.Text = xReader("mereksepatu")
txtlokasifoto.Text = xReader("lokasifoto")
Else
Exit Sub
End If
xReader.Close()
MsgBox("MENGHAPUS SUKSES")
End Sub
Private Sub TxtID_TextChanged(sender As Object, e As EventArgs) Handles Txtno.TextChanged
End Sub
Private Sub TxtID_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Txtno.KeyPress
If e.KeyChar = Chr(13) Then
cmd = New OleDbCommand("SELECT * FROM DATA WHERE NIK='" & Txtno.Text & "'", objekKoneksi)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
Call DataBaru()
Else
Call Ketemu()
End If
End If
End Sub
Private Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click
If Txtno.Text = "" Then
MsgBox("NO PENDAFTARAN BELUM DIISI")
Txtno.Focus()
Exit Sub
Else
Dim Ubah As String = "UPDATE Table2 set " & "namapemesan='" & txtnama.Text & "'," & "warnasepatu='" & txtwarna.Text & "'," & "mereksepatu='" & txtmerek.Text & "'," & "lokasifoto='" & txtlokasifoto.Text & "'" & "where nopemesanan='" & Txtno.Text & "'"
cmd = New OleDbCommand(Ubah, objekKoneksi)
cmd.ExecuteNonQuery()
MsgBox("UBAH DATA SUKSES", MsgBoxStyle.Information, "INFORMASI")
Call KosongkanData()
Txtno.Focus()
End If
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub txtgol_TextChanged(sender As Object, e As EventArgs) Handles txtwarna.TextChanged
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
KosongkanData()
End Sub
End Class
3. Hasil
4. Untuk Hasil Update/Ubah Data
Mungkin cukup sekian tuttorial dari saya, mohon maaf masih banyak kekurangannya.
Sekian dan Terimakasih.