Kali ini saya akan berbagi artikel tentang Bagaimana Cara Input Data Kedalam Database Acces Dengan Menggunakan Delphi
Sekedar Informasi tentang komponen yang kita gunakan disini adalah sebagai berikut
- 3 Buah Komponen Edit
- 4 Buah Komponen Button
- 1 Buah Komponen Combobox
- 2 Buah Komponen Radio Button
- 1 Buah Komponen DBGRID
- 1 Buah Komponen AdoConnection
- 1 Buah Komponen Datasource
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 :
// Misal Mau Edit Keterangan
ADOTable1.Edit;
ADOTable1.FieldByName('Keterangan').AsString:=Edit3.Text;
ADOTable1.Post;
Untuk Proses Update ini sebenarnya akan menjadi lebih bagus jika kita menambahkan Sebuah Form baru dimana data-data yang akan di update akan ditampilan pada komponen edit yang ada di form tersebut dan proses updatenyapun ada pada Form Tersebut (Button).
Klik Dua Kali Pada Button Batal dan Masukan Kode ini :
ADOTable1.Cancel;
Hasil Saya seperti ini :
pada contoh diatas,,edittext,, kalau chekcbox atau radiobutton, gimana ya Mbak???Please,,,
ReplyDelete