Insert Update dan Delete MySQL dengan Query Bagian II

Dalam membangun aplikasi, kemampuan menggunakan perintah-perintah kedatabase (query) sangat diperlukan guna membuat aplikasi menjadi lebih interaktif dan powerfull. Sebelumnya sudah pernah saya bahas tentang bagaimana membuat proses input, update dan delete data menggunakan Query yang saya contohkan dengan database acces. Sedikit berbeda dengan hal tersebut karena pada postingan ini query yang akan kita gunakan adalah milik MySQL dan tanpa parameter.

Pada contoh gambar diatas saya menggunakan dua buah form dimana form utama digunakan untuk menampilkan data sedangkan form kedua digunakan untuk fasilitas input dan update data sedangkan Untuk pencarian data saya menggunakan inputbox. Berikut adalah contoh coding yang saya gunakan

1. Coding Simpan data dengan Query

with form1.ADOQuery1 do begin
Close;
SQL.Text:='INSERT INTO anggota (nama,telepon,alamat,keterangan) VALUES ("'+Edit1.Text+'","'+Edit2.Text+'","'+Memo1.Text+'","'+Edit3.Text+'")';
ExecSQL;
SQL.Text:='SELECT * FROM anggota';
Open;
end;
MessageDlg('Data Berhasil di Simpan !',mtInformation,[mbok],0);

2. Coding Update atau Edit data dengan Query

 with form1.ADOQuery1 do begin
  Close;
  SQL.Text:='UPDATE anggota set nama="'+Edit1.Text+'",telepon="'+Edit2.Text+'",alamat="'+Memo1.Text+'",keterangan="'+Edit3.Text+'" WHERE id="'+Label5.Caption+'"';
  ExecSQL;
  SQL.Text:='SELECT * FROM anggota';
  Open;
  end;
  MessageDlg('Data Berhasil di Update !',mtInformation,[mbok],0);

3. Coding Delete data Dengan Query

 if ADOQuery1.RecordCount<=0 then
  ShowMessage('Data Tidak ada Bro') else
  begin
 if MessageDlg('Anda Ingin Menghapus Data '+ADOQuery1['nama']+' ?', mtConfirmation,[mbyes,mbno],0)=mryes then
 begin
  id := ADOQuery1['id'];
  with ADOQuery1 do begin
  Close;
  SQL.Text:='DELETE from anggota WHERE id="'+id+'"';
  ExecSQL;
  SQL.Text:='SELECT * FROM anggota';
  Open;
  end;
  end else
  abort;
  end;

4. Coding Pencarian data dengan Inputbox

 var
cari:string;
begin
cari:=InputBox('Nama Yang Dicari ?','Nama : ','');
// Prose Pencarian Data
if cari='' then
abort else
  begin
  if not ADOQuery1.Locate('nama',cari,[loPartialKey]) then
  ShowMessage('Tidak Ada Data !');
  abort;
  end;
end;

Adapun contoh source code lengkap beserta database dapat anda download disini. Happy Coding :)