procedure TForm1.Button1Click(Sender: TObject);
begin
If DM.ADOTableTes.RecordCount=0 then
begin MessageDlg('Data Kosong jadi tidak bisa dihapus',mtInformation,[mbOK],0)
end else
DM.ADOTableTes.Delete;
end;
Description:
- DM = DataModule yang di Delphi, di mana kita meletakkan semua komponen dari koneksi
- ADOTableTes = Komponen ADOTable
EmoticonEmoticon