Tutorial Delphi

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 Delphi. Jika Anda Belum Faham Bagaimana Koneksi Database Acces Ke Delphi, Silahkan Lihat Postingan Sebelumnya disini

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 :