Problema para eliminar y editar registros con query de por medio

[[Caral]]

Hola
Le hice algunas modificaciones que me parecieron logicas.
Primero, para que corra pon en cada table F:\Programa ya que yo lo modifique a C:\Programa.
El programa ahora tiene una pantalla por cada opcion que se necesite.
Cuando se quiere crear un nuevo automovil esta el boton de siempre, este creara los datos en la tabla ingresos.
Tienes dos dbgrid si le das click a cualquiera de ellos veras las opciones que tienes.
El de ingresos te dara dos opciones (modificar automovil y crear NUEVO trabajo o como le dices tu modificacion).
El de trabajos o modificaciones lo que hace es modificar los datos de esa modificacion, para que no se te complique use un dbnavigator en ese.
Si tienes dudas ya diras.
saludos

[kornamenta]

Genial Caral!! aunque me surgen algunos inconvenientes:

-Al eliminar patente no se borra, reaparece al refrescar tabla, aunque si se eliminan sus "Trabajos".
-Si al abrir ventana de edición de automóvil y se deja todo igual al clickear dos veces seguidas en aceptar salta un error.
-Si bien esta todo mas organizado no me ayuda en lo primordial del tema. Necesito que se pueda editar y eliminar registros de la tabla "Trabajos" la conectada al query, no solo la tabla maestro.


Muchisimas gracias por el tiempo que te has tomado para ayudarme y me gusta mucho como ha quedado si bien me gustaría hacerlo yo mismo y simplemente saber como se soluciona lo que digo. Aún así espero que puedas seguir ayudándome

[[Caral]]

Hola
Ya modifique lo que necesitas.
Ahora tienes otra opcion en el dbgrid de automoviles, este borrara todo.
Tambien cambie el de modificaciones, puedes modificar o borrar.
Saludos
NOTA: El automovil que se borrara sera el que este en el Edit4, osea, en la búsqueda (revisa el codigo)

[[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