Pada Postingan ini saya akan memberikan tutorial membuat sebuah aplikasi CRUD sederhana yang akan di pakai di salah satu Rental Motor, aplikasi ini di buat dengan tujuan tidak lain yakni untuk mempermudah para pemilik rental dalam hal menyimpan data, mengupdate data, menghapus data para customer peminjam motor. aplikasi ini dibuat dengan menggunakan aplikasi VB.Net berikut penjelasannya :
1. Analisa Kebutuhan
Dalam pembuatan aplikasi ini saya memerlukan beberapa tools yakni antara lain sebagai berikut :
Dalam pembuatan aplikasi ini saya memerlukan beberapa tools yakni antara lain sebagai berikut :
- Label
- TextBox
- Button
- PictureBox
* Buka Aplikasi Visual Studio ( disini saya menggunakan VB versi 2012 ) lalu buat project baru.
* Langkah selanjutnya desain dengan menggunakan tools yang sudah saya kasih tau di atas dengan cara klik pada menu toolbox dan cari jika sudah ketemu langsung saja di drag pada formnya dan buat lah desai seperti ini
* Jika sudah maka langkah selanjutnya yakni pembuatan database menggunakan Microsoft Acces,
buat lah data base dengan table kolom yang berisikan sesuai dengan nama kolom yang kalian buat pada desain tadi. dan jangan sampai lupa tempat kita menaruh data basesnya .
lalu klik kanan pada table - pilih desain view
jika sudah maka buat lah seperti ini
jika sudah maka save as dan langkah terakhir yakni melakukan atau memasukan koding aplikasi yang kita buat berikut adalah kodingan nya koding ini berfungsi untuk dapat membuat aplikasi berjalan sesuai dengan fungsinya dan juga dapat terkoneksi dengan database yang telah kita buat tadi berikut adalah koding nya
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=E:\KULIAH\SEMESTER 5\web.mdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Dim xReader As OleDbDataReader
Sub KosongkanData()
txtlokasifoto.Clear()
txtNopol.Clear()
txtNama.Clear()
txtAlamat.Clear()
txtTanggal.Clear()
txtNopol.Focus()
End Sub
Sub DataBaru()
txtlokasifoto.Clear()
txtNopol.Clear()
txtNama.Clear()
txtAlamat.Clear()
txtTanggal.Clear()
txtNopol.Focus()
End Sub
Sub Ketemu()
txtNopol.Text = dr.Item(1)
txtNama.Text = dr.Item(2)
txtAlamat = dr.Item(3)
txtTanggal.Text = dr.Item(4)
txtNopol.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('" & txtNopol.Text & "','" & txtNama.Text & "','" & txtAlamat.Text & "','" & txtTanggal.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 No. Polisi='" + txtNopol.Text + "'", objekKoneksi)
xReader = ocmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
txtNopol.Text = xReader("No. Polisi")
txtNama.Text = xReader("Nama")
txtTanggal.Text = xReader("Tanggal Lahir")
txtAlamat.Text = xReader("Alamat")
txtlokasifoto.Text = xReader("Lokasi Foto")
Else
txtNopol.Text = "Nomor polisi 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 No. Polisi='" + txtNopol.Text + "'", objekKoneksi)
xReader = ocmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
txtNopol.Text = xReader("No. Polisi")
txtNama.Text = xReader("Nama")
txtTanggal.Text = xReader("Tanggal Lahir")
txtAlamat.Text = xReader("Alamat")
txtlokasifoto.Text = xReader("Lokasi Foto")
Else
Exit Sub
End If
xReader.Close()
MsgBox("MENGHAPUS SUKSES")
End Sub
Private Sub TxtNopol_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtNopol.KeyPress
If e.KeyChar = Chr(13) Then
cmd = New OleDbCommand("SELECT * FROM DATA WHERE No. Polisi='" & txtNopol.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 txtNopol.Text = "" Then
MsgBox("NOMOR POLISI PENDAFTARAN BELUM DIISI")
txtNopol.Focus()
Exit Sub
Else
Dim Ubah As String = "UPDATE Table2 set " & "Nama='" & txtNama.Text & "'," & "Tanggal='" & txtTanggal.Text & "'," & "ALamat='" & txtAlamat.Text & "'," & "Lokasi Foto='" & txtlokasifoto.Text & "'" & "where No. Polisi='" & txtNopol.Text & "'"
cmd = New OleDbCommand(Ubah, objekKoneksi)
cmd.ExecuteNonQuery()
MsgBox("UBAH DATA SUKSES", MsgBoxStyle.Information, "INFORMASI")
Call KosongkanData()
txtNopol.Focus()
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
jika kalian berhasil maka program akan jalan dengan semestinya contoh seperti gambar dibawah ini
jika belum dapat berjalan maka hendaklah lebih teliti lagi dalam proses pengkodingannya
sekian tutorial yang saya berikan kurang lebihnya mohon maaf
wasssalamu'alaikum wr.wb.
Tidak ada komentar:
Posting Komentar