September 28, 2021

Log Of Oyazhuryachna

Blog berbagi resource programming

Menghapus Data Melalui StringGrid di Delphi

Pada kesempatan kali ini penulis melanjutkan artikel tentang Mengisi StringGrid di Delphi, artikel lanjutan ini akan memodifikasi tampilan semula seperti tampak dibawah ini :

Penulis melakukan perubahan pada update contoh sebelumnya yaitu :

1. Pada saat event form onCreate langsung memangil procedure ambildata(), berbeda pada contoh pada gambar diatas procedure ambildata() dijalankan ketika mengklik tombol Tampilkan Barang

2. Penulis menambah tombol hapus, ketika salah satu baris diklik maka tombol hapus aktif dan ketika tombol hapus diklik maka akan keluar kotak konfirmasi penghapusan data

3. Penulis menambah Tombol About untuk menampilkan pembuat aplikasi

Keseluruhan contoh yang baru hasil update tampak seperti berikut :

hapus_via_sg_2

Untuk memodifikasinya berikut langkah-langkahnya :

1. Buat Procedure hapusdata()
hapus_via_sg_3

2. Buat variabel global baris,kolom dengan tipe integer untuk menampung alamat cell (kolom,baris) dari data yang terpilih dan variabel global kode_barang untuk menyimpan kode barang yang akan dihapus

hapus_via_sg_4

3. Pilih StringGrid kemudian pada tab event double click event onClick dan ketik script berikut :

hapus_via_sg_5

4. Buat satu tombol dalam hal ini tombol diberi nama button3, dan ubah property enabled menjadi false, kemudian lakukan double click pada tombol tersebut dan ketik script berikut :

hapus_via_sg_6

Demikian inti dari pada perubahan contoh pertama sehingga sekarang anda bisa menghapus data, untuk membuat kotak about silahkan pelajari sendiri đŸ™‚ tidak terlalu sulit untuk pemula !, pertanyaan berikutnya bagaimana jika saya akan menambah data karena seluruh data telah dihapus ? untuk sementara silahkan tambah data melalui MS Access dengan membuka file barang.mdb Selannjutnya kita modifikasi lagi aplikasi sederhana datas agar bisa menambah data melalui aplikasi.

Sebagai bahan latihan silahkan download full scriptnya !

DOWNLOAD

You may have missed