TugasUasPemrogramanVisual

Penerapan CRUD Sederhana Aplikasi Indihome Menggunakan Aplikasi VB.net

assalamu 'alaikum wr.wb.

pada postingan kali ini saya akan memberikan tutorial atau cara membuat sebuah aplikasi CRUD sederhana yang dikhususkan bagi sebuah perusahaan telekomunikasi agar mempermudah dalam pengolahan data pelanggan bagi perusahaan dan diperuntukkan bagi pelanggan agar memiliki efisiensi dalam melakukan registrasi pelayanan. aplikasi ini dibuat dengan aplikasi vb,net.  berikut penjelasannya :

1. Penjelasan Program Aplikasi

deskripsi dan analisa kebutuhan

- aplikasi ini berfungsi untuk memudahkan manajemen dalam mendata pelanggan
- memudahkan pelanggan dalam melakukan registrasi layanan.
- memberikan efisiensi waktu bagi pelanggan dalam meregistrasi layanan.


          alat yang digunakan:
- visual studio 
- microsoft access atau microsoft sql express

input yang digunakan :
- label, textbox, button, datagrid, dsb.


• Langkah Pembuatan :

1. buat sebuah project baru di visual studio 

2. tambahkan form baru didalam project yaitu form data pelanggan 

3. kemudian buat design pada form dengan menggunakan toolbox yang tersedia pada visual studio :

4. setelah itu buat database dengan menggunakan Ms. Access 

sedikit penjelasan Access 2016, Access 2013, Access 2010, dan Access 2007 membuat database dalam .accdb file format. Format ini mendukung fitur seperti bidang multinilai, makro data, dan menerbitkan ke Access Services.

Anda dapat mengonversi database yang dibuat di Microsoft Office Access 2003, Access 2002, Access 2000, atau Access 97 menjadi format file .accdb. Penting untuk diketahui, bahwa database dalam format file .accdb tidak dapat dibuka atau ditautkan dengan menggunakan versi Access yang lebih lama dari Access 2007.

Selain itu, format .accdb tidak mendukung replikasi atau keamanan tingkat pengguna. Jika Anda perlu berbagi database Anda dengan orang yang menggunakan Access 2003 atau yang lebih lama, atau jika Anda perlu menggunakan replikasi atau keamanan level pengguna, Anda harus menggunakan format file .mdb.

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\pandu azzahra\Documents\DatabaseUAS.accdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Dim xReader As OleDbDataReader


Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DatabaseUASDataSet1.Table1' table. You can move, or remove it, as needed. Me.Table1TableAdapter.Fill(Me.DatabaseUASDataSet1.Table1)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs)
MsgBox("Isi Form Registrasi Layanan", vbInformation, " Indihome ") Form2.ShowDialog()
End Sub

Private Sub txtSave_Click(sender As Object, e As EventArgs) Handles txtWord.Click
objekKoneksi.Close()
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO Table1 values('" & txtKtp.Text & "','" & txtNama.Text & "','" & txtTelepon.Text & "','" & txtMail.Text & "','" & txtAlamat.Text & "','" & txtTanggal.Text & "') "
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("DATA DIRI DISIMPAN", vbInformation, " Indihome ")
End Sub


Private Sub txtClear_Click(sender As Object, e As EventArgs) Handles txtExcel.Click
txtKtp.Clear()
txtNama.Clear()
txtTelepon.Clear()
txtMail.Clear()
txtAlamat.Clear()
txtTanggal.Clear()
txtKtp.Focus()
End Sub


Private Sub txtKeluar_Click(sender As Object, e As EventArgs) Handles txtKeluar.Click
Me.Close()
End Sub


Private Sub txtSearch_Click(sender As Object, e As EventArgs) Handles Button2.Click
objekKoneksi.Close()
objekKoneksi.Open()
Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM Table1 where Nama='" + txtNama.Text + "'", objekKoneksi)
xReader = ocmd.ExecuteReader()
MsgBox("Search Pada Nama Pelanggan", vbInformation, "Indihome")
If xReader.HasRows Then
xReader.Read()
txtNama.Text = xReader("Nama")
txtTelepon.Text = xReader("NoTelepon")
txtMail.Text = xReader("E-Mail")
txtAlamat.Text = xReader("Alamat")
txtTanggal.Text = xReader("TanggalPendaftaran")
txtKtp.Text = xReader("NoKTP")
Else
txtNama.Text = "Nama Tidak DItemukan "
Exit Sub
End If
xReader.Close()
End Sub


Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
objekKoneksi.Close()
objekKoneksi.Open()
If txtNama.Text = "" Then
MsgBox("ID PENDAFTARAN BELUM DIISI")
txtNama.Focus()
Else
Dim Ubah As String = "UPDATE Table1 SET " & "NoKTP='" & txtKtp.Text & "'," & "Alamat='" & txtAlamat.Text & "'," & "TanggalPendaftaran='" & txtTanggal.Text & "', " & "NoTelepon='" & txtTelepon.Text & "'," & "E-Mail='" & txtMail.Text & "'" & "WHERE Nama='" & txtNama.Text & "'"
cmd = New OleDbCommand(Ubah, objekKoneksi)
cmd.ExecuteNonQuery()
MsgBox("UBAH DATA SUKSES", vbInformation, "INFORMASI")
End If
End Sub
End Class

3. Hasil Run

untuk command search anda diperlukan mengisi identitas database pada nama kemudian klik search maka akan tampil database yang dicari

aplikasi ini bisa dikreasikan sesuai dengan kebutuhan seperti menambahkan data grid, dll 

Sekian tutorial saya kali ini bila ada kekurangan mohon di maafkan wassalamu'alaikum wr.wb :)