Como organizar un cliente con varios contactos

[Casimiro Noteví]

Si un contacto solamente va a tener un enlace con un cliente entonces puedes añadir únicamente un campo en el contacto donde almacenas el código del cliente al que está enlazado.
Ejemplo:

tbClientes
  id
  nombre
  telefono
  primary key (id)

tbContactos
  id
  idCliente    /* (id en tbClientes) */
  nombre
  telefono
  primary key (id,idCliente)

Aunque de esa forma, si alguna vez te dicen: "oye, que el contacto 111 es padre del cliente 33 y cónyuge del cliente 42, ¿ahora qué haces?

Mejor la primera forma, tabla intermedia.

[Delphitest]

Perfecto, ya me he puesto manos a la obra.

En mi caso un contacto nunca podrá ser de varios clientes asi que esto simplifica la tarea...

Ya hice la tabla de Contactos con el campo IdCliente

Lo que hago al añadir un Contacto desde la Ficha del Cliente es que automaticamente el IdCliente del contacto sea el valor de IdCliente de la tabla Cliente, lo hago incluyendo esta línea en el evento onclick del botón añadir:

Código Delphi [-]
  TContactos.FieldByName('IdCliente').Value := DMmain.TClientes.FieldByName('IdCliente').value;

La tabla contactos está en el Form actual pero la de clientes está en un Data Module.

Hasta ahí creo que lo hago bien porque he probado y todo es correcto.

En la finca de cliente he puesto un DBGrid donde pretendo que aparezcan todos los contactos relacionados con este cliente.

Lo hago a través de una Query pero no sé qué debo poner el la sentencia SQL, ando un poco perdido con estas cosas.

Si le pongo esto:

Código SQL [-]
Select * From Contactos

Vería todos los contacto, pero para ver únicamente los contactos cuyo IdCliente sea el mismo que el IdCLiente de la tabla Clientes no se que tengo que poner.

Se hace con un where creo que al tener dos tablas no se como indicar que un campo sea igual al de otra tabla

He probado con

Código SQL [-]
Select * From Contactos where IdCliente = DMMain.TClientes.IdCliente

Pero no funciona, debo de andar cerca....

También he visto una opción para poner un filtro en la query aunque no se si es ahí donde hay que ponerlo o en la SQL

[ecfisa]

Hola Delphitest.

La consulta sería similar a esta:

Código SQL [-]
SELECT CO.NOMBRE,  CO.TELEFONO, ...
FROM CONTACTOS CO
INNER JOIN CLIENTES CL ON CO.ID_CLIENTE = CL.ID 
  AND CL.ID = :P_ID
ORDER BY CO.NOMBRE

Pero desconozco los campos que deseas obtener y los componentes que estas usando como para darte una respuesta mas concreta.

Saludos

[ecfisa]

Hola de nuevo.

Otra forma mas simple, pero una pizca menos eficiente es:

Código SQL [-]
SELECT NOMBRE, TELEFONO, ...
FROM CONTACTOS
WHERE ID_CLIENTE = :P_ID
ORDER BY NOMBRE

Saludos

[Delphitest]

En cuanto a los campos de la tabla contactos solo necesito Nombre, DNI y Telefono

El componente que uso es ADO

La duda que tengo es cómo indicar la tabla clientes en la SQL ya que no está en el Form donde tengo la consulta de Contactos, está en Data Module que llamo DMMain

[ecfisa]

Hola Delphitest.

Código Delphi [-]
  with DMMain.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT CO.NOMBRE, CO.DNI, CO.TELEFONO');
    SQL.Add('FROM CONTACTOS CO INNER JOIN CLIENTES CL');
    SQL.Add('ON CO.ID_CLIENTE = CL.ID AND CL.ID = :P_ID');
    SQL.Add('ORDER BY CO.NOMBRE');
    Parameters.ParamByName('P_ID').Value:= tu_variable; //(*)
    Open;
  end;

(*) Donde "tu_variable" es cualquier variable (o constante) de tipo Integer que contenga el ID del cliente cuyos contactos se desea listar.

Saludos

[Delphitest]

Buenos días,

gracias por vuestra ayuda, siento no haber contestado pero no acabo de conseguir hacerlo funcionar.

Qué duro es esto de la programación por momentos... , me está dando la noche este problema

El caso es que no se donde meter ese código que me comenta ecfisa y estoy intentando hacer una sola línea de sql para ponerla en las propiedades de la query TContactos pero sigo fallando en la parte que indica el campo IDCliente de la tabla TClientes y que no está en el mismo form, no se si me falta algo por probar pero he hecho todo tipo de combinaciones.

Quizás la solución sea crear una variable en el Form que recoja el contenido de IDCLiente de la tabla TClientes y después hacer referencia a esa variable dentro de la sentencia SQL, pero mis pruebas tampoco han sido exitosas.

No pierdo la esperanza, sigo haciendo pruebas...