Fórum Problemas com o BDGrid #257333

DeleteSQL:
   delete from NOTAS
   where
       RECNO = :OLD_RECNO

InsertSQL:

insert into NOTAS
  (RECNO, COD_BOLETIM, BIMESTRE, COD_DISCIPLINA, DESC_DISCIPLINA, PROVA1, 
   PROVA2, PROVA3, PROVA4, MEDIA_PROVA, AV_FECHADA, PARTICIPACAO, NOTA1, 
   NOTA2, FALTAS, MEDIA_FINAL)
values
  (:RECNO, :COD_BOLETIM, :BIMESTRE, :COD_DISCIPLINA, :DESC_DISCIPLINA, 
   :PROVA1, :PROVA2, :PROVA3, :PROVA4, :MEDIA_PROVA, :AV_FECHADA, :PARTICIPACAO, 
   :NOTA1, :NOTA2, :FALTAS, :MEDIA_FINAL)

ModifySQL:

update NOTAS
set
  RECNO = :RECNO,
  COD_BOLETIM = :COD_BOLETIM,
  BIMESTRE = :BIMESTRE,
  COD_DISCIPLINA = :COD_DISCIPLINA,
  DESC_DISCIPLINA = :DESC_DISCIPLINA,
  PROVA1 = :PROVA1,
  PROVA2 = :PROVA2,
  PROVA3 = :PROVA3,
  PROVA4 = :PROVA4,
  MEDIA_PROVA = :MEDIA_PROVA,
  AV_FECHADA = :AV_FECHADA,
  PARTICIPACAO = :PARTICIPACAO,
  NOTA1 = :NOTA1,
  NOTA2 = :NOTA2,
  FALTAS = :FALTAS,
  MEDIA_FINAL = :MEDIA_FINAL
where
  RECNO = :OLD_RECNO

  SelectSQL.Clear;
  SelectSQL.Add(´select * from NOTAS´);
  SelectSQL.Add(´where (COD_BOLETIM = ´ + CodBoletim.Caption + ´)´);
  SelectSQL.Add(´and (BIMESTRE = ´ + ComboBox1.Text + ´)´);

  RefreshSQL.Clear;
  RefreshSQL.Add(´select * from NOTAS´);
  RefreshSQL.Add(´where (COD_BOLETIM = ´ + CodBoletim.Caption + ´)´);
  RefreshSQL.Add(´and (BIMESTRE = ´ + ComboBox1.Text + ´)´);

  RefreshSQL.Clear; 
  RefreshSQL.Add(´select * from NOTAS´); 
  RefreshSQL.Add(´where (COD_BOLETIM = ´ + CodBoletim.Caption + ´)´); 
  RefreshSQL.Add(´and (BIMESTRE = ´ + ComboBox1.Text + ´)´);