Menghapus Data Di Delphi Menggunakan SQL

Untuk Menghapus Record yang ada di DBGRID pada Delphi kita bisa menggunakan perintah SQL delete. Dimana cara kerja program event hapus disimpan di pop up menu. Jadi ketika klik kanan pada record dbgrid menu hapus muncul selanjutnya menjalankan perintah SQL delete. Hanya saja Query harus di refresh supaya DBGRID bisa refresh. Syntak SQL nya adalah sebagai berikut.

SQL Coding

SQL Delete

procedure TFGrade_Karyawan.HapusRecord1Click(Sender: TObject); begin if MessageDlg('Yakin Data Akan di Hapus ?',    mtConfirmation,[mbYes,mbNo],0)= mrYes then with dm.qr do if qrkerja.RecordCount = 0 then    application.MessageBox ('Data Kosong tidak bisa dihapus!','SIM',MB_OK+ MB_NOFOCUS + MB_ICONERROR) else   begin     close;     sql.Clear;     sql.Add('delete from tbjkerja where idkerja = "'+qrkerjaidkerja.AsString+'"');     ExecSQL;     qrkerja.Refresh;     ShowMessage('Data Sudah dihapus');   end; end;

 

 Keterangan

 

Pada Syntak diatas saya tambahkan validasi untuk mencegah penghapusan jika record telah kosong. Dengan syntak :

if qrkerja.RecordCount = 0 then

   application.MessageBox ('Data Kosong tidak bisa dihapus!','Info',MB_OK+ MB_NOFOCUS + MB_ICONERROR)

Tampilan Desain Form

Form Hapus Record

Selamat Mencoba

Share

Artikel Lainnya :