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
Artikel Terkait
Install Komponen Zeos di Delphi 7
ZEOS merupakan salah satu komponen tambahan untuk Delphi yang berfungsi sebagai koneksi antara Delphi dengan database
Input hanya angka di Delphi
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(Key in['0'..'9',#8]) then Key:=#0
end;
Input hanya huruf di Delphi
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(Key in['a'..'z']) then
Key:=#0
end;