TUTORIAL MEMBUAT APLIKASI CRUD SEDERHANA DI VB.NET DENGAN KONEKSI OLEDB

TUTORIAL MEMBUAT APLIKASI CRUD SEDERHANA DI VB.NET DENGAN KONEKSI OLEDB

Di Susun Oleh :

YOGY KRISNA PRATAMA

JURUSAN INFORMATIKA KOMPUTER LP3I KEDIRI 2016

Yogy Krisna Pratama 148110040129 LP3I Business College Kediri Informatika Komputer Email : [email protected]

PENGANTAR

 Mengapa memilih VB ? Tergantung anda sendirilah yang tau jawabanya. Visual Basic adalah salah satu bahasa pemrograman komputer yang sangat populer. VB.NET tampil dengan wajah yang sangat berbeda dengan VB 6 dalam hal pemrograman. .NET menyediakan strong typing dimana setiap variabel wajib didefinisikan scope dan tipe datanya. Ada juga fasilitas type safety yang sangat membantu dalam coding pemrograman. Demikian pula fasilitas intellisense yang mempermudah seorang programer dalam menentukan property, method, maupun function yang dipakai.  Banyak buku panduan VB.NET beredar luas dan hanya menjelaskan teori .NET Framework yang sulit dipahami. Oleh karena itu saya akan sedikit membagikan ilmu yang saya pelajari di Kampus LP3I KEDIRI mengenai VB.NET . Jika kita bermain dengan VB maka tidak lepas dari yang namanya Pemrograman Database. Karena setiap informasi yang akan diproses ada baiknya jika disimpan kedalam database. Pada pembuatan aplikasi sederhana ini saya menggunakan MICROSOFT VISUAL STUDIO 2012 sebagai editor serta desain aplikasinya, dan MICROSOFT SQL SERVER 2014 sebagai penampung data yang nantinya akan kita hubungkan dengan menggunakan koneksi OLEDB.  Oke ... ! saatnya kita masuk pada tahap awal pembuatan aplikasi. Simak dan pelajari baik – baik. Siapkan cemilan serta minuman kesukaan anda. Jangan lupa berdoa minta petunjuk pada Allah SWT supaya dipermudah dalam memahami artikel ini. Pastikan Laptop / PC kalian sudah terinstal Visual Studio dan SQL SERVER.

Aplikasi CRUD Sederhana VB.NET

2


MEMBUAT APLIKASI CRUD SEDERHANA DI VB.NET DENGAN KONEKSI OLEDB

1. Membuat Database Jalankan aplikasi SQL SERVER yang sudah anda instal dengan cara pilih menu START >> ALL PROGRAM >> MICROSOFT SQL SERVER 2014 >> SQL SERVER 2014 MANGEMENT STUDIO. Buat database dengan nama ‘db_mahasiswa’ serta buat tabel seperti gambar di bawah ini

Gb 1. Database

Anda bebas menggunakan versi SQL SERVER yang anda sukai, yang penting anda paham. Untuk tipe data saya menggunakan ‘VARCHAR’ kecuali untuk field ‘Tanggal_Lahir’ dan ‘Tahun_Ajaran’ menggunakan ’ DATETIME’. Sampai disini paham ?


3


2. Pembuatan Desain Form Nah.. proses selanjutnya adalah, silahkan jalankan MICROSOFT VISUAL STUDIO yang sudah kalian instal dengan cara pilih START >> MICROSOFT VISUAL STUDIO 2012 >> VISUAL STUDIO 2012. Setelah aplikasi terbuka buat sebuah project dengan nama ‘Aplikasi Sederhana’ caranya pilih NEW PROJECT >> WINDOWS FORMS APLICATION

Gb 2. New Project

Selanjutnya buatlah form baru dengan nama ‘Mahasiswa’ dengan cara klik kanan pada Poject yang kalian buat >> ADD >> WINDOWS FORM.

Kamudian tambahkan 2 Group Box, 8 Label, 5 Text Box, 1 Combo Box, 1 Datetime Picker, 5 Button, 1 Data Grid View dan 2 Picture Box. Ubah Properties dari masing – masing komponen seperti ini Group Box 1 Text

Group Box 2 Text

Label 1

Text Font + ForeColor BackColor

Input Data Mahasiswa

Cari Data

DATA MAHASISWA Arial Narrow; 25 pt; Bold Transparant SlateGray


4


Label 2 Text

Label 3 Text

Label 4 Text

Label 5 Text

Label 6 Text

Label 7 Text

Label 8 Text

Text Box 1 Name

Text Box 2 Name

Text Box 3 Name

NIM

Nama

Jenis Kelamin

Tanggal Lahir

IPK

Berdasarkan

Cari

TxtNim

TxtNama

TxtJenisKel


5


Text Box 4 Name

Text Box 5 Name

Combo Box 1 Name Items

Datetime Picker 1 CustomFormat Format

TxtIpk

TxtCari

CmbBerdasarkan NIM Nama

dd/MM/yyyy Short

Picture Box 1 & Picture Box 2 BackColor Button 1 Name

Button 2 Name

Button 3 Name

Button 4 Name

Button 5 Name

SlateGray

BtnTambah

BtnSimpan

BtnEdit

BtnHapus

BtnBatal


6


Untuk desainya kurang lebih seperti ini, kalian bisa kreasikan sesuai dengan keinginan masing - masing

Gb 3. Form Mahasiswa


7


3. Membuat Modul Modul bersifat public, jadi perintah yang sudah di definisikan / dideklarasikan di dalam modul dapat di panggil / dipakai di semua form dalam satu project. Untuk koneksi OLEDB nya juga saya buat dalam modul ini. Cara menambahkan modul yaitu, klik kanan pada Project yang kalian buat >> ADD >> MODULE Lalu ketikan code seperti ini Imports System.Data.Sql Imports System.Data.SqlClient Module Module1 'Perintah untuk koneksi ke database Public CONN As New OleDb.OleDbConnection 'Untuk menjalankan perintah Public CMD As New OleDb.OleDbCommand 'Untuk menjalankan perintah SQL Public RS As OleDb.OleDbDataReader 'Untuk Data set & Gridview Public CMD_Adapter As New OleDb.OleDbDataAdapter Public Sub Koneksi_DB_OLEDB()

CEK:

'Untuk Koneksi OLEDB

On Error GoTo CEK Dim Sumber As String Sumber = "Provider=SQLOLEDB;Data Source=.\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=db_mahasiswa" CONN = New OleDb.OleDbConnection(Sumber) CONN.Open() Exit Sub

MsgBox(Err.Description, MsgBoxStyle.Information, "KONEKSI ERROR") End Sub End Module

Note : Imports System.Data.Sql Imports System.Data.SqlClient

Karena menggunakan SQL SERVER sebagai servernya maka wajib menuliskan kode ini di atas Class Module. Sesuaikan kode pada ‘Public Sub Koneksi_DB_OLEDB()’ yang sudah saya beri warna oranye. .\SQLEXPRESS adalah nama server yang saya pakai untuk login SQL SERVER. db_mahasiswa adalah nama database yang telah kita buat tadi di dalam SQL SERVER. Kita tinggal memanggil Function yang telah kita buat. Misalkan kita ingin memanggil koneksi, maka kita tinggal ketikan Call Koneksi_DB_OLEDB()

Sampai disini apakah kalian masih bingung ???


8


4. Source Code Form Mahasiswa Oke kawan.. kita masuk pada tahap selanjutnya, yaitu menambahkan function pada setiap komponen. Pertama masukan kode ini di atas Class Mahasiswa Imports System.Data.OleDb

Note : Karena kita menggunakan konekksi ‘OLEDB’ maka kita pakai kode diatas untuk Imports fungsi yang ada.  Menampilkan Data Ke Dalam DataGridView Agar data yang ada pada database dapat tampil ke dalam DataGridView maka ketikan kode di bawah ini dalam form Mahasiswa Sub GRID() Call Koneksi_DB_OLEDB()

Dim Query As String = "" Query = "SELECT * From mahasiswa ORDER BY Nim ASC" CMD_Adapter = New OleDb.OleDbDataAdapter(Query, CONN)

Dim RS_Table As New DataTable RS_Table.Clear() CMD_Adapter.Fill(RS_Table) With Me.DataGridView1 .DataSource = RS_Table .SelectionMode = DataGridViewSelectionMode.FullRowSelect .AllowUserToAddRows = False .AllowUserToResizeColumns = True .AllowUserToResizeRows = False

'buat warna zebra .DefaultCellStyle.ForeColor = Color.Black 'warna font .RowsDefaultCellStyle.BackColor = Color.Azure .AlternatingRowsDefaultCellStyle.BackColor = Color.White .GridColor = Color.Green End With RS_Table.Dispose() CMD_Adapter.Dispose() CMD_Adapter = Nothing End Sub

Note : Jangan lupa panggil koneksi pada modul untuk tersambung dengan database kita di SQL SERVER serta ketikan query untuk menampilkan isi database pada table ‘mahasiswa’. Perhatikan source code di bawah ini Call Koneksi_DB_OLEDB()'Memanggil koneksi

Dim Query As String = "" 'Query untuk menampilkan isi pada tabel mahasiswa Query = "SELECT * From mahasiswa ORDER BY Nim ASC" CMD_Adapter = New OleDb.OleDbDataAdapter(Query, CONN)

Selanjutnya beri event ‘Load’ pada form mahasiswa dengan cara Double klik pada form mahasiswa dan panggil function diatas Private Sub Mahasiswa_Load(sender As Object, e As EventArgs) Handles MyBase.Load Call GRID() End Sub


9


‘Load’ adalah event dimana ketika form berjalan / terbuka maka akan menjalankan function yang di masukan. Perintah diatas berarti ketika form di jalankan maka akan menjalankan Function GRID().

Kemudian coba jalankan aplikasinya dengan tekan tombol ‘F5’ pada keyboard maka akan muncul nama field pada table mahasiswa di dalam DataGridView

Gb 4. Menampilkan Data

Kenapa isinya kosong ?? Karena dalam tabel mahasiswa memang belum ada isinya. Jika ada isinya maka Insyallah data akan tampil kawan ... Oke Lanjut ...

 Mengkosongkan TextBox Function ini saya buat dengan maksud, untuk mengkosongkan isi dari TextBox yang akan kita inputkan. Langsung saja ini source codenya Sub Bersih() TxtNim.Text = "" TxtNama.Text = "" TxtJenisKel.Text = "" DateTimePicker1.Text = "" TxtIpk.Text = "" TxtNim.Focus() End Sub

Function ini nanti akan saya panggil pada saat ‘Button Batal’ di klik, dan setelah proses Simpan, Update / Edit, dan Hapus.


10


 Menambahkan Event CellContentClick Masih di dalam form mahasiswa, Event ini akan mempermudah kita dalam memilih data yang akan kita proses hanya dengan mengKliknya saja. Ketika data dalam table DataGridView kita pilih maka komponen TextBox akan terisi sesuai dengan data tabel yang kita pilih. ‘Double Klik’ pada komponen ‘DataGridView’ kemudian ketikan Source Code seperti ini Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick TxtNim.Text = DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value() TxtNama.Text = DataGridView1.Item(1, DataGridView1.CurrentRow.Index).Value() TxtJenisKel.Text = DataGridView1.Item(2, DataGridView1.CurrentRow.Index).Value() DateTimePicker1.Text = DataGridView1.Item(3, DataGridView1.CurrentRow.Index).Value() TxtIpk.Text = DataGridView1.Item(4, DataGridView1.CurrentRow.Index).Value() End Sub

 Membuat N I M Otomatis Function ini akan mempermudah dalam mengetikan N I M saat menambah data. Sub AutoNIM() 'Buat NIM secara urut dan otomatis Dim strTemp As String = "" Dim strValue As String = "" Dim NIM As String NIM = "SELECT * FROM mahasiswa ORDER BY Nim DESC" CMD = New OleDb.OleDbCommand(NIM, CONN) RS = CMD.ExecuteReader If RS.Read Then strTemp = Mid(RS.Item("Nim"), 3, 5) Else TxtNim.Text = "MH00001" Exit Sub End If

strValue = Val(strTemp) + 1 TxtNim.Text = "MH" & Mid("00000", 1, 5 - strValue.Length) & strValue TxtNim.BackColor = Color.Snow TxtNim.ForeColor = Color.Teal End Sub

Nah kemudian panggil function AutoNIM() diatas di dalam Button Tambah dengan Event Click dengan cara Double Klik Button Tambah Private Sub BtnTambah_Click(sender As Object, e As EventArgs) Handles BtnTambah.Click Call AutoNIM() End Sub


11


Dengan demikian maka ketika Button Tambah kita Klik maka TxtNim.Text akan muncul NIM MH00001, MH00002 dst secara urut dengan otomatis

Gb 5. Auto NIM

 Menambahkan Function Simpan Namanya juga Aplikasi CRUD, ngga afdol bila ngga ada CRUD nya. Oke saat nya membuat function Simpan. Simak baik – baik source codenya Sub Simpan_Data() Call Koneksi_DB_OLEDB()

Dim Simpan As String Simpan = " INSERT INTO mahasiswa" & _ "(Nim, Nama, Jenis_Kelamin, Tanggal_Lahir, Ipk)" & _ " VALUES " & _ " ('" & Me.TxtNim.Text & "' " & _ " ,'" & Me.TxtNama.Text & "' " & _ " ,'" & Me.TxtJenisKel.Text & "' " & _ " ,'" & Me.DateTimePicker1.Value.ToString("yyyy-MM-dd") & "' " & _ " ,'" & Me.TxtIpk.Text & "')" CMD = New OleDb.OleDbCommand(Simpan, CONN) CMD.ExecuteNonQuery() MsgBox("Data Mahasiswa Telah Disimpan !!", vbInformation) GRID() Bersih() End Sub

Note : Panggil koneksinya kemudian ketikan querinya seperti diatas. Perhatikan pula source code yang satu ini !! MsgBox("Data Mahasiswa Telah Disimpan !!", vbInformation) GRID() Bersih()


12


Ini artinya adalah ketika proses Simpan berhasil, maka akan menampilkan Message / pesan “Data Mahasiswa Telah Disimpan”. Biar lebih interaktif gitu kawan...

Gb 6. Simpan Data

GRID() di panggil lagi untuk menampilkan DataGridView tanpa mereload formnya. Bersih() di panggil untuk mengkosongkan TextBox setelah proses Simpan.

Gb 7. TextBox Kosong dan Tampilkan Data


13


 Menambahkan Function Edit / Update Data Setelah data berhasil disimpan maka kita lanjut pada proses selanjutnya yaitu Edit Data. Monggo.. ini source codenya Sub Edit() Call Koneksi_DB_OLEDB()

Dim edit As String edit = "UPDATE mahasiswa SET " & _ "Nim ='" & TxtNim.Text & "'" & _ ",Nama ='" & TxtNama.Text & "'" & _ ",Jenis_Kelamin ='" & TxtJenisKel.Text & "'" & _ ",Tanggal_Lahir ='" & DateTimePicker1.Value.ToString("yyyy-MM-dd") & "'" & _ ",Ipk ='" & TxtIpk.Text & "'" & _ "WHERE Nim ='" & TxtNim.Text & "'" CMD = New OleDb.OleDbCommand(edit, CONN) CMD.ExecuteNonQuery() MsgBox("DATA TELAH DI UPDATE", MsgBoxStyle.Information) GRID() Bersih() End Sub

Kemudian panggil Function diatas pada Button Edit dengan Event Click. Double klik pada Button Edit Private Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click Call Edit() End Sub

Contoh Kasus : Setelah input data dan disimpan ehh ternyata ada kesalahan dalam menginputkan IPK. Nilai IPK seharusnya 4.00 bukan 3.75. Waduh.. gimana nih... Nah dengan cara diatas kasus ini dapat terselesaikan. Saya akan buktikan !! Klik data pada tabel DataGridView, maka TextBox akan terisi sesuai data dan Fieldnya. Lihat gambar di bawah ini

Gb 8. Edit Data


14


Ubah Nilai ‘3.75’ menjadi ‘4.00’ kemudian Klik Button Edit

Gb 9. Proses Edit Data

Jika proses edit berhasil maka akan muncul pesan “DATA TELAH DI UPDATE” Dan lihat hasilnya..

Gb 10. Edit Success

Nah selesai deh kasusnya...., Gimana kawan ada pertanyaan ??


15


 Menambahkan Function Delete / Hapus Lanjut ketahap selanjutnya yaitu Hapus data. Source code seperti ini kawan Sub Delete() Dim Konfirmasi As String Konfirmasi = MsgBox("APAKAH DATA MAHASISWA AKAN DI HAPUS ?", vbQuestion + vbYesNo) If Konfirmasi = vbYes Then Call Koneksi_DB_OLEDB() Dim del As String del = "DELETE FROM mahasiswa WHERE Nim='" & TxtNim.Text & "'" CMD = New OleDb.OleDbCommand(del, CONN) CMD.ExecuteNonQuery() CMD.Dispose() CONN.Close() MsgBox("DATA MAHASISWA TELAH DI HAPUS", MsgBoxStyle.Information) GRID() Bersih() Else Exit Sub End If End Sub

Double klik pada Button Hapus. Panggil Function Delete() pada Buton Hapus. Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click Call Delete() End Sub

Note : Ketika proses ini di jalankan akan ditanya “APAKAH DATA AKAN DI HAPUS ?”

Gb 11. Hapus ??

Jika “No” maka proses Hapus batal. Jika “Yes” maka proses berlanjut dan muncul pesan seperti ini

Gb 12. Hapus Data

Nah data telah terhapus dengan sukses..


16


 Menambahkan Function Cencel / Batal Mudah saja kawan, ‘Batal’ disini adalah kondisi dimana sesuatu yang sudah di inputkan namun tidak jadi di proses. Maka TextBox akan dikosongkan. Logikanya seperti ini.. Contoh Kasus : Saya menginputkan data NIM, Nama, Jenis Kelamin, Tanggal Lahir dan IPK ternyata data ini tidak jadi di proses maka saya harus mengkosongkan lagi TextBox – TextBox nya .. Nah dari pada mengkosongkan satu per satu mending kita panggil saja Function Bersih() yang sudah kita buat di awal tadi, mudah bukan.. ?? Double klik pada ‘Button Batal’, panggil Function Bersih(). Private Sub BtnBatal_Click(sender As Object, e As EventArgs) Handles BtnBatal.Click Call Bersih() End Sub

Nah semua proses CRUD telah kita buat dalam Aplikasi Sederhana ini. Simple dan mudah kan kawan ?? Oke saya ada tambahan sedikit buat kalian yaitu “Cara Membuat Pencarian Data” Simak baik – baik .. 5. Membuat Pencarian Data Jika data dalam database sedikit, maka tidak perlu menggunakan pencarian data. Namun ketika data dalam database beribu – ribu maka ketika kita akan mencari atau pun melihat sebuah data maka akan kesulitan mencari satu persatu. Oleh karena itu saya membuat Pencarian Data untuk mempermudah kinerja kita. Ini source codenya kawan Sub Pencarian() Dim kriteria As String

Call Koneksi_DB_OLEDB()

If CmbBerdasarkan.SelectedIndex = 0 Then kriteria = "Nim" Else kriteria = "Nama" End If Dim cari As String = "" cari = "SELECT * FROM mahasiswa " & _ " WHERE " & kriteria & " LIKE '%" & Trim(TxtCari.Text) & "%'" & _ " ORDER BY " & kriteria & "" CMD_Adapter = New OleDb.OleDbDataAdapter(cari, CONN)

Dim RS_Table As New DataTable RS_Table.Clear() CMD_Adapter.Fill(RS_Table)

With Me.DataGridView1 .DataSource = RS_Table

.SelectionMode = DataGridViewSelectionMode.FullRowSelect .AllowUserToAddRows = False End With

RS_Table.Dispose() CMD_Adapter.Dispose() CMD_Adapter = Nothing End Sub

Panggil Function Pencarian() pada ‘TxtCari’ dengan Event ‘TextChanged’ Private Sub TxtCari_TextChanged(sender As Object, e As EventArgs) Handles TxtCari.TextChanged Call Pencarian() End Sub


17


Lihat Gambar Dibawah ini

Gb 13. Pencarian Data

Nah dari langkah ini kita sudah menyelesaikan proses CRUD serta Searching pada Aplikasi Sederhana ini dalam satu tabel database. Sebenarnya mudah, mata harus teliti dan pastikan Query untuk menampilkan data dari database itu cocok dan jalan. Sekarang tugas kalian adalah membuat form kedua dan ketiga. Untuk desainnya seperti ini Form Matakuliah

Gb 14. Form Matakuliah


18


Note : Tidak perlu saya jelaskan secara detail, intinya sama. Tambahkan komponen sesuai desain gambar diatas. Ubah properties setiap komponen sesuai keinginan lalu buatlah CRUD seperti yang sudah saya jelaskan sebelumnya. Kalian bisa Copy Paste Source Code diatas namun sesuaikan dengan komponen yang kalian pakai dan Name setiap komponen. Form Peserta

Gb 15. Form Peserta

Note : Terdapat perubahan di dalam form Peserta. Untuk NIM kali ini komponen yang dipakai adalah ComboBox. Yang mana isi dari ComboBox mengambil dari data field Nim pada tabel mahasiswa. Sama halnya dengan Kode Mata Kuliah juga menggunakan ComboBox. Yang mana isi dari ComboBox mengambil dari data field Kode_MK pada tabel matakuliah.


19


 Cara isi ComboBox dengan mengambil data dari tabel Masuk pada form Peserta tekan ‘F7’ untuk masuk codingnya lalu ketikan function berikut Sub Isi_Combo_Nim()


Dim isicombo As String isicombo = "SELECT Nim FROM mahasiswa" CMD = New OleDb.OleDbCommand(isicombo, CONN) RS = CMD.ExecuteReader CmbNim.Items.Clear() CmbNim.Text = "Pilih N I M"

Do While RS.Read() CmbNim.Items.Add(RS("Nim")) Loop End Sub

Tambahkan juga code berikut untuk menampilkan Nama sesuai dengan NIM yang di panggil Sub MUNCULKAN_Nama()

Call Koneksi_DB_OLEDB() Dim isi As String isi = "SELECT * FROM mahasiswa WHERE Nim = '" & CmbNim.Text & "' " CMD = New OleDb.OleDbCommand(isi, CONN) Dim RS As OleDb.OleDbDataReader RS = CMD.ExecuteReader() If RS.Read Then TxtNama.Text = RS("Nama") Else MsgBox("DATA TIDAK ADA", vbInformation) TxtNama.Clear() End If RS.Close() CMD.Dispose() CONN.Close() End Sub

Buat lagi isi ComboBox dengan mengambil Kode_MK dari tabel matakuliah Sub Isi_Combo_Kode_MK()


Dim isicombo As String isicombo = "SELECT Kode_MK FROM matakuliah" CMD = New OleDb.OleDbCommand(isicombo, CONN) RS = CMD.ExecuteReader CmbKodeMK.Items.Clear() CmbKodeMK.Text = "Pilih Kode Matakuliah"

Do While RS.Read() CmbKodeMK.Items.Add(RS("Kode_MK")) Loop End Sub


20


Tambahkan juga code berikut untuk menampilkan Nama Mata Kuliah sesuai dengan Kode_MK yang di panggil Sub MUNCULKAN_NAMA_MK()

Call Koneksi_DB_OLEDB() Dim isi As String isi = "SELECT * FROM matakuliah WHERE Kode_MK = '" & CmbKodeMK.Text & "' " CMD = New OleDb.OleDbCommand(isi, CONN) Dim RS As OleDb.OleDbDataReader RS = CMD.ExecuteReader() If RS.Read Then TxtNamaMK.Text = RS("Nama_MK") Else MsgBox("DATA TIDAK ADA", vbInformation) TxtNamaMK.Clear() End If RS.Close() CMD.Dispose() CONN.Close() End Sub

Nah kemudian tinggal kita panggil Function Isi_Combo_Nim() dan Isi_Combo_Kode_MK() pada event ‘Load’. Double klik pada form Peserta lalu masukan kode berikut Private Sub Peserta_Load(sender As Object, e As EventArgs) Handles MyBase.Load Call Isi_Combo_Nim() Call Isi_Combo_Kode_MK() End Sub

Panggil juga Function MUNCULKAN_Nama() di dalam event ‘SelectedIndexChanged’ dengan cara Double klik pada ComboBox NIM lalu ketikan Private Sub CmbNim_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbNim.SelectedIndexChanged Call MUNCULKAN_Nama() End Sub

Panggil juga Function MUNCULKAN_NAMA_MK() di dalam event ‘SelectedIndexChanged’ dengan cara Double klik pada ComboBox Kode Matakuliah lalu ketikan Private Sub CmbKodeMK_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbKodeMK.SelectedIndexChanged Call MUNCULKAN_NAMA_MK() End Sub


21


Lihat gambar di bawah ini

Gb 16. Isi Combo Nama

Gb 17. Isi Combo Kode_MK


22


6. Finishing Untuk penyempurnaan aplikasi yang sangat sederhana ini buat yang namanya ‘MDIParent’ caranya klik kanan pada Project yang kalian buat >> ADD >> WINDOWS FORM.. >> WINDOWS FORMS >> MDIPARENT FORM. Desain MDIParent seperti ini

Gb 18. MDIParent

Gb 19. Data Mahasiswa_MDIParent


23


Klik pada Tab MAHASISWA >> Double Klik ‘Data Mahasiswa’ lalu masukan code berikut Private Sub DataMahasiswaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataMahasiswaToolStripMenuItem.Click Dim formA As New Mahasiswa 'Name dari Form Mahasiswa formA.MdiParent = Me formA.Show() End Sub

Note : Ketika ‘Data Mahasiswa’ di klik maka ‘Form Mahasiswa’ akan terbuka

Gb 20. Data Mahasiswa


Gb 21. Data_MDIParent

24


Klik pada Tab MATAKULIAH >> Double Klik ‘Daftar Mata Kuliah’ lalu masukan code berikut Private Sub DaftarMataKuliahToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DaftarMataKuliahToolStripMenuItem.Click Dim formB As New Matakuliah 'Name dari Form Matakuliah formB.MdiParent = Me formB.Show() End Sub

Klik pada Tab MATAKULIAH >> Double Klik ‘Daftar Peserta’ lalu masukan code berikut Private Sub DaftarPesertaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DaftarPesertaToolStripMenuItem.Click Dim formC As New Peserta 'Name dari Form Peserta formC.MdiParent = Me formC.Show() End Sub

Gb 22. Data Matakuliah_MDIParent

Gb 23. Data Peserta_MDIParent


25


Terakhir, Double klik pada Tab ‘KELUAR APLIKASI’ lalu masukan code berikut Private Sub KELUARAPLIKASIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KELUARAPLIKASIToolStripMenuItem.Click Me.Close() End Sub

Note : Ketika Tab ‘KELUAR APLIKASI’ di klik maka aplikasi akan menutup. PENUTUP

 Pembuatan aplikasi sederhana telah selesai, tinggal kalian kembangkan sendiri. Intinya butuh kemauan, ketelitian dan ketlatenan dalambelajar VB.NET. Sampai disini tutorial pembelajaran CRUD kali ini. Semoga bermanfaat. ----- SALAM SUKSES -----


26


BIOGRAFI PENULIS

Yogy Krisna Pratama Lahir di Kediri, 20 Nopember 1996. Jurusan Informatika Komputer di LP3I BUSINESS COLLEGE KEDIRI. Senang mengutakatik computer dan jaringan. Suka iseng membuat dan meng edit foto. Keahlian, sedikit mengerti dan sedang mempelajari beberapa bahasa pemrograman seperti : VB.Net, PHP. Database : Access, dan SQL Server. Suka juga membuat kreatifitas melalui Corel Draw dll : Vektor, Line Art, WPAP.

Kritik Dan Saran : [email protected]


27

TUTORIAL MEMBUAT APLIKASI CRUD SEDERHANA DI VB.NET DENGAN KONEKSI OLEDB

Recommend Documents