Ver Mensaje Individual
  #10  
Antiguo 14-08-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Edgar.

No conozco los componentes RX, pero supongo que a grandes rasgos el pequeño código de ejemplo que te pongo tendría que funcionar.
Código Delphi [-]
// Activar CachedUpdates, abrir Table4
procedure TForm1.FormCreate(Sender: TObject);
begin
  with Form4.Table4 do
  begin
    CachedUpdates := True;
    SQL.Text      := 'SELECT * FROM ENTRADAS';
    Open
  end;
end;

// Mostrar en el DBGrid
procedure TForm1.btAgregarAlGridClick(Sender: TObject);
begin
  with Form4.Table4 do
  begin
    Append;
    FieldByname('Nivel').AsString := codigo.Text;
    FieldByName('Texto').AsString := nombre.Text;
    ...
    Post
  end
end;

// Aplicar lo insertado
procedure TForm1.btnAplicarClick(Sender: TObject);
begin
  Form4.Table4.ApplyUpdates
end;

// Cancelar lo insertado
procedure TForm1.btnCancelarClick(Sender: TObject);
begin
  Form4.Table4.CancelUpdates
end;

// Desactivar CachedUpdates, cerrar Table4
procedure TForm1.FormDestroy(Sender: TObject);
begin
  with Form4.Table4 do
  begin
    CachedUpdates:= False;
    Close;
  end;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita