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 :

Untuk memodifikasinya berikut langkah-langkahnya :

1. Buat Procedure hapusdata()

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

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

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 :

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

admin

See author's posts