procedure TForm6.ConvexBtn2Click(Sender: TObject);
begin
if messagedlg ('yakin akan menghapus data'+ '" ' + DBEditTyped1.Value +' "'+' ini ??', mtInformation,[mbYes,mbNo],0)= mryes
then
begin
with data.ADOCommand1 do begin
CommandText := 'delete * from perangkat_elektronik where no_seri = :no';
Parameters.ParamByName('no').Value :=DBEditTyped1.Text;
CommandType := cmdText;
Execute;

DBEditTyped1.Text :='';
DBEditTyped2.text :='';
DBEditTyped3.text :='';
DBEditTyped4.text :='';
DBEditTyped5.Text :='';
showmessage ('data berhasil dihapus');

end;


end;
end;

end.