Cara Edit dan Delete Data di Database dengan Delphi RAD Meng

with AdoQuery1 do begin
  Close;
  SQL.Clear;
  SQL.Text:='UPDATE spp SET nama =:parNama , tanggal_lhr=:parTanggal_lhr WHERE nis=:parNIS ';
  parameters.ParamByName('parNIS').Value:= Edit1.Text;
  parameters.ParamByName('parNama').Value:= Edit2.Text;
  parameters.ParamByName('parTanggal_lhr').Value:= FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date);
  ExecSQL;
  end;
with AdoQuery1 do begin
  Close;
  SQL.Clear;
  SQL.Text:='SELECT*FROM spp';
  Open;
end;