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);begin
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