Melanjutkan artikel “Menghapus Data Melalui StringGrid di Delphi“, kali ini penulis akan melanjutkan progarm tersebut supaya lebih lengkap dengan menambahkan fitur input data, sebagaimana telah dibahas bahwa pada artikel tersebut baru bisa menampilkan data dan menghapus data, sedangkan untuk menginput data harus menginput manual dari MS Access.
Untuk menambahkan fitur input desain form utama akan yang semula tampak seperti berikut :
Akan ditambahkan tombol tambah. Adapun langkah-langkahnya adalah sebagai berikut :
Tambahkan tombol tambah disebelah pinggir tombol hapus sehingga tampak seperti berikut :
Buat form baru dan atur layout tampak seperti berikut :
Definisikan prosedur baru dengan nama SimpanData
include unit form utama dalam hal ini unit u_string_grid di unit u_tambah :
Buat prosedur SimpanData, koneksi ke database memanfaatkan komponen ADOQuery yang terletak di unit f_barang (unit u_string_grid)
Double klik tombol Simpan, tambahkan baris kode berikut :
Double klik tombol Batal, tambahkan baris kode berikut :
Jalankan program dan lakukan input
Setelah menyimpan maka ketika kotak dalog tambah data ditutup maka otomatis form utama di refresh
Sebagai bahan latihan, seperti biasa silahkan download file source aplikasi yang sudah jadi, semoga bermanfaat 1
Post a Comment