Ver Mensaje Individual
  #4  
Antiguo 01-10-2011
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 396
Reputación: 14
novato_erick Va por buen camino
Este es mi procedimiento en el boton de guardar corrijanme ya que no he logrado refrescar los datos sin tener que cerrar toda la aplicación.

Código Delphi [-]
procedure TFrmProveedores.Button1Click(Sender: TObject);

begin
  if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then
        begin
          dmacceso.cdsProveedores.Applyupdates(0);
          Main.FrmPrincipal.iCloseClick(FrmProveedores);
          Close;
        end
         else
            Begin
              dmacceso.cdsProveedores.Active := False;
              dmacceso.cdsProveedores.Active := True;
              dmacceso.cdsProveedores.ApplyUpdates(0);
              dmacceso.cdsProveedores.Last;
              dmacceso.cdsProveedores.Insert;
            end;

end;

utilizo directamente dbEdit mi conexion es dbexpress. y mi base da datos firebird.

Saludos
Responder Con Cita