document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. with AdoQuery1 do begin
  2.   Close;
  3.   SQL.Clear;
  4.   SQL.Text:= \'INSERT INTO spp (nis,nama,tanggal_lhr) \'+\' VALUES (:parNIS, :parNama, :parTanggal_lhr)\';
  5.   parameters.ParamByName(\'parNIS\').Value:= Edit1.Text;
  6.   parameters.ParamByName(\'parNama\').Value:= Edit2.Text;
  7.   parameters.ParamByName(\'parTanggal_lhr\').Value:= FormatDateTime(\'yyyy/mm/dd\',DateTimePicker1.Date);
  8.   ExecSQL;
  9.   end;
  10. with AdoQuery1 do begin
  11.   Close;
  12.   SQL.Clear;
  13.   SQL.Text:=\'SELECT*FROM spp\';
  14.   Open;
  15. end;
');