Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-11-2008
Avatar de kaeltas
kaeltas kaeltas is offline
Miembro
 
Registrado: abr 2008
Posts: 22
Poder: 0
kaeltas Va por buen camino
Como Preguntar antes de borrar un registro

Hola a todos, como podrán notar este es mi primer post, pero no la primera vez que visito esta excelente pagina que me ha sacado de miles de dudas.

Tengo un pequeño problema y confió en que pueden ayudarme ya que es algo sencillo pero por falta de conocimiento no lo he podido resolver.

Tengo una aplicación en "delphi 7" que se conecta a "MySQL 5" por medio de una cadena de coneccion hecha por mi en un "ADOConnection"

Para manejar los datos de una tabla tengo el clasico DBGrid y el DBnavigator.

Mi problema es que el "DBnavigator" tiene un boton para eliminar registros pero me gustaria que antes de borrarlos sin contemplacion alguna preguntara algo como: "estas seguro????" o algo asi

El problema es que no tengo la mas minima idea de como hacerlo me pueden ayudar?

Por su atencion gracias y saludos!!!
Responder Con Cita
  #2  
Antiguo 24-11-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 23
Caro Va por buen camino
Hola kaeltas, lo puedes hacer en el evento OnBefore de tu DataSet.

Código Delphi [-]
procedure TForm1.ADOQuery6BeforeDelete(DataSet: TDataSet);
begin
 if MessageDlg('¿Esta seguro de borrar el registro.?', mtConfirmation, [mbYes,mbNo],0)= mrNo then
  Abort;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #3  
Antiguo 24-11-2008
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Poder: 18
look Va camino a la fama
Podrias utilizar el evento BeforeDelete de tu tabla:
Código Delphi [-]
procedure TForm1.Table1BeforeDelete(DataSet: TDataSet);
begin
if Application.MessageBox('¿Realmente desea Eliminar el Registro?', 
  '¿Seguro?', MB_YESNO + MB_ICONQUESTION) = IDYES then
begin

table1.delete
end;
end;

Talvez Te Sirve



Edito:


se me adelantaron
__________________
all your base are belong to us

Última edición por look fecha: 24-11-2008 a las 19:37:22. Razón: Por Lento.
Responder Con Cita
  #4  
Antiguo 24-11-2008
Avatar de kaeltas
kaeltas kaeltas is offline
Miembro
 
Registrado: abr 2008
Posts: 22
Poder: 0
kaeltas Va por buen camino
muchas gracias !!!

yeah!!!

Muchisimas gracias por su ayuda son lo maximo, lo que hice fue lo siguiente:

primero seleccione el dbnavigator, oculte todos los demas botones solo deje el de eliminar y en la propiedad BeforeAction escribi..

if MessageDlg('¿Esta seguro de borrar el registro?', mtConfirmation, [mbYes,mbNo],0)= mrNo then
Abort;

Y listo funciona a la perfección, muchísimas gracias a los dos saludos
Responder Con Cita
  #5  
Antiguo 24-11-2008
luisgutierrezb luisgutierrezb is offline
Miembro
 
Registrado: oct 2005
Ubicación: México
Posts: 925
Poder: 20
luisgutierrezb Va por buen camino
El mismo dbnavigator tiene la propiedad "ConfirmDelete" que pregunta antes de borrar, si tienes los recursos en español con eso basta... sin una linea de codigo...
Responder Con Cita
  #6  
Antiguo 24-11-2008
Avatar de kaeltas
kaeltas kaeltas is offline
Miembro
 
Registrado: abr 2008
Posts: 22
Poder: 0
kaeltas Va por buen camino
hola luisgutierrezb tienes razón si existe esa propiedad, el problema es que aunque estaba habilitada no me pedía confirmación.

Ademas de la manera que lo hice el contenido del msg es personalizado y en español

saludos y gracias por tu interés
Responder Con Cita
  #7  
Antiguo 23-04-2013
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Poder: 13
feliz-58 Va por buen camino
Mejorado

Cita:
Empezado por kaeltas Ver Mensaje
yeah!!!

Muchisimas gracias por su ayuda son lo maximo, lo que hice fue lo siguiente:

primero seleccione el dbnavigator, oculte todos los demas botones solo deje el de eliminar y en la propiedad BeforeAction escribi..

if MessageDlg('¿Esta seguro de borrar el registro?', mtConfirmation, [mbYes,mbNo],0)= mrNo then
Abort;

Y listo funciona a la perfección, muchísimas gracias a los dos saludos

Este es uno mejorado

Código Delphi [-]
if MessageDlg('¿Esta seguro de borrar el registro?', mtConfirmation, [mbYes,mbNo],0)= mrYes then
adotable1.Delete else abort;


Suerte
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Validar registro antes de insertar Moparova SQL 10 30-10-2008 17:11:42
¿Como preguntar? rastafarey Debates 24 07-08-2007 20:39:52
Como Evitar Borrar Registro en dbGrid al Presionar ESCAPE ???? AGAG4 Varios 4 07-07-2006 05:30:20
Preguntar antes de salir de aplicacion jorgesl Varios 6 19-04-2006 21:25:15
Borrar lineas detalle al borrar registro maestro akinom38 Conexión con bases de datos 3 11-01-2006 11:38:07


La franja horaria es GMT +2. Ahora son las 00:53:13.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi