Dbgrid en blanco

[lafourcade]

Una disculpa no habia podido checar sus respuestas, para guardar los datos del formulario uso el sig. codigo:

Código Delphi [-]
procedure TForm12.Button1Click(Sender: TObject);
begin
if MessageDlg('DESEA GUARDAR EL TURNO',mtConfirmation, [mbYes, mbNo],0)=mrYes then
begin
    with DataModule1.ibquery1 do
     begin
      close;
      sql.clear;
      sql.Add('insert into C_TURNO(FECHA,TURNO,TOTAL,TOTAL_R,TOTAL_EF,TOTAL_CRE,TOTAL_GA,TOTAL_TAR )');
      sql.add('values(:fec,:tur,:tot,:totr,:tote,:totc,:totg,:tott)');
      paramByName('FEC').ASDATE:=DATETIMEPICKER1.date;
      paramByName('TUR').asstring:=COMBOBOX1.text;
      paramByName('TOT').ASFLOAT:=STRTOFLOAT(edit1.text);
      paramByName('TOTR').asFLOAT:=STRTOFLOAT(edit16.text);
      paramByName('TOTE').asFLOAT:=STRTOFLOAT(edit69.text);
      paramByName('TOTC').asfloat:=strtofloat(edit83.text);
      paramByName('TOTG').asfloat:=strtofloat(edit17.text);
      paramByName('TOTT').asfloat:=strtofloat(edit18.text);
      execsql;
      sql.Clear;
      sql.add('commit');
      execsql;
    end;
    showmessage('EL TURNO SE HA GUARDADO');
    //datamodule1.DataSource10.Enabled:=false;
    Datamodule1.IBQuery1.Close;
    DataModule1.IBQuery1.Open;
end;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit11.Clear;
edit12.Clear;
edit13.Clear;
edit14.Clear;
edit15.Clear;
edit16.Clear;
edit17.Clear;
edit18.Clear;
edit19.Clear;
edit26.Clear;
edit27.Clear;
edit28.Clear;
edit29.Clear;
edit30.Clear;
edit83.clear;
 
end;

Lo q muestra en el dbgrid son concepto y total para obtener totc lo despliego en el edit 83 yes lo q guardo, los datos del dbgrid no los guardo ya que los tengo en otra tabla.

El hecho de limpiarlo es xq al entrar nuevamente al form se hace una nueva consulta y se tienen q desplegar datos nuevos.

Espero haber sido clara y me puedan ayudar.
Gracias