begin
    with dm.t_detpembelian do
    try
     begin
      close;
      SQL.Clear;
      SQL.Add('insert into t_detpembelian values ("'+ednobeli.Text +'","'+edtglexp.Text+ '","'+
              edit1.Text+'","'+ edhrgbeli.Text+'","'+ edjmlbeli.Text+'")');
      execSQL;
      SQL.Clear;
      SQL.Add('select  from t_detpembelian);
      Open;
     end;
    except
     showmessage('Nomor pembelian Tidak boleh sama');
      SQL.Clear;
      SQL.Add('select   from t_detpembelian');
     Open;

@mas_kofa: dan ada perintah sql yg jarang dipake yakni Replace record akan diinsert jika data blom ada (berdasarkan primary key), dan di update jika record sudah ada....

@mas_kofa: dan ada perintah sql yg jarang dipake yakni Replace record akan diinsert jika data blom ada (berdasarkan primary key), dan di update jika record sudah ada....

@n3o_cybertech: yang saya tau,syntax "replace" itu dipakai di MySQL.CMIIW.