Error en mantenedor con query...

[ilichhernandez]

Hola, estoy haciendo un mantenedor, pero algo no anda bien, no actualiza como corresponde en el grid y me duplica la clave de entrada de la tabla envases, alguien que fuera tan amable de revisar mis lineas de codigo....y plantearme algun probable problema....

codigo boton nuevo :

Código Delphi [-]
 
   procedure Tform_envases.cxButton7Click(Sender: TObject);
var cont : integer;
begin
dm.qryenvases.insert;
form_envases.Panel1.SendToBack;
form_envases.DBEdit1.SetFocus;
dm.Qryenvases.Open;
cont := dm.qryenvases.RecordCount;
inc(cont);
inc(cont);
form_envases.dbedit2.Text := InttoStr(cont);
end;
 

codigo boton modificar :

Código Delphi [-]
 
   procedure Tform_envases.cxButton2Click(Sender: TObject);  
begin
dm.qryenvases.Edit;
form_envases.Panel1.SendToBack;
end;
 

codigo boton eliminar :

Código Delphi [-]
 
   procedure Tform_envases.cxButton3Click(Sender: TObject); 
var buttonSelected : Integer;
begin
buttonSelected := MessageDlg('Desea Borrar el registro',mtCustom,[mbYes,mbNo], 0);
if (buttonSelected = mryes)  then
        Begin
          dm.qryenvases.Delete;
        end;
if (buttonSelected = mrNo) then ShowMessage('Operación cancelada...');
end;

codigo boton grabar :

Código Delphi [-]
 
   procedure Tform_envases.cxButton4Click(Sender: TObject);//grabar
begin
//contar cantidad de registros
   If (dbedit1.Text <> '') then
   begin
   dm.qryenvases.Post;
   dbgrid1.Refresh;
   end;
form_envases.Panel2.SendToBack;
end;

codigo boton cancelar :

Código Delphi [-]
 
     procedure Tform_envases.cxButton5Click(Sender: TObject);
begin
dm.qryenvases.Cancel;
form_envases.Panel2.SendToBack;
end;
  

Gracias de antemanos..
Ilich Hernandez

[fredo]

hola chicho, insisto, te falta el commitail, o commit..... o aplyupdates.. algo que postee tu cambio.....por otro lado el recordcount no siempre funciona bien, varia entre una base de datos y otras....

codigo boton grabar :

Código Delphi:

  procedure Tform_envases.cxButton4Click(Sender: TObject);//grabar
begin
//contar cantidad de registros
   If (dbedit1.Text <> '') then
   begin
   dm.qryenvases.Post;
   
   dm.qryenvases.applyupdates;

   dbgrid1.Refresh;
   end;
form_envases.Panel2.SendToBack;
end;