![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiVZkWAIdC2evL5ibqAeUEfNm2cDwEI4NsIQbBxe4niiTlPQ68THcA2QUIle2NrFx9WUW5e6Y8RoPtmOT24BFyyuD4cTkA0FiA23xKDREYHOdl-vnhkjQ9e76hbc9SlZbaLuWg3sTw1rqm/s320/DBGrid.jpg)
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 who are at Delphi, where we put all the components of the connection
- ADOTableTes = Component ADOTable
Post a Comment