nih koding simpan : procedure TForm6.Button1Click(Sender: TObject); begin if Edit1.Text='' then ShowMessage('Nama Alat belum di isi') else if dm.aq2.Locate('ket_folder',Edit1.Text,) then begin ShowMessage('Data Sudah Ada'); Edit1.SetFocus; end else begin with DM.AQ2 do begin SQL.Clear; SQ
