BAB 4
Ubah Data Ubah data merupakan perintah yang sangat penting dalam pembuatan aplikasi karena suatu saat pasti perintah ini sangat diperlukan. Seperti halnya simpan data, kode program untuk melakukan ubah data juga banyak strukturnya tergantung programmer yang sering menggunakannya. Disini penulis akan menjelaskan 2 struktur kode program ubah data yang biasa penulis gunakan dalam pembuatan aplikasi. 4.1. Ubah Data Dengan Kode SQL Yang pertama ubah kode SQL disini penulis akan menuliskan kode SQL untuk mengubah datanya dengan menggunakan modul koneksi. 1.
Sebagai
database
dan
modul
menggunakan
database
DbJenisBrg.mdb dan modul yang telah dibuat pada bab sebelumnya cuman ganti nama sqlSimpan menjadi sqlUbah. Tampilannya seperti dibawah ini.
36 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
2. Kemudian aktifkan objek Adodb terlebih dahulu dari menu Project – References. 3. Akan muncul jendela References – Project1, aktifkan tanda cek pada menu Microsoft AxtiveX Data Objects 2.1 Library. Kemudian klik tombol OK. Berikut tampilannya :
Gambar 4.1 – Tampilan Penambahan Objek Adodb
4.
Kemudian buatlah project baru dan pada area form1 tambahkan beberapa komponen diantaranya Label ( TextBox (
), komponen CommandButton (
komponen MsFlexGrid ( Komponen Form 1 Label 1 Lebel 2 Lebel 3 Text1 Text2 Command 1
) komponen ) dan
). Dengan ketentuan dibawah ini :
Properti Name Caption Caption Font - Size Caption Caption Name Text Name Text Name Caption
37 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
Nilai Form_Ubah :: UBAH JENIS BARANG UBAH JENIS BARANG 14 Kode Jenis Nama Jenis txtKodeJenis
txtNamaJenis cmdUbah &Ubah
Command 2 MsFlexGrid 1
Name Caption Cols
cmdKeluar &Keluar 2
Tabel 4.1 – Komponen dan Propertinya
5.
Sehingga desain tampilannya seperti dibawah ini.
Gambar 4.2 – Tampilan Desain Form
6.
Doubel klik pada area form, pada form_load ketik kode dibawah ini.
38 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
Keterangan : Penjelasan untuk kode program ini hampir sama dengan penjelasan dibab sebelumnya.
7.
Setelah selesai kemudian doubel klik pada tombol Ubah, maka akan muncul area untuk pengetikkan kode program dan ketik kode dibawah ini.
39 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
Maksud Kode Program :
Kode
Digunakan untuk kondisi ketika inputan masih kosong maka akan muncul kotak dialog untuk perhatian, sebaliknya kalau semua inputan sudah diisi maka akan membaca kode selanjutnya.
Kode
1 2
Digunakan untuk mengganti data kedalam (1) field-field yang ada pada Tabel_Jenis_Brg sesuai dengan nama (2) inputan pada form berdasarkan Kode_Jenis. Jadi yang bisa diubah disini hanya Nama Jenisnya saja untuk Kode Jenis tidak bisa diubah karena sebagai index.
40 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
Kode
1 2
Digunakan untuk (1) memunculkan kotak dialog setelah proses pengubahan berhasil, dan (2) mengembalikan form ke kondisi semula.
8.
Kemudian doubel klik pada komponen MsFlexGrid dan ubah eventnya menjadi DblClick.
Gambar 4.3 – Memindahkan Event
9.
Lalu ketik rumus dibawah ini.
41 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
Maksud Kode Program :
Kode
1 2
Digunakan (1) untuk membuat variabel baris untuk deklarasi sementara, dan (2) untuk menyeleksi Tabel_Jenis_Barang.
1
Kode
2
Digunakan untuk kondisi jika MsFlexGrid1 (1) menampilkan data maka data yang ada pada MsFlexGrid akan tampil pada inputan, sebaliknya jika (2) tidak ada data akan keluar dari sub kode program.
10. Setelah itu selesai doubel klik pada tombol Keluar, dan tuliskan kode program dibawah ini.
Keterangan : Penjelasan untuk kode program ini hampir sama dengan penjelasan dibab dibelumnya.
42 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
11. Lalu Coba jalankan form klik Run atau tekan F5. Caranya doubel klik salah satu data yang ada pada grid.
Gambar 4.4 – Tampilan Form Setalah Dijalankan
12. Lalu ubah data nama jenisnya menjadi SEPATU OLAHRAGA dan klik tombol Ubah. Maka data Nama Jenis akan terubah. Hasilnya seperti tampilan dibawah ini.
Gambar 4.5 – Tampilan Form Setalah Melakukan Perubahan Data
13. Kemudian simpan modul, form, dan project tersebut dengan nama Modul_Koneksi, Form_Ubah, dan Project_Ubah.
43 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
4.2. Ubah Data Menggunakan Komponen Yang kedua ubah data menggunakan komp0nen disini penulis menggunakan komponen Adodc sebagai alat untuk mengoneksikan Visual Basic ke Ms Access. 1.
Database yang digunakan masih DbJenisBrg.mdb.
2.
Buka program Visual Basic 6.0, kemudian pilih VB Enterprise Edition Control agar komponen-komponennya lengkap.
3.
Pada area form1 tambahkan beberapa komponen diantaranya Label
(
)
komponen
CommandButton ( komponen DataGrid ( Komponen Form 1 Label 1 Lebel 2 Lebel 3 Text 1 Text 2 Command 1 Command 2
Adodc 1
DataGrid 1
TextBox
(
),
komponen
), komponen Adodc (
) , dan
). Dengan ketentuan dibawah ini :
Properti Name Caption Caption Font - Size Caption Caption Name Text Name Text Name Caption Name Caption Name Caption Use Connection String Reocord Source Name Data Source
Nilai Form_Ubah :: UBAH JENIS BARANG UBAH JENIS BARANG 14 Kode Jenis Nama Jenis txtKodeJenis txtNamaJenis cmdUbah &Ubah cmdKeluar &Keluar Ado_Koneksi KONEKSI JENIS BARANG Provider=Microsoft.Jet.OL EDB.4.0;Data Source=DbJenisBrg.mdb;P ersist Security Info=False Tabel_Jenis_Brg Data_Jenis_Brg Ado_Koneksi
Tabel 4.2 – Komponen dan Propertinya
44 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
4.
Sehingga desain tampilannya seperti dibawah ini.
Gambar 4.6 – Tampilan Desain Form
5.
Caranya hampir sama seperti pada bab sebelumnya tentang koneksi menggunakan komponen. Koneksikan komponen Adodc1 ke database DbJenisBrg.mdb sampai test koneksi dan menentukan
record
source
untuk
tabelnya
yaitu
Tabel_Jenis_Brg dan kemudian tampilkan pada komponen DataGrid1.
Gambar 4.7 – Tampilan Desain Form Setelah Dikoneksikan
6.
Setelah database terkoneksi sekarang doubel klik pada tombol Ubah dan ketik kode program dibawah ini.
45 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
Maksud Kode Program :
Kode
Digunakan untuk kondisi ketika inputan masih kosong maka akan muncul kotak dialog untuk perhatian, sebaliknya kalau semua inputan sudah diisi maka akan membaca kode selanjutnya.
Kode
1 2
46 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
Digunakan untuk mengubah data kedalam (1) field-field yang ada pada Tabel_Jenis_Brg yang dikoneksikan oleh Ado_Koneksi sesuai dengan nama (2) inputan pada form.
Kode
1
Digunakan untuk (1) memunculkan kotak dialog setelah proses penyimpanan berhasil, dan (2) mengembalikan form ke kondisi semula. 7.
Kemudian doubel klik pada komponen Data_Jenis_Brg dan ubah eventnya menjadi DblClick.
Gambar 4.8 – Memindahkan Event
8.
Lalu ketik rumus dibawah ini.
Maksud Kode Program :
Digunakan ketika grid didoubel klik maka data yang ada pada Data_Jenis_Barang akan masuk ke inputan. 47 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
9.
Doubel klik juga pada tombol Keluar dan ketik kode program untuk keluar dibawah ini.
Maksud Kode Program :
Digunakan untuk mengakhiri program secara keseluruhan dan bisa juga menggunakan kode program Unload me.
10. Lalu Coba jalankan form klik Run atau tekan F5. Caranya doubel klik salah satu data yang ada pada grid.
Gambar 4.9 – Tampilan Form Setalah Dijalankan
14. Lalu ubah lagi data nama jenisnya menjadi SEPATU dan klik tombol Ubah, maka data Nama Jenis akan terubah. Hasilnya seperti tampilan dibawah ini.
48 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
Gambar 4.10 – Tampilan Form Setalah Melakukan Perubahan Data
15. Kemudian simpan modul, form, dan project tersebut dengan nama Modul_Koneksi, Form_Ubah, dan Project_Ubah.
49 | Atep Ruhiat Panduan Source Code Untuk Membuat Aplikasi Di Visual Basic 6.0
