Ver Mensaje Individual
  #5  
Antiguo 20-02-2008
gorsan gorsan is offline
Miembro
 
Registrado: jun 2003
Ubicación: Alcala de Henares (Madrid)
Posts: 87
Reputación: 24
gorsan Va por buen camino
He descubierto que el dataset no añade registro nuevo porque permanece en dsBrowse
Código Delphi [-]
procedure TWCpu.TBAddClick(Sender: TObject);
begin
   TBAdd.Enabled:=False;
   TBEditar.Enabled:=False;
   TBBorrar.Enabled:=False;
   TBGrabar.Enabled:=True;
   TBCancelar.Enabled:=True;
   EBuscar.SetFocus;
   with DMCpu.IBCpu do
    try
       DisableControls;
       Close;
       Open;
       Append;
    finally
       EnableControls;
       if DMCpu.IBCpu.State in [dsBrowse] then ShowMessage('No has añadido un nuevo registro');
    end;
   DBId_inv_cpu.SetFocus;
end;

No entiendo nada
Responder Con Cita