Tutorial Delphi

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.

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);

 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);

 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 :)