Input, Update dan Delete Pada Database Acces

Pada Postingan Sebelumnya Kita Sudah Membahas Bagaimana Mengkoneksikan Database Ke Delphi. Mulai dari Database Desktop, Database Acces dan Database My SQL Selanjutnya Admin Mau Sharing Tentang Bagaimana Cara Input Data Kedalam Database Acces Dengan Menggunakan Bahasa Delphi. Jika Anda Belum Faham Bagaimana Koneksi Database Acces Ke Delphi, Silahkan Baca Disini! Nah, Untuk Masalah Koneksi Saya Kira Sudah Tidak Ada Masalah Lagi. selanjutnya mari Kita Mulai Mendesain Aplikasinya.

Ceritanya Kita akan Membuat Aplikasi CRUD Data Mahasiswa. Mari kita mulai mendesain Aplikasinya. kalo Desain Saya Seperti ini :

Kedua, Buatlah Database-nya. saya kira Sudah Tidak ada masalah Lagi. Jika Tidak Baca Postingan Sebelumnya ;)
Ketiga, Koneksikan Database yang sudah dibuat.
Keempat, Klik dua kali Button Simpan dan Masukan Code ini :
var
jk : String;
begin
if RadioButton1.Checked=true then
jk:='Laki-Laki' else jk:='';
if RadioButton2.Checked=true then
jk:='Perempuan' else jk:='';
ADOTable1.Append;
ADOTable1.FieldByName('Nama').AsString:=Edit1.Text;
ADOTable1.FieldByName('NIM').AsString:=Edit2.Text;
ADOTable1.FieldByName('JenisKelamin').AsString:=jk;
ADOTable1.FieldByName('Agama').AsString:=ComboBox1.Text;
ADOTable1.FieldByName('Keterangan').AsString:=Edit3.Text;
ADOTable1.Post;
end;
Kelima,
Klik Dua Kali Pada Button Hapus dan Masukan Kode ini :
ADOTable1.Delete;
Klik Dua Kali Pada Button Edit dan Masukan Kode ini :
ADOTable1.Edit;
Klik Dua Kali Pada Button Batal dan Masukan Kode ini :
ADOTable1.Cancel;
Hasil Saya seperti ini :

Selamat Mencoba..

Share :