Fórum Atualizar dados em uma dbgrid #405854

  if not ADOQuery1.IsEmpty then
  begin
    if messageDlg ('Confirma exclusão do registro?', mtConfirmation, mbOkCancel,0) = mrOk then
    begin
       Form_Cadastra_Produto.ADOTable1.Open;
       Form_OC.ADOTable1.Open;
       if (Form_Cadastra_Produto.ADOTable1.Locate('FORNECEDOR',  ADOQuery1.FieldByName ('FORNECEDOR').AsString, [])) or
       Form_OC.ADOTable1.Locate('FORNECEDOR',  ADOQuery1.FieldByName ('FORNECEDOR').AsString, []) then
       begin
         MessageDlg ('Este fornecedor não pode ser excluída, pois, possuí produtos ou pedidos associados a ele', mtInformation, [mbOK], 0);
         Edit1.clear;
         Edit1.SetFocus;
         Abort;
       end
       else
       begin
         ADOQuery1.Delete;
         Edit1.Clear;
         Edit1.SetFocus;
       end;
    end;
  end
  else
    ShowMessage('Não existem mais dados a serem excluídos!');
    Form_Cadastra_Produto.ADOTable1.Close;
    Form_OC.ADOTable1.Close;