Problema para eliminar y editar registros con query de por medio

[[Caral]]

Hola
Cuando vas a eliminar un automovil seria bueno preguntar si esta seguro o no:
En la opcion de eliminar datos del automovil en el dbgrid:

Código Delphi [-]
If MessageDlg('¿Está seguro que desea Eliminar La informacion ',mtConfirmation,[mbYes,mbNo],0) = mrYes then
  begin
  Query2.SQL.Text:= 'Delete from Ingresos where Patente = :dat';
  Query2.Params[0].Value:= Edit4.Text;
  Query2.ExecSQL;

  Query2.SQL.Text:= 'Delete from Modificaciones where Patente = :dat';
  Query2.Params[0].Value:= Edit4.Text;
  Query2.ExecSQL;

  showmessage('registros borrados');
  edit4.Clear;
  Button2.Click;
  end
  else
  // Lo que sea.

Saludos

[kornamenta]

Hola Caral gracias por todo me gusta como quedo aunque quería saber si había alguna forma para poder eliminar registros en cascada sin la necesidad de hacerlo mediante búsqueda. Me gustaría que no fuera necesario realizar una búsqueda para poder eliminar ese registro

[[Caral]]

Hola
Cual registro ?
Saludos

[kornamenta]

Perdón ya lo solucione, hice que al hacer click en la celda automáticamente el Edit4 tome el valor de la patente.
Nuevamente gracias y veré si necesito realizarle alguna modificación loca xD, cualquier cosa te aviso.

[ecfisa]

Empezado por kornamenta

Hola Caral gracias por todo me gusta como quedo aunque quería saber si había alguna forma para poder eliminar registros en cascada sin la necesidad de hacerlo mediante búsqueda. Me gustaría que no fuera necesario realizar una búsqueda para poder eliminar ese registro

Hola.

Aunque en el Database Desktop figure la opción Update rule, según tengo entendido, Paradox no soporta la actualización en cascada.

Saludos.

[kornamenta]

Empezado por ecfisa

Hola.

Aunque en el Database Desktop figure la opción Update rule, según tengo entendido, Paradox no soporta la actualización en cascada.

Saludos.

Sisi Eficsa eso lo se pero yo me refería a la forma de hacerlo, yo utilizo un while para que elimine antes todos los registros relacionados y luego si pueda borrar el de la tabla maestro. El inconveniente que surgía era que de la forma en que me lo arregló Caral solo podía eliminar haciendo antes la búsqueda, pero ahora con directamente dar click a la celda de la patente y poner eliminar me lo hace directamente. Ya que el código se basaba en la patente registrada en el edit de búsqueda entonces hice que al hacer click sobre una patente este edit tomara su valor automáticamente. No se si me explique, no los culpo si no xD :P

[[Caral]]

Hola
Si no se puede borrar en cascada entonces se borra chorrito a chorrito
Saludos
PD: podia poner la seleccion por medio del dbgrid, pero entonces que harias tu ?, es mejor que vayas aprendiendo poco a poco y no darte todo resuelto

[kornamenta]

Lo se Caral, eso quería decir unos post antes, que no quiero que me lo hagan, solo despejar mis dudas, pero igual te agradezco todo

Edit:
Acabo de descubrir un pequeño problema, pero ya prácticamente esta terminado. Al modificar un "Trabajo/Modificación" desde el Form4 se pone en modo edición, pero luego nose como hacer para que luego de modificar o no, se quite el modo edición. Intente poniendo un .Post en el botón eliminar pero al presionarlo luego de eliminar anteriormente un registro me salta un error, lo que me hace pensar que no es nada fiable colocar un .post allí.

[[Caral]]

Hola
Tienes un boton de modificar y otro de eliminar.
Lo que puedes hacer facilmente es cambiar el caption de cualquiera de los botones una vez presionado, ejemplo>
Si presionas el boton modificar que el boton de eliminar quede el caption en Guardar, osea guardara los cambios siempre que se presione el boton, de lo contrario no.
Asi mismo con el boton de eliminar, quedara el bton de modificar el caption en guardar.
Luego con un simple (if caption = 'Guardar' then) tendras.
Saludos